1 : C IDVAR2 SOURCE FANDEUR 10/02/01 21:15:38 6603 2 : 3 : C======================================================================= 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 IFOUR 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 FACULTATIVES 21 : C======================================================================= 22 : 23 : SUBROUTINE IDVAR2 (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= MODELES DE FLUAGE : BLACKBURN (MATEPL=20) RCCMR-316 (MATEPL=22) 37 : C= ===================== RCCMR-304 (MATEPL=23) BLACKBURN_2 (MATEPL=61) 38 : 39 : * ELEMENT MASSIF 40 : ****************** 41 : IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN 42 : * CAS CONTRAINTES PLANES ou DEFORMATIONS PLANES ou 43 : * DEFORMATIONS PLANES GENERALISEES 44 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 45 : NBROBL=16 46 : SEGINI,NOMID 47 : LESOBL( 1)='PXX ' 48 : LESOBL( 2)='PYY ' 49 : LESOBL( 3)='PZZ ' 50 : LESOBL( 4)='PXY ' 51 : LESOBL( 5)='VNXX' 52 : LESOBL( 6)='VNYY' 53 : LESOBL( 7)='VNZZ' 54 : LESOBL( 8)='VNXY' 55 : LESOBL( 9)='EPCE' 56 : LESOBL(10)='EPSH' 57 : LESOBL(11)='LL ' 58 : LESOBL(12)='EPSE' 59 : LESOBL(13)='ECXX' 60 : LESOBL(14)='ECYY' 61 : LESOBL(15)='ECZZ' 62 : LESOBL(16)='ECXY' 63 : * CAS AXISYMETRIQUE 64 : ELSE IF (IFOUR.EQ.0) THEN 65 : NBROBL=16 66 : SEGINI,NOMID 67 : LESOBL( 1)='PRR ' 68 : LESOBL( 2)='PZZ ' 69 : LESOBL( 3)='PTT ' 70 : LESOBL( 4)='PRZ ' 71 : LESOBL( 5)='VNRR' 72 : LESOBL( 6)='VNZZ' 73 : LESOBL( 7)='VNTT' 74 : LESOBL( 8)='VNRZ' 75 : LESOBL( 9)='EPCE' 76 : LESOBL(10)='EPSH' 77 : LESOBL(11)='LL ' 78 : LESOBL(12)='EPSE' 79 : LESOBL(13)='ECRR' 80 : LESOBL(14)='ECZZ' 81 : LESOBL(15)='ECTT' 82 : LESOBL(16)='ECRZ' 83 : * CAS SERIE DE FOURIER 84 : ELSE IF (IFOUR.EQ.1) THEN 85 : NBROBL=22 86 : SEGINI,NOMID 87 : LESOBL( 1)='PRR ' 88 : LESOBL( 2)='PZZ ' 89 : LESOBL( 3)='PTT ' 90 : LESOBL( 4)='PRZ ' 91 : LESOBL( 5)='PRT ' 92 : LESOBL( 6)='PZT ' 93 : LESOBL( 7)='VNRR' 94 : LESOBL( 8)='VNZZ' 95 : LESOBL( 9)='VNTT' 96 : LESOBL(10)='VNRZ' 97 : LESOBL(11)='VNRT' 98 : LESOBL(12)='VNZT' 99 : LESOBL(13)='EPCE' 100 : LESOBL(14)='EPSH' 101 : LESOBL(15)='LL ' 102 : LESOBL(16)='EPSE' 103 : LESOBL(17)='ECRR' 104 : LESOBL(18)='ECZZ' 105 : LESOBL(19)='ECTT' 106 : LESOBL(20)='ECRZ' 107 : LESOBL(21)='ECRT' 108 : LESOBL(22)='ECZT' 109 : * CAS TRIDIMENSIONNEL 110 : ELSE IF (IFOUR.EQ.2) THEN 111 : NBROBL=22 112 : SEGINI,NOMID 113 : LESOBL( 1)='PXX ' 114 : LESOBL( 2)='PYY ' 115 : LESOBL( 3)='PZZ ' 116 : LESOBL( 4)='PXY ' 117 : LESOBL( 5)='PYZ ' 118 : LESOBL( 6)='PZX ' 119 : LESOBL( 7)='VNXX' 120 : LESOBL( 8)='VNYY' 121 : LESOBL( 9)='VNZZ' 122 : LESOBL(10)='VNXY' 123 : LESOBL(11)='VNYZ' 124 : LESOBL(12)='VNZX' 125 : LESOBL(13)='EPCE' 126 : LESOBL(14)='EPSH' 127 : LESOBL(15)='LL ' 128 : LESOBL(16)='EPSE' 129 : LESOBL(17)='ECXX' 130 : LESOBL(18)='ECYY' 131 : LESOBL(19)='ECZZ' 132 : LESOBL(20)='ECXY' 133 : LESOBL(21)='ECYZ' 134 : LESOBL(22)='ECZX' 135 : * CAS UNDIMENSIONNEL (1D) PLAN 136 : ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN 137 : NBROBL=13 138 : SEGINI,NOMID 139 : LESOBL( 1)='PXX ' 140 : LESOBL( 2)='PYY ' 141 : LESOBL( 3)='PZZ ' 142 : LESOBL( 4)='VNXX' 143 : LESOBL( 5)='VNYY' 144 : LESOBL( 6)='VNZZ' 145 : LESOBL( 7)='EPCE' 146 : LESOBL( 8)='EPSH' 147 : LESOBL( 9)='LL ' 148 : LESOBL(10)='EPSE' 149 : LESOBL(11)='ECXX' 150 : LESOBL(12)='ECYY' 151 : LESOBL(13)='ECZZ' 152 : * CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUE OU SPHERIQUE 153 : ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN 154 : NBROBL=13 155 : SEGINI,NOMID 156 : LESOBL( 1)='PRR ' 157 : LESOBL( 2)='PZZ ' 158 : LESOBL( 3)='PTT ' 159 : LESOBL( 4)='VNRR' 160 : LESOBL( 5)='VNZZ' 161 : LESOBL( 6)='VNTT' 162 : LESOBL( 7)='EPCE' 163 : LESOBL( 8)='EPSH' 164 : LESOBL( 9)='LL ' 165 : LESOBL(10)='EPSE' 166 : LESOBL(11)='ECRR' 167 : LESOBL(12)='ECZZ' 168 : LESOBL(13)='ECTT' 169 : ENDIF 170 : 171 : * ELEMENT COQUE 172 : ***************** 173 : ELSE IF (MFR.EQ.3) THEN 174 : IF (NPINT.EQ.0) THEN 175 : * CAS TRIDIMENSIONNEL et FOURIER 176 : IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN 177 : NBROBL=28 178 : SEGINI,NOMID 179 : LESOBL( 1)='PN11' 180 : LESOBL( 2)='PN22' 181 : LESOBL( 3)='PN33' 182 : LESOBL( 4)='PN12' 183 : LESOBL( 5)='PM11' 184 : LESOBL( 6)='PM22' 185 : LESOBL( 7)='PM33' 186 : LESOBL( 8)='PM12' 187 : LESOBL( 9)='NN11' 188 : LESOBL(10)='NN22' 189 : LESOBL(11)='NN33' 190 : LESOBL(12)='NN12' 191 : LESOBL(13)='NM11' 192 : LESOBL(14)='NM22' 193 : LESOBL(15)='NM33' 194 : LESOBL(16)='NM12' 195 : LESOBL(17)='EPCE' 196 : LESOBL(18)='EPSH' 197 : LESOBL(19)='LL ' 198 : LESOBL(20)='EPSE' 199 : LESOBL(21)='EN11' 200 : LESOBL(22)='EN22' 201 : LESOBL(23)='EN33' 202 : LESOBL(24)='EN12' 203 : LESOBL(25)='EM11' 204 : LESOBL(26)='EM22' 205 : LESOBL(27)='EM23' 206 : LESOBL(28)='EM12' 207 : * CAS AXISYMETRIQUE 208 : ELSE IF (IFOUR.EQ.0) THEN 209 : NBROBL=22 210 : SEGINI,NOMID 211 : LESOBL( 1)='PN11' 212 : LESOBL( 2)='PN22' 213 : LESOBL( 3)='PN33' 214 : LESOBL( 4)='PM11' 215 : LESOBL( 5)='PM22' 216 : LESOBL( 6)='PM33' 217 : LESOBL( 7)='NN11' 218 : LESOBL( 8)='NN22' 219 : LESOBL( 9)='NM33' 220 : LESOBL(10)='NM11' 221 : LESOBL(11)='NM22' 222 : LESOBL(12)='NM33' 223 : LESOBL(13)='EPCE' 224 : LESOBL(14)='EPSH' 225 : LESOBL(15)='LL ' 226 : LESOBL(16)='EPSE' 227 : LESOBL(17)='EN11' 228 : LESOBL(18)='EN22' 229 : LESOBL(19)='EN33' 230 : LESOBL(20)='EM11' 231 : LESOBL(21)='EM22' 232 : LESOBL(22)='EM33' 233 : * CAS CONTRAINTES OU DEFORMATIONS PLANES ou 234 : * DEFORMATIONS PLANES GENERALISEES 235 : ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 236 : NBROBL=22 237 : SEGINI,NOMID 238 : LESOBL( 1)='PN11' 239 : LESOBL( 2)='PN22' 240 : LESOBL( 3)='PN33' 241 : LESOBL( 4)='PM11' 242 : LESOBL( 5)='PM22' 243 : LESOBL( 6)='PM33' 244 : LESOBL( 7)='NN11' 245 : LESOBL( 8)='NN22' 246 : LESOBL( 9)='NM33' 247 : LESOBL(10)='NM11' 248 : LESOBL(11)='NM22' 249 : LESOBL(12)='NM33' 250 : LESOBL(13)='EPCE' 251 : LESOBL(14)='EPSH' 252 : LESOBL(15)='LL ' 253 : LESOBL(16)='EPSE' 254 : LESOBL(17)='EN11' 255 : LESOBL(18)='EN22' 256 : LESOBL(19)='EN33' 257 : LESOBL(20)='EM11' 258 : LESOBL(21)='EM22' 259 : LESOBL(22)='EM33' 260 : ENDIF 261 : ELSE 262 : IF (IFOUR.EQ.2) THEN 263 : NBROBL=16 264 : SEGINI,NOMID 265 : LESOBL( 1)='PMSS' 266 : LESOBL( 2)='PMTT' 267 : LESOBL( 3)='PMNN' 268 : LESOBL( 4)='PMST' 269 : LESOBL( 5)='NMSS' 270 : LESOBL( 6)='NMTT' 271 : LESOBL( 7)='NMNN' 272 : LESOBL( 8)='NMST' 273 : LESOBL( 9)='EPCE' 274 : LESOBL(10)='EPSH' 275 : LESOBL(11)='LL ' 276 : LESOBL(12)='EPSE' 277 : LESOBL(13)='EMSS' 278 : LESOBL(14)='EMTT' 279 : LESOBL(15)='EMNN' 280 : LESOBL(16)='EMST' 281 : ENDIF 282 : ENDIF 283 : 284 : * ELEMENT COQUE EPAISSE 285 : ************************* 286 : ELSE IF (MFR.EQ.5) THEN 287 : * CAS TRIDIMENSIONNEL 288 : IF (IFOUR.EQ.2) THEN 289 : NBROBL=22 290 : SEGINI,NOMID 291 : LESOBL( 1)='PMSS' 292 : LESOBL( 2)='PMTT' 293 : LESOBL( 3)='PMNN' 294 : LESOBL( 4)='PMST' 295 : LESOBL( 5)='PMSN' 296 : LESOBL( 6)='PMTN' 297 : LESOBL( 7)='NMSS' 298 : LESOBL( 8)='NMTT' 299 : LESOBL( 9)='NMNN' 300 : LESOBL(10)='NMST' 301 : LESOBL(11)='NMSN' 302 : LESOBL(12)='NMTN' 303 : LESOBL(13)='EPCE' 304 : LESOBL(14)='EPSH' 305 : LESOBL(15)='LL ' 306 : LESOBL(16)='EPSE' 307 : LESOBL(17)='EMSS' 308 : LESOBL(18)='EMTT' 309 : LESOBL(19)='EMNN' 310 : LESOBL(20)='EMST' 311 : LESOBL(21)='EMSN' 312 : LESOBL(22)='EMTN' 313 : ENDIF 314 : 315 : * ELEMENTS POUTRE ET TUYAU 316 : **************************** 317 : ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN 318 : * CAS TRIDIMENSIONNEL 319 : IF (IFOUR.EQ.2) THEN 320 : NBROBL=22 321 : SEGINI,NOMID 322 : LESOBL( 1)='PEFX' 323 : LESOBL( 2)='PEFY' 324 : LESOBL( 3)='PEFZ' 325 : LESOBL( 4)='PMOX' 326 : LESOBL( 5)='PMOY' 327 : LESOBL( 6)='PMOZ' 328 : LESOBL( 7)='NEFX' 329 : LESOBL( 8)='NEFY' 330 : LESOBL( 9)='NEFZ' 331 : LESOBL(10)='NMOX' 332 : LESOBL(11)='EMOY' 333 : LESOBL(12)='EMOZ' 334 : LESOBL(13)='EPCE' 335 : LESOBL(14)='EPCF' 336 : LESOBL(15)='LL ' 337 : LESOBL(16)='EPSE' 338 : LESOBL(17)='EEFX' 339 : LESOBL(18)='EEFY' 340 : LESOBL(19)='EEFZ' 341 : LESOBL(20)='EMOX' 342 : LESOBL(21)='ENOY' 343 : LESOBL(22)='ENOZ' 344 : ENDIF 345 : 346 : * ELEMENT COQUE CISAILLEMENT TRANSVERSE 347 : ***************************************** 348 : ELSE IF (MFR.EQ.9) THEN 349 : IF (NPINT.EQ.0) THEN 350 : IF (IFOUR.EQ.2) THEN 351 : * CAS TRIDIMENSIONNEL 352 : NBROBL=28 353 : SEGINI,NOMID 354 : LESOBL( 1)='PN11' 355 : LESOBL( 2)='PN22' 356 : LESOBL( 3)='PN12' 357 : LESOBL( 4)='PM11' 358 : LESOBL( 5)='PM22' 359 : LESOBL( 6)='PM12' 360 : LESOBL( 7)='PV1 ' 361 : LESOBL( 8)='PV2 ' 362 : LESOBL( 9)='NN11' 363 : LESOBL(10)='NN22' 364 : LESOBL(11)='NN12' 365 : LESOBL(12)='NM11' 366 : LESOBL(13)='NM22' 367 : LESOBL(14)='NM12' 368 : LESOBL(15)='NV1 ' 369 : LESOBL(16)='NV2 ' 370 : LESOBL(17)='EPCE' 371 : LESOBL(18)='EPSH' 372 : LESOBL(19)='LL ' 373 : LESOBL(20)='EPSE' 374 : LESOBL(22)='EN11' 375 : LESOBL(22)='EN22' 376 : LESOBL(23)='EN12' 377 : LESOBL(24)='EM11' 378 : LESOBL(25)='EM22' 379 : LESOBL(26)='EM12' 380 : LESOBL(27)='EV1 ' 381 : LESOBL(28)='EV2 ' 382 : ENDIF 383 : ENDIF 384 : 385 : * FORMULATION MEMBRANE 386 : ************************ 387 : ELSE IF (MFR.EQ.25) THEN 388 : NBROBL=13 389 : SEGINI,NOMID 390 : LESOBL( 1)='PMSS' 391 : LESOBL( 2)='PMTT' 392 : LESOBL( 3)='PMST' 393 : LESOBL( 4)='NMSS' 394 : LESOBL( 5)='NMTT' 395 : LESOBL( 6)='NMST' 396 : LESOBL( 7)='EPCE' 397 : LESOBL( 8)='EPSH' 398 : LESOBL( 9)='LL ' 399 : LESOBL(10)='EPSE' 400 : LESOBL(11)='EMSS' 401 : LESOBL(12)='EMTT' 402 : LESOBL(13)='EMST' 403 : 404 : * FORMULATION UNIAXIALE 405 : ************************* 406 : ELSE IF (MFR.EQ.27) THEN 407 : NBROBL=7 408 : SEGINI,NOMID 409 : LESOBL(1)='PEFX' 410 : LESOBL(2)='NEFX' 411 : LESOBL(3)='EPCE' 412 : LESOBL(4)='EPSH' 413 : LESOBL(5)='LL ' 414 : LESOBL(6)='EPSE' 415 : LESOBL(7)='EEFX' 416 : ENDIF 417 : 418 : IPCOMP=NOMID 419 : SEGDES,NOMID 420 : 421 : RETURN 422 : END 423 : 424 : 425 : 426 :
© Cast3M 2003 - All rights reserved.
Disclaimer