1 : C IDVAR1 SOURCE FANDEUR 10/02/01 21:15:36 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 LES LISTES DES COMPOSANTES 18 : * OBLIGATOIRES ET FACULTATIFS 19 : * NBROBL NOMBRE DES COMPOSANTES OBLIGATOIRES 20 : * NBRFAC NOMBRE DES COMPOSANTES FACULTATIF 21 : C======================================================================= 22 : 23 : SUBROUTINE IDVAR1 (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 : NORTON (MATEPL=19) et POLYNOMIAL (MATEPL=21) 37 : C ==================================================================== 38 : 39 : * ELEMENT TUYAU FISSURE 40 : ************************* 41 : IF (MFR.EQ.17) THEN 42 : NBROBL=7 43 : SEGINI,NOMID 44 : LESOBL(1)='EPLU ' 45 : LESOBL(2)='EMIN' 46 : LESOBL(3)='EEFF ' 47 : LESOBL(4)='EPSH' 48 : LESOBL(5)='LL ' 49 : LESOBL(6)='EPSE' 50 : LESOBL(7)='JPOI' 51 : 52 : * ELEMENT MASSIF 53 : ****************** 54 : ELSE IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN 55 : * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES 56 : * OU DEFORMATIONS PLANES GENERALISEES 57 : IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-1) THEN 58 : NBROBL=12 59 : SEGINI,NOMID 60 : LESOBL( 1)='PXX ' 61 : LESOBL( 2)='PYY ' 62 : LESOBL( 3)='PZZ ' 63 : LESOBL( 4)='PXY ' 64 : LESOBL( 5)='VNXX' 65 : LESOBL( 6)='VNYY' 66 : LESOBL( 7)='VNZZ' 67 : LESOBL( 8)='VNXY' 68 : LESOBL( 9)='EPCE' 69 : LESOBL(10)='EPSH' 70 : LESOBL(11)='LL ' 71 : LESOBL(12)='EPSE' 72 : * CAS AXISYMETRIQUE 73 : ELSE IF (IFOUR.EQ.0) THEN 74 : NBROBL=12 75 : SEGINI,NOMID 76 : LESOBL( 1)='PRR ' 77 : LESOBL( 2)='PZZ ' 78 : LESOBL( 3)='PTT ' 79 : LESOBL( 4)='PRZ ' 80 : LESOBL( 5)='VNRR' 81 : LESOBL( 6)='VNZZ' 82 : LESOBL( 7)='VNTT' 83 : LESOBL( 8)='VNRZ' 84 : LESOBL( 9)='EPCE' 85 : LESOBL(10)='EPSH' 86 : LESOBL(11)='LL ' 87 : LESOBL(12)='EPSE' 88 : * CAS SERIE DE FOURIER 89 : ELSE IF (IFOUR.EQ.1) THEN 90 : NBROBL=16 91 : SEGINI,NOMID 92 : LESOBL( 1)='PRR ' 93 : LESOBL( 2)='PZZ ' 94 : LESOBL( 3)='PTT ' 95 : LESOBL( 4)='PRZ ' 96 : LESOBL( 5)='PRT ' 97 : LESOBL( 6)='PZT ' 98 : LESOBL( 7)='VNRR' 99 : LESOBL( 8)='VNZZ' 100 : LESOBL( 9)='VNTT' 101 : LESOBL(10)='VNRZ' 102 : LESOBL(11)='VNRT' 103 : LESOBL(12)='VNZT' 104 : LESOBL(13)='EPCE' 105 : LESOBL(14)='EPSH' 106 : LESOBL(15)='LL ' 107 : LESOBL(16)='EPSE' 108 : * CAS TRIDIMENSIONNEL 109 : ELSE IF (IFOUR.EQ.2) THEN 110 : NBROBL=16 111 : SEGINI,NOMID 112 : LESOBL( 1)='PXX ' 113 : LESOBL( 2)='PYY ' 114 : LESOBL( 3)='PZZ ' 115 : LESOBL( 4)='PXY ' 116 : LESOBL( 5)='PYZ ' 117 : LESOBL( 6)='PZX ' 118 : LESOBL( 7)='VNXX' 119 : LESOBL( 8)='VNYY' 120 : LESOBL( 9)='VNZZ' 121 : LESOBL(10)='VNXY' 122 : LESOBL(11)='VNYZ' 123 : LESOBL(12)='VNZX' 124 : LESOBL(13)='EPCE' 125 : LESOBL(14)='EPSH' 126 : LESOBL(15)='LL ' 127 : LESOBL(16)='EPSE' 128 : * CAS UNIDIMENSIONNEL (1D) PLAN 129 : ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN 130 : NBROBL=10 131 : SEGINI,NOMID 132 : LESOBL( 1)='PXX ' 133 : LESOBL( 2)='PYY ' 134 : LESOBL( 3)='PZZ ' 135 : LESOBL( 4)='VNXX' 136 : LESOBL( 5)='VNYY' 137 : LESOBL( 6)='VNZZ' 138 : LESOBL( 7)='EPCE' 139 : LESOBL( 8)='EPSH' 140 : LESOBL( 9)='LL ' 141 : LESOBL(10)='EPSE' 142 : * CAS UNIDIMENSIONNEL (1D) AXIS ou SPHE 143 : ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN 144 : NBROBL=10 145 : SEGINI,NOMID 146 : LESOBL( 1)='PRR ' 147 : LESOBL( 2)='PZZ ' 148 : LESOBL( 3)='PTT ' 149 : LESOBL( 4)='VNRR' 150 : LESOBL( 5)='VNZZ' 151 : LESOBL( 6)='VNTT' 152 : LESOBL( 7)='EPCE' 153 : LESOBL( 8)='EPSH' 154 : LESOBL( 9)='LL ' 155 : LESOBL(10)='EPSE' 156 : ENDIF 157 : 158 : * ELEMENT COQUE 159 : ***************** 160 : ELSE IF (MFR.EQ.3) THEN 161 : IF (NPINT.EQ.0) THEN 162 : * CAS TRIDIMENSIONNEL ou FOURIER 163 : IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN 164 : NBROBL=20 165 : SEGINI,NOMID 166 : LESOBL( 1)='PN11' 167 : LESOBL( 2)='PN22' 168 : LESOBL( 3)='PN33' 169 : LESOBL( 4)='PN12' 170 : LESOBL( 5)='PM11' 171 : LESOBL( 6)='PM22' 172 : LESOBL( 7)='PM33' 173 : LESOBL( 8)='PM12' 174 : LESOBL( 9)='NN11' 175 : LESOBL(10)='NN22' 176 : LESOBL(11)='NN33' 177 : LESOBL(12)='NN12' 178 : LESOBL(13)='NM11' 179 : LESOBL(14)='NM22' 180 : LESOBL(15)='NM33' 181 : LESOBL(16)='NM12' 182 : LESOBL(17)='EPCE' 183 : LESOBL(18)='EPSH' 184 : LESOBL(19)='LL ' 185 : LESOBL(20)='EPSE' 186 : * CAS AXISYMETRIQUE 187 : ELSE IF (IFOUR.EQ.0) THEN 188 : NBROBL=16 189 : SEGINI,NOMID 190 : LESOBL( 1)='PN11' 191 : LESOBL( 2)='PN22' 192 : LESOBL( 3)='PN33' 193 : LESOBL( 4)='PM11' 194 : LESOBL( 5)='PM22' 195 : LESOBL( 6)='PM33' 196 : LESOBL( 7)='NN11' 197 : LESOBL( 8)='NN22' 198 : LESOBL( 9)='NN33' 199 : LESOBL(10)='NM11' 200 : LESOBL(11)='NM22' 201 : LESOBL(12)='NM33' 202 : LESOBL(13)='EPCE' 203 : LESOBL(14)='EPSH' 204 : LESOBL(15)='LL ' 205 : LESOBL(16)='EPSE' 206 : * CAS CONTRAINTES PLANES ou DEFORMATIONS PLANES ou 207 : * DEFORMATIONS PLANES GENERALISEES 208 : ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 209 : NBROBL=16 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)='NN33' 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 : ENDIF 228 : ELSE 229 : IF (IFOUR.EQ.2) THEN 230 : NBROBL=12 231 : SEGINI,NOMID 232 : LESOBL( 1)='PMSS' 233 : LESOBL( 2)='PMTT' 234 : LESOBL( 3)='PMNN' 235 : LESOBL( 4)='PMST' 236 : LESOBL( 5)='NMSS' 237 : LESOBL( 6)='NMTT ' 238 : LESOBL( 7)='NMNN ' 239 : LESOBL( 8)='NMST ' 240 : LESOBL( 9)='EPCE' 241 : LESOBL(10)='EPSH' 242 : LESOBL(11)='LL ' 243 : LESOBL(12)='EPSE' 244 : ENDIF 245 : ENDIF 246 : 247 : * COQUE EPAISSE 248 : ***************** 249 : * CAS TRIDIMENSIONNEL 250 : ELSE IF (MFR.EQ.5) THEN 251 : IF (IFOUR.EQ.2) THEN 252 : NBROBL=16 253 : SEGINI,NOMID 254 : LESOBL( 1)='PMSS' 255 : LESOBL( 2)='PMTT' 256 : LESOBL( 3)='PMNN' 257 : LESOBL( 4)='PMST' 258 : LESOBL( 5)='PMSN' 259 : LESOBL( 6)='PMTN' 260 : LESOBL( 7)='NMSS' 261 : LESOBL( 8)='NMTT' 262 : LESOBL( 9)='NMNN' 263 : LESOBL(10)='NMST' 264 : LESOBL(11)='NMSN' 265 : LESOBL(12)='NMTN' 266 : LESOBL(13)='EPCE' 267 : LESOBL(14)='EPSH' 268 : LESOBL(15)='LL ' 269 : LESOBL(16)='EPSE' 270 : ENDIF 271 : 272 : * POUTRE ET TUYAU 273 : ******************* 274 : * CAS TRIDIMENSIONNEL 275 : ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN 276 : IF (IFOUR.EQ.2) THEN 277 : NBROBL=16 278 : SEGINI,NOMID 279 : LESOBL( 1)='PEFX' 280 : LESOBL( 2)='PEFY' 281 : LESOBL( 3)='PEFZ' 282 : LESOBL( 4)='PMOX' 283 : LESOBL( 5)='PMOY' 284 : LESOBL( 6)='PMOZ' 285 : LESOBL( 7)='NEFX' 286 : LESOBL( 8)='NEFY' 287 : LESOBL( 9)='NEFZ' 288 : LESOBL(10)='NMOX' 289 : LESOBL(11)='EMOY' 290 : LESOBL(12)='EMOZ' 291 : LESOBL(13)='EPCE' 292 : LESOBL(14)='EPSH' 293 : LESOBL(15)='LL ' 294 : LESOBL(16)='EPSE' 295 : ENDIF 296 : 297 : * COQUE CISAILLEMENT TRANSVERSE 298 : ********************************* 299 : * CAS TRIDIMENSIONNEL 300 : ELSE IF (MFR.EQ.9) THEN 301 : IF (NPINT.EQ.0) THEN 302 : IF (IFOUR.EQ.2) THEN 303 : NBROBL=20 304 : SEGINI,NOMID 305 : LESOBL( 1)='PN11' 306 : LESOBL( 2)='PN22' 307 : LESOBL( 3)='PN12' 308 : LESOBL( 4)='PM11' 309 : LESOBL( 5)='PM22' 310 : LESOBL( 6)='PM12' 311 : LESOBL( 7)='PV1 ' 312 : LESOBL( 8)='PV2 ' 313 : LESOBL( 9)='NN11' 314 : LESOBL(10)='NN22' 315 : LESOBL(11)='NN12' 316 : LESOBL(12)='NM11' 317 : LESOBL(13)='NM22' 318 : LESOBL(14)='NM12' 319 : LESOBL(15)='NV1 ' 320 : LESOBL(16)='NV2 ' 321 : LESOBL(17)='EPCE' 322 : LESOBL(18)='EPSH' 323 : LESOBL(19)='LL ' 324 : LESOBL(20)='EPSE' 325 : ENDIF 326 : ENDIF 327 : 328 : * FORMULATION MEMBRANE 329 : ************************ 330 : ELSE IF (MFR.EQ.25) THEN 331 : NBROBL=10 332 : SEGINI,NOMID 333 : LESOBL( 1)='PMSS' 334 : LESOBL( 2)='PMTT' 335 : LESOBL( 3)='PMST' 336 : LESOBL( 4)='NMSS' 337 : LESOBL( 5)='NMTT' 338 : LESOBL( 6)='NMST' 339 : LESOBL( 7)='EPCE' 340 : LESOBL( 8)='EPSH' 341 : LESOBL( 9)='LL ' 342 : LESOBL(10)='EPSE' 343 : 344 : * FORMULATION UNIAXIALE 345 : ************************* 346 : ELSE IF (MFR.EQ.27) THEN 347 : NBROBL=6 348 : SEGINI,NOMID 349 : LESOBL(1)='PEFX' 350 : LESOBL(2)='NEFX' 351 : LESOBL(3)='EPCE' 352 : LESOBL(4)='EPSH' 353 : LESOBL(5)='LL ' 354 : LESOBL(6)='EPSE' 355 : ENDIF 356 : 357 : IPCOMP=NOMID 358 : SEGDES,NOMID 359 : 360 : RETURN 361 : END 362 : 363 : 364 : 365 :
© Cast3M 2003 - All rights reserved.
Disclaimer