1 : C IDVAR7 SOURCE BR232186 12/08/01 22:28:54 7456 2 : SUBROUTINE IDVAR7(MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC) 3 : *_______________________________________________________________________ 4 : * 5 : * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES 6 : * -------------------------------------------------------- 7 : * 8 : * ENTREES : 9 : * --------- 10 : * 11 : * MATEPL NUMERO DU MATERIAU PLASTIQUE 12 : * MFR NUMERO DE FORMULATION 13 : * IFOUR VALEUR DE IFOU DANS CCOPTIO 14 : * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR 15 : * POUR LES ELEMENTS DE COQUE INTEGRES 16 : * 17 : * 18 : * SORTIES : 19 : * --------- 20 : * 21 : * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES 22 : * OBLIGATOIRES ET FACULTATIVES 23 : * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES 24 : * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES 25 : * 26 : * LOT ISPRA 27 : *_______________________________________________________________________ 28 : * 29 : IMPLICIT INTEGER(I-N) 30 : SEGMENT NOMID 31 : CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC) 32 : ENDSEGMENT 33 : * 34 : PARAMETER(LBIL=4,LTAK=21) 35 : CHARACTER*4 NOMBIL(LBIL),NOMTAK(LTAK),NOMBIF(LBIL),NOMTAF(LTAK) 36 : DATA NOMBIL/'EPSE','EITA','MOEY','COUY'/ 37 : DATA NOMBIF/'EPSE','GATA','EFEZ','CISZ'/ 38 : DATA NOMTAK/'IFR1','EITA','UEP1','PEP1','UEN1','PEN1','UCP1', 39 : . 'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1', 40 : . 'UTP1','PTP1','UTN1','PTN1','EP11','EN11','COUY'/ 41 : DATA NOMTAF/'IFR1','GATA','UEP1','PEP1','UEN1','PEN1','UCP1', 42 : . 'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1', 43 : . 'UTP1','PTP1','UTN1','PTN1','EP11','EN11','CISZ'/ 44 : * 45 : NBROBL=0 46 : NBRFAC=0 47 : NOMID =0 48 : * 49 : IF(MATEPL.EQ.54) THEN 50 : C 51 : C MATERIAU BETOCYCL 52 : C 53 : 1 CONTINUE 54 : NBROBL=14 55 : SEGINI NOMID 56 : LESOBL( 1) ='SIH1' 57 : LESOBL( 2) ='SIH2' 58 : LESOBL( 3) ='EPS1' 59 : LESOBL( 4) ='EPS2' 60 : LESOBL( 5) ='CPHI' 61 : LESOBL( 6) ='SPHI' 62 : LESOBL( 7) ='CON1' 63 : LESOBL( 8) ='CON2' 64 : LESOBL( 9) ='CON3' 65 : LESOBL(10) ='CON4' 66 : LESOBL(11) ='CAS1' 67 : LESOBL(12) ='CAS2' 68 : LESOBL(13) ='LAM1' 69 : LESOBL(14) ='LAM2' 70 : GO TO 666 71 : C 72 : ELSE IF(MATEPL.EQ.55) THEN 73 : C 74 : C ROTATING CRACK 75 : C 76 : 2 CONTINUE 77 : NBROBL=7 78 : SEGINI,NOMID 79 : LESOBL(1) = 'CPHI' 80 : LESOBL(2) = 'SPHI' 81 : LESOBL(3) = 'EPS1' 82 : LESOBL(4) = 'EPS2' 83 : LESOBL(5) = 'EPN1' 84 : LESOBL(6) = 'EPN2' 85 : LESOBL(7) = 'ICAS' 86 : GO TO 666 87 : C 88 : ELSE IF(MATEPL.EQ.56) THEN 89 : C 90 : C MATERIAU JOINT_SOFT 91 : C 92 : 3 CONTINUE 93 : NBROBL=6 94 : SEGINI NOMID 95 : LESOBL( 1) ='EPSS' 96 : LESOBL( 2) ='EPST' 97 : LESOBL( 3) ='HC11' 98 : LESOBL( 4) ='HC12' 99 : LESOBL( 5) ='HC22' 100 : LESOBL( 6) ='ETTO' 101 : GO TO 666 102 : C 103 : ELSE IF(MATEPL.EQ.119) THEN 104 : C 105 : C MATERIAU JOINT_COAT 106 : C 107 : NBROBL=1 108 : SEGINI NOMID 109 : LESOBL( 1) ='EPSS' 110 : GO TO 666 111 : C 112 : ELSE IF(MATEPL.EQ.91) THEN 113 : C 114 : C MATERIAU ANCRAGE_ELIGEHAUSEN 115 : C 116 : 31 CONTINUE 117 : NBROBL=5 118 : SEGINI NOMID 119 : LESOBL( 1) ='EPPP' 120 : LESOBL( 2) ='EPPM' 121 : LESOBL( 3) ='EPSO' 122 : LESOBL( 4) ='KSTA' 123 : LESOBL( 5) ='KNEL' 124 : GO TO 666 125 : C 126 : ELSE IF(MATEPL.EQ.150) THEN 127 : C 128 : C MATERIAU BILIN_EFFX POUR LES POUTRES UNIQUEMENT 129 : C 130 : IF(MFR.NE.7) GO TO 99 131 : NBROBL=LBIL 132 : SEGINI NOMID 133 : DO 40 I=1,LBIL 134 : LESOBL(I)=NOMBIL(I) 135 : 40 CONTINUE 136 : GO TO 666 137 : C 138 : ELSE IF(MATEPL.EQ.57) THEN 139 : C 140 : C MATERIAU BILI_MOMY POUR LES POUTRES UNIQUEMENT 141 : C 142 : 4 CONTINUE 143 : IF(MFR.NE.7) GO TO 99 144 : NBROBL=LBIL 145 : SEGINI NOMID 146 : DO 41 I=1,LBIL 147 : LESOBL(I)=NOMBIL(I) 148 : 41 CONTINUE 149 : GO TO 666 150 : C 151 : ELSE IF(MATEPL.EQ.58) THEN 152 : C 153 : C MATERIAU BILI_EFFZ POUR LES POUTRES UNIQUEMENT 154 : C 155 : IF(MFR.NE.7) GO TO 99 156 : NBROBL=LBIL 157 : SEGINI NOMID 158 : DO 51 I=1,LBIL 159 : LESOBL(I)=NOMBIF(I) 160 : 51 CONTINUE 161 : GO TO 666 162 : C 163 : ELSE IF(MATEPL.EQ.59) THEN 164 : C 165 : C MATERIAU TAKEMO_MOMY POUR LES POUTRES UNIQUEMENT 166 : C 167 : IF(MFR.NE.7) GO TO 99 168 : NBROBL=LTAK 169 : SEGINI NOMID 170 : DO 61 I=1,LTAK 171 : LESOBL(I)=NOMTAK(I) 172 : 61 CONTINUE 173 : GO TO 666 174 : C 175 : ELSE IF(MATEPL.EQ.60) THEN 176 : C 177 : C MATERIAU TAKEMO_EFFY POUR LES POUTRES UNIQUEMENT 178 : C 179 : IF(MFR.NE.7) GO TO 99 180 : NBROBL=LTAK 181 : SEGINI NOMID 182 : DO 71 I=1,LTAK 183 : LESOBL(I)=NOMTAF(I) 184 : 71 CONTINUE 185 : GO TO 666 186 : C 187 : ELSE IF(MATEPL.EQ.72) THEN 188 : C 189 : C BARRE POUR LES MURS DE REMPLISSAGE-INFILL_UNI 190 : C 191 : IF(MFR.NE.27) GO TO 99 192 : NBROBL=6 193 : SEGINI NOMID 194 : LESOBL(1) = 'DAM' 195 : LESOBL(2) = 'DEPM' 196 : LESOBL(3) = 'DEPA' 197 : LESOBL(4) = 'DEPI' 198 : LESOBL(5) = 'DEPC' 199 : LESOBL(6) = 'ICAS' 200 : GO TO 666 201 : C 202 : ELSE IF(MATEPL.EQ.73) THEN 203 : C 204 : C MODELE CISAIL_NL (TIMO - Effort tranchant/Cisaillement) 205 : C 206 : IF((MFR.NE.7).AND.(MFR.NE.47)) GO TO 99 207 : NBROBL=8 208 : SEGINI NOMID 209 : LESOBL(1) = 'DAMP' 210 : LESOBL(2) = 'DAMN' 211 : LESOBL(3) = 'DEMP' 212 : LESOBL(4) = 'DEMN' 213 : LESOBL(5) = 'DEPA' 214 : LESOBL(6) = 'DECP' 215 : LESOBL(7) = 'DECN' 216 : LESOBL(8) = 'ICAS' 217 : GO TO 666 218 : C 219 : ELSE IF(MATEPL.EQ.126) THEN 220 : C 221 : C MATERIAU MUR_SHEAR 222 : C 223 : NBROBL=13 224 : SEGINI NOMID 225 : LESOBL( 1) ='ICAS' 226 : LESOBL( 2) ='DEPT' 227 : LESOBL( 3) ='EPLU' 228 : LESOBL( 4) ='EMOI' 229 : LESOBL( 5) ='DPLU' 230 : LESOBL( 6) ='DMOI' 231 : LESOBL( 7) ='FCIN' 232 : LESOBL( 8) ='FCAM' 233 : LESOBL( 9) ='KCIN' 234 : LESOBL(10) ='APLU' 235 : LESOBL(11) ='AMOI' 236 : LESOBL(12) ='OPLU' 237 : LESOBL(13) ='OMOI' 238 : GO TO 666 239 : C 240 : ELSE IF(MATEPL.EQ.151) THEN 241 : C 242 : C MATERIAU ISS_GRANGE 243 : C 244 : NBROBL=22 245 : SEGINI NOMID 246 : LESOBL( 1) ='EPSE' 247 : LESOBL( 2) ='UP11' 248 : LESOBL( 3) ='UP12' 249 : LESOBL( 4) ='UP13' 250 : LESOBL( 5) ='UP14' 251 : LESOBL( 6) ='UP15' 252 : LESOBL( 7) ='Q11' 253 : LESOBL( 8) ='Q12' 254 : LESOBL( 9) ='Q13' 255 : LESOBL(10) ='Q14' 256 : LESOBL(11) ='Q15' 257 : C LESOBL(12) ='FP1' 258 : C LESOBL(13) ='FP2' 259 : C LESOBL(14) ='FP3' 260 : C LESOBL(15) ='FP4' 261 : C LESOBL(16) ='FP5' 262 : LESOBL(12) ='DLP' 263 : LESOBL(13) ='KPP' 264 : LESOBL(14) ='KSP' 265 : LESOBL(15) ='DISM' 266 : LESOBL(16) ='DELM' 267 : LESOBL(17) ='UP21' 268 : LESOBL(18) ='UP22' 269 : LESOBL(19) ='UP23' 270 : LESOBL(20) ='UP24' 271 : LESOBL(21) ='UP25' 272 : LESOBL(22) ='Q21' 273 : GO TO 666 274 : C 275 : ELSE IF(MATEPL.EQ.152) THEN 276 : C 277 : C MATERIAU RUP_THER 278 : C 279 : NBROBL=12 280 : SEGINI NOMID 281 : LESOBL( 1) ='EPSE' 282 : LESOBL( 2) ='DPLS' 283 : LESOBL( 3) ='DMOI' 284 : LESOBL( 4) ='DH ' 285 : LESOBL( 5) ='ZPLS' 286 : LESOBL( 6) ='ZMOI' 287 : LESOBL( 7) ='UP ' 288 : LESOBL( 8) ='ECRB' 289 : LESOBL( 9) ='FP ' 290 : LESOBL(10) ='UA ' 291 : LESOBL(11) ='ECRA' 292 : LESOBL(12) ='FA ' 293 : GO TO 666 294 : C 295 : ELSE IF(MATEPL.EQ.129) THEN 296 : C 297 : C MATERIAU INCO 298 : C 299 : NBROBL=4 300 : SEGINI NOMID 301 : LESOBL( 1) ='EPSE' 302 : LESOBL( 2) ='EPS1' 303 : LESOBL( 3) ='EPS2' 304 : LESOBL( 4) ='EPN ' 305 : GO TO 666 306 : C 307 : ELSE IF(MATEPL.EQ.155) THEN 308 : C 309 : C MATERIAU GERNAY 310 : C 311 : NBROBL=32 312 : SEGINI NOMID 313 : LESOBL( 1) ='KAPT' 314 : LESOBL( 2) ='KAPC' 315 : LESOBL( 3) ='DAMT' 316 : LESOBL( 4) ='DAMC' 317 : LESOBL( 5) ='EPL1' 318 : LESOBL( 6) ='EPL2' 319 : LESOBL( 7) ='EPL3' 320 : LESOBL( 8) ='EPL4' 321 : LESOBL( 9) ='EPL5' 322 : LESOBL(10) ='EPL6' 323 : LESOBL(11) ='ETR1' 324 : LESOBL(12) ='ETR2' 325 : LESOBL(13) ='ETR3' 326 : LESOBL(14) ='ETR4' 327 : LESOBL(15) ='ETR5' 328 : LESOBL(16) ='ETR6' 329 : LESOBL(17) ='SEF1' 330 : LESOBL(18) ='SEF2' 331 : LESOBL(19) ='SEF3' 332 : LESOBL(20) ='SEF4' 333 : LESOBL(21) ='SEF5' 334 : LESOBL(22) ='SEF6' 335 : LESOBL(23) ='EPSE' 336 : LESOBL(24) ='SET1' 337 : LESOBL(25) ='SET2' 338 : LESOBL(26) ='SET3' 339 : LESOBL(27) ='SET4' 340 : LESOBL(28) ='SET5' 341 : LESOBL(29) ='SET6' 342 : LESOBL(30) ='TMAX' 343 : LESOBL(31) ='PHI0' 344 : LESOBL(32) ='EPTH' 345 : GO TO 666 346 : C 347 : ELSE IF(MATEPL.EQ.156) THEN 348 : C 349 : C MATERIAU WELLS 350 : C 351 : IF(IFOUR.LE.0) THEN 352 : NBROBL=3 353 : SEGINI NOMID 354 : LESOBL( 1) ='EPSE' 355 : LESOBL( 2) ='EPS1' 356 : LESOBL( 3) ='EPN' 357 : ELSE 358 : NBROBL=4 359 : SEGINI NOMID 360 : LESOBL( 1) ='EPSE' 361 : LESOBL( 2) ='EPS1' 362 : LESOBL( 3) ='EPS2' 363 : LESOBL( 4) ='EPN' 364 : ENDIF 365 : GO TO 666 366 : ELSE IF(MATEPL.EQ.160) THEN 367 : C 368 : C MATERIAU RICBET_UNI 369 : C 370 : 371 : NBROBL=10 372 : SEGINI NOMID 373 : LESOBL( 1) ='EPSX' 374 : LESOBL( 2) ='EPSY' 375 : LESOBL( 3) ='EPSZ' 376 : LESOBL( 4) ='XDT ' 377 : LESOBL( 5) ='XZT ' 378 : LESOBL( 6) ='EPSP' 379 : LESOBL( 7) ='XEC ' 380 : LESOBL( 8) ='REC ' 381 : LESOBL( 9) ='EPPP' 382 : LESOBL(10) ='PCUM' 383 : GO TO 666 384 : C 385 : ENDIF 386 : C 387 : 99 CONTINUE 388 : SEGINI NOMID 389 : 390 : 666 CONTINUE 391 : IPCOMP=NOMID 392 : SEGDES NOMID 393 : C 394 : RETURN 395 : END 396 : 397 : 398 : 399 : 400 : 401 : 402 : 403 : 404 : 405 : 406 :
© Cast3M 2003 - All rights reserved.
Disclaimer