C DEPB      SOURCE    AM        08/02/14    21:20:14     6050           
      SUBROUTINE DEPB                                                           
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C ====================================================================          
C = L'OPERATEUR DEPB FABRIQUE UN OBJET ATTACHE CORRESPONDANT A UNE   =          
C = LIAISON DE TYPE DEPLACEMENT IMPOSE SUR MODES BLOQUES             =          
C = SYNTAXE :                                                        =          
C = ATTA1=DEVE CHP1 STR1 ;                                           =          
C =    ATTA1 OBJET ATTACHE                                           =          
C =    CHP1  OBJET CHAMPOINT FABRIQUE PAR DEPIMP                     =          
C =    STR1  OBJET STRUCTURE                                         =          
C = CREATION 03/09/86                                                =          
C = PROGRAMMEUR GUILBAUD                                             =          
C ====================================================================          
C                                                                               
-INC CCOPTIO                                                                    
-INC CCHAMP                                                                     
-INC SMCOORD                                                                    
-INC SMATTAC                                                                    
-INC SMELEME                                                                    
-INC SMSTRUC                                                                    
-INC SMCHPOI                                                                    
      CALL LIROBJ('CHPOINT ',IRET1,1,IRETOU)                                    
      CALL LIROBJ('STRUCTUR',IRET2,1,IRETOU)                                    
      IF(IERR.NE.0) RETURN                                                      
C                                                                               
      MSTRUC=IRET2                                                              
      SEGACT MSTRUC                                                             
      NBSTRU=LISTRU(/1)                                                         
      MSOSTU=LISTRU(1)                                                          
      SEGDES MSTRUC                                                             
      IF(NBSTRU.NE.1) THEN                                                      
C  ***  LA SOUS-STRUCTURE N'EST PAS ELEMENTAIRE                                 
      INTERR(1)=MSOSTU                                                          
      CALL ERREUR(90)                                                           
      RETURN                                                                    
      ENDIF                                                                     
C                                                                               
      MCHPOI=IRET1                                                              
      SEGACT MCHPOI                                                             
      IF(MTYPOI.NE.'FLX     ') THEN                                             
C *** LE CHAMPOINT N'EST PAS DE SOUS-TYPE MOFLX                                 
        MOTERR(1:8)='CHPOINT'                                                   
        CALL ERREUR(302)                                                        
        RETURN                                                                  
      ENDIF                                                                     
      SEGDES MCHPOI                                                             
C VERIF DE COMPATIBILITE ENTRE LA STRUCTURE ET LE CHAMPOINT A CREER A FA        
      N=1                                                                       
      SEGINI MATTAC                                                             
      M=0                                                                       
      N=1                                                                       
      SEGINI MSOUMA                                                             
      LISATT(1)=MSOUMA                                                          
      ITYATT='DEPI'                                                             
      IPHYCH=0                                                                  
      IGEOCH=0                                                                  
      SEGACT MCOORD                                                             
C                                                                               
C  CREATION DU CHAMPOINT DES VARIABLES DE LIAISONS                              
C                                                                               
      NBNO=XCOOR(/1)/(IDIM+1)                                                   
      XCOOR(**)=0.D0                                                            
      XCOOR(**)=0.D0                                                            
      IF(IDIM.EQ.3) XCOOR(**)=0.D0                                              
      XCOOR(**)=0.D0                                                            
C     NSOUPO=1                                                                  
C     SEGINI MCHPOI                                                             
C     NC=1                                                                      
C     SEGINI MSOUPO                                                             
C     IPCHP(1)=MSOUPO                                                           
C     IFOPOI=2                                                                  
      NBNN=1                                                                    
      NBELEM=1                                                                  
      NBSOUS=0                                                                  
      NBREF=0                                                                   
      SEGINI MELEME                                                             
C     IGEOC=MELEME                                                              
      ITYPEL=1                                                                  
      NUM(1,1)=NBNO+1                                                           
C     N=1                                                                       
C     SEGINI MPOVAL                                                             
C     IPOVAL=MPOVAL                                                             
C     NOCOMP(1)=MOFLX                                                           
C     NOHARM(1)=0                                                               
C     VPOCHA(1,1)=0.D0                                                          
C     SEGDES MPOVAL,MSOUPO,MCHPOI                                               
      SEGDES MELEME                                                             
      N=1                                                                       
      SEGINI MJONCT                                                             
      IATREL(1)=MJONCT                                                          
      MJOTYP='DEPI'                                                             
      MJOPOI=MELEME                                                             
      MJODDL='FLX'                                                              
      ISTRJO(1)=MSOSTU                                                          
      IPCHJO(1)=IRET1                                                           
      IPOSJO(1)=0                                                               
      SEGDES MJONCT,MSOUMA,MATTAC                                               
      CALL ECROBJ('ATTACHE ',MATTAC)                                            
      RETURN                                                                    
      END