1 : C IDVAR8 SOURCE FANDEUR 10/02/01 21:15:49 6603 2 : 3 : C======================================================================= 4 : C= RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES 5 : C= -------------------------------------------------------- 6 : C= 7 : C= ENTREES : 8 : C= --------- 9 : C= MATEPL NUMERO DU MATERIAU PLASTIQUE 10 : C= MFR NUMERO DE FORMULATION 11 : C= IFOUR VALEUR DE IFOU DANS CCOPTIO 12 : C= NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR 13 : C= POUR LES ELEMENTS DE COQUE INTEGRES 14 : C= 15 : C= SORTIES : 16 : C= --------- 17 : C= IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES 18 : C= OBLIGATOIRES ET FACULTATIVES 19 : C= NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES 20 : C= NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES 21 : C======================================================================= 22 : 23 : SUBROUTINE IDVAR8 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC) 24 : 25 : IMPLICIT INTEGER(I-N) 26 : IMPLICIT REAL*8 (A-H,O-Z) 27 : 28 : SEGMENT NOMID 29 : CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC) 30 : ENDSEGMENT 31 : 32 : NBROBL=0 33 : NBRFAC=0 34 : NOMID=0 35 : 36 : C= Modele de NOUAILLAS_A 37 : C= ======================== 38 : IF (MATEPL.EQ.76) THEN 39 : 40 : * ELEMENT MASSIF 41 : ******************** 42 : IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 1001 43 : * 44 : * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 45 : * OU DEFORMATIONS PLANES GENERALISEES 46 : * 47 : IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040 48 : NBROBL=20 49 : SEGINI,NOMID 50 : LESOBL( 1)='A1XX' 51 : LESOBL( 2)='A1YY' 52 : LESOBL( 3)='A1ZZ' 53 : LESOBL( 4)='A1XY' 54 : LESOBL( 5)='A2XX' 55 : LESOBL( 6)='A2YY' 56 : LESOBL( 7)='A2ZZ' 57 : LESOBL( 8)='A2XY' 58 : LESOBL( 9)='GPXX' 59 : LESOBL(10)='GPYY' 60 : LESOBL(11)='GPZZ' 61 : LESOBL(12)='GPXY' 62 : LESOBL(13)='VHXX' 63 : LESOBL(14)='VHYY' 64 : LESOBL(15)='VHZZ' 65 : LESOBL(16)='VHXY' 66 : LESOBL(17)='EPSE' 67 : LESOBL(18)='VHRR' 68 : LESOBL(19)='VQQQ' 69 : LESOBL(20)='VHQQ' 70 : * 71 : * CAS AXISYMETRIQUE 72 : * 73 : 1040 IF (IFOUR.NE.0) GOTO 1041 74 : NBROBL=20 75 : SEGINI,NOMID 76 : LESOBL( 1)='A1RR' 77 : LESOBL( 2)='A1ZZ' 78 : LESOBL( 3)='A1TT' 79 : LESOBL( 4)='A1RZ' 80 : LESOBL( 5)='A2RR' 81 : LESOBL( 6)='A2ZZ' 82 : LESOBL( 7)='A2TT' 83 : LESOBL( 8)='A2RZ' 84 : LESOBL( 9)='GPRR' 85 : LESOBL(10)='GPZZ' 86 : LESOBL(11)='GPTT' 87 : LESOBL(12)='GPRZ' 88 : LESOBL(13)='VHRR' 89 : LESOBL(14)='VHZZ' 90 : LESOBL(15)='VHTT' 91 : LESOBL(16)='VHRZ' 92 : LESOBL(17)='EPSE' 93 : LESOBL(18)='VHRR' 94 : LESOBL(19)='VQQQ' 95 : LESOBL(20)='VHQQ' 96 : * 97 : * CAS SERIE DE FOURIER 98 : * 99 : 1041 IF (IFOUR.NE.1) GOTO 1042 100 : NBROBL=28 101 : SEGINI,NOMID 102 : LESOBL( 1)='A1RR' 103 : LESOBL( 2)='A1ZZ' 104 : LESOBL( 3)='A1TT' 105 : LESOBL( 4)='A1RZ' 106 : LESOBL( 5)='A1RT' 107 : LESOBL( 6)='A1ZT' 108 : LESOBL( 7)='A2RR' 109 : LESOBL( 8)='A2ZZ' 110 : LESOBL( 9)='A2TT' 111 : LESOBL(10)='A2RZ' 112 : LESOBL(11)='A2RT' 113 : LESOBL(12)='A2ZT' 114 : LESOBL(13)='GPRR' 115 : LESOBL(14)='GPZZ' 116 : LESOBL(15)='GPTT' 117 : LESOBL(16)='GPRZ' 118 : LESOBL(17)='GPRT' 119 : LESOBL(18)='GPZT' 120 : LESOBL(19)='VHRR' 121 : LESOBL(20)='VHZZ' 122 : LESOBL(21)='VHTT' 123 : LESOBL(22)='VHRZ' 124 : LESOBL(23)='VHRT' 125 : LESOBL(24)='VHZT' 126 : LESOBL(25)='EPSE' 127 : LESOBL(26)='VHRR' 128 : LESOBL(27)='VQQQ' 129 : LESOBL(28)='VHQQ' 130 : * 131 : * CAS TRIDIMENSIONNEL 132 : * 133 : 1042 IF (IFOUR.NE.2) GOTO 1043 134 : NBROBL=28 135 : SEGINI,NOMID 136 : LESOBL( 1)='A1XX' 137 : LESOBL( 2)='A1YY' 138 : LESOBL( 3)='A1ZZ' 139 : LESOBL( 4)='A1XY' 140 : LESOBL( 5)='A1YZ' 141 : LESOBL( 6)='A1ZX' 142 : LESOBL( 7)='A2XX' 143 : LESOBL( 8)='A2YY' 144 : LESOBL( 9)='A2ZZ' 145 : LESOBL(10)='A2XY' 146 : LESOBL(11)='A2YZ' 147 : LESOBL(12)='A2ZX' 148 : LESOBL(13)='GPXX' 149 : LESOBL(14)='GPYY' 150 : LESOBL(15)='GPZZ' 151 : LESOBL(16)='GPXY' 152 : LESOBL(17)='GPYZ' 153 : LESOBL(18)='GPZX' 154 : LESOBL(19)='VHXX' 155 : LESOBL(20)='VHYY' 156 : LESOBL(21)='VHZZ' 157 : LESOBL(22)='VHXY' 158 : LESOBL(23)='VHYZ' 159 : LESOBL(24)='VHZX' 160 : LESOBL(25)='EPSE' 161 : LESOBL(26)='VHRR' 162 : LESOBL(27)='VQQQ' 163 : LESOBL(28)='VHQQ' 164 : C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN 165 : 1043 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044 166 : NBROBL=16 167 : SEGINI,NOMID 168 : LESOBL( 1)='A1XX' 169 : LESOBL( 2)='A1YY' 170 : LESOBL( 3)='A1ZZ' 171 : LESOBL( 4)='A2XX' 172 : LESOBL( 5)='A2YY' 173 : LESOBL( 6)='A2ZZ' 174 : LESOBL( 7)='GPXX' 175 : LESOBL( 8)='GPYY' 176 : LESOBL( 9)='GPZZ' 177 : LESOBL(10)='VHXX' 178 : LESOBL(11)='VHYY' 179 : LESOBL(12)='VHZZ' 180 : LESOBL(13)='EPSE' 181 : LESOBL(14)='VHRR' 182 : LESOBL(15)='VQQQ' 183 : LESOBL(16)='VHQQ' 184 : C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE 185 : 1044 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 99 186 : NBROBL=16 187 : SEGINI,NOMID 188 : LESOBL( 1)='A1XX' 189 : LESOBL( 2)='A1YY' 190 : LESOBL( 3)='A1ZZ' 191 : LESOBL( 4)='A2XX' 192 : LESOBL( 5)='A2YY' 193 : LESOBL( 6)='A2ZZ' 194 : LESOBL( 7)='GPXX' 195 : LESOBL( 8)='GPYY' 196 : LESOBL( 9)='GPZZ' 197 : LESOBL(10)='VHXX' 198 : LESOBL(11)='VHYY' 199 : LESOBL(12)='VHZZ' 200 : LESOBL(13)='EPSE' 201 : LESOBL(14)='VHRR' 202 : LESOBL(15)='VQQQ' 203 : LESOBL(16)='VHQQ' 204 : 205 : * COQUE 206 : *********** 207 : 1001 IF (MFR.NE.3) GOTO 1003 208 : IF (NPINT.EQ.0) THEN 209 : * 210 : * CAS TRIDIMENSIONNEL - FOURIER 211 : * 212 : IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN 213 : NBROBL=36 214 : SEGINI,NOMID 215 : LESOBL( 1)='A1N1' 216 : LESOBL( 2)='A1N2' 217 : LESOBL( 3)='A1N3' 218 : LESOBL( 4)='A1N4' 219 : LESOBL( 5)='A1M1' 220 : LESOBL( 6)='A1M2' 221 : LESOBL( 7)='A1M3' 222 : LESOBL( 8)='A1M4' 223 : LESOBL( 9)='A2N1' 224 : LESOBL(10)='A2N2' 225 : LESOBL(11)='A2N3' 226 : LESOBL(12)='A2N4' 227 : LESOBL(13)='A2M1' 228 : LESOBL(14)='A2M2' 229 : LESOBL(15)='A2M3' 230 : LESOBL(16)='A2M4' 231 : LESOBL(17)='GPN1' 232 : LESOBL(18)='GPN2' 233 : LESOBL(19)='GPN3' 234 : LESOBL(20)='GPN4' 235 : LESOBL(21)='GPM1' 236 : LESOBL(22)='GPM2' 237 : LESOBL(23)='GPM3' 238 : LESOBL(24)='GPM4' 239 : LESOBL(25)='EPN1' 240 : LESOBL(26)='EPN2' 241 : LESOBL(27)='EPN3' 242 : LESOBL(28)='EPN4' 243 : LESOBL(29)='EPM1' 244 : LESOBL(30)='EPM2' 245 : LESOBL(31)='EPM3' 246 : LESOBL(32)='EPM4' 247 : LESOBL(33)='EPSE' 248 : LESOBL(34)='VHRR' 249 : LESOBL(35)='VQQQ' 250 : LESOBL(36)='VHQQ' 251 : * 252 : * CAS AXISYMETRIQUE 253 : * 254 : ELSE IF (IFOUR.EQ.0) THEN 255 : NBROBL=28 256 : SEGINI NOMID 257 : LESOBL( 1)='A1N1' 258 : LESOBL( 2)='A1N2' 259 : LESOBL( 3)='A1N3' 260 : LESOBL( 4)='A1M1' 261 : LESOBL( 5)='A1M2' 262 : LESOBL( 6)='A1M3' 263 : LESOBL( 7)='A2N1' 264 : LESOBL( 8)='A2N2' 265 : LESOBL( 9)='A2N3' 266 : LESOBL(10)='A2M1' 267 : LESOBL(11)='A2M2' 268 : LESOBL(12)='A2M3' 269 : LESOBL(13)='GPN1' 270 : LESOBL(14)='GPN2' 271 : LESOBL(15)='GPN3' 272 : LESOBL(16)='GPM1' 273 : LESOBL(17)='GPM2' 274 : LESOBL(18)='GPM3' 275 : LESOBL(19)='EPN1' 276 : LESOBL(20)='EPN2' 277 : LESOBL(21)='EPN3' 278 : LESOBL(22)='EPM1' 279 : LESOBL(23)='EPM2' 280 : LESOBL(24)='EPM3' 281 : LESOBL(25)='EPSE' 282 : LESOBL(26)='VHRR' 283 : LESOBL(27)='VQQQ' 284 : LESOBL(28)='VHQQ' 285 : * 286 : * CAS CONTRAINTES OU DEFORMATIONS PLANES 287 : * OU DEFORMATIONS PLANES GENERALISEES 288 : * 289 : ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 290 : NBROBL=28 291 : SEGINI NOMID 292 : LESOBL(1) ='A1N1' 293 : LESOBL(2) ='A1N2' 294 : LESOBL(3) ='A1N3' 295 : LESOBL(4) ='A1M1' 296 : LESOBL(5) ='A1M2' 297 : LESOBL(6) ='A1M3' 298 : LESOBL(7) ='A2N1' 299 : LESOBL(8) ='A2N2' 300 : LESOBL(9) ='A2N3' 301 : LESOBL(10)='A2M1' 302 : LESOBL(11)='A2M2' 303 : LESOBL(12)='A2M3' 304 : LESOBL(13)='GPN1' 305 : LESOBL(14)='GPN2' 306 : LESOBL(15)='GPN3' 307 : LESOBL(16)='GPM1' 308 : LESOBL(17)='GPM2' 309 : LESOBL(18)='GPM3' 310 : LESOBL(19)='EPN1' 311 : LESOBL(20)='EPN2' 312 : LESOBL(21)='EPN3' 313 : LESOBL(22)='EPM1' 314 : LESOBL(23)='EPM2' 315 : LESOBL(24)='EPM3' 316 : LESOBL(25)='EPSE' 317 : LESOBL(26)='VHRR' 318 : LESOBL(27)='VQQQ' 319 : LESOBL(28)='VHQQ' 320 : ENDIF 321 : ELSE 322 : IF (IFOUR.EQ.2) THEN 323 : NBROBL=20 324 : SEGINI NOMID 325 : LESOBL(1) ='A1SS' 326 : LESOBL(2) ='A1TT' 327 : LESOBL(3) ='A1NN' 328 : LESOBL(4) ='A1ST' 329 : LESOBL(5) ='A2SS' 330 : LESOBL(6) ='A2TT' 331 : LESOBL(7) ='A2NN' 332 : LESOBL(8) ='A2ST' 333 : LESOBL(9) ='GPSS' 334 : LESOBL(10)='GPTT' 335 : LESOBL(11)='GPNN' 336 : LESOBL(12)='GPST' 337 : LESOBL(13)='VHSS' 338 : LESOBL(14)='VHTT' 339 : LESOBL(15)='VHNN' 340 : LESOBL(16)='VHST' 341 : LESOBL(17)='EPSE' 342 : LESOBL(18)='VHRR' 343 : LESOBL(19)='VQQQ' 344 : LESOBL(20)='VHQQ' 345 : ENDIF 346 : ENDIF 347 : 348 : * COQUE EPAISSE 349 : ******************** 350 : 1003 IF (MFR.NE.5) GOTO 1005 351 : IF (IFOUR.NE.2) GOTO 99 352 : * CAS TRIDIMENSIONNEL 353 : NBROBL=28 354 : SEGINI NOMID 355 : LESOBL(1) ='A1SS' 356 : LESOBL(2) ='A1TT' 357 : LESOBL(3) ='A1NN' 358 : LESOBL(4) ='A1ST' 359 : LESOBL(5) ='A1SN' 360 : LESOBL(6) ='A1TN' 361 : LESOBL(7) ='A2SS' 362 : LESOBL(8) ='A2TT' 363 : LESOBL(9) ='A2NN' 364 : LESOBL(10)='A2ST' 365 : LESOBL(11)='A2SN' 366 : LESOBL(12)='A2TN' 367 : LESOBL(13)='GPSS' 368 : LESOBL(14)='GPTT' 369 : LESOBL(15)='GPNN' 370 : LESOBL(16)='GPST' 371 : LESOBL(17)='GPSN' 372 : LESOBL(18)='GPTN' 373 : LESOBL(19)='VHSS' 374 : LESOBL(20)='VHTT' 375 : LESOBL(21)='VHNN' 376 : LESOBL(22)='VHST' 377 : LESOBL(23)='VHSN' 378 : LESOBL(24)='VHTN' 379 : LESOBL(25)='EPSE' 380 : LESOBL(26)='VHRR' 381 : LESOBL(27)='VQQQ' 382 : LESOBL(28)='VHQQ' 383 : 384 : * POUTRE ET TUYAU 385 : ********************* 386 : 1005 IF (MFR.NE.7.AND.MFR.NE.13) GOTO 1007 387 : * 388 : * CAS TRIDIMENSIONNEL 389 : * 390 : IF (IFOUR.NE.2) GOTO 99 391 : NBROBL=28 392 : SEGINI NOMID 393 : LESOBL(1) ='A1FX' 394 : LESOBL(2) ='A1FY' 395 : LESOBL(3) ='A1FZ' 396 : LESOBL(4) ='A1MX' 397 : LESOBL(5) ='A1MY' 398 : LESOBL(6) ='A1MZ' 399 : LESOBL(7) ='A2FX' 400 : LESOBL(8) ='A2FY' 401 : LESOBL(9) ='A2FZ' 402 : LESOBL(10)='A2MX' 403 : LESOBL(11)='A2MY' 404 : LESOBL(12)='A2MZ' 405 : LESOBL(13)='GPFX' 406 : LESOBL(14)='GPFY' 407 : LESOBL(15)='GPFZ' 408 : LESOBL(16)='GPMX' 409 : LESOBL(17)='GPMY' 410 : LESOBL(18)='GPMZ' 411 : LESOBL(19)='EPFX' 412 : LESOBL(20)='EPFY' 413 : LESOBL(21)='EPFZ' 414 : LESOBL(22)='EPMX' 415 : LESOBL(23)='EPMY' 416 : LESOBL(24)='EPMZ' 417 : LESOBL(25)='EPSE' 418 : LESOBL(26)='VHRR' 419 : LESOBL(27)='VQQQ' 420 : LESOBL(28)='VHQQ' 421 : 422 : * COQUE CISAILLEMENT TRANSVERSE 423 : *********************************** 424 : 1007 IF (MFR.NE.9) GOTO 1009 425 : IF (NPINT.EQ.0) THEN 426 : * CAS TRIDIMENSIONNEL 427 : IF (IFOUR.EQ.2) THEN 428 : NBROBL=36 429 : SEGINI,NOMID 430 : LESOBL(1) ='A1N1' 431 : LESOBL(2) ='A1N2' 432 : LESOBL(3) ='A1N3' 433 : LESOBL(4) ='A1M1' 434 : LESOBL(5) ='A1M2' 435 : LESOBL(6) ='A1M3' 436 : LESOBL(7) ='A1V1' 437 : LESOBL(8) ='A1V2' 438 : LESOBL(9) ='A2N1' 439 : LESOBL(10)='A2N2' 440 : LESOBL(11)='A2N3' 441 : LESOBL(12)='A2M1' 442 : LESOBL(13)='A2M2' 443 : LESOBL(14)='A2M3' 444 : LESOBL(15)='A2V1' 445 : LESOBL(16)='A2V2' 446 : LESOBL(17)='GPN1' 447 : LESOBL(18)='GPN2' 448 : LESOBL(19)='GPN3' 449 : LESOBL(20)='GPM1' 450 : LESOBL(21)='GPM2' 451 : LESOBL(22)='GPM3' 452 : LESOBL(23)='GPV1' 453 : LESOBL(24)='GPV2' 454 : LESOBL(25)='EPN1' 455 : LESOBL(26)='EPN2' 456 : LESOBL(27)='EPN3' 457 : LESOBL(28)='EPM1' 458 : LESOBL(29)='EPM2' 459 : LESOBL(30)='EPM3' 460 : LESOBL(31)='EPV1' 461 : LESOBL(32)='EPV2' 462 : LESOBL(33)='EPSE' 463 : LESOBL(34)='VHRR' 464 : LESOBL(35)='VQQQ' 465 : LESOBL(36)='VHQQ' 466 : ENDIF 467 : ENDIF 468 : 469 : * FORMULATION MEMBRANE 470 : ************************** 471 : 1009 CONTINUE 472 : IF(MFR.NE.25) GOTO 1025 473 : NBROBL=16 474 : SEGINI,NOMID 475 : LESOBL( 1)='A1SS' 476 : LESOBL( 2)='A1TT' 477 : LESOBL( 3)='A1ST' 478 : LESOBL( 4)='A2SS' 479 : LESOBL( 5)='A2TT' 480 : LESOBL( 6)='A2ST' 481 : LESOBL( 7)='GPSS' 482 : LESOBL( 8)='GPTT' 483 : LESOBL( 9)='GPST' 484 : LESOBL(10)='VHSS' 485 : LESOBL(11)='VHTT' 486 : LESOBL(12)='VHST' 487 : LESOBL(13)='EPSE' 488 : LESOBL(14)='VHRR' 489 : LESOBL(15)='VQQQ' 490 : LESOBL(16)='VHQQ' 491 : 492 : * FORMULATION UNIAXIALE 493 : *************************** 494 : 1025 IF (MFR.EQ.27) THEN 495 : NBROBL=8 496 : SEGINI,NOMID 497 : LESOBL(1)='A1FX' 498 : LESOBL(2)='A2FX' 499 : LESOBL(3)='GPFX' 500 : LESOBL(4)='EPFX' 501 : LESOBL(5)='EPSE' 502 : LESOBL(6)='VHRR' 503 : LESOBL(7)='VQQQ' 504 : LESOBL(8)='VHQQ' 505 : ENDIF 506 : 507 : ENDIF 508 : 509 : 99 IPCOMP=NOMID 510 : SEGDES,NOMID 511 : 512 : RETURN 513 : END 514 : 515 : 516 :
© Cast3M 2003 - All rights reserved.
Disclaimer