1 : C DEPB SOURCE AM 08/02/14 21:20:14 6050 2 : SUBROUTINE DEPB 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C ==================================================================== 6 : C = L'OPERATEUR DEPB FABRIQUE UN OBJET ATTACHE CORRESPONDANT A UNE = 7 : C = LIAISON DE TYPE DEPLACEMENT IMPOSE SUR MODES BLOQUES = 8 : C = SYNTAXE : = 9 : C = ATTA1=DEVE CHP1 STR1 ; = 10 : C = ATTA1 OBJET ATTACHE = 11 : C = CHP1 OBJET CHAMPOINT FABRIQUE PAR DEPIMP = 12 : C = STR1 OBJET STRUCTURE = 13 : C = CREATION 03/09/86 = 14 : C = PROGRAMMEUR GUILBAUD = 15 : C ==================================================================== 16 : C 17 : -INC CCOPTIO 18 : -INC CCHAMP 19 : -INC SMCOORD 20 : -INC SMATTAC 21 : -INC SMELEME 22 : -INC SMSTRUC 23 : -INC SMCHPOI 23 : CALL LIROBJ('CHPOINT ',IRET1,1,IRETOU) 23 : CALL LIROBJ('STRUCTUR',IRET2,1,IRETOU) 24 : IF(IERR.NE.0) RETURN 25 : C 26 : MSTRUC=IRET2 27 : SEGACT MSTRUC 28 : NBSTRU=LISTRU(/1) 29 : MSOSTU=LISTRU(1) 30 : SEGDES MSTRUC 31 : IF(NBSTRU.NE.1) THEN 32 : C *** LA SOUS-STRUCTURE N'EST PAS ELEMENTAIRE 33 : INTERR(1)=MSOSTU 33 : CALL ERREUR(90) 34 : RETURN 35 : ENDIF 36 : C 37 : MCHPOI=IRET1 38 : SEGACT MCHPOI 39 : IF(MTYPOI.NE.'FLX ') THEN 40 : C *** LE CHAMPOINT N'EST PAS DE SOUS-TYPE MOFLX 41 : MOTERR(1:8)='CHPOINT' 41 : CALL ERREUR(302) 42 : RETURN 43 : ENDIF 44 : SEGDES MCHPOI 45 : C VERIF DE COMPATIBILITE ENTRE LA STRUCTURE ET LE CHAMPOINT A CREER A FA 46 : N=1 47 : SEGINI MATTAC 48 : M=0 49 : N=1 50 : SEGINI MSOUMA 51 : LISATT(1)=MSOUMA 52 : ITYATT='DEPI' 53 : IPHYCH=0 54 : IGEOCH=0 55 : SEGACT MCOORD 56 : C 57 : C CREATION DU CHAMPOINT DES VARIABLES DE LIAISONS 58 : C 59 : NBNO=XCOOR(/1)/(IDIM+1) 60 : XCOOR(**)=0.D0 61 : XCOOR(**)=0.D0 62 : IF(IDIM.EQ.3) XCOOR(**)=0.D0 63 : XCOOR(**)=0.D0 64 : C NSOUPO=1 65 : C SEGINI MCHPOI 66 : C NC=1 67 : C SEGINI MSOUPO 68 : C IPCHP(1)=MSOUPO 69 : C IFOPOI=2 70 : NBNN=1 71 : NBELEM=1 72 : NBSOUS=0 73 : NBREF=0 74 : SEGINI MELEME 75 : C IGEOC=MELEME 76 : ITYPEL=1 77 : NUM(1,1)=NBNO+1 78 : C N=1 79 : C SEGINI MPOVAL 80 : C IPOVAL=MPOVAL 81 : C NOCOMP(1)=MOFLX 82 : C NOHARM(1)=0 83 : C VPOCHA(1,1)=0.D0 84 : C SEGDES MPOVAL,MSOUPO,MCHPOI 85 : SEGDES MELEME 86 : N=1 87 : SEGINI MJONCT 88 : IATREL(1)=MJONCT 89 : MJOTYP='DEPI' 90 : MJOPOI=MELEME 91 : MJODDL='FLX' 92 : ISTRJO(1)=MSOSTU 93 : IPCHJO(1)=IRET1 94 : IPOSJO(1)=0 95 : SEGDES MJONCT,MSOUMA,MATTAC 95 : CALL ECROBJ('ATTACHE ',MATTAC) 96 : RETURN 97 : END 98 : 99 : 100 :
© Cast3M 2003 - All rights reserved.
Disclaimer