C IDFLUA SOURCE AM 05/11/10 21:15:09 5234 SUBROUTINE IDFLUA (MFR,MOOBL,MOFAC,IPLAC,IRET) *--------------------------------------------------------------------* * Noms de composantes de mat{riaux fluages * *--------------------------------------------------------------------* * * * ENTREES: * * ------- * * MFR num{ro de formulation * * IPMODL objet mod}le {l{mentaire ( segment actif ) * * MOOBL pointeur sur les mots obligatoires * * MOFAC POINTEUR SUR LES MOTS FACULTATIFS * * IPLAC numero du materiau dans MODFLU * * * * SORTIE : * * ------- * * * * IRET : 0 SI PROBLEME * * * *--------------------------------------------------------------------* * IMPLICIT INTEGER(I-N) -INC SMLMOTS -INC CCOPTIO * JGN=8 IRET=1 * *--------------------------------------------------------------------* * * * T Y P E F L U A G E * * * *--------------------------------------------------------------------* IF (IPLAC.EQ.1) THEN * * MODELE FLUAGE-1 NORTON * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+4 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' GOTO 9999 ELSE IF (IPLAC.EQ.2) THEN * * MODELE FLUAGE-2 BLACKBURN * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+14 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'AF4 ' MOTS(JGA+6)= 'RF1 ' MOTS(JGA+7)= 'RF2 ' MOTS(JGA+8)= 'RF3 ' MOTS(JGA+9)= 'RF4 ' MOTS(JGA+10)= 'BF1 ' MOTS(JGA+11)= 'BF2 ' MOTS(JGA+12)= 'BF3 ' MOTS(JGA+13)= 'BF4 ' MOTS(JGA+14)= 'BF5 ' GOTO 9999 ELSE IF (IPLAC.EQ.3) THEN * * MODELE FLUAGE-3 RCC-MR FOR 1S MATERIAL (SS 316 LN) * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+8 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF3 ' MOTS(JGA+4)= 'AF2 ' MOTS(JGA+5)= 'TF1 ' MOTS(JGA+6)= 'TF2 ' MOTS(JGA+7)= 'BF1 ' MOTS(JGA+8)= 'BF2 ' GOTO 9999 ELSE IF (IPLAC.EQ.4) THEN * * MODELE FLUAGE-4 RCC-MR FOR 2S MATERIAL (SS 304 LN) * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+12 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'BF1 ' MOTS(JGA+3)= 'BF2 ' MOTS(JGA+4)= 'BF3 ' MOTS(JGA+5)= 'RF1 ' MOTS(JGA+6)= 'RF2 ' MOTS(JGA+7)= 'RF3 ' MOTS(JGA+8)= 'AF1 ' MOTS(JGA+9)= 'SF1 ' MOTS(JGA+10)= 'AF2 ' MOTS(JGA+11)= 'AF3 ' MOTS(JGA+12)= 'SF2 ' GOTO 9999 ELSE IF (IPLAC.EQ.5) THEN * * MODELE FLUAGE-5 LEMAITRE/TIJANI MODEL (ROCK SALT) * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+7 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'KXF ' MOTS(JGA+6)= 'KYF ' MOTS(JGA+7)= 'AF4 ' GOTO 9999 ELSE IF (IPLAC.EQ.6) THEN * * MODELE FLUAGE-6 POLYNOMIAL * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+8 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF0 ' MOTS(JGA+3)= 'AF1 ' MOTS(JGA+4)= 'AF2 ' MOTS(JGA+5)= 'AF3 ' MOTS(JGA+6)= 'AF4 ' MOTS(JGA+7)= 'AF5 ' MOTS(JGA+8)= 'AF6 ' GOTO 9999 ELSE IF (IPLAC.EQ.7) THEN * * MODELE FLUAGE-7 BLACKBURN_2 * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+14 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'AF4 ' MOTS(JGA+6)= 'RF1 ' MOTS(JGA+7)= 'RF2 ' MOTS(JGA+8)= 'RF3 ' MOTS(JGA+9)= 'RF4 ' MOTS(JGA+10)= 'BF1 ' MOTS(JGA+11)= 'BF2 ' MOTS(JGA+12)= 'BF3 ' MOTS(JGA+13)= 'BF4 ' MOTS(JGA+14)= 'BF5 ' GOTO 9999 C ELSE IF (IPLAC.EQ.8) THEN ***************************************************** C C========================================================= C MODELE CERAMIC = BETON OTTOSEN + FLUAGE NORTON C========================================================= C Formulation DEFORMATIONS PLANES /AXISYMETRIQUE IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR. & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+13 SEGADJ MLMOTS MOOBL=MLMOTS IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN MOTS(JGA+1)='LXX ' MOTS(JGA+2)='LYY ' MOTS(JGA+3)='LXY ' MOTS(JGA+4)='LZZ ' MOTS(JGA+5)='PXX ' MOTS(JGA+6)='PYY ' MOTS(JGA+7)='PXY ' MOTS(JGA+8)= 'SMAX' MOTS(JGA+9)= 'AF1 ' MOTS(JGA+10)= 'AF2 ' MOTS(JGA+11)= 'AF3 ' MOTS(JGA+12)= 'TTRA ' MOTS(JGA+13)= 'ENDG ' * ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN MOTS(JGA+1)='LRR ' MOTS(JGA+2)='LZZ ' MOTS(JGA+3)='LRZ ' MOTS(JGA+4)='LOO ' MOTS(JGA+5)='PRR ' MOTS(JGA+6)='PZZ ' MOTS(JGA+7)='PRZ ' MOTS(JGA+8)= 'SMAX' MOTS(JGA+9)= 'AF1 ' MOTS(JGA+10)= 'AF2 ' MOTS(JGA+11)= 'AF3 ' MOTS(JGA+12)= 'TTRA ' MOTS(JGA+13)= 'ENDG ' ENDIF * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+30 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='EPSR' MOTS(JGA+11)='GFT1' MOTS(JGA+12)='GFT2' MOTS(JGA+13)='GFT3' MOTS(JGA+14)='GS1 ' MOTS(JGA+15)='GS2 ' MOTS(JGA+16)='GS3 ' MOTS(JGA+17)='LTR1' MOTS(JGA+18)='LTR2' MOTS(JGA+19)='LTR3' MOTS(JGA+20)='EPCM' MOTS(JGA+21)='EPCU' MOTS(JGA+22)='LCBI' MOTS(JGA+23)='XK2 ' MOTS(JGA+24)='XGB ' MOTS(JGA+25)='XPA ' MOTS(JGA+26)='WRU1' MOTS(JGA+27)='WRU2' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='EPSB' GOTO 9999 ENDIF C C Formulation CONTRAINTES PLANES / 3D COQUES MINCES IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR. & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+13 SEGADJ MLMOTS MOOBL=MLMOTS IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN MOTS(JGA+1)='LXX ' MOTS(JGA+2)='LYY ' MOTS(JGA+3)='LXY ' MOTS(JGA+4)='LZZ ' MOTS(JGA+5)='PXX ' MOTS(JGA+6)='PYY ' MOTS(JGA+7)='PXY ' MOTS(JGA+8)= 'SMAX' MOTS(JGA+9)= 'AF1 ' MOTS(JGA+10)= 'AF2 ' MOTS(JGA+11)= 'AF3 ' MOTS(JGA+12)= 'TTRA ' MOTS(JGA+13)= 'ENDG' * ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN MOTS(JGA+1)='LSS ' MOTS(JGA+2)='LTT ' MOTS(JGA+3)='LST ' MOTS(JGA+4)='LNN ' MOTS(JGA+5)='PSS ' MOTS(JGA+6)='PTT ' MOTS(JGA+7)='PST ' MOTS(JGA+8)= 'SMAX' MOTS(JGA+9)= 'AF1 ' MOTS(JGA+10)= 'AF2 ' MOTS(JGA+11)= 'AF3 ' MOTS(JGA+12)= 'TTRA ' MOTS(JGA+13)= 'ENDG' ENDIF * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+25 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GS1 ' MOTS(JGA+13)='GS2 ' MOTS(JGA+14)='LTR1' MOTS(JGA+15)='LTR2' MOTS(JGA+16)='EPCM' MOTS(JGA+17)='EPCU' MOTS(JGA+18)='LCBI' MOTS(JGA+19)='XK2 ' MOTS(JGA+20)='XGB ' MOTS(JGA+21)='XPA ' MOTS(JGA+22)='WRU1' MOTS(JGA+23)='WRU2' MOTS(JGA+24)='BIL1' MOTS(JGA+25)='BIL2' GOTO 9999 ENDIF C C Formulation TRIDIMENSIONNELLE MASSIVE IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+18 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1) ='LXX ' MOTS(JGA+2) ='LYY ' MOTS(JGA+3) ='LZZ ' MOTS(JGA+4) ='LXY ' MOTS(JGA+5) ='LXZ ' MOTS(JGA+6) ='LYZ ' MOTS(JGA+7) ='PXX ' MOTS(JGA+8) ='PYY ' MOTS(JGA+9) ='PZZ ' MOTS(JGA+10)='PXY ' MOTS(JGA+11)='PXZ ' MOTS(JGA+12)='PYZ ' MOTS(JGA+13)= 'SMAX' MOTS(JGA+14)= 'AF1 ' MOTS(JGA+15)= 'AF2 ' MOTS(JGA+16)= 'AF3 ' MOTS(JGA+17)= 'TTRA ' MOTS(JGA+18)= 'ENDG' MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+30 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1)='GFTR' MOTS(JGA+2)='LTR ' MOTS(JGA+3)='GFCS' MOTS(JGA+4)='LCS ' MOTS(JGA+5)='GS ' MOTS(JGA+6)='BTR ' MOTS(JGA+7)='BCS ' MOTS(JGA+8)='WRUP' MOTS(JGA+9)='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GFT3' MOTS(JGA+13)='GS1 ' MOTS(JGA+14)='GS2 ' MOTS(JGA+15)='GS3 ' MOTS(JGA+16)='LTR1' MOTS(JGA+17)='LTR2' MOTS(JGA+18)='LTR3' MOTS(JGA+19)='EPCM' MOTS(JGA+20)='EPCU' MOTS(JGA+21)='LCBI' MOTS(JGA+22)='XK2 ' MOTS(JGA+23)='XGB ' MOTS(JGA+24)='XPA ' MOTS(JGA+25)='WRU1' MOTS(JGA+26)='WRU2' MOTS(JGA+27)='WRU3' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='BIL3' GOTO 9999 ENDIF C ELSE IF (IPLAC.EQ.9) THEN C C========================================================= C MODELE DE MAXWELL C========================================================= C * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+9 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='EM0 ' MOTS(JGA+2)='EM1 ' MOTS(JGA+3)='TR1 ' MOTS(JGA+4)='EM2 ' MOTS(JGA+5)='TR2 ' MOTS(JGA+6)='EM3 ' MOTS(JGA+7)='TR3 ' MOTS(JGA+8)='EM4 ' MOTS(JGA+9)='TR4 ' * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+8 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1)='EM5 ' MOTS(JGA+2)='TR5 ' MOTS(JGA+3)='EM6 ' MOTS(JGA+4)='TR6 ' MOTS(JGA+5)='EM7 ' MOTS(JGA+6)='TR7 ' MOTS(JGA+7)='EM8 ' MOTS(JGA+8)='TR8 ' GO TO 9999 * ELSE IF (IPLAC.EQ.10) THEN * * MODELE COMETE * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+9 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'BF1 ' MOTS(JGA+6)= 'BF2 ' MOTS(JGA+7)= 'BF3 ' MOTS(JGA+8)= 'BF4 ' MOTS(JGA+9)= 'FII ' GOTO 9999 ELSE IF (IPLAC.EQ.11) THEN * * MODELE CCPL * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+15 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'BF1 ' MOTS(JGA+6)= 'BF2 ' MOTS(JGA+7)= 'BF3 ' MOTS(JGA+8)= 'CF1 ' MOTS(JGA+9)= 'CF2 ' MOTS(JGA+10)= 'CF3 ' MOTS(JGA+11)= 'DF1 ' MOTS(JGA+12)= 'DF2 ' MOTS(JGA+13)= 'DF3 ' MOTS(JGA+14)= 'FII ' MOTS(JGA+15)= 'AL1 ' GOTO 9999 ELSE IF (IPLAC.EQ.12) THEN * * MODELE X11 * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+13 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'VPF0' MOTS(JGA+3)= 'VPF1' MOTS(JGA+4)= 'VPF2' MOTS(JGA+5)= 'VSF0' MOTS(JGA+6)= 'VSF1' MOTS(JGA+7)= 'VS01' MOTS(JGA+8)= 'VS02' MOTS(JGA+9)= 'VP01' MOTS(JGA+10)= 'VP02' MOTS(JGA+11)= 'EP01' MOTS(JGA+12)= 'EP02' MOTS(JGA+13)= 'FII ' GOTO 9999 * ELSE IF (IPLAC.EQ.13) THEN C C========================================================= C MODELE DE BPEL C========================================================= C * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+3 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='RMIL' MOTS(JGA+2)='FPRG' MOTS(JGA+3)='TCHA' GO TO 9999 * ELSE IF (IPLAC.EQ.14) THEN * * VISCOELASTIQUE BETON_URGC * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+15 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='ALFA' MOTS(JGA+2)='BETA' MOTS(JGA+3)='LCS ' MOTS(JGA+4)='GFC' MOTS(JGA+5)='GFT' MOTS(JGA+6)='ITON' MOTS(JGA+7)='IMOD' MOTS(JGA+8)='ICT' MOTS(JGA+9)='ICC' MOTS(JGA+10)='DATC' MOTS(JGA+11)='NBRC' MOTS(JGA+12)='IFOR' MOTS(JGA+13)='IMFL' MOTS(JGA+14)='DATU' MOTS(JGA+15)='DATS' GOTO 9999 ELSE IF (IPLAC.EQ.15) THEN * * MODELE SODERBERG * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+21 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)= 'SMAX' MOTS(JGA+2)= 'AF1 ' MOTS(JGA+3)= 'AF2 ' MOTS(JGA+4)= 'AF3 ' MOTS(JGA+5)= 'BF1 ' MOTS(JGA+6)= 'BF2 ' MOTS(JGA+7)= 'BF3 ' MOTS(JGA+8)= 'CF1 ' MOTS(JGA+9)= 'CF2 ' MOTS(JGA+10)= 'CF3 ' MOTS(JGA+11)= 'DF1 ' MOTS(JGA+12)= 'DF2 ' MOTS(JGA+13)= 'DF3 ' MOTS(JGA+14)= 'FII ' MOTS(JGA+15)= 'AL1 ' MOTS(JGA+16)= 'EF1 ' MOTS(JGA+17)= 'EF2 ' MOTS(JGA+18)= 'EF3 ' MOTS(JGA+19)= 'RF1 ' MOTS(JGA+20)= 'RF2 ' MOTS(JGA+21)= 'RF3 ' GOTO 9999 ELSE IF (IPLAC.EQ.16) THEN * * MODELE MAXOTT * * Formulation DEFORMATIONS PLANES /AXISYMETRIQUE IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR. & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+16 SEGADJ MLMOTS MOOBL=MLMOTS IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN MOTS(JGA+1)='LXX ' MOTS(JGA+2)='LYY ' MOTS(JGA+3)='LXY ' MOTS(JGA+4)='LZZ ' MOTS(JGA+5)='PXX ' MOTS(JGA+6)='PYY ' MOTS(JGA+7)='PXY ' * ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN MOTS(JGA+1)='LRR ' MOTS(JGA+2)='LZZ ' MOTS(JGA+3)='LRZ ' MOTS(JGA+4)='LOO ' MOTS(JGA+5)='PRR ' MOTS(JGA+6)='PZZ ' MOTS(JGA+7)='PRZ ' ENDIF MOTS(JGA+8)='EM0 ' MOTS(JGA+9)='EM1 ' MOTS(JGA+10)='TR1 ' MOTS(JGA+11)='EM2 ' MOTS(JGA+12)='TR2 ' MOTS(JGA+13)='EM3 ' MOTS(JGA+14)='TR3 ' MOTS(JGA+15)='EM4 ' MOTS(JGA+16)='TR4 ' * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+38 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='EPSR' MOTS(JGA+11)='GFT1' MOTS(JGA+12)='GFT2' MOTS(JGA+13)='GFT3' MOTS(JGA+14)='GS1 ' MOTS(JGA+15)='GS2 ' MOTS(JGA+16)='GS3 ' MOTS(JGA+17)='LTR1' MOTS(JGA+18)='LTR2' MOTS(JGA+19)='LTR3' MOTS(JGA+20)='EPCM' MOTS(JGA+21)='EPCU' MOTS(JGA+22)='LCBI' MOTS(JGA+23)='XK2 ' MOTS(JGA+24)='XGB ' MOTS(JGA+25)='XPA ' MOTS(JGA+26)='WRU1' MOTS(JGA+27)='WRU2' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='EPSB' MOTS(JGA+31)='EM5 ' MOTS(JGA+32)='TR5 ' MOTS(JGA+33)='EM6 ' MOTS(JGA+34)='TR6 ' MOTS(JGA+35)='EM7 ' MOTS(JGA+36)='TR7 ' MOTS(JGA+37)='EM8 ' MOTS(JGA+38)='TR8 ' GOTO 9999 ENDIF * * Formulation CONTRAINTES PLANES / 3D COQUES MINCES IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR. & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+16 SEGADJ MLMOTS MOOBL=MLMOTS IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN MOTS(JGA+1)='LXX ' MOTS(JGA+2)='LYY ' MOTS(JGA+3)='LXY ' MOTS(JGA+4)='LZZ ' MOTS(JGA+5)='PXX ' MOTS(JGA+6)='PYY ' MOTS(JGA+7)='PXY ' * ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN MOTS(JGA+1)='LSS ' MOTS(JGA+2)='LTT ' MOTS(JGA+3)='LST ' MOTS(JGA+4)='LNN ' MOTS(JGA+5)='PSS ' MOTS(JGA+6)='PTT ' MOTS(JGA+7)='PST ' ENDIF MOTS(JGA+8)='EM0 ' MOTS(JGA+9)='EM1 ' MOTS(JGA+10)='TR1 ' MOTS(JGA+11)='EM2 ' MOTS(JGA+12)='TR2 ' MOTS(JGA+13)='EM3 ' MOTS(JGA+14)='TR3 ' MOTS(JGA+15)='EM4 ' MOTS(JGA+16)='TR4 ' * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+33 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GS1 ' MOTS(JGA+13)='GS2 ' MOTS(JGA+14)='LTR1' MOTS(JGA+15)='LTR2' MOTS(JGA+16)='EPCM' MOTS(JGA+17)='EPCU' MOTS(JGA+18)='LCBI' MOTS(JGA+19)='XK2 ' MOTS(JGA+20)='XGB ' MOTS(JGA+21)='XPA ' MOTS(JGA+22)='WRU1' MOTS(JGA+23)='WRU2' MOTS(JGA+24)='BIL1' MOTS(JGA+25)='BIL2' MOTS(JGA+26)='EM5 ' MOTS(JGA+27)='TR5 ' MOTS(JGA+28)='EM6 ' MOTS(JGA+29)='TR6 ' MOTS(JGA+30)='EM7 ' MOTS(JGA+31)='TR7 ' MOTS(JGA+32)='EM8 ' MOTS(JGA+33)='TR8 ' GOTO 9999 ENDIF * * Formulation TRIDIMENSIONNELLE MASSIVE IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+21 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1) ='LXX ' MOTS(JGA+2) ='LYY ' MOTS(JGA+3) ='LZZ ' MOTS(JGA+4) ='LXY ' MOTS(JGA+5) ='LXZ ' MOTS(JGA+6) ='LYZ ' MOTS(JGA+7) ='PXX ' MOTS(JGA+8) ='PYY ' MOTS(JGA+9) ='PZZ ' MOTS(JGA+10)='PXY ' MOTS(JGA+11)='PXZ ' MOTS(JGA+12)='PYZ ' MOTS(JGA+13)='EM0 ' MOTS(JGA+14)='EM1 ' MOTS(JGA+15)='TR1 ' MOTS(JGA+16)='EM2 ' MOTS(JGA+17)='TR2 ' MOTS(JGA+18)='EM3 ' MOTS(JGA+19)='TR3 ' MOTS(JGA+20)='EM4 ' MOTS(JGA+21)='TR4 ' MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+38 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1)='GFTR' MOTS(JGA+2)='LTR ' MOTS(JGA+3)='GFCS' MOTS(JGA+4)='LCS ' MOTS(JGA+5)='GS ' MOTS(JGA+6)='BTR ' MOTS(JGA+7)='BCS ' MOTS(JGA+8)='WRUP' MOTS(JGA+9)='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GFT3' MOTS(JGA+13)='GS1 ' MOTS(JGA+14)='GS2 ' MOTS(JGA+15)='GS3 ' MOTS(JGA+16)='LTR1' MOTS(JGA+17)='LTR2' MOTS(JGA+18)='LTR3' MOTS(JGA+19)='EPCM' MOTS(JGA+20)='EPCU' MOTS(JGA+21)='LCBI' MOTS(JGA+22)='XK2 ' MOTS(JGA+23)='XGB ' MOTS(JGA+24)='XPA ' MOTS(JGA+25)='WRU1' MOTS(JGA+26)='WRU2' MOTS(JGA+27)='WRU3' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='BIL3' MOTS(JGA+31)='EM5 ' MOTS(JGA+32)='TR5 ' MOTS(JGA+33)='EM6 ' MOTS(JGA+34)='TR6 ' MOTS(JGA+35)='EM7 ' MOTS(JGA+36)='TR7 ' MOTS(JGA+37)='EM8 ' MOTS(JGA+38)='TR8 ' GOTO 9999 ENDIF * ELSE IF (IPLAC.EQ.17) THEN * * MODELE FBB1 * MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+12 SEGADJ MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='KRSP' MOTS(JGA+2)='VRSP' MOTS(JGA+3)='KISP' MOTS(JGA+4)='VISP' MOTS(JGA+5)='KRDV' MOTS(JGA+6)='VRDV' MOTS(JGA+7)='VIDV' MOTS(JGA+8)='KDES' MOTS(JGA+9)='VDES' MOTS(JGA+10)='IFPO' MOTS(JGA+11)='IDES' MOTS(JGA+12)='ICOU' GOTO 9999 * ELSE IF (IPLAC.EQ.18) THEN * * MODELE FBB2 * C= 18.1 - Modes de calcul PLAN DEFO, PLAN GENE, Axisymetrie, Fourier IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1.OR. . IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+19 SEGADJ,MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='KRSP' MOTS(JGA+2)='VRSP' MOTS(JGA+3)='KISP' MOTS(JGA+4)='VISP' MOTS(JGA+5)='KRDV' MOTS(JGA+6)='VRDV' MOTS(JGA+7)='VIDV' MOTS(JGA+8)='KDES' MOTS(JGA+9)='VDES' MOTS(JGA+10)='IFPO' MOTS(JGA+11)='IDES' MOTS(JGA+12)='ICOU' IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1) THEN MOTS(JGA+13)='LXX ' MOTS(JGA+14)='LYY ' MOTS(JGA+15)='LXY ' MOTS(JGA+16)='LZZ ' MOTS(JGA+17)='PXX ' MOTS(JGA+18)='PYY ' MOTS(JGA+19)='PXY ' C* ELSE IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN ELSE MOTS(JGA+13)='LRR ' MOTS(JGA+14)='LZZ ' MOTS(JGA+15)='LRZ ' MOTS(JGA+16)='LOO ' MOTS(JGA+17)='PRR ' MOTS(JGA+18)='PZZ ' MOTS(JGA+19)='PRZ ' ENDIF * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+30 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='EPSR' MOTS(JGA+11)='GFT1' MOTS(JGA+12)='GFT2' MOTS(JGA+13)='GFT3' MOTS(JGA+14)='GS1 ' MOTS(JGA+15)='GS2 ' MOTS(JGA+16)='GS3 ' MOTS(JGA+17)='LTR1' MOTS(JGA+18)='LTR2' MOTS(JGA+19)='LTR3' MOTS(JGA+20)='EPCM' MOTS(JGA+21)='EPCU' MOTS(JGA+22)='LCBI' MOTS(JGA+23)='XK2 ' MOTS(JGA+24)='XGB ' MOTS(JGA+25)='XPA ' MOTS(JGA+26)='WRU1' MOTS(JGA+27)='WRU2' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='EPSB' GO TO 9999 C= 18.2 - Modes de calcul PLAN CONT et TRIDimensionnel COQUEs minces ELSE IF ((IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)).OR. . IFOUR.EQ.-2) THEN MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+19 SEGADJ,MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='KRSP' MOTS(JGA+2)='VRSP' MOTS(JGA+3)='KISP' MOTS(JGA+4)='VISP' MOTS(JGA+5)='KRDV' MOTS(JGA+6)='VRDV' MOTS(JGA+7)='VIDV' MOTS(JGA+8)='KDES' MOTS(JGA+9)='VDES' MOTS(JGA+10)='IFPO' MOTS(JGA+11)='IDES' MOTS(JGA+12)='ICOU' IF (IFOUR.EQ.-2) THEN MOTS(JGA+13)='LXX ' MOTS(JGA+14)='LYY ' MOTS(JGA+15)='LXY ' MOTS(JGA+16)='LZZ ' MOTS(JGA+17)='PXX ' MOTS(JGA+18)='PYY ' MOTS(JGA+19)='PXY ' C* ELSE IF (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN ELSE MOTS(JGA+13)='LSS ' MOTS(JGA+14)='LTT ' MOTS(JGA+15)='LST ' MOTS(JGA+16)='LNN ' MOTS(JGA+17)='PSS ' MOTS(JGA+18)='PTT ' MOTS(JGA+19)='PST ' ENDIF * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+25 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1) ='GFTR' MOTS(JGA+2) ='LTR ' MOTS(JGA+3) ='GFCS' MOTS(JGA+4) ='LCS ' MOTS(JGA+5) ='GS ' MOTS(JGA+6) ='BTR ' MOTS(JGA+7) ='BCS ' MOTS(JGA+8) ='WRUP' MOTS(JGA+9) ='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GS1 ' MOTS(JGA+13)='GS2 ' MOTS(JGA+14)='LTR1' MOTS(JGA+15)='LTR2' MOTS(JGA+16)='EPCM' MOTS(JGA+17)='EPCU' MOTS(JGA+18)='LCBI' MOTS(JGA+19)='XK2 ' MOTS(JGA+20)='XGB ' MOTS(JGA+21)='XPA ' MOTS(JGA+22)='WRU1' MOTS(JGA+23)='WRU2' MOTS(JGA+24)='BIL1' MOTS(JGA+25)='BIL2' GO TO 9999 C= 18.3 - Formulation TRIDIMENSIONNELLE MASSIVE ELSE IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN MLMOTS=MOOBL JGA=MOTS(/2) JGM=JGA+24 SEGADJ,MLMOTS MOOBL=MLMOTS MOTS(JGA+1)='KRSP' MOTS(JGA+2)='VRSP' MOTS(JGA+3)='KISP' MOTS(JGA+4)='VISP' MOTS(JGA+5)='KRDV' MOTS(JGA+6)='VRDV' MOTS(JGA+7)='VIDV' MOTS(JGA+8)='KDES' MOTS(JGA+9)='VDES' MOTS(JGA+10)='IFPO' MOTS(JGA+11)='IDES' MOTS(JGA+12)='ICOU' MOTS(JGA+13)='LXX ' MOTS(JGA+14)='LYY ' MOTS(JGA+15)='LZZ ' MOTS(JGA+16)='LXY ' MOTS(JGA+17)='LXZ ' MOTS(JGA+18)='LYZ ' MOTS(JGA+19)='PXX ' MOTS(JGA+20)='PYY ' MOTS(JGA+21)='PZZ ' MOTS(JGA+22)='PXY ' MOTS(JGA+23)='PXZ ' MOTS(JGA+24)='PYZ ' * MLMOTS=MOFAC JGA=MOTS(/2) JGM=JGA+30 SEGADJ MLMOTS MOFAC=MLMOTS MOTS(JGA+1)='GFTR' MOTS(JGA+2)='LTR ' MOTS(JGA+3)='GFCS' MOTS(JGA+4)='LCS ' MOTS(JGA+5)='GS ' MOTS(JGA+6)='BTR ' MOTS(JGA+7)='BCS ' MOTS(JGA+8)='WRUP' MOTS(JGA+9)='BILI' MOTS(JGA+10)='GFT1' MOTS(JGA+11)='GFT2' MOTS(JGA+12)='GFT3' MOTS(JGA+13)='GS1 ' MOTS(JGA+14)='GS2 ' MOTS(JGA+15)='GS3 ' MOTS(JGA+16)='LTR1' MOTS(JGA+17)='LTR2' MOTS(JGA+18)='LTR3' MOTS(JGA+19)='EPCM' MOTS(JGA+20)='EPCU' MOTS(JGA+21)='LCBI' MOTS(JGA+22)='XK2 ' MOTS(JGA+23)='XGB ' MOTS(JGA+24)='XPA ' MOTS(JGA+25)='WRU1' MOTS(JGA+26)='WRU2' MOTS(JGA+27)='WRU3' MOTS(JGA+28)='BIL1' MOTS(JGA+29)='BIL2' MOTS(JGA+30)='BIL3' GO TO 9999 ENDIF * ***************************************************** ENDIF GOTO 99 * 9999 CONTINUE IRET=1 RETURN * * SI PROBLEME , ON SORT AVEC IRET A 0 * 99 CONTINUE IRET=0 CALL ERREUR(261) RETURN END