Télécharger idvar2.eso

Retour à la liste

Numérotation des lignes :

  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.  
  427.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales