1 : C IDVA6B SOURCE FANDEUR 10/02/01 21:15:31 6603 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 IDVA6B (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 : C on ne traite ici que les 51 à 100 premiers matepl les 57 : C suivants sont dans idva6c 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,51,52,97,97,97,97,97,97,97,97, 62 : . 97,62,97,64,65,66,68,68,69,97,71,97,97,97,75,97,97,78,79,80, 63 : . 97,97,83,97,97,97,87,97,97,97,97,92,93,97,97,97,97,97,99, 64 : . 100,98,97,97,98,98,98,97,97,97,97,97,97,97,97,97,97,97, 65 : . 97,97,98,98,98,97,97,97,97,98,98,97,97,97,97,98,97,98, 66 : . 97,97,97,97,98), 67 : . MATEPL 68 : 68 : 98 CALL IDVA6C (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL, 69 : . NBRFAC) 70 : return 71 : C 72 : C MATERIAU ANCRAGE_ACIER 73 : C 74 : 93 CONTINUE 75 : NBROBL=18 76 : SEGINI NOMID 77 : LESOBL( 1) ='FLAG' 78 : LESOBL( 2) ='EPSO' 79 : LESOBL( 3) ='RFAC' 80 : LESOBL( 4) ='VHNG' 81 : LESOBL( 5) ='EPLR' 82 : LESOBL( 6) ='EPIP' 83 : LESOBL( 7) ='EPMP' 84 : LESOBL( 8) ='EPMN' 85 : LESOBL( 9) ='STLR' 86 : LESOBL(10) ='STIP' 87 : LESOBL(11) ='STMP' 88 : LESOBL(12) ='STMN' 89 : C 90 : LESOBL(13) ='EPPP' 91 : LESOBL(14) ='EPPM' 92 : LESOBL(15)= 'EPSA' 93 : LESOBL(16)= 'KSTA' 94 : LESOBL(17)='NITE' 95 : LESOBL(18)='LAMB' 96 : GOTO 666 97 : C 98 : C FRAGILE_UNI (Fibre et barre) 99 : C 100 : 78 CONTINUE 101 : NBROBL=4 102 : SEGINI NOMID 103 : LESOBL(1)='EPSO' 104 : LESOBL(2)='DAMC' 105 : LESOBL(3)='DAMT' 106 : LESOBL(4)='VHNG' 107 : GOTO 666 108 : C 109 : C BETON_BAEL (Fibre et barre) 110 : C 111 : 79 CONTINUE 112 : NBROBL=3 113 : SEGINI NOMID 114 : LESOBL(1)='EPSE' 115 : LESOBL(2)='EPSO' 116 : LESOBL(3)='VHNG' 117 : IPCOMP=NOMID 118 : SEGDES NOMID 119 : GOTO 666 120 : C 121 : C PARFAIT_UNI (Fibre et barre) 122 : C 123 : 80 CONTINUE 124 : NBROBL=2 125 : SEGINI NOMID 126 : LESOBL(1)='EPSE' 127 : LESOBL(2)='VHNG' 128 : IPCOMP=NOMID 129 : SEGDES NOMID 130 : GOTO 666 131 : C 132 : C ANCRAGE_PARFAIT (Fibre et barre) 133 : C 134 : 92 CONTINUE 135 : NBROBL=8 136 : SEGINI NOMID 137 : LESOBL(1)='EPSE' 138 : LESOBL(2)='VHNG' 139 : LESOBL(3)='EPPP' 140 : LESOBL(4)='EPPM' 141 : LESOBL(5)='EPSA' 142 : LESOBL(6)='KSTA' 143 : LESOBL(7)='NITE' 144 : LESOBL(8)='LAMB' 145 : IPCOMP=NOMID 146 : SEGDES NOMID 147 : GOTO 666 148 : C 149 : C MATERIAU STRUT_UNI (Fibre) 150 : C 151 : 83 CONTINUE 152 : NBROBL=37 153 : SEGINI NOMID 154 : LESOBL( 1) ='EPS1' 155 : LESOBL( 2) ='EMX1' 156 : LESOBL( 3) ='EMN1' 157 : LESOBL( 4) ='STM1' 158 : LESOBL( 5) ='STR1' 159 : LESOBL( 6) ='TAD1' 160 : * 161 : LESOBL( 7) ='EPS2' 162 : LESOBL( 8) ='EMX2' 163 : LESOBL( 9) ='EMN2' 164 : LESOBL(10) ='STM2' 165 : LESOBL(11) ='STR2' 166 : LESOBL(12) ='TAD2' 167 : * 168 : LESOBL(13) ='FLG3' 169 : LESOBL(14) ='EPS3' 170 : LESOBL(15) ='RFAC' 171 : LESOBL(16) ='EPLR' 172 : LESOBL(17) ='EPIP' 173 : LESOBL(18) ='EPMP' 174 : LESOBL(19) ='EPMN' 175 : LESOBL(20) ='STLR' 176 : LESOBL(21) ='STIP' 177 : LESOBL(22) ='STMP' 178 : LESOBL(23) ='STMN' 179 : LESOBL(24) ='STR3' 180 : * 181 : LESOBL(25) ='VIXY' 182 : LESOBL(26) ='VIXZ' 183 : * 184 : LESOBL(27) ='VHNG' 185 : * 186 : LESOBL(28) ='EMD1' 187 : LESOBL(29) ='EMD2' 188 : * 189 : LESOBL(30) ='VHTA' 190 : LESOBL(31) ='EPO3' 191 : * 192 : LESOBL(32) ='DMG1' 193 : LESOBL(33) ='DMG2' 194 : * 195 : LESOBL(34) ='EAM1' 196 : LESOBL(35) ='EAM2' 197 : * 198 : LESOBL(36) ='VHET' 199 : LESOBL(37) ='FRCO' 200 : IPCOMP=NOMID 201 : SEGDES NOMID 202 : GOTO 666 203 : 204 : 51 CONTINUE 205 : NBROBL=7 206 : SEGINI NOMID 207 : LESOBL(1)='EPSE' 208 : LESOBL(2)='VHHO' 209 : LESOBL(3)='VHOF' 210 : LESOBL(4)='VHWA' 211 : LESOBL(5)='VHAX' 212 : LESOBL(6)='VHWD' 213 : LESOBL(7)='VHWG' 214 : IPCOMP=NOMID 215 : SEGDES NOMID 216 : GOTO 666 217 : C 218 : 52 CONTINUE 219 : NBROBL=14 220 : SEGINI NOMID 221 : LESOBL(1)='EPSE' 222 : LESOBL(2)='EPS1' 223 : LESOBL(3)='EPS2' 224 : LESOBL(4)='EPS3' 225 : LESOBL(5)='EPS4' 226 : LESOBL(6)='EPS5' 227 : LESOBL(7)='EPS6' 228 : LESOBL(8)='GTIN' 229 : LESOBL(9)='EPP1' 230 : LESOBL(10)='EPP2' 231 : LESOBL(11)='EPP3' 232 : LESOBL(12)='EPP4' 233 : LESOBL(13)='EPP5' 234 : LESOBL(14)='EPP6' 235 : GOTO 666 236 : C 237 : 62 CONTINUE 238 : NBROBL=3 239 : SEGINI NOMID 240 : LESOBL(1)='EPSE' 241 : LESOBL(2)='VHTA' 242 : LESOBL(3)='VHOT' 243 : GOTO 666 244 : C 245 : 64 CONTINUE 246 : NBROBL=7 247 : SEGINI NOMID 248 : LESOBL(1)='EPSE' 249 : LESOBL(2)='VHWF' 250 : LESOBL(3)='VIGM' 251 : LESOBL(4)='EPSM' 252 : LESOBL(5)='VHOT' 253 : LESOBL(6)='VFNS' 254 : LESOBL(7)='VFNE' 255 : GOTO 666 256 : C 257 : C***************************************************** 258 : C----------------------------- 259 : C FORMULATION CERAMIQUE 260 : C----------------------------- 261 : 65 CONTINUE 262 : C 263 : C-------CAS TRIDIMENSIONNEL (IFOUR = 2) MASSIF (MFR = 1)------ 264 : C 265 : IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN 266 : NBROBL=37 267 : SEGINI NOMID 268 : LESOBL(1) ='EPSE' 269 : LESOBL(2) ='W1MA' 270 : LESOBL(3) ='W2MA' 271 : LESOBL(4) ='W3MA' 272 : LESOBL(5) ='W1 ' 273 : LESOBL(6) ='W2 ' 274 : LESOBL(7) ='W3 ' 275 : LESOBL(8) ='VF1X' 276 : LESOBL(9) ='VF1Y' 277 : LESOBL(10)='VF1Z' 278 : LESOBL(11)='VF2X' 279 : LESOBL(12)='VF2Y' 280 : LESOBL(13)='VF2Z' 281 : LESOBL(14)='VF3X' 282 : LESOBL(15)='VF3Y' 283 : LESOBL(16)='VF3Z' 284 : LESOBL(17)='IVL1' 285 : LESOBL(18)='IVL2' 286 : LESOBL(19)='IVL3' 287 : LESOBL(20)='LBDC' 288 : LESOBL(21) ='VPXX' 289 : LESOBL(22) ='VPYY' 290 : LESOBL(23) ='VPZZ' 291 : LESOBL(24) ='VPXY' 292 : LESOBL(25) ='VPYZ' 293 : LESOBL(26) ='VPZX' 294 : LESOBL(27) ='VNXX' 295 : LESOBL(28) ='VNYY' 296 : LESOBL(20) ='VNZZ' 297 : LESOBL(30)='VNXY' 298 : LESOBL(31)='VNYZ' 299 : LESOBL(32)='VNZX' 300 : LESOBL(33)='EPCE' 301 : LESOBL(34)='EPSH' 302 : LESOBL(35)='VHLL' 303 : LESOBL(36)='LENG' 304 : LESOBL(37)='EPSF' 305 : GOTO 666 306 : ENDIF 307 : C 308 : C-------CAS DEFO PLANES OU DEFO PLANES GENERALISEES 309 : C 310 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN 311 : NBROBL=28 312 : SEGINI NOMID 313 : LESOBL(1) ='EPSE' 314 : LESOBL(2) ='W1MA' 315 : LESOBL(3) ='W2MA' 316 : LESOBL(4) ='EPSM' 317 : LESOBL(5) ='W1 ' 318 : LESOBL(6) ='W2 ' 319 : LESOBL(7) ='VEPS' 320 : LESOBL(8) ='VF1X' 321 : LESOBL(9) ='VF1Y' 322 : LESOBL(10)='VF2X' 323 : LESOBL(11)='VF2Y' 324 : LESOBL(12)='IVL1' 325 : LESOBL(13)='IVL2' 326 : LESOBL(14)='IVL3' 327 : LESOBL(15)='LBDC' 328 : LESOBL(16) ='VPXX' 329 : LESOBL(17) ='VPYY' 330 : LESOBL(18) ='VPZZ' 331 : LESOBL(19) ='VPXY' 332 : LESOBL(20) ='VNXX' 333 : LESOBL(21) ='VNYY' 334 : LESOBL(22) ='VNZZ' 335 : LESOBL(23) ='VNXY' 336 : LESOBL(24) ='EPCE' 337 : LESOBL(25)='EPSH' 338 : LESOBL(26)='VHLL' 339 : LESOBL(27)='LENG' 340 : LESOBL(28)='EPSF' 341 : GOTO 666 342 : ENDIF 343 : * 344 : * CAS AXISYMETRIQUE 345 : * 346 : IF (IFOUR.EQ.0) THEN 347 : NBROBL=28 348 : SEGINI NOMID 349 : LESOBL(1) ='EPSE' 350 : LESOBL(2) ='W1MA' 351 : LESOBL(3) ='W2MA' 352 : LESOBL(4) ='EPSM' 353 : LESOBL(5) ='W1 ' 354 : LESOBL(6) ='W2 ' 355 : LESOBL(7) ='VEPS' 356 : LESOBL(8) ='VF1X' 357 : LESOBL(9) ='VF1Y' 358 : LESOBL(10)='VF2X' 359 : LESOBL(11)='VF2Y' 360 : LESOBL(12)='IVL1' 361 : LESOBL(13)='IVL2' 362 : LESOBL(14)='IVL3' 363 : LESOBL(15)='LBDC' 364 : LESOBL(16) ='VPRR' 365 : LESOBL(17) ='VPZZ' 366 : LESOBL(18) ='VPTT' 367 : LESOBL(19) ='VPRZ' 368 : LESOBL(20) ='VNRR' 369 : LESOBL(21) ='VNZZ' 370 : LESOBL(22) ='VNTT' 371 : LESOBL(23) ='VNRZ' 372 : LESOBL(24) ='EPCE' 373 : LESOBL(25)='EPSH' 374 : LESOBL(26)='VHLL' 375 : LESOBL(27)='LENG' 376 : LESOBL(28)='EPSF' 377 : GOTO 666 378 : ENDIF 379 : 380 : C-------CAS CONT PLANES-------- 381 : IF (IFOUR.EQ.-2) THEN 382 : NBROBL=25 383 : SEGINI NOMID 384 : LESOBL(1) ='EPSE' 385 : LESOBL(2) ='W1MA' 386 : LESOBL(3) ='W2MA' 387 : LESOBL(4) ='W1 ' 388 : LESOBL(5) ='W2 ' 389 : LESOBL(6) ='VF1X' 390 : LESOBL(7) ='VF1Y' 391 : LESOBL(8) ='VF2X' 392 : LESOBL(9) ='VF2Y' 393 : LESOBL(10)='IVL1' 394 : LESOBL(11)='IVL2' 395 : LESOBL(12)='LBDC' 396 : LESOBL(13) ='VPXX' 397 : LESOBL(14) ='VPYY' 398 : LESOBL(15) ='VPZZ' 399 : LESOBL(16) ='VPXY' 400 : LESOBL(17) ='VNXX' 401 : LESOBL(18) ='VNYY' 402 : LESOBL(19) ='VNZZ' 403 : LESOBL(20) ='VNXY' 404 : LESOBL(21) ='EPCE' 405 : LESOBL(22)='EPSH' 406 : LESOBL(23)='VHLL' 407 : LESOBL(24)='LENG' 408 : LESOBL(25)='EPSF' 409 : GOTO 666 410 : ENDIF 411 : C*OF --> A voir pour le 1D 412 : C ----- CAS TRIDIMENSIONNEL COQUES MINCES------ 413 : C 414 : IF (IFOUR.EQ.2.AND.(MFR.EQ.3)) THEN 415 : IF(NPINT.EQ.0)THEN 416 : NBROBL=33 417 : SEGINI NOMID 418 : LESOBL(1) ='EPSE' 419 : LESOBL(2) ='W1MA' 420 : LESOBL(3) ='W2MA' 421 : LESOBL(4) ='W1 ' 422 : LESOBL(5) ='W2 ' 423 : LESOBL(6) ='VF1X' 424 : LESOBL(7) ='VF1Y' 425 : LESOBL(8) ='VF2X' 426 : LESOBL(9) ='VF2Y' 427 : LESOBL(10)='IVL1' 428 : LESOBL(11)='IVL2' 429 : LESOBL(12)='LBDC' 430 : LESOBL(13) ='PN11' 431 : LESOBL(14) ='PN22' 432 : LESOBL(15) ='PN33' 433 : LESOBL(16) ='PN12' 434 : LESOBL(17) ='PM11' 435 : LESOBL(18) ='PM22' 436 : LESOBL(19) ='PM33' 437 : LESOBL(20) ='PM12' 438 : LESOBL(21) ='NN11' 439 : LESOBL(22)='NN22' 440 : LESOBL(23)='NN33' 441 : LESOBL(24)='NN12' 442 : LESOBL(25)='NM11' 443 : LESOBL(26)='NM22' 444 : LESOBL(27)='NM33' 445 : LESOBL(28)='NM12' 446 : LESOBL(29)='EPCE' 447 : LESOBL(30)='EPSH' 448 : LESOBL(31)='VHLL' 449 : LESOBL(32)='LENG' 450 : LESOBL(33)='EPSF' 451 : ELSE 452 : NBROBL=25 453 : SEGINI NOMID 454 : LESOBL(1) ='EPSE' 455 : LESOBL(2) ='W1MA' 456 : LESOBL(3) ='W2MA' 457 : LESOBL(4) ='W1 ' 458 : LESOBL(5) ='W2 ' 459 : LESOBL(6) ='VF1X' 460 : LESOBL(7) ='VF1Y' 461 : LESOBL(8) ='VF2X' 462 : LESOBL(9) ='VF2Y' 463 : LESOBL(10)='IVL1' 464 : LESOBL(11)='IVL2' 465 : LESOBL(12)='LBDC' 466 : LESOBL(13) ='PMSS' 467 : LESOBL(14) ='PMTT' 468 : LESOBL(15) ='PMNN' 469 : LESOBL(16) ='PMST' 470 : LESOBL(17) ='NMSS' 471 : LESOBL(18) ='NMTT' 472 : LESOBL(19) ='NMNN' 473 : LESOBL(20) ='NMST' 474 : LESOBL(21) ='EPCE' 475 : LESOBL(22)='EPSH' 476 : LESOBL(23)='VHLL' 477 : LESOBL(24)='LENG' 478 : LESOBL(25)='EPSF' 479 : ENDIF 480 : GOTO 666 481 : ENDIF 482 : C 483 : C 484 : C MODELE BETON_INSA_LYON CYCLIQUE : CONTRAINTES PLANES, 485 : C DEFORMATION PLANES ET AXISYMETRIE 486 : C 487 : 66 CONTINUE 488 : C 489 : IFOB1=IFOUR 490 : IF(MELE.EQ.28.OR.MELE.EQ.93) IFOB1=-2 491 : C 492 : NBRFC1 =32 493 : NBRF11=14 494 : NBRFC2=0 495 : IF(IFOB1.EQ.-2.OR.IFOB1.EQ.-1) THEN 496 : IF(IFOB1.EQ.-2.AND.MFR.NE.9) THEN 497 : NBRFC2=3 498 : NBRFC3=3 499 : ELSE IF(IFOB1.EQ.-1.AND.MFR.NE.9) THEN 500 : NBRFC2=4 501 : NBRFC3=4 502 : ELSE IF(MFR.EQ.9) THEN 503 : NBRFC2=5 504 : NBRFC3=5 505 : ENDIF 506 : ELSE IF(IFOB1.EQ.0) THEN 507 : NBRFC2=4 508 : NBRFC3=4 509 : ELSE IF(IFOB1.EQ.2) THEN 510 : NBRFC2=6 511 : NBRFC3=6 512 : ENDIF 513 : C 514 : NBRFAC=NBRFC1 515 : SEGINI NOMID 516 : DO I=1,NBRFC1 517 : LESFAC(I)=NOMIN1(I) 518 : ENDDO 519 : NN1=NBRFAC 520 : C 521 : IF (IFOB1.EQ.-1.OR.IFOB1.EQ.0) THEN 522 : NBRFAC=NN1+NBRF11 523 : SEGADJ NOMID 524 : DO I=1,NBRF11 525 : LESFAC(NN1+I)=NOMI11(I) 526 : ENDDO 527 : ENDIF 528 : C 529 : NBRFAC=NN1+NBRFC2 530 : SEGADJ NOMID 531 : DO I=1,NBRFC2 532 : LESFAC(NN1+I)=NOMIN2(I) 533 : ENDDO 534 : NN1=NBRFAC 535 : GOTO 666 536 : * 537 : * MODELE ORTHOTROPE PLASTIQUE ECROUISSABLE DECOUPLE 538 : * et MODELE ORTHOTROPE PLASTIQUE PARFAIT DECOUPLE 539 : * 540 : 68 CONTINUE 541 : * 542 : IF (MFR.NE.27.AND.MFR.NE.49) THEN 543 : NBROBL=1 544 : NBRFAC=1 545 : SEGINI NOMID 546 : LESOBL(1)='EPP1' 547 : LESFAC(1)='EPP2' 548 : GOTO 666 549 : ELSE 550 : NBROBL=1 551 : SEGINI NOMID 552 : LESOBL(1)='EPSE' 553 : GOTO 666 554 : ENDIF 555 : * 556 : * MODELE D'ALONSO 557 : * 558 : 69 CONTINUE 559 : NBROBL=4 560 : SEGINI NOMID 561 : LESOBL(1)='EPSE' 562 : LESOBL(2)='VPC0' 563 : LESOBL(3)='SLIM' 564 : LESOBL(4)='SUCC' 565 : GOTO 666 566 : * 567 : * MODELE DE PAKZAD 568 : * 569 : 71 CONTINUE 570 : NBROBL=22 571 : SEGINI NOMID 572 : LESOBL(1)='EPSE' 573 : LESOBL(2)='VHSD' 574 : LESOBL(3)='SUCC' 575 : LESOBL(4)='VPCS' 576 : LESOBL(5)='ADEC' 577 : LESOBL(6)='AREC' 578 : LESOBL(7)='PDEC' 579 : LESOBL(8)='PREC' 580 : LESOBL(9)='EP1D' 581 : LESOBL(10)='EP2D' 582 : LESOBL(11)='EP3D' 583 : LESOBL(12)='EP4D' 584 : LESOBL(13)='EP5D' 585 : LESOBL(14)='EP6D' 586 : LESOBL(15)='EP1R' 587 : LESOBL(16)='EP2R' 588 : LESOBL(17)='EP3R' 589 : LESOBL(18)='EP4R' 590 : LESOBL(19)='EP5R' 591 : LESOBL(20)='EP6R' 592 : LESOBL(21)='A1DE' 593 : LESOBL(22)='A1RE' 594 : GOTO 666 595 : C 596 : 75 CONTINUE 597 : NBROBL=7 598 : SEGINI NOMID 599 : LESOBL(1)='EPSE' 600 : LESOBL(2)='END1' 601 : LESOBL(3)='END2' 602 : LESOBL(4)='END3' 603 : LESOBL(5)='END4' 604 : LESOBL(6)='END5' 605 : LESOBL(7)='END6' 606 : GOTO 666 607 : C 608 : 87 CONTINUE 609 : NBROBL=7 610 : SEGINI NOMID 611 : LESOBL(1)='EPSE' 612 : LESOBL(2)='EPS1' 613 : LESOBL(3)='EPS2' 614 : LESOBL(4)='EPS3' 615 : LESOBL(5)='EPS4' 616 : LESOBL(6)='EPS5' 617 : LESOBL(7)='EPS6' 618 : GOTO 666 619 : 620 : 621 : * 622 : ***** BETON URGC plastique ***** 623 : 99 IF(MATEPL.NE.99) GOTO 999 624 : NBROBL=7 625 : SEGINI NOMID 626 : LESOBL(1)='IFIS' 627 : LESOBL(2)='ANGL' 628 : LESOBL(3)='IPLA' 629 : LESOBL(4)='SIG1' 630 : LESOBL(5)='SIG2' 631 : LESOBL(6)='EPS1' 632 : LESOBL(7)='EPS2' 633 : GOTO 666 634 : * 635 : ***** BETON URGC viscoplastique ***** 636 : 100 CONTINUE 637 : NBROBL=17 638 : SEGINI NOMID 639 : LESOBL(1)='IFIS' 640 : LESOBL(2)='ANGL' 641 : LESOBL(3)='IPLA' 642 : LESOBL(4)='SIG1' 643 : LESOBL(5)='SIG2' 644 : LESOBL(6)='EPS1' 645 : LESOBL(7)='EPS2' 646 : LESOBL(8)='TDEF' 647 : LESOBL(9)='TCON' 648 : LESOBL(10)='SP1' 649 : LESOBL(11)='SP2' 650 : LESOBL(12)='SP3' 651 : LESOBL(13)='SP4' 652 : LESOBL(14)='EPV1' 653 : LESOBL(15)='EPV2' 654 : LESOBL(16)='SIV1' 655 : LESOBL(17)='SIV2' 656 : GOTO 666 657 : 658 : C 659 : C****************************************************** 660 : 97 CONTINUE 661 : 999 CONTINUE 662 : SEGINI,NOMID 663 : 664 : 666 CONTINUE 665 : IPCOMP=NOMID 666 : SEGDES,NOMID 667 : 668 : RETURN 669 : END 670 : 671 : 672 :
© Cast3M 2003 - All rights reserved.
Disclaimer