C DEPB      SOURCE    FANDEUR   22/01/03    21:15:09     11136          

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
      SUBROUTINE DEPB

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-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
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*mod
C
C  CREATION DU CHAMPOINT DES VARIABLES DE LIAISONS
C
      NBNO=nbpts
      XCOOR(**)=0.D0
      XCOOR(**)=0.D0
      IF(IDIM.EQ.3) XCOOR(**)=0.D0
      XCOOR(**)=0.D0
      nbpts=nbpts+1

      NBNN=1
      NBELEM=1
      NBSOUS=0
      NBREF=0
      SEGINI MELEME
      ITYPEL=1
      NUM(1,1)=NBNO+1
      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)

C      RETURN
      END