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