1 : C IDVFLO SOURCE FANDEUR 10/02/01 21:15:53 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 IDVFLO (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 : * ELEMENT MASSIF 37 : ****************** 38 : IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN 39 : * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES ou 40 : * DEFORMATIONS PLANES GENERALISEES 41 : IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN 42 : NBROBL=16 43 : SEGINI,NOMID 44 : LESOBL( 1)='EPSE' 45 : LESOBL( 2)='EPSP' 46 : LESOBL( 3)='EPSS' 47 : LESOBL(12)='MARK' 48 : LESOBL( 4)='PXY ' 49 : LESOBL( 5)='VNXX' 50 : LESOBL( 6)='VNYY' 51 : LESOBL( 7)='VNZZ' 52 : LESOBL( 8)='VNXY' 53 : LESOBL( 9)='EPCE' 54 : LESOBL(10)='EPSH' 55 : LESOBL(11)='LL ' 56 : LESOBL(13)='ECXX' 57 : LESOBL(14)='ECYY' 58 : LESOBL(15)='ECZZ' 59 : LESOBL(16)='ECXY' 60 : * CAS AXISYMETRIQUE 61 : ELSE IF (IFOUR.EQ.0) THEN 62 : NBROBL=16 63 : SEGINI,NOMID 64 : LESOBL( 1)='EPSE' 65 : LESOBL( 2)='EPSP' 66 : LESOBL( 3)='EPSS' 67 : LESOBL(12)='MARK' 68 : LESOBL( 4)='PRZ ' 69 : LESOBL( 5)='VNRR' 70 : LESOBL( 6)='VNZZ' 71 : LESOBL( 7)='VNTT' 72 : LESOBL( 8)='VNRZ' 73 : LESOBL( 9)='EPCE' 74 : LESOBL(10)='EPSH' 75 : LESOBL(11)='LL ' 76 : LESOBL(13)='ECRR' 77 : LESOBL(14)='ECZZ' 78 : LESOBL(15)='ECTT' 79 : LESOBL(16)='ECRZ' 80 : * CAS SERIE DE FOURIER 81 : ELSE IF (IFOUR.EQ.1) THEN 82 : NBROBL=22 83 : SEGINI,NOMID 84 : LESOBL( 1)='EPSE' 85 : LESOBL( 2)='EPSP' 86 : LESOBL( 3)='EPSS' 87 : LESOBL(12)='MARK' 88 : LESOBL( 4)='PRZ ' 89 : LESOBL( 5)='PRT ' 90 : LESOBL( 6)='PZT ' 91 : LESOBL( 7)='VNRR' 92 : LESOBL( 8)='VNZZ' 93 : LESOBL( 9)='VNTT' 94 : LESOBL(10)='VNRZ' 95 : LESOBL(11)='VNRT' 96 : LESOBL(13)='EPCE' 97 : LESOBL(14)='EPSH' 98 : LESOBL(15)='LL ' 99 : LESOBL(16)='EPSE' 100 : LESOBL(17)='ECRR' 101 : LESOBL(18)='ECZZ' 102 : LESOBL(19)='ECTT' 103 : LESOBL(20)='ECRZ' 104 : LESOBL(21)='ECRT' 105 : LESOBL(22)='ECZT' 106 : * CAS TRIDIMENSIONNEL 107 : ELSE IF (IFOUR.EQ.2) THEN 108 : NBROBL=22 109 : SEGINI,NOMID 110 : LESOBL( 1)='EPSE' 111 : LESOBL( 2)='EPSP' 112 : LESOBL( 3)='EPSS' 113 : LESOBL(12)='MARK' 114 : LESOBL( 4)='PXY ' 115 : LESOBL( 5)='PYZ ' 116 : LESOBL( 6)='PZX ' 117 : LESOBL( 7)='VNXX' 118 : LESOBL( 8)='VNYY' 119 : LESOBL( 9)='VNZZ' 120 : LESOBL(10)='VNXY' 121 : LESOBL(11)='VNYZ' 122 : LESOBL(13)='EPCE' 123 : LESOBL(14)='EP ' 124 : LESOBL(15)='LL ' 125 : LESOBL(16)='EPST' 126 : LESOBL(17)='ECXX' 127 : LESOBL(18)='ECYY' 128 : LESOBL(19)='ECZZ' 129 : LESOBL(20)='ECXY' 130 : LESOBL(21)='ECYZ' 131 : LESOBL(22)='ECZX' 132 : * CAS UNIDIMENSIONNEL (1D) PLAN 133 : ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN 134 : NBROBL=13 135 : SEGINI,NOMID 136 : LESOBL( 1)='EPSE' 137 : LESOBL( 2)='EPSP' 138 : LESOBL( 3)='EPSS' 139 : LESOBL(12)='MARK' 140 : LESOBL( 4)='VNXX' 141 : LESOBL( 5)='VNYY' 142 : LESOBL( 6)='VNZZ' 143 : LESOBL( 7)='EPCE' 144 : LESOBL( 8)='EPSH' 145 : LESOBL( 9)='LL ' 146 : LESOBL(10)='ECXX' 147 : LESOBL(11)='ECYY' 148 : LESOBL(13)='ECZZ' 149 : * CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUES OU SPHERIQUE 150 : ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN 151 : NBROBL=13 152 : SEGINI,NOMID 153 : LESOBL( 1)='EPSE' 154 : LESOBL( 2)='EPSP' 155 : LESOBL( 3)='EPSS' 156 : LESOBL(12)='MARK' 157 : LESOBL( 4)='VNRR' 158 : LESOBL( 5)='VNZZ' 159 : LESOBL( 6)='VNTT' 160 : LESOBL( 7)='EPCE' 161 : LESOBL( 8)='EPSH' 162 : LESOBL( 9)='LL ' 163 : LESOBL(10)='ECRR' 164 : LESOBL(11)='ECZZ' 165 : LESOBL(13)='ECTT' 166 : ENDIF 167 : 168 : * ELEMENT COQUE 169 : ***************** 170 : C* ELSE IF (MFR.EQ.3) THEN 171 : 172 : * ELEMENT COQUE EPAISSE 173 : ************************* 174 : C* ELSE IF (MFR.EQ.5) THEN 175 : 176 : * ELEMENTS POUTRE ET TUYAU 177 : **************************** 178 : C* ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN 179 : 180 : * ELEMENT COQUE CISAILLEMENT TRANSVERSE 181 : ***************************************** 182 : C* ELSE IF (MFR.EQ.9) THEN 183 : 184 : * FORMULATION MEMBRANE 185 : ************************ 186 : C* ELSE IF (MFR.EQ.25) THEN 187 : 188 : * FORMULATION UNIAXIALE 189 : ************************* 190 : ELSE IF (MFR.EQ.27) THEN 191 : NBROBL=7 192 : SEGINI,NOMID 193 : LESOBL(1)='PEFX' 194 : LESOBL(2)='NEFX' 195 : LESOBL(3)='EPCE' 196 : LESOBL(4)='EPSH' 197 : LESOBL(5)='LL ' 198 : LESOBL(6)='EPSE' 199 : LESOBL(7)='EEFX' 200 : ENDIF 201 : 202 : IPCOMP=NOMID 203 : SEGDES,NOMID 204 : 205 : RETURN 206 : END 207 : 208 :
© Cast3M 2003 - All rights reserved.
Disclaimer