1 : C IDVAR6 SOURCE BR232186 13/12/09 21:15:16 7841 2 : 3 : *_______________________________________________________________________ 4 : * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES 5 : * -------------------------------------------------------- 6 : * 7 : * ENTREES : 8 : * --------- 9 : * MATEPL NUMERO DU MATERIAU PLASTIQUE 10 : * MFR NUMERO DE FORMULATION 11 : * IFOUR VALEUR DE IFOU DANS CCOPTIO 12 : * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR 13 : * POUR LES ELEMENTS DE COQUE INTEGRES 14 : * 15 : * SORTIES : 16 : * --------- 17 : * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES 18 : * OBLIGATOIRES ET FACULTATIVES 19 : * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES 20 : * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES 21 : *_______________________________________________________________________ 22 : 23 : SUBROUTINE IDVAR6 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL, 24 : . NBRFAC) 25 : 26 : IMPLICIT INTEGER(I-N) 27 : SEGMENT NOMID 28 : CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC) 29 : ENDSEGMENT 30 : 31 : CHARACTER*4 NOMBET(17),NOMTUP(5) 32 : CHARACTER*4 NOMIN1(32),NOMIN2(6),NOMIN4(4),NOMI11(14) 33 : 34 : DATA NOMBET/'EPSE','DAM1','DAM2','DAM3', 35 : . 'OUV1','OUV2','OUV3','LAMD', 36 : . 'VI1X','VI1Y','VI1Z', 37 : . 'VI2X','VI2Y','VI2Z', 38 : . 'VI3X','VI3Y','VI3Z'/ 39 : DATA NOMTUP/'VAM1','VAM2','VHTA','VHJP','EPSE'/ 40 : 41 : DATA NOMIN1/'EPSE','TAN1','TAN2','IPL1','IFI2','RTM1', 42 : . 'RTM2','IFI1','JFI1','VHGL','JFI2','EQC1', 43 : . 'EPE1','EPT1','EPT2','EQC2','EPE2','EPC1', 44 : . 'EPC2','IPL2','OUV1','EDC1','EDC2','ETS1', 45 : . 'ETS2','EDT1','EDT2','OUV2','DFR1','DFR2', 46 : . 'VHAS','VHMP'/ 47 : DATA NOMI11/'EQC3','EPE3','EPT3','EPC3','DFR3','RTM3', 48 : . 'EDC3','ETS3','EDT3','TAN3','OUV3','IPL3', 49 : . 'IFI3','JFI3'/ 50 : DATA NOMIN2/'EP01','EP02','EP03','EP04','EP05','EP06'/ 51 : DATA NOMIN4/'EPSE','EPT1','EPT2','EPT3'/ 52 : 53 : IPCOMP=0 54 : NBROBL=0 55 : NBRFAC=0 56 : NOMID=0 57 : C write(6,*) ' matepl ', matepl 58 : IF (MATEPL.EQ.0) GOTO 1 59 : 60 : C= Materiaux 'VISCO_EXTERNE' : le GOTO indexe ne marche pas car 61 : C= =========================== valeur negative de MATEPL 62 : IF (MATEPL.EQ.-101) THEN 63 : NBROBL=4 64 : SEGINI,NOMID 65 : LESOBL(1)='EC0 ' 66 : LESOBL(2)='ESW0' 67 : LESOBL(3)='P ' 68 : LESOBL(4)='QTLD' 69 : GOTO 666 70 : ENDIF 71 : C on ne traite ici que les 50 premiers matepl la suite 72 : C est dans idva6b, idva6c ... 73 : GOTO (1, 2, 1, 4, 1,97, 4,97, 9,97,97, 4,97,14, 1,16,17,97,97,97, 74 : . 97,97,97,97,97, 3,97,28,29,97,97,32,33,34,35,36,97,38,39,40, 75 : . 41,42,97,44,45,46,47,48,49,97,98,98,97,97,97,97,97,97,97,97, 76 : . 97,98,97,98,98,98,98,98,98,97,98,97,97,97,98,97,97,98,98,98, 77 : . 97,97,98,97,97,97,98,97,97,97,97,98,98,97,97,97,97,97,97, 78 : . 98,98,97,29,98,98,98,97,97,97,97,97,97,97,97,97,97,97, 79 : . 97,97,98,98,98,97,97,97,97,98,98,1,1,1,1,98,1,98,1, 80 : . 1,1,1,98), 81 : . MATEPL 82 : 98 CONTINUE 82 : CALL IDVA6b( MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL, 83 : . NBRFAC) 84 : RETURN 85 : 86 : 1 CONTINUE 87 : NBROBL=1 88 : SEGINI,NOMID 89 : LESOBL(1)='EPSE' 90 : GOTO 666 91 : 92 : 2 CONTINUE 93 : NBROBL=2 94 : SEGINI,NOMID 95 : LESOBL(1)='EPSE' 96 : LESOBL(2)=NOMTUP(4) 97 : GOTO 666 98 : 99 : C 3 - MATERIAUX ENDOMMAGEMENT ET ECROUISSAGE ISOTROPES SI MATEPL=26 100 : C =================================================================== 101 : 3 CONTINUE 102 : C ===== 103 : C 3.1 - Element MASSIF 104 : C ===== 105 : IF (MFR.NE.1.AND.MFR.NE.31) GOTO 1201 106 : C= 3.1.1 - Cas des CONTRAINTES PLANES ou des DEFORMATIONS PLANES ou 107 : C= des DEFORMATIONS PLANES GENERALISEES 108 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1101 109 : NBROBL=7 110 : SEGINI,NOMID 111 : LESOBL(1)='EPSE' 112 : LESOBL(2)='VVIR' 113 : LESOBL(3)='VHWD' 114 : LESOBL(4)='VIXX' 115 : LESOBL(5)='VIYY' 116 : LESOBL(6)='VIZZ' 117 : LESOBL(7)='VIXY' 118 : GOTO 666 119 : C= 3.1.2 - Cas AXISYMETRIQUE 120 : 1101 IF (IFOUR.NE.0) GOTO 1111 121 : NBROBL=7 122 : SEGINI,NOMID 123 : LESOBL(1)='EPSE' 124 : LESOBL(2)='VVIR' 125 : LESOBL(3)='VHWD' 126 : LESOBL(4)='VIRR' 127 : LESOBL(5)='VIZZ' 128 : LESOBL(6)='VITT' 129 : LESOBL(7)='VIRZ' 130 : GOTO 666 131 : C= 3.1.3 - Cas des series de FOURIER 132 : 1111 IF (IFOUR.NE.1) GOTO 1121 133 : NBROBL=9 134 : SEGINI,NOMID 135 : LESOBL(1)='EPSE' 136 : LESOBL(2)='VVIR' 137 : LESOBL(3)='VHWD' 138 : LESOBL(4)='VIRR' 139 : LESOBL(5)='VIZZ' 140 : LESOBL(6)='VITT' 141 : LESOBL(7)='VIRZ' 142 : LESOBL(8)='VIRT' 143 : LESOBL(9)='VIZT' 144 : GOTO 666 145 : C= 3.1.4 - Cas TRIDIMENSIONNEL 146 : 1121 IF (IFOUR.NE.2) GOTO 1131 147 : NBROBL=9 148 : SEGINI,NOMID 149 : LESOBL(1)='EPSE' 150 : LESOBL(2)='VVIR' 151 : LESOBL(3)='VHWD' 152 : LESOBL(4)='VIXX' 153 : LESOBL(5)='VIYY' 154 : LESOBL(6)='VIZZ' 155 : LESOBL(7)='VIXY' 156 : LESOBL(8)='VIXZ' 157 : LESOBL(9)='VIYZ' 158 : GOTO 666 159 : C= 3.1.5 - Modes de calcul UNIDIMENSIONNELS (1D) PLAN 160 : 1131 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1141 161 : NBROBL=6 162 : SEGINI,NOMID 163 : LESOBL(1)='EPSE' 164 : LESOBL(2)='VVIR' 165 : LESOBL(3)='VHWD' 166 : LESOBL(4)='VIXX' 167 : LESOBL(5)='VIYY' 168 : LESOBL(6)='VIZZ' 169 : GOTO 666 170 : C= 3.1.6 - Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE 171 : 1141 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999 172 : NBROBL=6 173 : SEGINI,NOMID 174 : LESOBL(1)='EPSE' 175 : LESOBL(2)='VVIR' 176 : LESOBL(3)='VHWD' 177 : LESOBL(4)='VIRR' 178 : LESOBL(5)='VIZZ' 179 : LESOBL(6)='VITT' 180 : GOTO 666 181 : 182 : C COQUE 183 : C 184 : 1201 CONTINUE 185 : IF (NPINT.NE.0) THEN 186 : IF (MFR.EQ.3.AND.IFOUR.EQ.2) THEN 187 : NBROBL=7 188 : SEGINI NOMID 189 : LESOBL(1)='EPSE' 190 : LESOBL(2)='VVIR' 191 : LESOBL(3)='VHWD' 192 : LESOBL(4)='VISS' 193 : LESOBL(5)='VITT' 194 : LESOBL(6)='VINN' 195 : LESOBL(7)='VIST' 196 : GOTO 666 197 : ENDIF 198 : ENDIF 199 : GOTO 999 200 : C 201 : C MATERIAU GAUVAIN POUR LES POUTRES UNIQUEMENT 202 : C 203 : 16 CONTINUE 204 : IF (MFR.NE.7) GOTO 999 205 : NBROBL=13 206 : SEGINI NOMID 207 : LESOBL( 1)='EPSE' 208 : LESOBL( 2)='EPY0' 209 : LESOBL( 3)='SYIN' 210 : LESOBL( 4)='EYIN' 211 : LESOBL( 5)='SYSU' 212 : LESOBL( 6)='EYSU' 213 : LESOBL( 7)='NUMY' 214 : LESOBL( 8)='EPZ0' 215 : LESOBL( 9)='SZIN' 216 : LESOBL(10)='EZIN' 217 : LESOBL(11)='SZSU' 218 : LESOBL(12)='EZSU' 219 : LESOBL(13)='NUMZ' 220 : GOTO 666 221 : C 222 : 4 CONTINUE 223 : C 224 : 17 CONTINUE 225 : IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 1001 226 : C 227 : C ELEMENT MASSIF 228 : C 229 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040 230 : C 231 : C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 232 : C OU DEFORMATIONS PLANES 233 : C 234 : NBROBL=5 235 : IF (MATEPL.EQ.12) NBROBL=9 236 : IF (MATEPL.EQ.17) NBROBL=22 237 : SEGINI NOMID 238 : LESOBL(1)='EPSE' 239 : LESOBL(2)='VMXX' 240 : LESOBL(3)='VMYY' 241 : LESOBL(4)='VMZZ' 242 : LESOBL(5)='VMXY' 243 : IF (MATEPL.EQ.12) THEN 244 : LESOBL(6)='XMXX' 245 : LESOBL(7)='XMYY' 246 : LESOBL(8)='XMZZ' 247 : LESOBL(9)='XMXY' 248 : ELSE IF (MATEPL.EQ.17) THEN 249 : LESOBL( 2)='VHP1' 250 : LESOBL( 3)='VLP2' 251 : LESOBL( 4)='VLP4' 252 : LESOBL( 5)='VMXX' 253 : LESOBL( 6)='VMYY' 254 : LESOBL( 7)='VMZZ' 255 : LESOBL( 8)='VMXY' 256 : LESOBL( 9)='VP1M' 257 : LESOBL(10)='VHWK' 258 : LESOBL(11)='VIXX' 259 : LESOBL(12)='VIYY' 260 : LESOBL(13)='VIZZ' 261 : LESOBL(14)='VIXY' 262 : LESOBL(15)='KVXX' 263 : LESOBL(16)='KVYY' 264 : LESOBL(17)='KVZZ' 265 : LESOBL(18)='KVXY' 266 : LESOBL(19)='KDXX' 267 : LESOBL(20)='KDYY' 268 : LESOBL(21)='KDZZ' 269 : LESOBL(22)='KDXY' 270 : ENDIF 271 : GOTO 666 272 : C 273 : 1040 IF (IFOUR.NE.0) GOTO 1041 274 : C 275 : C CAS AXISYMETRIQUE 276 : C 277 : NBROBL=5 278 : IF(MATEPL.EQ.12) NBROBL=9 279 : IF(MATEPL.EQ.17) NBROBL=22 280 : SEGINI NOMID 281 : LESOBL(1)='EPSE' 282 : LESOBL(2)='VMRR' 283 : LESOBL(3)='VMZZ' 284 : LESOBL(4)='VMTT' 285 : LESOBL(5)='VMRZ' 286 : IF (MATEPL.EQ.12) THEN 287 : LESOBL(6)='XMRR' 288 : LESOBL(7)='XMZZ' 289 : LESOBL(8)='XMTT' 290 : LESOBL(9)='XMRZ' 291 : ELSE IF (MATEPL.EQ.17) THEN 292 : LESOBL( 2)='VHP1' 293 : LESOBL( 3)='VLP2' 294 : LESOBL( 4)='VLP4' 295 : LESOBL( 5)='VMRR' 296 : LESOBL( 6)='VMZZ' 297 : LESOBL( 7)='VMTT' 298 : LESOBL( 8)='VMRZ' 299 : LESOBL( 9)='VP1M' 300 : LESOBL(10)='VHWK' 301 : LESOBL(11)='VIRR' 302 : LESOBL(12)='VIZZ' 303 : LESOBL(13)='VITT' 304 : LESOBL(14)='VIRZ' 305 : LESOBL(15)='KVRR' 306 : LESOBL(16)='KVZZ' 307 : LESOBL(17)='KVTT' 308 : LESOBL(18)='KVRZ' 309 : LESOBL(19)='KDRR' 310 : LESOBL(20)='KDZZ' 311 : LESOBL(21)='KDTT' 312 : LESOBL(22)='KDRZ' 313 : ENDIF 314 : GOTO 666 315 : C 316 : 1041 IF (IFOUR.NE.1) GOTO 1042 317 : C 318 : C CAS SERIE DE FOURIER 319 : C 320 : NBROBL=7 321 : IF (MATEPL.EQ.12) NBROBL=13 322 : IF (MATEPL.EQ.17) NBROBL=30 323 : SEGINI NOMID 324 : LESOBL(1)='EPSE' 325 : LESOBL(2)='VMRR' 326 : LESOBL(3)='VMZZ' 327 : LESOBL(4)='VMTT' 328 : LESOBL(5)='VMRZ' 329 : LESOBL(6)='VMRT' 330 : LESOBL(7)='VMZT' 331 : IF (MATEPL.EQ.12) THEN 332 : LESOBL( 8)='XMRR' 333 : LESOBL( 9)='XMZZ' 334 : LESOBL(10)='XMTT' 335 : LESOBL(11)='XMRZ' 336 : LESOBL(12)='XMRT' 337 : LESOBL(13)='XMZT' 338 : ELSE IF (MATEPL.EQ.17) THEN 339 : LESOBL( 2)='VHP1' 340 : LESOBL( 3)='VLP2' 341 : LESOBL( 4)='VLP4' 342 : LESOBL( 5)='VMRR' 343 : LESOBL( 6)='VMZZ' 344 : LESOBL( 7)='VMTT' 345 : LESOBL( 8)='VMRZ' 346 : LESOBL( 9)='VMRT' 347 : LESOBL(10)='VMZT' 348 : LESOBL(11)='VP1M' 349 : LESOBL(12)='VHWK' 350 : LESOBL(13)='VIRR' 351 : LESOBL(14)='VIZZ' 352 : LESOBL(15)='VITT' 353 : LESOBL(16)='VIRZ' 354 : LESOBL(17)='VIRT' 355 : LESOBL(18)='VIZT' 356 : LESOBL(19)='KVRR' 357 : LESOBL(20)='KVZZ' 358 : LESOBL(21)='KVTT' 359 : LESOBL(22)='KVRZ' 360 : LESOBL(23)='KVRT' 361 : LESOBL(24)='KVZT' 362 : LESOBL(25)='KDRR' 363 : LESOBL(26)='KDZZ' 364 : LESOBL(27)='KDTT' 365 : LESOBL(28)='KDRZ' 366 : LESOBL(29)='KDRT' 367 : LESOBL(30)='KDZT' 368 : ENDIF 369 : GOTO 666 370 : C 371 : 1042 IF(IFOUR.NE.2) GOTO 1043 372 : C 373 : C CAS TRIDIMENSIONNEL 374 : C 375 : NBROBL=7 376 : IF(MATEPL.EQ.12) NBROBL=13 377 : IF(MATEPL.EQ.17) NBROBL=30 378 : SEGINI NOMID 379 : LESOBL(1)='EPSE' 380 : LESOBL(2)='VMXX' 381 : LESOBL(3)='VMYY' 382 : LESOBL(4)='VMZZ' 383 : LESOBL(5)='VMXY' 384 : LESOBL(6)='VMXZ' 385 : LESOBL(7)='VMYZ' 386 : IF (MATEPL.EQ.12) THEN 387 : LESOBL( 8)='XMXX' 388 : LESOBL( 9)='XMYY' 389 : LESOBL(10)='XMZZ' 390 : LESOBL(11)='XMXY' 391 : LESOBL(12)='XMXZ' 392 : LESOBL(13)='XMYZ' 393 : ELSE IF (MATEPL.EQ.17) THEN 394 : LESOBL( 2)='VHP1' 395 : LESOBL( 3)='VLP2' 396 : LESOBL( 4)='VLP4' 397 : LESOBL( 5)='VMXX' 398 : LESOBL( 6)='VMYY' 399 : LESOBL( 7)='VMZZ' 400 : LESOBL( 8)='VMXY' 401 : LESOBL( 9)='VMXZ' 402 : LESOBL(10)='VMYZ' 403 : LESOBL(11)='VP1M' 404 : LESOBL(12)='VHWK' 405 : LESOBL(13)='VIXX' 406 : LESOBL(14)='VIYY' 407 : LESOBL(15)='VIZZ' 408 : LESOBL(16)='VIXY' 409 : LESOBL(17)='VIXZ' 410 : LESOBL(18)='VIYZ' 411 : LESOBL(19)='KVXX' 412 : LESOBL(20)='KVYY' 413 : LESOBL(21)='KVZZ' 414 : LESOBL(22)='KVXY' 415 : LESOBL(23)='KVXZ' 416 : LESOBL(24)='KVYZ' 417 : LESOBL(25)='KDXX' 418 : LESOBL(26)='KDYY' 419 : LESOBL(27)='KDZZ' 420 : LESOBL(28)='KDXY' 421 : LESOBL(29)='KDXZ' 422 : LESOBL(30)='KDYZ' 423 : ENDIF 424 : GOTO 666 425 : C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN 426 : 1043 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044 427 : IF (MATEPL.EQ.12) THEN 428 : NBROBL=7 429 : SEGINI,NOMID 430 : LESOBL(1)='EPSE' 431 : LESOBL(2)='VMXX' 432 : LESOBL(3)='VMYY' 433 : LESOBL(4)='VMZZ' 434 : LESOBL(5)='XMXX' 435 : LESOBL(6)='XMYY' 436 : LESOBL(7)='XMZZ' 437 : ELSE IF (MATEPL.EQ.17) THEN 438 : NBROBL=18 439 : SEGINI,NOMID 440 : LESOBL( 1)='EPSE' 441 : LESOBL( 2)='VHP1' 442 : LESOBL( 3)='VLP2' 443 : LESOBL( 4)='VLP4' 444 : LESOBL( 5)='VMXX' 445 : LESOBL( 6)='VMYY' 446 : LESOBL( 7)='VMZZ' 447 : LESOBL( 8)='VP1M' 448 : LESOBL( 9)='VHWK' 449 : LESOBL(10)='VIXX' 450 : LESOBL(11)='VIYY' 451 : LESOBL(12)='VIZZ' 452 : LESOBL(13)='KVXX' 453 : LESOBL(14)='KVYY' 454 : LESOBL(15)='KVZZ' 455 : LESOBL(16)='KDXX' 456 : LESOBL(17)='KDYY' 457 : LESOBL(18)='KDZZ' 458 : ELSE 459 : NBROBL=4 460 : SEGINI,NOMID 461 : LESOBL(1)='EPSE' 462 : LESOBL(2)='VMXX' 463 : LESOBL(3)='VMYY' 464 : LESOBL(4)='VMZZ' 465 : ENDIF 466 : GOTO 666 467 : C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE 468 : 1044 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999 469 : IF (MATEPL.EQ.12) THEN 470 : NBROBL=7 471 : SEGINI,NOMID 472 : LESOBL(1)='EPSE' 473 : LESOBL(2)='VMRR' 474 : LESOBL(3)='VMZZ' 475 : LESOBL(4)='VMTT' 476 : LESOBL(5)='XMRR' 477 : LESOBL(6)='XMZZ' 478 : LESOBL(7)='XMTT' 479 : ELSE IF (MATEPL.EQ.17) THEN 480 : NBROBL=18 481 : SEGINI,NOMID 482 : LESOBL( 1)='EPSE' 483 : LESOBL( 2)='VHP1' 484 : LESOBL( 3)='VLP2' 485 : LESOBL( 4)='VLP4' 486 : LESOBL( 5)='VMRR' 487 : LESOBL( 6)='VMZZ' 488 : LESOBL( 7)='VMTT' 489 : LESOBL( 8)='VP1M' 490 : LESOBL( 9)='VHWK' 491 : LESOBL(10)='VIRR' 492 : LESOBL(11)='VIZZ' 493 : LESOBL(12)='VITT' 494 : LESOBL(13)='KVRR' 495 : LESOBL(14)='KVZZ' 496 : LESOBL(15)='KVTT' 497 : LESOBL(16)='KDRR' 498 : LESOBL(17)='KDZZ' 499 : LESOBL(18)='KDTT' 500 : ELSE 501 : NBROBL=4 502 : SEGINI,NOMID 503 : LESOBL(1)='EPSE' 504 : LESOBL(2)='VMRR' 505 : LESOBL(3)='VMZZ' 506 : LESOBL(4)='VMTT' 507 : ENDIF 508 : GOTO 666 509 : C 510 : 44 CONTINUE 511 : IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999 512 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) 513 : & GOTO 1330 514 : C 515 : C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 516 : C OU DEFORMATIONS PLANES GENERALISEES 517 : C 518 : NBROBL=6 519 : SEGINI,NOMID 520 : LESOBL(1)='EPSE' 521 : LESOBL(2)='VIXX' 522 : LESOBL(3)='VIYY' 523 : LESOBL(4)='VIZZ' 524 : LESOBL(5)='VIXY' 525 : LESOBL(6)='VHOR' 526 : GOTO 666 527 : C 528 : 1330 IF (IFOUR.NE.0) GOTO 1331 529 : C 530 : C CAS AXISYMETRIQUE 531 : C 532 : NBROBL=6 533 : SEGINI,NOMID 534 : LESOBL(1)='EPSE' 535 : LESOBL(2)='VIRR' 536 : LESOBL(3)='VIZZ' 537 : LESOBL(4)='VITT' 538 : LESOBL(5)='VIRZ' 539 : LESOBL(6)='VHOR' 540 : GOTO 666 541 : C 542 : 1331 IF(IFOUR.NE.2) GOTO 1332 543 : C 544 : C CAS TRIDIMENSIONNEL 545 : C 546 : NBROBL=8 547 : SEGINI NOMID 548 : LESOBL(1)='EPSE' 549 : LESOBL(2)='VIXX' 550 : LESOBL(3)='VIYY' 551 : LESOBL(4)='VIZZ' 552 : LESOBL(5)='VIXY' 553 : LESOBL(6)='VIXZ' 554 : LESOBL(7)='VIYZ' 555 : LESOBL(8)='VHOR' 556 : GOTO 666 557 : C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN 558 : 1332 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1333 559 : NBROBL=5 560 : SEGINI,NOMID 561 : LESOBL(1)='EPSE' 562 : LESOBL(2)='VIXX' 563 : LESOBL(3)='VIYY' 564 : LESOBL(4)='VIZZ' 565 : LESOBL(5)='VHOR' 566 : GOTO 666 567 : C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE 568 : 1333 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999 569 : NBROBL=5 570 : SEGINI,NOMID 571 : LESOBL(1)='EPSE' 572 : LESOBL(2)='VIRR' 573 : LESOBL(3)='VIZZ' 574 : LESOBL(4)='VITT' 575 : LESOBL(5)='VHOR' 576 : GOTO 666 577 : C 578 : 45 CONTINUE 579 : IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999 580 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) 581 : & GOTO 1430 582 : C 583 : C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 584 : C OU DEFORMATIONS PLANES GENERALISEES 585 : C 586 : NBROBL=8 587 : SEGINI NOMID 588 : LESOBL(1)='EPSE' 589 : LESOBL(2)='VIXX' 590 : LESOBL(3)='VIYY' 591 : LESOBL(4)='VIZZ' 592 : LESOBL(5)='VIXY' 593 : LESOBL(6)='GRAI' 594 : LESOBL(7)='DENE' 595 : LESOBL(8)='VHOR' 596 : GOTO 666 597 : C 598 : 1430 IF (IFOUR.NE.0) GOTO 1431 599 : C 600 : C CAS AXISYMETRIQUE 601 : C 602 : NBROBL=8 603 : SEGINI NOMID 604 : LESOBL(1)='EPSE' 605 : LESOBL(2)='VIRR' 606 : LESOBL(3)='VIZZ' 607 : LESOBL(4)='VITT' 608 : LESOBL(5)='VIRZ' 609 : LESOBL(6)='GRAI' 610 : LESOBL(7)='DENE' 611 : LESOBL(8)='VHOR' 612 : GOTO 666 613 : C 614 : 1431 IF(IFOUR.NE.2) GOTO 1432 615 : C 616 : C CAS TRIDIMENSIONNEL 617 : C 618 : NBROBL=1 619 : SEGINI NOMID 620 : LESOBL(1)='EPSE' 621 : LESOBL(2)='VIXX' 622 : LESOBL(3)='VIYY' 623 : LESOBL(4)='VIZZ' 624 : LESOBL(5)='VIXY' 625 : LESOBL(6)='VIXZ' 626 : LESOBL(7)='VIYZ' 627 : LESOBL(8)='GRAI' 628 : LESOBL(9)='DENE' 629 : LESOBL(10)='VHOR' 630 : GOTO 666 631 : C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN 632 : 1432 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1433 633 : NBROBL=7 634 : SEGINI,NOMID 635 : LESOBL(1)='EPSE' 636 : LESOBL(2)='VIXX' 637 : LESOBL(3)='VIYY' 638 : LESOBL(4)='VIZZ' 639 : LESOBL(5)='GRAI' 640 : LESOBL(6)='DENE' 641 : LESOBL(7)='VHOR' 642 : GOTO 666 643 : C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE 644 : 1433 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999 645 : NBROBL=7 646 : SEGINI,NOMID 647 : LESOBL(1)='EPSE' 648 : LESOBL(2)='VIRR' 649 : LESOBL(3)='VIZZ' 650 : LESOBL(4)='VITT' 651 : LESOBL(5)='GRAI' 652 : LESOBL(6)='DENE' 653 : LESOBL(7)='VHOR' 654 : GOTO 666 655 : C 656 : 1001 IF(MFR.NE.3) GOTO 1003 657 : C 658 : C COQUE 659 : C 660 : IF(NPINT.EQ.0)THEN 661 : C COQUE GLOBALE 662 : IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN 663 : C 664 : C CAS TRIDIMENSIONNEL FOURIER 665 : C 666 : NBROBL=7 667 : IF(MATEPL.EQ.12) NBROBL=13 668 : IF(MATEPL.EQ.17) NBROBL=19 669 : SEGINI NOMID 670 : LESOBL(1)='EPSE' 671 : LESOBL(2)='VN11' 672 : LESOBL(3)='VN22' 673 : LESOBL(4)='VN12' 674 : LESOBL(5)='VM11' 675 : LESOBL(6)='VM22' 676 : LESOBL(7)='VM12' 677 : IF(MATEPL.EQ.12) THEN 678 : LESOBL(8)='XN11' 679 : LESOBL(9)='XN22' 680 : LESOBL(10)='XN12' 681 : LESOBL(11)='XM11' 682 : LESOBL(12)='XM22' 683 : LESOBL(13)='XM12' 684 : ENDIF 685 : IF(MATEPL.EQ.17) THEN 686 : LESOBL(2)='VHP1' 687 : LESOBL(3)='VLP2' 688 : LESOBL(4)='VLP4' 689 : LESOBL(5)='VN11' 690 : LESOBL(6)='VN22' 691 : LESOBL(7)='VN12' 692 : LESOBL(8)='VM11' 693 : LESOBL(9)='VM22' 694 : LESOBL(10)='VM12' 695 : LESOBL(11)='VP1M' 696 : LESOBL(12)='VHWK' 697 : LESOBL(13)='VEP1' 698 : LESOBL(14)='VISS' 699 : LESOBL(15)='VITT' 700 : LESOBL(16)='VIST' 701 : LESOBL(17)='VRSS' 702 : LESOBL(18)='VRTT' 703 : LESOBL(19)='VRST' 704 : ENDIF 705 : C 706 : ELSE IF(IFOUR.EQ.0) THEN 707 : C 708 : C CAS AXISYMETRIQUE 709 : C 710 : NBROBL=5 711 : IF(MATEPL.EQ.12) NBROBL=9 712 : IF(MATEPL.EQ.17) NBROBL=15 713 : SEGINI NOMID 714 : LESOBL(1)='EPSE' 715 : LESOBL(2)='VN11' 716 : LESOBL(3)='VN22' 717 : LESOBL(4)='VM11' 718 : LESOBL(5)='VM22' 719 : IF(MATEPL.EQ.12) THEN 720 : LESOBL(6)='XN11' 721 : LESOBL(7)='XN22' 722 : LESOBL(8)='XM11' 723 : LESOBL(9)='XM22' 724 : ENDIF 725 : IF(MATEPL.EQ.17) THEN 726 : LESOBL(2)='VHP1' 727 : LESOBL(3)='VLP2' 728 : LESOBL(4)='VLP4' 729 : LESOBL(5)='VN11' 730 : LESOBL(6)='VN22' 731 : LESOBL(7)='VM11' 732 : LESOBL(8)='VM22' 733 : LESOBL(9)='VP1M' 734 : LESOBL(10)='VHWK' 735 : LESOBL(11)='VEP1' 736 : LESOBL(12)='VISS' 737 : LESOBL(13)='VITT' 738 : LESOBL(14)='VRSS' 739 : LESOBL(15)='VRTT' 740 : ENDIF 741 : C 742 : ELSE IF(IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 743 : C 744 : C CAS CONTRAINTES OU DEFORMATIONS PLANES 745 : C OU DEFORMATIONS PLANES GENERALISEES 746 : C 747 : NBROBL=5 748 : IF(MATEPL.EQ.12) NBROBL=9 749 : IF(MATEPL.EQ.17) NBROBL=15 750 : SEGINI NOMID 751 : LESOBL(1)='VISE' 752 : LESOBL(2)='VN11' 753 : LESOBL(3)='VNZZ' 754 : LESOBL(4)='VM11' 755 : LESOBL(5)='VMZZ' 756 : IF(MATEPL.EQ.12) THEN 757 : LESOBL(6)='XN11' 758 : LESOBL(7)='NZZX' 759 : LESOBL(8)='XM11' 760 : LESOBL(9)='MZZX' 761 : ELSE IF (MATEPL.EQ.17) THEN 762 : LESOBL(2)='VHP1' 763 : LESOBL(3)='VLP2' 764 : LESOBL(4)='VLP4' 765 : LESOBL(5)='VN11' 766 : LESOBL(6)='VNZZ' 767 : LESOBL(7)='VM11' 768 : LESOBL(8)='VMZZ' 769 : LESOBL(9)='VP1M' 770 : LESOBL(10)='VHWK' 771 : LESOBL(11)='VEP1' 772 : LESOBL(12)='VISS' 773 : LESOBL(13)='VIZZ' 774 : LESOBL(14)='VRSS' 775 : LESOBL(15)='VRZZ' 776 : ENDIF 777 : ENDIF 778 : GOTO 666 779 : ELSE 780 : C COQUE INTEGREE 781 : IF(IFOUR.EQ.2)THEN 782 : NBROBL=5 783 : IF(MATEPL.EQ.12) NBROBL=9 784 : IF(MATEPL.EQ.17) NBROBL=15 785 : SEGINI NOMID 786 : LESOBL(1)='EPSE' 787 : LESOBL(2)='VMSS' 788 : LESOBL(3)='VMTT' 789 : LESOBL(4)='VMNN' 790 : LESOBL(5)='VMST' 791 : IF(MATEPL.EQ.12) THEN 792 : LESOBL(6)='XMSS' 793 : LESOBL(7)='XMTT' 794 : LESOBL(8)='XMNN' 795 : LESOBL(9)='XMST' 796 : ELSE IF (MATEPL.EQ.17) THEN 797 : LESOBL(2)='VHP1' 798 : LESOBL(3)='VLP2' 799 : LESOBL(4)='VLP4' 800 : LESOBL(5)='VMSS' 801 : LESOBL(6)='VMTT' 802 : LESOBL(7)='VMNN' 803 : LESOBL(8)='VMST' 804 : LESOBL(9)='VP1M' 805 : LESOBL(10)='VHWK' 806 : LESOBL(11)='VEP1' 807 : LESOBL(12)='VISS' 808 : LESOBL(13)='VITT' 809 : LESOBL(14)='VINN' 810 : LESOBL(15)='VIST' 811 : ENDIF 812 : GOTO 666 813 : ELSE 814 : GOTO 999 815 : ENDIF 816 : ENDIF 817 : C 818 : 1003 IF(MFR.NE.5) GOTO 1005 819 : C 820 : C COQUE EPAISSE 821 : C 822 : IF (IFOUR.NE.2) GOTO 999 823 : C 824 : C CAS TRIDIMENSIONNEL 825 : C 826 : NBROBL=6 827 : IF(MATEPL.EQ.12) NBROBL=11 828 : IF(MATEPL.EQ.17) NBROBL=30 829 : SEGINI NOMID 830 : LESOBL(1)='EPSE' 831 : LESOBL(2)='VMSS' 832 : LESOBL(3)='VMTT' 833 : LESOBL(4)='VMST' 834 : LESOBL(5)='VMSN' 835 : LESOBL(6)='VMTN' 836 : IF(MATEPL.EQ.12) THEN 837 : LESOBL(7)='XMSS' 838 : LESOBL(8)='XMTT' 839 : LESOBL(9)='XMST' 840 : LESOBL(10)='XMSN' 841 : LESOBL(11)='XMTN' 842 : ENDIF 843 : IF(MATEPL.EQ.17) THEN 844 : LESOBL(2)='VHP1' 845 : LESOBL(3)='VLP2' 846 : LESOBL(4)='VLP4' 847 : LESOBL(5)='VMSS' 848 : LESOBL(6)='VMTT' 849 : LESOBL(7)='VMNN' 850 : LESOBL(8)='VMST' 851 : LESOBL(9)='VMSN' 852 : LESOBL(10)='VMTN' 853 : LESOBL(11)='VP1M' 854 : LESOBL(12)='VHWK' 855 : LESOBL(13)='VISS' 856 : LESOBL(14)='VITT' 857 : LESOBL(15)='VINN' 858 : LESOBL(16)='VIST' 859 : LESOBL(17)='VISN' 860 : LESOBL(18)='VITN' 861 : LESOBL(19)='KVSS' 862 : LESOBL(20)='KVTT' 863 : LESOBL(21)='KVNN' 864 : LESOBL(22)='KVST' 865 : LESOBL(23)='KVSN' 866 : LESOBL(24)='KVTN' 867 : LESOBL(25)='KDSS' 868 : LESOBL(26)='KDTT' 869 : LESOBL(27)='KDNN' 870 : LESOBL(28)='KDST' 871 : LESOBL(29)='KDSN' 872 : LESOBL(30)='KDTN' 873 : ENDIF 874 : GOTO 666 875 : C 876 : 1005 IF(MFR.NE.7.AND.MFR.NE.13) GOTO 1007 877 : C 878 : C POUTRE ET TUYAU 879 : C 880 : IF (IFOUR.NE.2) GOTO 999 881 : C 882 : C CAS TRIDIMENSIONNEL 883 : C 884 : NBROBL=7 885 : IF(MATEPL.EQ.12) NBROBL=13 886 : IF(MATEPL.EQ.17) NBROBL=19 887 : SEGINI NOMID 888 : LESOBL(1)='EPSE' 889 : LESOBL(2)='VFFX' 890 : LESOBL(3)='VFFY' 891 : LESOBL(4)='VFFZ' 892 : LESOBL(5)='VOMX' 893 : LESOBL(6)='VOMY' 894 : LESOBL(7)='VOMZ' 895 : IF(MATEPL.EQ.12) THEN 896 : LESOBL(8)='XEFX' 897 : LESOBL(9)='XEFY' 898 : LESOBL(10)='XEFZ' 899 : LESOBL(11)='XMOX' 900 : LESOBL(12)='XMOY' 901 : LESOBL(13)='XMOZ' 902 : ENDIF 903 : IF(MATEPL.EQ.17) THEN 904 : LESOBL(2)='VHP1' 905 : LESOBL(3)='VLP2' 906 : LESOBL(4)='VLP4' 907 : LESOBL(5)='VFFX' 908 : LESOBL(6)='VFFY' 909 : LESOBL(7)='VFFZ' 910 : LESOBL(8)='VOMX' 911 : LESOBL(9)='VOMY' 912 : LESOBL(10)='VOMZ' 913 : LESOBL(11)='VP1M' 914 : LESOBL(12)='VHWK' 915 : LESOBL(13)='VEP1' 916 : LESOBL(14)='VEPS' 917 : LESOBL(15)='VGXY' 918 : LESOBL(16)='VGXZ' 919 : LESOBL(17)='VHCX' 920 : LESOBL(18)='VHCY' 921 : LESOBL(19)='VHCZ' 922 : ENDIF 923 : GOTO 666 924 : C 925 : 1007 IF(MFR.NE.9) GOTO 1009 926 : C 927 : C COQUE CISAILLEMENT TRANSVERSE 928 : C 929 : IF(NPINT.EQ.0)THEN 930 : IF (IFOUR.NE.2) GOTO 999 931 : C 932 : C CAS TRIDIMENSIONNEL 933 : C 934 : NBROBL=9 935 : IF(MATEPL.EQ.12) NBROBL=17 936 : IF(MATEPL.EQ.17) NBROBL=23 937 : SEGINI NOMID 938 : LESOBL(1)='EPSE' 939 : LESOBL(2)='VN11' 940 : LESOBL(3)='VN22' 941 : LESOBL(4)='VN12' 942 : LESOBL(5)='VM11' 943 : LESOBL(6)='VM22' 944 : LESOBL(7)='VM12' 945 : LESOBL(8)='VHV1' 946 : LESOBL(9)='VHV2' 947 : IF(MATEPL.EQ.12) THEN 948 : LESOBL(10)='XN11' 949 : LESOBL(11)='XN22' 950 : LESOBL(12)='XN12' 951 : LESOBL(13)='XM11' 952 : LESOBL(14)='XM22' 953 : LESOBL(15)='XM12' 954 : LESOBL(16)='VXV1' 955 : LESOBL(17)='VXV2' 956 : ENDIF 957 : IF(MATEPL.EQ.17) THEN 958 : LESOBL(2)='VHP1' 959 : LESOBL(3)='VLP2' 960 : LESOBL(4)='VLP4' 961 : LESOBL(5)='VN11' 962 : LESOBL(6)='VN22' 963 : LESOBL(7)='VN12' 964 : LESOBL(8)='VM11' 965 : LESOBL(9)='VM22' 966 : LESOBL(10)='VM12' 967 : LESOBL(11)='VHV1' 968 : LESOBL(12)='VHV2' 969 : LESOBL(13)='VP1M' 970 : LESOBL(14)='VHWK' 971 : LESOBL(15)='VEP1' 972 : LESOBL(16)='VISS' 973 : LESOBL(17)='VITT' 974 : LESOBL(18)='VIST' 975 : LESOBL(19)='VRSS' 976 : LESOBL(20)='VRTT' 977 : LESOBL(21)='VRST' 978 : LESOBL(22)='VISN' 979 : LESOBL(23)='VITN' 980 : ENDIF 981 : GOTO 666 982 : ELSE 983 : GOTO 999 984 : ENDIF 985 : C 986 : 1009 CONTINUE 987 : C 988 : C FORMULATION MEMBRANE 989 : C 990 : IF(MFR.NE.25) GOTO 1025 991 : NBROBL=4 992 : IF(MATEPL.EQ.12) NBROBL=7 993 : IF(MATEPL.EQ.17) NBROBL=13 994 : SEGINI NOMID 995 : LESOBL(1)='EPSE' 996 : LESOBL(2)='VMSS' 997 : LESOBL(3)='VMTT' 998 : LESOBL(4)='VMST' 999 : IF(MATEPL.EQ.12) THEN 1000 : LESOBL(5)='XMSS' 1001 : LESOBL(6)='XMTT' 1002 : LESOBL(7)='XMST' 1003 : ENDIF 1004 : IF(MATEPL.EQ.17) THEN 1005 : LESOBL(2)='VHP1' 1006 : LESOBL(3)='VLP2' 1007 : LESOBL(4)='VLP4' 1008 : LESOBL(5)='VMSS' 1009 : LESOBL(6)='VMTT' 1010 : LESOBL(7)='VMST' 1011 : LESOBL(8)='VP1M' 1012 : LESOBL(9)='VHWK' 1013 : LESOBL(10)='VEP1' 1014 : LESOBL(11)='VISS' 1015 : LESOBL(12)='VITT' 1016 : LESOBL(13)='VIST' 1017 : ENDIF 1018 : GOTO 666 1019 : C 1020 : C FORMULATION UNIAXIALE 1021 : C 1022 : 1025 CONTINUE 1023 : IF(MFR.NE.27) GOTO 999 1024 : NBROBL=2 1025 : IF(MATEPL.EQ.12) NBROBL=3 1026 : IF(MATEPL.EQ.17) NBROBL=9 1027 : SEGINI NOMID 1028 : LESOBL(1)='EPSE' 1029 : LESOBL(2)='VFFX' 1030 : IF(MATEPL.EQ.12) THEN 1031 : LESOBL(3)='XEFX' 1032 : ENDIF 1033 : IF(MATEPL.EQ.17) THEN 1034 : LESOBL(2)='VHP1' 1035 : LESOBL(3)='VLP2' 1036 : LESOBL(4)='VLP4' 1037 : LESOBL(5)='VFFX' 1038 : LESOBL(6)='VP1M' 1039 : LESOBL(7)='VHWK' 1040 : LESOBL(8)='VEP1' 1041 : LESOBL(9)='VISS' 1042 : ENDIF 1043 : GOTO 666 1044 : C 1045 : 9 CONTINUE 1046 : NBRFAC=17 1047 : SEGINI NOMID 1048 : DO 991 I=1,NBRFAC 1049 : LESFAC(I)=NOMBET(I) 1050 : 991 CONTINUE 1051 : GOTO 666 1052 : C 1053 : 14 CONTINUE 1054 : NBROBL=5 1055 : SEGINI NOMID 1056 : LESOBL(1)=NOMTUP(1) 1057 : LESOBL(2)=NOMTUP(2) 1058 : LESOBL(3)=NOMTUP(3) 1059 : LESOBL(4)=NOMTUP(4) 1060 : LESOBL(5)=NOMTUP(5) 1061 : GOTO 666 1062 : C 1063 : C MATERIAU UBIQUITOUS 1064 : C 1065 : 28 CONTINUE 1066 : NBROBL=7 1067 : SEGINI NOMID 1068 : LESOBL(1)='EPSE' 1069 : LESOBL(2)='EPN1' 1070 : LESOBL(3)='GAP1' 1071 : LESOBL(4)='LAM1' 1072 : LESOBL(5)='EPN2' 1073 : LESOBL(6)='GAP2' 1074 : LESOBL(7)='LAM2' 1075 : GOTO 666 1076 : C 1077 : C MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE 1078 : C 1079 : 29 CONTINUE 1080 : NBROBL=3 1081 : SEGINI NOMID 1082 : LESOBL(1)='EPSE' 1083 : LESOBL(2)='VVIR' 1084 : LESOBL(3)='VHWD' 1085 : GOTO 666 1086 : C 1087 : C MATERIAU GLOBAL POUR LES POUTRES UNIQUEMENT 1088 : C 1089 : 32 CONTINUE 1090 : IF(MFR.NE.7) GOTO 999 1091 : NBROBL=31 1092 : SEGINI NOMID 1093 : C 1094 : LESOBL(1)='EPSE' 1095 : C 1096 : LESOBL(2)='FLGC' 1097 : LESOBL(3)='RCIN' 1098 : LESOBL(4)='FMXC' 1099 : LESOBL(5)='DMXC' 1100 : LESOBL(6)='FMNC' 1101 : LESOBL(7)='DMNC' 1102 : LESOBL(8)='DEPC' 1103 : LESOBL(9)='XINT' 1104 : LESOBL(10)='PLAC' 1105 : C 1106 : LESOBL(11)='FLGF' 1107 : LESOBL(12)='RFIN' 1108 : LESOBL(13)='FMXF' 1109 : LESOBL(14)='DMXF' 1110 : LESOBL(15)='FMNF' 1111 : LESOBL(16)='DMNF' 1112 : LESOBL(17)='X00F' 1113 : LESOBL(18)='DEPF' 1114 : LESOBL(19)='PLAF' 1115 : C 1116 : LESOBL(20)='FLGT' 1117 : LESOBL(21)='RTIN' 1118 : LESOBL(22)='FMXT' 1119 : LESOBL(23)='DMXT' 1120 : LESOBL(24)='FMNT' 1121 : LESOBL(25)='DMNT' 1122 : LESOBL(26)='X01T' 1123 : LESOBL(27)='X02T' 1124 : LESOBL(28)='FINT' 1125 : LESOBL(29)='FLIMT' 1126 : LESOBL(30)='DEPT' 1127 : LESOBL(31)='PLAT' 1128 : GOTO 666 1129 : C 1130 : C CAM-CLAY 1131 : C 1132 : 33 CONTINUE 1133 : NBROBL=2 1134 : SEGINI NOMID 1135 : LESOBL(1)='EPSE' 1136 : LESOBL(2)='TRAP' 1137 : GOTO 666 1138 : C 1139 : C MATERIAU MOHR COULOMB 1140 : C 1141 : 34 CONTINUE 1142 : IF (MFR.EQ.35) THEN 1143 : NBROBL=4 1144 : SEGINI NOMID 1145 : LESOBL(1)='EPSE' 1146 : LESOBL(2)='EPOU' 1147 : LESOBL(3)='STAT' 1148 : LESOBL(4)='LAM1' 1149 : GOTO 666 1150 : ELSE IF (MFR.EQ.75) THEN 1151 : NBROBL=7 1152 : SEGINI NOMID 1153 : LESOBL(1)='EPSE' 1154 : LESOBL(2)='EPOU' 1155 : LESOBL(3)='STAT' 1156 : LESOBL(4)='LAM1' 1157 : LESOBL(5)='PLA1' 1158 : LESOBL(6)='PLA2' 1159 : LESOBL(7)='PLA3' 1160 : GOTO 666 1161 : ELSE 1162 : GOTO 999 1163 : ENDIF 1164 : C 1165 : C MATERIAU JOINT-DILATANT (FORMULATION JOINT 2D-PLAN) 1166 : C 1167 : 35 CONTINUE 1168 : IF(MFR.NE.35) GOTO 999 1169 : C 1170 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1) GOTO 999 1171 : C 1172 : NBROBL=10 1173 : SEGINI NOMID 1174 : LESOBL(1) ='VDS0' 1175 : LESOBL(2) ='VDN0' 1176 : LESOBL(3) ='VRSN' 1177 : LESOBL(4) ='VDRN' 1178 : LESOBL(5) ='DPSN' 1179 : LESOBL(6) ='VDPN' 1180 : LESOBL(7) ='HC11' 1181 : LESOBL(8) ='HC12' 1182 : LESOBL(9) ='HC21' 1183 : LESOBL(10)='HC22' 1184 : GOTO 666 1185 : C 1186 : C MATERIAU BETON_AXI 1187 : C 1188 : 36 CONTINUE 1189 : NBROBL=10 1190 : SEGINI NOMID 1191 : LESOBL(1) ='EPSE' 1192 : LESOBL(2) ='DAM1' 1193 : LESOBL(3) ='DAM2' 1194 : LESOBL(4) ='DAM3' 1195 : LESOBL(5) ='VHGL' 1196 : LESOBL(6) ='LAM1' 1197 : LESOBL(7) ='LAM2' 1198 : LESOBL(8) ='LAM3' 1199 : LESOBL(9) ='LAM4' 1200 : LESOBL(10)='LAM5' 1201 : GOTO 666 1202 : C 1203 : C MATERIAU DE GURSON 1204 : C 1205 : 38 CONTINUE 1206 : IF ((IFOUR.NE.0).AND.(IFOUR.NE.2) 1207 : & .AND.(IFOUR.NE.-1)) GOTO 999 1208 : NBROBL=3 1209 : SEGINI NOMID 1210 : LESOBL(1)='EPSE' 1211 : LESOBL(2)='VPOR' 1212 : LESOBL(3)='VHNS' 1213 : GOTO 666 1214 : C 1215 : C MATERIAU BETON_UNI 1216 : C 1217 : 39 CONTINUE 1218 : NBROBL=6 1219 : SEGINI NOMID 1220 : LESOBL( 1) ='EPSO' 1221 : LESOBL( 2) ='EMAX' 1222 : LESOBL( 3) ='EMIN' 1223 : LESOBL( 4) ='STMN' 1224 : LESOBL( 5) ='VHNG' 1225 : LESOBL( 6) ='VHND' 1226 : GOTO 666 1227 : C 1228 : C MATERIAU ACIER_UNI 1229 : C 1230 : 40 CONTINUE 1231 : NBROBL=12 1232 : SEGINI NOMID 1233 : LESOBL( 1) ='FLAG' 1234 : LESOBL( 2) ='EPSO' 1235 : LESOBL( 3) ='RFAC' 1236 : LESOBL( 4) ='VHNG' 1237 : LESOBL( 5) ='EPLR' 1238 : LESOBL( 6) ='EPIP' 1239 : LESOBL( 7) ='EPMP' 1240 : LESOBL( 8) ='EPMN' 1241 : LESOBL( 9) ='STLR' 1242 : LESOBL(10) ='STIP' 1243 : LESOBL(11) ='STMP' 1244 : LESOBL(12) ='STMN' 1245 : GO TO 666 1246 : 1247 : C 1248 : C FORMULATION SECTION 1249 : C 1250 : 41 CONTINUE 1251 : NBROBL=2 1252 : SEGINI NOMID 1253 : LESOBL(1) ='VONS' 1254 : LESOBL(2) ='VAIS' 1255 : GOTO 666 1256 : C----------------------------- 1257 : C FORMULATION OTTOSEN 1258 : C----------------------------- 1259 : 42 CONTINUE 1260 : C 1261 : C-------CAS TRIDIMENSIONNEL MASSIF------ 1262 : C 1263 : IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN 1264 : NBROBL=20 1265 : SEGINI NOMID 1266 : LESOBL(1) ='EPSE' 1267 : LESOBL(2) ='W1MA' 1268 : LESOBL(3) ='W2MA' 1269 : LESOBL(4) ='W3MA' 1270 : LESOBL(5) ='W1 ' 1271 : LESOBL(6) ='W2 ' 1272 : LESOBL(7) ='W3 ' 1273 : LESOBL(8) ='VF1X' 1274 : LESOBL(9) ='VF1Y' 1275 : LESOBL(10)='VF1Z' 1276 : LESOBL(11)='VF2X' 1277 : LESOBL(12)='VF2Y' 1278 : LESOBL(13)='VF2Z' 1279 : LESOBL(14)='VF3X' 1280 : LESOBL(15)='VF3Y' 1281 : LESOBL(16)='VF3Z' 1282 : LESOBL(17)='IVL1' 1283 : LESOBL(18)='IVL2' 1284 : LESOBL(19)='IVL3' 1285 : LESOBL(20)='LBDC' 1286 : GOTO 666 1287 : ENDIF 1288 : C 1289 : C-------CAS DEFO PLANES/AXISYMETRIQUE-------- 1290 : C 1291 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3 1292 : & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN 1293 : NBROBL=15 1294 : SEGINI NOMID 1295 : LESOBL(1) ='EPSE' 1296 : LESOBL(2) ='W1MA' 1297 : LESOBL(3) ='W2MA' 1298 : LESOBL(4) ='EPSM' 1299 : LESOBL(5) ='W1 ' 1300 : LESOBL(6) ='W2 ' 1301 : LESOBL(7) ='VEPS' 1302 : LESOBL(8) ='VF1X' 1303 : LESOBL(9) ='VF1Y' 1304 : LESOBL(10)='VF2X' 1305 : LESOBL(11)='VF2Y' 1306 : LESOBL(12)='IVL1' 1307 : LESOBL(13)='IVL2' 1308 : LESOBL(14)='IVL3' 1309 : LESOBL(15)='LBDC' 1310 : GOTO 666 1311 : ENDIF 1312 : C 1313 : C-------CAS CONT PLANES-------- 1314 : C -----OU CAS TRIDIMENSIONNEL COQUES------ 1315 : C 1316 : IF (IFOUR.EQ.-2.OR. 1317 : . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN 1318 : NBROBL=12 1319 : SEGINI NOMID 1320 : LESOBL(1) ='EPSE' 1321 : LESOBL(2) ='W1MA' 1322 : LESOBL(3) ='W2MA' 1323 : LESOBL(4) ='W1 ' 1324 : LESOBL(5) ='W2 ' 1325 : LESOBL(6) ='VF1X' 1326 : LESOBL(7) ='VF1Y' 1327 : LESOBL(8) ='VF2X' 1328 : LESOBL(9) ='VF2Y' 1329 : LESOBL(10)='IVL1' 1330 : LESOBL(11)='IVL2' 1331 : LESOBL(12)='LBDC' 1332 : GOTO 666 1333 : ENDIF 1334 : C*OF --> A voir pour le 1D 1335 : C 1336 : C MATERIAU MAZARS_FIB 1337 : C 1338 : 46 CONTINUE 1339 : NBROBL=5 1340 : SEGINI NOMID 1341 : LESOBL( 1) ='EPTI' 1342 : LESOBL( 2) ='VHNI' 1343 : LESOBL( 3) ='VISX' 1344 : LESOBL( 4) ='VISY' 1345 : LESOBL( 5) ='VISZ' 1346 : C 1347 : C MATERIAU AMADEI_SAEB 1348 : C 1349 : 47 CONTINUE 1350 : IF (MFR.NE.35) GOTO 999 1351 : NBROBL=7 1352 : SEGINI NOMID 1353 : LESOBL( 1) ='EPSE' 1354 : LESOBL( 2) ='EPOU' 1355 : LESOBL( 3) ='STAT' 1356 : LESOBL( 4) ='UEQU' 1357 : LESOBL( 5) ='EPS1' 1358 : LESOBL( 6) ='EPS2' 1359 : LESOBL( 7) ='EPS3' 1360 : IPCOMP=NOMID 1361 : SEGDES NOMID 1362 : GOTO 666 1363 : C 1364 : C HUJEUX 1365 : C 1366 : 48 CONTINUE 1367 : NBROBL=2 1368 : SEGINI NOMID 1369 : LESOBL(1)='EPSE' 1370 : LESOBL(2)='TRAP' 1371 : IPCOMP=NOMID 1372 : SEGDES NOMID 1373 : GOTO 666 1374 : C 1375 : 49 CONTINUE 1376 : NBROBL=14 1377 : SEGINI NOMID 1378 : LESOBL(1)='EPSE' 1379 : LESOBL(2)='EPS1' 1380 : LESOBL(3)='EPS2' 1381 : LESOBL(4)='EPS3' 1382 : LESOBL(5)='EPS4' 1383 : LESOBL(6)='EPS5' 1384 : LESOBL(7)='EPS6' 1385 : LESOBL(8)='GTIN' 1386 : LESOBL(9)='EPP1' 1387 : LESOBL(10)='EPP2' 1388 : LESOBL(11)='EPP3' 1389 : LESOBL(12)='EPP4' 1390 : LESOBL(13)='EPP5' 1391 : LESOBL(14)='EPP6' 1392 : IPCOMP=NOMID 1393 : SEGDES NOMID 1394 : GOTO 666 1395 : C 1396 : C 1397 : C****************************************************** 1398 : 97 continue 1399 : 999 CONTINUE 1400 : SEGINI,NOMID 1401 : 1402 : 666 CONTINUE 1403 : IPCOMP=NOMID 1404 : SEGDES,NOMID 1405 : 1406 : RETURN 1407 : END 1408 : 1409 : 1410 : 1411 : 1412 : 1413 : 1414 : 1415 :
© Cast3M 2003 - All rights reserved.
Disclaimer