1 : C IDVAR9 SOURCE FANDEUR 10/02/01 21:15:52 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 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 : C======================================================================= 22 : 23 : SUBROUTINE IDVAR9 (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_B 37 : C= ======================= 38 : IF (MATEPL.EQ.77) THEN 39 : 40 : * ELEMENT MASSIF 41 : ******************** 42 : IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN 43 : * 44 : * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 45 : * OU DEFORMATIONS PLANES GENERALISEES 46 : * 47 : IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN 48 : NBROBL=13 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)='VLXX' 59 : LESOBL(10)='VLYY' 60 : LESOBL(11)='VLZZ' 61 : LESOBL(12)='VLXY' 62 : LESOBL(13)='EPSE' 63 : * 64 : * CAS AXISYMETRIQUE 65 : * 66 : ELSE IF (IFOUR.EQ.0) THEN 67 : NBROBL=13 68 : SEGINI,NOMID 69 : LESOBL( 1)='A1RR' 70 : LESOBL( 2)='A1ZZ' 71 : LESOBL( 3)='A1TT' 72 : LESOBL( 4)='A1RZ' 73 : LESOBL( 5)='A2RR' 74 : LESOBL( 6)='A2ZZ' 75 : LESOBL( 7)='A2TT' 76 : LESOBL( 8)='A2RZ' 77 : LESOBL( 9)='VLRR' 78 : LESOBL(10)='VLZZ' 79 : LESOBL(11)='VLTT' 80 : LESOBL(12)='VLRZ' 81 : LESOBL(13)='EPSE' 82 : * 83 : * CAS SERIE DE FOURIER 84 : * 85 : ELSE IF (IFOUR.EQ.1) THEN 86 : NBROBL=19 87 : SEGINI,NOMID 88 : LESOBL( 1)='A1RR' 89 : LESOBL( 2)='A1ZZ' 90 : LESOBL( 3)='A1TT' 91 : LESOBL( 4)='A1RZ' 92 : LESOBL( 5)='A1RT' 93 : LESOBL( 6)='A1ZT' 94 : LESOBL( 7)='A2RR' 95 : LESOBL( 8)='A2ZZ' 96 : LESOBL( 9)='A2TT' 97 : LESOBL(10)='A2RZ' 98 : LESOBL(11)='A2RT' 99 : LESOBL(12)='A2ZT' 100 : LESOBL(13)='VLRR' 101 : LESOBL(14)='VLZZ' 102 : LESOBL(15)='VLTT' 103 : LESOBL(16)='VLRZ' 104 : LESOBL(17)='VLRT' 105 : LESOBL(18)='VLZT' 106 : LESOBL(19)='EPSE' 107 : * 108 : * CAS TRIDIMENSIONNEL 109 : * 110 : ELSE IF (IFOUR.EQ.2) THEN 111 : NBROBL=19 112 : SEGINI,NOMID 113 : LESOBL( 1)='A1XX' 114 : LESOBL( 2)='A1YY' 115 : LESOBL( 3)='A1ZZ' 116 : LESOBL( 4)='A1XY' 117 : LESOBL( 5)='A1YZ' 118 : LESOBL( 6)='A1ZX' 119 : LESOBL( 7)='A2XX' 120 : LESOBL( 8)='A2YY' 121 : LESOBL( 9)='A2ZZ' 122 : LESOBL(10)='A2XY' 123 : LESOBL(11)='A2YZ' 124 : LESOBL(12)='A2ZX' 125 : LESOBL(13)='VLXX' 126 : LESOBL(14)='VLYY' 127 : LESOBL(15)='VLZZ' 128 : LESOBL(16)='VLXY' 129 : LESOBL(17)='VLYZ' 130 : LESOBL(18)='VLZX' 131 : LESOBL(19)='EPSE' 132 : NBROBL=13 133 : * 134 : * CAS UNIDIMENSIONNELS (1D) PLAN 135 : * 136 : ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN 137 : NBROBL=10 138 : SEGINI,NOMID 139 : LESOBL( 1)='A1XX' 140 : LESOBL( 2)='A1YY' 141 : LESOBL( 3)='A1ZZ' 142 : LESOBL( 4)='A2XX' 143 : LESOBL( 5)='A2YY' 144 : LESOBL( 6)='A2ZZ' 145 : LESOBL( 7)='VLXX' 146 : LESOBL( 8)='VLYY' 147 : LESOBL( 9)='VLZZ' 148 : LESOBL(10)='EPSE' 149 : * 150 : * CAS UNIDIMENSIONNELS (1D) AXIS et SPHE 151 : * 152 : ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN 153 : NBROBL=10 154 : SEGINI,NOMID 155 : LESOBL( 1)='A1RR' 156 : LESOBL( 2)='A1ZZ' 157 : LESOBL( 3)='A1TT' 158 : LESOBL( 4)='A2RR' 159 : LESOBL( 5)='A2ZZ' 160 : LESOBL( 6)='A2TT' 161 : LESOBL( 7)='VLRR' 162 : LESOBL( 8)='VLZZ' 163 : LESOBL( 9)='VLTT' 164 : LESOBL(10)='EPSE' 165 : ENDIF 166 : 167 : * COQUE 168 : *********** 169 : ELSE IF (MFR.EQ.3) THEN 170 : * 171 : IF (NPINT.EQ.0) THEN 172 : * 173 : * CAS TRIDIMENSIONNEL FOURIER 174 : * 175 : IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN 176 : NBROBL=25 177 : SEGINI,NOMID 178 : LESOBL( 1)='A1N1' 179 : LESOBL( 2)='A1N2' 180 : LESOBL( 3)='A1N3' 181 : LESOBL( 4)='A1N4' 182 : LESOBL( 5)='A1M1' 183 : LESOBL( 6)='A1M2' 184 : LESOBL( 7)='A1M3' 185 : LESOBL( 8)='A1M4' 186 : LESOBL( 9)='A2N1' 187 : LESOBL(10)='A2N2' 188 : LESOBL(11)='A2N3' 189 : LESOBL(12)='A2N4' 190 : LESOBL(13)='A2M1' 191 : LESOBL(14)='A2M2' 192 : LESOBL(15)='A2M3' 193 : LESOBL(16)='A2M4' 194 : LESOBL(17)='EPN1' 195 : LESOBL(18)='EPN2' 196 : LESOBL(19)='EPN3' 197 : LESOBL(20)='EPN4' 198 : LESOBL(21)='EPM1' 199 : LESOBL(22)='EPM2' 200 : LESOBL(23)='EPM3' 201 : LESOBL(24)='EPM4' 202 : LESOBL(25)='EPSE' 203 : * 204 : * CAS AXISYMETRIQUE 205 : * 206 : ELSE IF (IFOUR.EQ.0) THEN 207 : NBROBL=19 208 : SEGINI,NOMID 209 : LESOBL( 1)='A1N1' 210 : LESOBL( 2)='A1N2' 211 : LESOBL( 3)='A1N3' 212 : LESOBL( 4)='A1M1' 213 : LESOBL( 5)='A1M2' 214 : LESOBL( 6)='A1M3' 215 : LESOBL( 7)='A2N1' 216 : LESOBL( 8)='A2N2' 217 : LESOBL( 9)='A2N3' 218 : LESOBL(10)='A2M1' 219 : LESOBL(11)='A2M2' 220 : LESOBL(12)='A2M3' 221 : LESOBL(13)='EPN1' 222 : LESOBL(14)='EPN2' 223 : LESOBL(15)='EPN3' 224 : LESOBL(16)='EPM1' 225 : LESOBL(17)='EPM2' 226 : LESOBL(18)='EPM3' 227 : LESOBL(19)='EPSE' 228 : * 229 : * CAS CONTRAINTES OU DEFORMATIONS PLANES 230 : * OU DEFORMATIONS PLANES GENERALISEES 231 : * 232 : ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 233 : NBROBL=19 234 : SEGINI,NOMID 235 : LESOBL( 1)='A1N1' 236 : LESOBL( 2)='A1N2' 237 : LESOBL( 3)='A1N3' 238 : LESOBL( 4)='A1M1' 239 : LESOBL( 5)='A1M2' 240 : LESOBL( 6)='A1M3' 241 : LESOBL( 7)='A2N1' 242 : LESOBL( 8)='A2N2' 243 : LESOBL( 9)='A2N3' 244 : LESOBL(10)='A2M1' 245 : LESOBL(11)='A2M2' 246 : LESOBL(12)='A2M3' 247 : LESOBL(13)='EPN1' 248 : LESOBL(14)='EPN2' 249 : LESOBL(15)='EPN3' 250 : LESOBL(16)='EPM1' 251 : LESOBL(17)='EPM2' 252 : LESOBL(18)='EPM3' 253 : LESOBL(19)='EPSE' 254 : ENDIF 255 : ELSE 256 : IF (IFOUR.EQ.2) THEN 257 : NBROBL=13 258 : SEGINI,NOMID 259 : LESOBL( 1)='A1SS' 260 : LESOBL( 2)='A1TT' 261 : LESOBL( 3)='A1NN' 262 : LESOBL( 4)='A1ST' 263 : LESOBL( 5)='A2SS' 264 : LESOBL( 6)='A2TT' 265 : LESOBL( 7)='A2NN' 266 : LESOBL( 8)='A2ST' 267 : LESOBL( 9)='VLSS' 268 : LESOBL(10)='VLTT' 269 : LESOBL(11)='VLNN' 270 : LESOBL(12)='VLST' 271 : LESOBL(13)='EPSE' 272 : ENDIF 273 : ENDIF 274 : 275 : * 276 : * COQUE EPAISSE 277 : ******************** 278 : ELSE IF (MFR.EQ.5) THEN 279 : * 280 : * CAS TRIDIMENSIONNEL 281 : * 282 : IF (IFOUR.EQ.2) THEN 283 : NBROBL=19 284 : SEGINI,NOMID 285 : LESOBL( 1)='A1SS' 286 : LESOBL( 2)='A1TT' 287 : LESOBL( 3)='A1NN' 288 : LESOBL( 4)='A1ST' 289 : LESOBL( 5)='A1SN' 290 : LESOBL( 6)='A1TN' 291 : LESOBL( 7)='A2SS' 292 : LESOBL( 8)='A2TT' 293 : LESOBL( 9)='A2NN' 294 : LESOBL(10)='A2ST' 295 : LESOBL(11)='A2SN' 296 : LESOBL(12)='A2TN' 297 : LESOBL(13)='VLSS' 298 : LESOBL(14)='VLTT' 299 : LESOBL(15)='VLNN' 300 : LESOBL(16)='VLST' 301 : LESOBL(17)='VLSN' 302 : LESOBL(18)='VLTN' 303 : LESOBL(19)='EPSE' 304 : ENDIF 305 : 306 : * POUTRE ET TUYAU 307 : ********************* 308 : ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN 309 : * 310 : * CAS TRIDIMENSIONNEL 311 : * 312 : IF (IFOUR.EQ.2) THEN 313 : NBROBL=19 314 : SEGINI NOMID 315 : LESOBL( 1)='A1FX' 316 : LESOBL( 2)='A1FY' 317 : LESOBL( 3)='A1FZ' 318 : LESOBL( 4)='A1MX' 319 : LESOBL( 5)='A1MY' 320 : LESOBL( 6)='A1MZ' 321 : LESOBL( 7)='A2FX' 322 : LESOBL( 8)='A2FY' 323 : LESOBL( 9)='A2FZ' 324 : LESOBL(10)='A2MX' 325 : LESOBL(11)='A2MY' 326 : LESOBL(12)='A2MZ' 327 : LESOBL(13)='EPFX' 328 : LESOBL(14)='EPFY' 329 : LESOBL(15)='EPFZ' 330 : LESOBL(16)='EPMX' 331 : LESOBL(17)='EPMY' 332 : LESOBL(18)='EPMZ' 333 : LESOBL(19)='EPSE' 334 : ENDIF 335 : 336 : * COQUE CISAILLEMENT TRANSVERSE 337 : *********************************** 338 : ELSE IF (MFR.EQ.9) THEN 339 : IF (NPINT.EQ.0) THEN 340 : * 341 : * CAS TRIDIMENSIONNEL 342 : * 343 : IF (IFOUR.EQ.2) THEN 344 : NBROBL=25 345 : SEGINI NOMID 346 : LESOBL( 1)='A1N1' 347 : LESOBL( 2)='A1N2' 348 : LESOBL( 3)='A1N3' 349 : LESOBL( 4)='A1M1' 350 : LESOBL( 5)='A1M2' 351 : LESOBL( 6)='A1M3' 352 : LESOBL( 7)='A1V1' 353 : LESOBL( 8)='A1V2' 354 : LESOBL( 9)='A2N1' 355 : LESOBL(10)='A2N2' 356 : LESOBL(11)='A2N3' 357 : LESOBL(12)='A2M1' 358 : LESOBL(13)='A2M2' 359 : LESOBL(14)='A2M3' 360 : LESOBL(15)='A2V1' 361 : LESOBL(16)='A2V2' 362 : LESOBL(17)='EPN1' 363 : LESOBL(18)='EPN2' 364 : LESOBL(19)='EPN3' 365 : LESOBL(20)='EPM1' 366 : LESOBL(21)='EPM2' 367 : LESOBL(22)='EPM3' 368 : LESOBL(23)='EPV1' 369 : LESOBL(24)='EPV2' 370 : LESOBL(25)='EPSE' 371 : ENDIF 372 : ENDIF 373 : 374 : * FORMULATION MEMBRANE 375 : ************************** 376 : ELSE IF (MFR.EQ.25) THEN 377 : NBROBL=10 378 : SEGINI,NOMID 379 : LESOBL( 1)='A1SS' 380 : LESOBL( 2)='A1TT' 381 : LESOBL( 3)='A1ST' 382 : LESOBL( 4)='A2SS' 383 : LESOBL( 5)='A2TT' 384 : LESOBL( 6)='A2ST' 385 : LESOBL( 7)='VLSS' 386 : LESOBL( 8)='VLTT' 387 : LESOBL( 9)='VLST' 388 : LESOBL(10)='EPSE' 389 : 390 : * FORMULATION UNIAXIALE 391 : *************************** 392 : ELSE IF (MFR.EQ.27) THEN 393 : NBROBL=4 394 : SEGINI,NOMID 395 : LESOBL(1)='A1FX' 396 : LESOBL(2)='A2FX' 397 : LESOBL(3)='EPFX' 398 : LESOBL(4)='EPSE' 399 : ENDIF 400 : 401 : ENDIF 402 : 403 : IPCOMP=NOMID 404 : SEGDES,NOMID 405 : 406 : RETURN 407 : END 408 : 409 :
© Cast3M 2003 - All rights reserved.
Disclaimer