1 : C IDVA6C SOURCE BR232186 13/12/09 21:15:15 7841 2 : *_______________________________________________________________________ 3 : * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES 4 : * -------------------------------------------------------- 5 : * 6 : * ENTREES : 7 : * --------- 8 : * MATEPL NUMERO DU MATERIAU PLASTIQUE 9 : * MFR NUMERO DE FORMULATION 10 : * IFOUR VALEUR DE IFOU DANS CCOPTIO 11 : * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR 12 : * POUR LES ELEMENTS DE COQUE INTEGRES 13 : * 14 : * SORTIES : 15 : * --------- 16 : * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES 17 : * OBLIGATOIRES ET FACULTATIVES 18 : * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES 19 : * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES 20 : *_______________________________________________________________________ 21 : 22 : SUBROUTINE IDVA6C (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL, 23 : . NBRFAC) 24 : 25 : IMPLICIT INTEGER(I-N) 26 : SEGMENT NOMID 27 : CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC) 28 : ENDSEGMENT 29 : 30 : CHARACTER*4 NOMBET(17),NOMTUP(5) 31 : CHARACTER*4 NOMIN1(32),NOMIN2(6),NOMIN4(4),NOMI11(14) 32 : 33 : DATA NOMBET/'EPSE','DAM1','DAM2','DAM3', 34 : . 'OUV1','OUV2','OUV3','LAMD', 35 : . 'VI1X','VI1Y','VI1Z', 36 : . 'VI2X','VI2Y','VI2Z', 37 : . 'VI3X','VI3Y','VI3Z'/ 38 : DATA NOMTUP/'VAM1','VAM2','VHTA','VHJP','EPSE'/ 39 : 40 : DATA NOMIN1/'EPSE','TAN1','TAN2','IPL1','IFI2','RTM1', 41 : . 'RTM2','IFI1','JFI1','VHGL','JFI2','EQC1', 42 : . 'EPE1','EPT1','EPT2','EQC2','EPE2','EPC1', 43 : . 'EPC2','IPL2','OUV1','EDC1','EDC2','ETS1', 44 : . 'ETS2','EDT1','EDT2','OUV2','DFR1','DFR2', 45 : . 'VHAS','VHMP'/ 46 : DATA NOMI11/'EQC3','EPE3','EPT3','EPC3','DFR3','RTM3', 47 : . 'EDC3','ETS3','EDT3','TAN3','OUV3','IPL3', 48 : . 'IFI3','JFI3'/ 49 : DATA NOMIN2/'EP01','EP02','EP03','EP04','EP05','EP06'/ 50 : DATA NOMIN4/'EPSE','EPT1','EPT2','EPT3'/ 51 : 52 : IPCOMP=0 53 : NBROBL=0 54 : NBRFAC=0 55 : NOMID=0 56 : 57 : C on ne traite ici que les 101 à 150 premiers matepl 58 : 59 : GOTO (97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 60 : . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 61 : . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 62 : . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 63 : . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 64 : . 97,101,97,97,104,105,106,97,97,97,97,97,97,97,97,97,97,97, 65 : . 97,97,120,121,122,97,97,97,97,127,128,97,97,97,97,133,97,135, 66 : . 97,97,97,97,140,97,142,143,97,145,146,147),MATEPL 67 : 68 : C 69 : C MATERIAU UNILATERAL (modèle à fibreFibre) 70 : C 71 : 104 CONTINUE 72 : NBROBL=8 73 : SEGINI NOMID 74 : LESOBL(1)='TANG' 75 : LESOBL(2)='D1 ' 76 : LESOBL(3)='D2 ' 77 : LESOBL(4)='YLI1' 78 : LESOBL(5)='YLI2' 79 : LESOBL(6)='EPS1' 80 : LESOBL(7)='EPS2' 81 : LESOBL(8)='EPS3' 82 : GOTO 666 83 : 84 : * 85 : ***** BETON URGC fluage ***** 86 : 101 CONTINUE 87 : NBROBL=43 88 : SEGINI NOMID 89 : LESOBL(1)='IFIS' 90 : LESOBL(2)='ANGL' 91 : LESOBL(3)='IPLA' 92 : LESOBL(4)='SIG1' 93 : LESOBL(5)='SIG2' 94 : LESOBL(6)='EPS1' 95 : LESOBL(7)='EPS2' 96 : LESOBL(8)='S1' 97 : LESOBL(9)='S2' 98 : LESOBL(10)='S3' 99 : LESOBL(11)='S4' 100 : LESOBL(12)='S5' 101 : LESOBL(13)='S6' 102 : LESOBL(14)='S7' 103 : LESOBL(15)='S8' 104 : LESOBL(16)='S9' 105 : LESOBL(17)='S10' 106 : LESOBL(18)='S11' 107 : LESOBL(19)='S12' 108 : LESOBL(20)='S13' 109 : LESOBL(21)='S14' 110 : LESOBL(22)='S15' 111 : LESOBL(23)='S16' 112 : LESOBL(24)='S17' 113 : LESOBL(25)='S18' 114 : LESOBL(26)='S19' 115 : LESOBL(27)='S20' 116 : LESOBL(28)='S21' 117 : LESOBL(29)='S22' 118 : LESOBL(30)='S23' 119 : LESOBL(31)='S24' 120 : LESOBL(32)='S25' 121 : LESOBL(33)='S26' 122 : LESOBL(34)='S27' 123 : LESOBL(35)='S28' 124 : LESOBL(36)='S29' 125 : LESOBL(37)='S30' 126 : LESOBL(38)='S31' 127 : LESOBL(39)='S32' 128 : LESOBL(40)='S33' 129 : LESOBL(41)='S34' 130 : LESOBL(42)='S35' 131 : LESOBL(43)='S36' 132 : GOTO 666 133 : C 134 : 105 CONTINUE 135 : NBROBL=2 136 : SEGINI NOMID 137 : LESOBL(1)='EPSE' 138 : LESOBL(2)='TFLC' 139 : GOTO 666 140 : 141 : C----------------------------- 142 : C FORMULATION MAXOTT 143 : C----------------------------- 144 : 106 CONTINUE 145 : C 146 : C-------CAS TRIDIMENSIONNEL MASSIF------ 147 : C 148 : IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN 149 : NBRFAC=4 150 : NBROBL=27 151 : SEGINI NOMID 152 : LESOBL(1) ='EPSE' 153 : LESOBL(2) ='W1MA' 154 : LESOBL(3) ='W2MA' 155 : LESOBL(4) ='W3MA' 156 : LESOBL(5) ='W1 ' 157 : LESOBL(6) ='W2 ' 158 : LESOBL(7) ='W3 ' 159 : LESOBL(8) ='VF1X' 160 : LESOBL(9) ='VF1Y' 161 : LESOBL(10)='VF1Z' 162 : LESOBL(11)='VF2X' 163 : LESOBL(12)='VF2Y' 164 : LESOBL(13)='VF2Z' 165 : LESOBL(14)='VF3X' 166 : LESOBL(15)='VF3Y' 167 : LESOBL(16)='VF3Z' 168 : LESOBL(17)='IVL1' 169 : LESOBL(18)='IVL2' 170 : LESOBL(19)='IVL3' 171 : LESOBL(20)='LBDC' 172 : LESOBL(21)='ETIL' 173 : LESOBL(22)='EPSF' 174 : LESOBL(23)='SM0 ' 175 : LESOBL(24)='SM1 ' 176 : LESOBL(25)='SM2 ' 177 : LESOBL(26)='SM3 ' 178 : LESOBL(27)='SM4 ' 179 : * 180 : LESFAC(1) ='SM5 ' 181 : LESFAC(2) ='SM6 ' 182 : LESFAC(3) ='SM7 ' 183 : LESFAC(4) ='SM8 ' 184 : GOTO 666 185 : ENDIF 186 : * 187 : C-------CAS DEFO PLANES/AXISYMETRIQUE-------- 188 : C 189 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3 190 : & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN 191 : NBRFAC=4 192 : NBROBL=22 193 : SEGINI NOMID 194 : LESOBL(1) ='EPSE' 195 : LESOBL(2) ='W1MA' 196 : LESOBL(3) ='W2MA' 197 : LESOBL(4) ='EPSM' 198 : LESOBL(5) ='W1 ' 199 : LESOBL(6) ='W2 ' 200 : LESOBL(7) ='VEPS' 201 : LESOBL(8) ='VF1X' 202 : LESOBL(9) ='VF1Y' 203 : LESOBL(10)='VF2X' 204 : LESOBL(11)='VF2Y' 205 : LESOBL(12)='IVL1' 206 : LESOBL(13)='IVL2' 207 : LESOBL(14)='IVL3' 208 : LESOBL(15)='LBDC' 209 : LESOBL(16)='ETIL' 210 : LESOBL(17)='EPSF' 211 : LESOBL(18)='SM0 ' 212 : LESOBL(19)='SM1 ' 213 : LESOBL(20)='SM2 ' 214 : LESOBL(21)='SM3 ' 215 : LESOBL(22)='SM4 ' 216 : * 217 : LESFAC(1) ='SM5 ' 218 : LESFAC(2) ='SM6 ' 219 : LESFAC(3) ='SM7 ' 220 : LESFAC(4) ='SM8 ' 221 : GOTO 666 222 : ENDIF 223 : C 224 : C-------CAS CONT PLANES-------- 225 : C -----OU CAS TRIDIMENSIONNEL COQUES------ 226 : IF (IFOUR.EQ.-2.OR. 227 : . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN 228 : NBRFAC=4 229 : NBROBL=19 230 : SEGINI NOMID 231 : LESOBL(1) ='EPSE' 232 : LESOBL(2) ='W1MA' 233 : LESOBL(3) ='W2MA' 234 : LESOBL(4) ='W1 ' 235 : LESOBL(5) ='W2 ' 236 : LESOBL(6) ='VF1X' 237 : LESOBL(7) ='VF1Y' 238 : LESOBL(8) ='VF2X' 239 : LESOBL(9) ='VF2Y' 240 : LESOBL(10)='IVL1' 241 : LESOBL(11)='IVL2' 242 : LESOBL(12)='LBDC' 243 : LESOBL(13)='ETIL' 244 : LESOBL(14)='EPSF' 245 : LESOBL(15)='SM0 ' 246 : LESOBL(16)='SM1 ' 247 : LESOBL(17)='SM2 ' 248 : LESOBL(18)='SM3 ' 249 : LESOBL(19)='SM4 ' 250 : LESFAC(1) ='SM5 ' 251 : LESFAC(2) ='SM6 ' 252 : LESFAC(3) ='SM7 ' 253 : LESFAC(4) ='SM8 ' 254 : GOTO 666 255 : ENDIF 256 : 257 : ***** BETON URGC plastique endo ***** 258 : 120 CONTINUE 259 : NBROBL=9 260 : SEGINI NOMID 261 : LESOBL(1)='IFIS' 262 : LESOBL(2)='ANGL' 263 : LESOBL(3)='IPLA' 264 : LESOBL(4)='SIG1' 265 : LESOBL(5)='SIG2' 266 : LESOBL(6)='EPS1' 267 : LESOBL(7)='EPS2' 268 : LESOBL(8)='ENDO' 269 : LESOBL(9)='DECO' 270 : GO TO 666 271 : 272 : ***** BETON INSA plastique endo 3D***** 273 : 121 CONTINUE 274 : NBROBL=9 275 : SEGINI NOMID 276 : LESOBL(1)='IFIS' 277 : LESOBL(2)='IPLA' 278 : LESOBL(3)='SEQT' 279 : LESOBL(4)='SEQC' 280 : LESOBL(5)='DKT' 281 : LESOBL(6)='DKC' 282 : LESOBL(7)='ENDT' 283 : LESOBL(8)='ENDC' 284 : LESOBL(9)='RAND' 285 : GO TO 666 286 : C 287 : ***** BETON INSA viscoplastique endo ***** 288 : 122 CONTINUE 289 : NBROBL=19 290 : SEGINI NOMID 291 : LESOBL(1)='IFIS' 292 : LESOBL(2)='ANGL' 293 : LESOBL(3)='IPLA' 294 : LESOBL(4)='SIG1' 295 : LESOBL(5)='SIG2' 296 : LESOBL(6)='EPS1' 297 : LESOBL(7)='EPS2' 298 : LESOBL(8)='TDEF' 299 : LESOBL(9)='TCON' 300 : LESOBL(10)='SP1' 301 : LESOBL(11)='SP2' 302 : LESOBL(12)='SP3' 303 : LESOBL(13)='SP4' 304 : LESOBL(14)='EPV1' 305 : LESOBL(15)='EPV2' 306 : LESOBL(16)='SIV1' 307 : LESOBL(17)='SIV2' 308 : LESOBL(18)='ENDO' 309 : LESOBL(19)='ENDV' 310 : GOTO 666 311 : C 312 : ***** FBB1 ***** 313 : 127 CONTINUE 314 : C 315 : C-------CAS TRIDIMENSIONNEL MASSIF------ 316 : C 317 : IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN 318 : NBROBL=21 319 : SEGINI NOMID 320 : LESOBL( 1)='EPSE' 321 : LESOBL( 2)='ERSP' 322 : LESOBL( 3)='EISP' 323 : LESOBL( 4)='ERD1' 324 : LESOBL( 5)='EID1' 325 : LESOBL( 6)='ERD2' 326 : LESOBL( 7)='EID2' 327 : LESOBL( 8)='ERD3' 328 : LESOBL( 9)='EID3' 329 : LESOBL(10)='EFD1' 330 : LESOBL(11)='EFD2' 331 : LESOBL(12)='EFD3' 332 : LESOBL(13)='DR12' 333 : LESOBL(14)='DI12' 334 : LESOBL(15)='DR13' 335 : LESOBL(16)='DI13' 336 : LESOBL(17)='DR23' 337 : LESOBL(18)='DI23' 338 : LESOBL(19)='FD12' 339 : LESOBL(20)='FD13' 340 : LESOBL(21)='FD23' 341 : GOTO 666 342 : ENDIF 343 : C 344 : C-------CAS DEFO PLANES/AXISYMETRIQUE-------- 345 : C 346 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3 347 : & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN 348 : NBROBL=15 349 : SEGINI NOMID 350 : LESOBL( 1)='EPSE' 351 : LESOBL( 2)='ERSP' 352 : LESOBL( 3)='EISP' 353 : LESOBL( 4)='ERD1' 354 : LESOBL( 5)='EID1' 355 : LESOBL( 6)='ERD2' 356 : LESOBL( 7)='EID2' 357 : LESOBL( 8)='ERD3' 358 : LESOBL( 9)='EID3' 359 : LESOBL(10)='EFD1' 360 : LESOBL(11)='EFD2' 361 : LESOBL(12)='EFD3' 362 : LESOBL(13)='DR12' 363 : LESOBL(14)='DI12' 364 : LESOBL(15)='FD12' 365 : GOTO 666 366 : ENDIF 367 : C 368 : C-------CAS CONT PLANES-------- 369 : C -----OU CAS TRIDIMENSIONNEL COQUES------ 370 : C 371 : IF (IFOUR.EQ.-2.OR. 372 : . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN 373 : NBROBL=15 374 : SEGINI NOMID 375 : LESOBL( 1)='EPSE' 376 : LESOBL( 2)='ERSP' 377 : LESOBL( 3)='EISP' 378 : LESOBL( 4)='ERD1' 379 : LESOBL( 5)='EID1' 380 : LESOBL( 6)='ERD2' 381 : LESOBL( 7)='EID2' 382 : LESOBL( 8)='ERD3' 383 : LESOBL( 9)='EID3' 384 : LESOBL(10)='EFD1' 385 : LESOBL(11)='EFD2' 386 : LESOBL(12)='EFD3' 387 : LESOBL(13)='DR12' 388 : LESOBL(14)='DI12' 389 : LESOBL(15)='FD12' 390 : GOTO 666 391 : ENDIF 392 : C 393 : ***** FBB2 ***** 394 : 128 CONTINUE 395 : C 396 : C-------CAS TRIDIMENSIONNEL MASSIF------ 397 : C 398 : IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN 399 : NBROBL=40 400 : SEGINI NOMID 401 : LESOBL(1) ='EPSE' 402 : LESOBL(2)='ERSP' 403 : LESOBL(3)='EISP' 404 : LESOBL(4)='ERD1' 405 : LESOBL(5)='EID1' 406 : LESOBL(6)='ERD2' 407 : LESOBL(7)='EID2' 408 : LESOBL(8)='ERD3' 409 : LESOBL(9)='EID3' 410 : LESOBL(10)='EFD1' 411 : LESOBL(11)='EFD2' 412 : LESOBL(12)='EFD3' 413 : LESOBL(13)='DR12' 414 : LESOBL(14)='DI12' 415 : LESOBL(15)='DR13' 416 : LESOBL(16)='DI13' 417 : LESOBL(17)='DR23' 418 : LESOBL(18)='DI23' 419 : LESOBL(19)='FD12' 420 : LESOBL(20)='FD13' 421 : LESOBL(21)='FD23' 422 : LESOBL(22) ='W1MA' 423 : LESOBL(23) ='W2MA' 424 : LESOBL(24) ='W3MA' 425 : LESOBL(25) ='W1 ' 426 : LESOBL(26) ='W2 ' 427 : LESOBL(27) ='W3 ' 428 : LESOBL(28) ='VF1X' 429 : LESOBL(29) ='VF1Y' 430 : LESOBL(30)='VF1Z' 431 : LESOBL(31)='VF2X' 432 : LESOBL(32)='VF2Y' 433 : LESOBL(33)='VF2Z' 434 : LESOBL(34)='VF3X' 435 : LESOBL(35)='VF3Y' 436 : LESOBL(36)='VF3Z' 437 : LESOBL(37)='IVL1' 438 : LESOBL(38)='IVL2' 439 : LESOBL(39)='IVL3' 440 : LESOBL(40)='LBDC' 441 : GOTO 666 442 : ENDIF 443 : C 444 : C-------CAS DEFO PLANES/AXISYMETRIQUE-------- 445 : C 446 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3 447 : & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN 448 : NBROBL=29 449 : SEGINI NOMID 450 : LESOBL(1) ='EPSE' 451 : LESOBL(2)='ERSP' 452 : LESOBL(3)='EISP' 453 : LESOBL(4)='ERD1' 454 : LESOBL(5)='EID1' 455 : LESOBL(6)='ERD2' 456 : LESOBL(7)='EID2' 457 : LESOBL(8)='ERD3' 458 : LESOBL(9)='EID3' 459 : LESOBL(10)='EFD1' 460 : LESOBL(11)='EFD2' 461 : LESOBL(12)='EFD3' 462 : LESOBL(13)='DR12' 463 : LESOBL(14)='DI12' 464 : LESOBL(15)='FD12' 465 : LESOBL(16) ='W1MA' 466 : LESOBL(17) ='W2MA' 467 : LESOBL(18) ='EPSM' 468 : LESOBL(19) ='W1 ' 469 : LESOBL(20) ='W2 ' 470 : LESOBL(21) ='VEPS' 471 : LESOBL(22) ='VF1X' 472 : LESOBL(23) ='VF1Y' 473 : LESOBL(24)='VF2X' 474 : LESOBL(25)='VF2Y' 475 : LESOBL(26)='IVL1' 476 : LESOBL(27)='IVL2' 477 : LESOBL(28)='IVL3' 478 : LESOBL(29)='LBDC' 479 : GOTO 666 480 : ENDIF 481 : C 482 : C-------CAS CONT PLANES-------- 483 : C -----OU CAS TRIDIMENSIONNEL COQUES------ 484 : C 485 : IF (IFOUR.EQ.-2.OR. 486 : . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN 487 : NBROBL=26 488 : SEGINI NOMID 489 : LESOBL(1) ='EPSE' 490 : LESOBL(2)='ERSP' 491 : LESOBL(3)='EISP' 492 : LESOBL(4)='ERD1' 493 : LESOBL(5)='EID1' 494 : LESOBL(6)='ERD2' 495 : LESOBL(7)='EID2' 496 : LESOBL(8)='ERD3' 497 : LESOBL(9)='EID3' 498 : LESOBL(10)='EFD1' 499 : LESOBL(11)='EFD2' 500 : LESOBL(12)='EFD3' 501 : LESOBL(13)='DR12' 502 : LESOBL(14)='DI12' 503 : LESOBL(15)='FD12' 504 : LESOBL(16) ='W1MA' 505 : LESOBL(17) ='W2MA' 506 : LESOBL(18) ='W1 ' 507 : LESOBL(19) ='W2 ' 508 : LESOBL(20) ='VF1X' 509 : LESOBL(21) ='VF1Y' 510 : LESOBL(22) ='VF2X' 511 : LESOBL(23) ='VF2Y' 512 : LESOBL(24)='IVL1' 513 : LESOBL(25)='IVL2' 514 : LESOBL(26)='LBDC' 515 : GOTO 666 516 : ENDIF 517 : C 518 : ***** BETON LMT Cachan viscoplastique viscoendo pour la dynamique rapide ***** 519 : 133 CONTINUE 520 : NBROBL=12 521 : SEGINI NOMID 522 : LESOBL(1)='D ' 523 : LESOBL(2)='F ' 524 : LESOBL(3)='EPV1' 525 : LESOBL(4)='EPV2' 526 : LESOBL(5)='EPV3' 527 : LESOBL(6)='EPV4' 528 : LESOBL(7)='EPV5' 529 : LESOBL(8)='EPV6' 530 : LESOBL(9)='SIGM' 531 : LESOBL(10)='DTRA' 532 : LESOBL(11)='DCOM' 533 : LESOBL(12)='ES ' 534 : GOTO 666 535 : C debut modif dp2 536 : 140 CONTINUE 537 : NBROBL=5 538 : SEGINI NOMID 539 : LESOBL(1)='EPS1' 540 : LESOBL(2)='EPS2' 541 : LESOBL(3)='EPSE' 542 : LESOBL(4)='EPA1' 543 : LESOBL(5)='EPA2' 544 : IPCOMP=NOMID 545 : SEGDES NOMID 546 : GO TO 666 547 : * fin modif DP2 548 : 135 CONTINUE 549 : NBROBL=9 550 : SEGINI,NOMID 551 : LESOBL(1)='EPTI' 552 : LESOBL(2)='D ' 553 : LESOBL(3)='CI11' 554 : LESOBL(4)='CI22' 555 : LESOBL(5)='CI33' 556 : LESOBL(6)='CI23' 557 : LESOBL(7)='CI13' 558 : LESOBL(8)='CI12' 559 : LESOBL(9)='KH ' 560 : GO TO 666 561 : C***************************************************** 562 : C 563 : C MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE2 564 : C 565 : 142 CONTINUE 566 : NBROBL=8 567 : SEGINI NOMID 568 : LESOBL(1)='EPSE' 569 : * tenseur d'endommagement 570 : LESOBL(2)='VH11' 571 : LESOBL(3)='VH22' 572 : LESOBL(4)='VH33' 573 : LESOBL(5)='VH12' 574 : LESOBL(6)='VH13' 575 : LESOBL(7)='VH23' 576 : * endommagement principal maximal 577 : LESOBL(8) ='DMAX' 578 : GOTO 666 579 : C****************************************************** 580 : C 581 : C MATERIAU FLUTRA 582 : C 583 : 143 CONTINUE 584 : NBROBL=56 585 : SEGINI NOMID 586 : C 587 : LESOBL(1)='EPSTIM' 588 : LESOBL(2)='D' 589 : C 590 : C Contraintes effectives 591 : C 592 : LESOBL(3)='SEXX' 593 : LESOBL(4)='SEYY' 594 : LESOBL(5)='SEXY' 595 : LESOBL(6)='SEZZ' 596 : LESOBL(7)='SEZX' 597 : LESOBL(8)='SEYZ' 598 : C 599 : C Fluage propre Chaine 1 600 : C 601 : LESOBL(9)='EXX1' 602 : LESOBL(10)='EYY1' 603 : LESOBL(11)='EZZ1' 604 : LESOBL(12)='EXY1' 605 : LESOBL(13)='EXZ1' 606 : LESOBL(14)='EYZ1' 607 : C 608 : C Fluage propre Chaine 2 609 : C 610 : LESOBL(15)='EXX2' 611 : LESOBL(16)='EYY2' 612 : LESOBL(17)='EZZ2' 613 : LESOBL(18)='EXY2' 614 : LESOBL(19)='EXZ2' 615 : LESOBL(20)='EYZ2' 616 : C 617 : C Fluage propre Chaine 3 618 : C 619 : LESOBL(21)='EXX3' 620 : LESOBL(22)='EYY3' 621 : LESOBL(23)='EZZ3' 622 : LESOBL(24)='EXY3' 623 : LESOBL(25)='EXZ3' 624 : LESOBL(26)='EYZ3' 625 : C 626 : C Fluage propre Chaine 4 627 : C 628 : LESOBL(27)='EXX4' 629 : LESOBL(28)='EYY4' 630 : LESOBL(29)='EZZ4' 631 : LESOBL(30)='EXY4' 632 : LESOBL(31)='EXZ4' 633 : LESOBL(32)='EYZ4' 634 : C 635 : C Fluage propre Chaine 5 636 : C 637 : LESOBL(33)='EXX5' 638 : LESOBL(34)='EYY5' 639 : LESOBL(35)='EZZ5' 640 : LESOBL(36)='EXY5' 641 : LESOBL(37)='EXZ5' 642 : LESOBL(38)='EYZ5' 643 : C 644 : C Fluage propre Chaine 6 645 : C 646 : LESOBL(39)='EXX6' 647 : LESOBL(40)='EYY6' 648 : LESOBL(41)='EZZ6' 649 : LESOBL(42)='EXY6' 650 : LESOBL(43)='EXZ6' 651 : LESOBL(44)='EYZ6' 652 : C 653 : C Amortisseur 654 : C 655 : LESOBL(45)='EXX7' 656 : LESOBL(46)='EYY7' 657 : LESOBL(47)='EZZ7' 658 : LESOBL(48)='EXY7' 659 : LESOBL(49)='EXZ7' 660 : LESOBL(50)='EYZ7' 661 : C 662 : C Fluage dessiccation 663 : C 664 : LESOBL(51)='EDXX' 665 : LESOBL(52)='EDYY' 666 : LESOBL(53)='EDZZ' 667 : LESOBL(54)='EDXY' 668 : LESOBL(55)='EDXZ' 669 : LESOBL(56)='EDYZ' 670 : GO TO 666 671 : C****************************************************** 672 : C 673 : C MATERIAU INTIMP 674 : C 675 : 145 CONTINUE 676 : write(6,*) 'on passe bien ici' 677 : NBROBL=25 678 : SEGINI NOMID 679 : LESOBL( 1)='ENDS' 680 : LESOBL( 2)='PVAR' 681 : LESOBL( 3)='DEPP' 682 : LESOBL( 4)='RVAR' 683 : LESOBL( 5)='SIGS' 684 : LESOBL( 6)='EPSP' 685 : LESOBL( 7)='NA1 ' 686 : LESOBL( 8)='NA2 ' 687 : LESOBL( 9)='NA3 ' 688 : LESOBL(10)='NA4 ' 689 : 690 : LESOBL(11)='ENDI' 691 : LESOBL(12)='OLPH' 692 : LESOBL(13)='EPSF' 693 : LESOBL(14)='XVAR' 694 : LESOBL(15)='ZVAR' 695 : LESOBL(16)='EINT' 696 : LESOBL(17)='SIGF' 697 : LESOBL(18)='NA5 ' 698 : LESOBL(19)='NA6 ' 699 : LESOBL(20)='NA7 ' 700 : 701 : LESOBL(21)='XLAM' 702 : LESOBL(22)='EPTO' 703 : LESOBL(23)='INTE' 704 : LESOBL(24)='FINT' 705 : LESOBL(25)='FACI' 706 : GOTO 666 707 : C****************************************************** 708 : C 709 : C MATERIAU INTJOI 710 : C 711 : 146 CONTINUE 712 : if(ifour.ne.2) then 713 : NBROBL=13 714 : SEGINI NOMID 715 : LESOBL(1 ) = 'DINT' 716 : LESOBL(2 ) = 'EPSF' 717 : LESOBL(3 ) = 'EC ' 718 : LESOBL(4 ) = 'EPST' 719 : LESOBL(5 ) = 'EPSN' 720 : LESOBL(6 ) = 'CINE' 721 : LESOBL(7 ) = 'EPSR' 722 : LESOBL(8 ) = 'IFLA' 723 : LESOBL(9 ) = 'FVAR' 724 : LESOBL(10) = 'SIGM' 725 : LESOBL(11) = 'KSAC' 726 : LESOBL(12) = 'KNAC' 727 : LESOBL(13) = 'COUN' 728 : GOTO 666 729 : 730 : else 731 : NBROBL=17 732 : SEGINI NOMID 733 : LESOBL(1 ) = 'DINT' 734 : LESOBL(2 ) = 'EPF1' 735 : LESOBL(3 ) = 'EPF2' 736 : LESOBL(4 ) = 'EC1 ' 737 : LESOBL(5 ) = 'EC2 ' 738 : LESOBL(6 ) = 'EPS1' 739 : LESOBL(7 ) = 'EPS2' 740 : LESOBL(8 ) = 'EPSN' 741 : LESOBL(9 ) = 'CIN1' 742 : LESOBL(10) = 'CIN2' 743 : LESOBL(11) = 'EPSR' 744 : LESOBL(12) = 'IFLA' 745 : LESOBL(13) = 'FVAR' 746 : LESOBL(14) = 'SIGM' 747 : LESOBL(15) = 'KSAC' 748 : LESOBL(16) = 'KNAC' 749 : LESOBL(17) = 'COUN' 750 : GOTO 666 751 : endif 752 : C****************************************************** 753 : C 754 : C MATERIAU BA1D 755 : C 756 : 147 CONTINUE 757 : NBROBL=16 758 : SEGINI NOMID 759 : LESOBL( 1)='DP0 ' 760 : LESOBL( 2)='ZP0 ' 761 : LESOBL( 3)='DM0 ' 762 : LESOBL( 4)='ZM0 ' 763 : LESOBL( 5)='XPP ' 764 : LESOBL( 6)='UPP ' 765 : LESOBL( 7)='ALPP' 766 : LESOBL( 8)='XPM ' 767 : LESOBL( 9)='UPM ' 768 : LESOBL(10)='ALPM' 769 : LESOBL(11)='XPI ' 770 : LESOBL(12)='UPI ' 771 : LESOBL(13)='ALPI' 772 : LESOBL(14)='U1 ' 773 : LESOBL(15)='U2 ' 774 : LESOBL(16)='U3 ' 775 : GOTO 666 776 : C****************************************************** 777 : 97 continue 778 : 999 CONTINUE 779 : SEGINI,NOMID 780 : 781 : 666 CONTINUE 782 : IPCOMP=NOMID 783 : SEGDES,NOMID 784 : 785 : RETURN 786 : END 787 : 788 : 789 : 790 : 791 : 792 : 793 : 794 :
© Cast3M 2003 - All rights reserved.
Disclaimer