Télécharger idvisc.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVISC SOURCE CB215821 17/09/28 21:15:07 9574
  2. SUBROUTINE IDVISC (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. C=======================================================================
  8. C= Noms de composantes de materiaux viscoplastiques =
  9. C= =
  10. C= ENTREES : =
  11. C= --------- =
  12. C= MFR Numero de formulation =
  13. C= TABOBL Tableau des mots OBLIGATOIRES =
  14. C= TABFAC Tableau des mots FACULTATIFS =
  15. C= JGOBL Taille utilisee du tableau des mots OBLIGATOIRES =
  16. C= JGFAC Taille utilisee du tableau des mots FACULTATIFS =
  17. C= IPLAC Numero du materiau dans MODVIS =
  18. C= =
  19. C= SORTIE : =
  20. C= -------- =
  21. C= IRET =0 si probleme =
  22. C=======================================================================
  23.  
  24. -INC CCOPTIO
  25. CHARACTER*8 TABOBL(ITA),TABFAC(ITA)
  26. IRET=1
  27. C ===
  28. C 1 - Modele viscoplastique de GUIONNET
  29. C ===
  30. IF (IPLAC.EQ.1) THEN
  31. JGM0=JGOBL
  32. JGOBL=JGM0+20
  33. TABOBL(JGM0+ 1)='N '
  34. TABOBL(JGM0+ 2)='K '
  35. TABOBL(JGM0+ 3)='CK '
  36. TABOBL(JGM0+ 4)='R0 '
  37. TABOBL(JGM0+ 5)='CD '
  38. TABOBL(JGM0+ 6)='M '
  39. TABOBL(JGM0+ 7)='A '
  40. TABOBL(JGM0+ 8)='A1 '
  41. TABOBL(JGM0+ 9)='C '
  42. TABOBL(JGM0+10)='C1 '
  43. TABOBL(JGM0+11)='G '
  44. TABOBL(JGM0+12)='R '
  45. TABOBL(JGM0+13)='NN '
  46. TABOBL(JGM0+14)='C2 '
  47. TABOBL(JGM0+15)='Q '
  48. TABOBL(JGM0+16)='G1 '
  49. TABOBL(JGM0+17)='R1 '
  50. TABOBL(JGM0+18)='BETA'
  51. TABOBL(JGM0+19)='C0 '
  52. TABOBL(JGM0+20)='P1M0'
  53. RETURN
  54. C ===
  55. C 2 - Modele viscoplastique de CHABOCHE
  56. C ===
  57. ELSE IF (IPLAC.EQ.2) THEN
  58. JGM0=JGOBL
  59. JGOBL=JGM0+22
  60. TABOBL(JGM0+ 1)='ALF '
  61. TABOBL(JGM0+ 2)='N '
  62. TABOBL(JGM0+ 3)='KK '
  63. TABOBL(JGM0+ 4)='K0 '
  64. TABOBL(JGM0+ 5)='ALFK'
  65. TABOBL(JGM0+ 6)='ALFR'
  66. TABOBL(JGM0+ 7)='C1 '
  67. TABOBL(JGM0+ 8)='A1 '
  68. TABOBL(JGM0+ 9)='PHI '
  69. TABOBL(JGM0+10)='C2 '
  70. TABOBL(JGM0+11)='A2 '
  71. TABOBL(JGM0+12)='B '
  72. TABOBL(JGM0+13)='BET1'
  73. TABOBL(JGM0+14)='BET2'
  74. TABOBL(JGM0+15)='R1 '
  75. TABOBL(JGM0+16)='R2 '
  76. TABOBL(JGM0+17)='GAMA'
  77. TABOBL(JGM0+18)='M '
  78. TABOBL(JGM0+19)='ETA '
  79. TABOBL(JGM0+20)='MU '
  80. TABOBL(JGM0+21)='QMAX'
  81. TABOBL(JGM0+22)='QSTA'
  82. RETURN
  83. C ===
  84. C 3 - Modele d'ecrouissage-VISCOsite multiplicative avec enDOMMAGEment
  85. C ===
  86. ELSE IF (IPLAC.EQ.3) THEN
  87. JGM0=JGOBL
  88. JGOBL=JGM0+8
  89. TABOBL(JGM0+1)='N '
  90. TABOBL(JGM0+2)='M '
  91. TABOBL(JGM0+3)='KK '
  92. TABOBL(JGM0+4)='ALP1'
  93. TABOBL(JGM0+5)='BLP1'
  94. TABOBL(JGM0+6)='R '
  95. TABOBL(JGM0+7)='A '
  96. TABOBL(JGM0+8)='EVOL'
  97.  
  98. JGM0=JGFAC
  99. JGFAC=JGM0+1
  100. TABFAC(JGM0+1)='SMAX'
  101. RETURN
  102. C ===
  103. C 4 - Modele viscoplastique PARFAIT
  104. C ===
  105. ELSE IF (IPLAC.EQ.4) THEN
  106. JGM0=JGOBL
  107. JGOBL=JGM0+3
  108. TABOBL(JGM0+1)='SIGY'
  109. TABOBL(JGM0+2)='N '
  110. TABOBL(JGM0+3)='K '
  111. RETURN
  112. C ===
  113. C 5 - Modele viscoplastique POUDRE_A
  114. C ===
  115. ELSE IF (IPLAC.EQ.5) THEN
  116. JGM0=JGOBL
  117. JGOBL=JGM0+16
  118. TABOBL(JGM0+ 1)='N '
  119. TABOBL(JGM0+ 2)='A '
  120. TABOBL(JGM0+ 3)='QSRT'
  121. TABOBL(JGM0+ 4)='F0 '
  122. TABOBL(JGM0+ 5)='F1 '
  123. TABOBL(JGM0+ 6)='F2 '
  124. TABOBL(JGM0+ 7)='F3 '
  125. TABOBL(JGM0+ 8)='F4 '
  126. TABOBL(JGM0+ 9)='F5 '
  127. TABOBL(JGM0+10)='C0 '
  128. TABOBL(JGM0+11)='C1 '
  129. TABOBL(JGM0+12)='C2 '
  130. TABOBL(JGM0+13)='C3 '
  131. TABOBL(JGM0+14)='C4 '
  132. TABOBL(JGM0+15)='C5 '
  133. TABOBL(JGM0+16)='RHOR'
  134. RETURN
  135. C ===
  136. C 6 - Modele viscoplastique POUDRE_B
  137. C ===
  138. ELSE IF (IPLAC.EQ.6) THEN
  139. JGM0=JGOBL
  140. JGOBL=JGM0+23
  141. TABOBL(JGM0+ 1)='N '
  142. TABOBL(JGM0+ 2)='A '
  143. TABOBL(JGM0+ 3)='QSRT'
  144. TABOBL(JGM0+ 4)='F0 '
  145. TABOBL(JGM0+ 5)='F1 '
  146. TABOBL(JGM0+ 6)='F2 '
  147. TABOBL(JGM0+ 7)='F3 '
  148. TABOBL(JGM0+ 8)='F4 '
  149. TABOBL(JGM0+ 9)='F5 '
  150. TABOBL(JGM0+10)='C0 '
  151. TABOBL(JGM0+11)='C1 '
  152. TABOBL(JGM0+12)='C2 '
  153. TABOBL(JGM0+13)='C3 '
  154. TABOBL(JGM0+14)='C4 '
  155. TABOBL(JGM0+15)='C5 '
  156. TABOBL(JGM0+16)='G0 '
  157. TABOBL(JGM0+17)='G1 '
  158. TABOBL(JGM0+18)='G2 '
  159. TABOBL(JGM0+19)='G3 '
  160. TABOBL(JGM0+20)='G4 '
  161. TABOBL(JGM0+21)='G5 '
  162. TABOBL(JGM0+22)='G6 '
  163. TABOBL(JGM0+23)='RHOR'
  164. RETURN
  165. C ===
  166. C 7 - Modele viscoplastique de OHNO
  167. C ===
  168. ELSE IF (IPLAC.EQ.7) THEN
  169. JGM0=JGOBL
  170. JGOBL=JGM0+24
  171. TABOBL(JGM0+ 1)='ALF '
  172. TABOBL(JGM0+ 2)='N '
  173. TABOBL(JGM0+ 3)='KK '
  174. TABOBL(JGM0+ 4)='K0 '
  175. TABOBL(JGM0+ 5)='ALFK'
  176. TABOBL(JGM0+ 6)='ALFR'
  177. TABOBL(JGM0+ 7)='C1 '
  178. TABOBL(JGM0+ 8)='A1 '
  179. TABOBL(JGM0+ 9)='PHI '
  180. TABOBL(JGM0+10)='C2 '
  181. TABOBL(JGM0+11)='A2 '
  182. TABOBL(JGM0+12)='B '
  183. TABOBL(JGM0+13)='BET1'
  184. TABOBL(JGM0+14)='BET2'
  185. TABOBL(JGM0+15)='R1 '
  186. TABOBL(JGM0+16)='R2 '
  187. TABOBL(JGM0+17)='GAMA'
  188. TABOBL(JGM0+18)='M '
  189. TABOBL(JGM0+19)='ETA '
  190. TABOBL(JGM0+20)='MU '
  191. TABOBL(JGM0+21)='QMAX'
  192. TABOBL(JGM0+22)='QSTA'
  193. TABOBL(JGM0+23)='EXP1'
  194. TABOBL(JGM0+24)='EXP2'
  195. RETURN
  196. C ===
  197. C 8 - Modele viscoplastique DDI
  198. C ===
  199. ELSE IF (IPLAC.EQ.8) THEN
  200. JGM0=JGOBL
  201. JGOBL=JGM0+18
  202. TABOBL(JGM0+ 1)='RP0 '
  203. TABOBL(JGM0+ 2)='QP '
  204. TABOBL(JGM0+ 3)='BP '
  205. TABOBL(JGM0+ 4)='CP1 '
  206. TABOBL(JGM0+ 5)='CP2 '
  207. TABOBL(JGM0+ 6)='DP1 '
  208. TABOBL(JGM0+ 7)='DP2 '
  209. TABOBL(JGM0+ 8)='KS '
  210. TABOBL(JGM0+ 9)='N '
  211. TABOBL(JGM0+10)='RV0 '
  212. TABOBL(JGM0+11)='QV '
  213. TABOBL(JGM0+12)='BV '
  214. TABOBL(JGM0+13)='CV1 '
  215. TABOBL(JGM0+14)='CV2 '
  216. TABOBL(JGM0+15)='DV1 '
  217. TABOBL(JGM0+16)='DV2 '
  218. TABOBL(JGM0+17)='CVP1'
  219. TABOBL(JGM0+18)='CVP2'
  220.  
  221. JGM0=JGFAC
  222. JGFAC=JGM0+10
  223. TABFAC(JGM0+ 1)='ALP7'
  224. TABFAC(JGM0+ 2)='BETA'
  225. TABFAC(JGM0+ 3)='M '
  226. TABFAC(JGM0+ 4)='SU '
  227. TABFAC(JGM0+ 5)='SL '
  228. TABFAC(JGM0+ 6)='B '
  229. TABFAC(JGM0+ 7)='C '
  230. TABFAC(JGM0+ 8)='A '
  231. TABFAC(JGM0+ 9)='R '
  232. TABFAC(JGM0+10)='KK '
  233. RETURN
  234. C ===
  235. C 9 - Modele viscoplastique de KOCK
  236. C ===
  237. ELSE IF (IPLAC.EQ.9) THEN
  238. JGM0=JGOBL
  239. JGOBL=JGM0+10
  240. TABOBL(JGM0+ 1)='A '
  241. TABOBL(JGM0+ 2)='B '
  242. TABOBL(JGM0+ 3)='M '
  243. TABOBL(JGM0+ 4)='Q '
  244. TABOBL(JGM0+ 5)='R '
  245. TABOBL(JGM0+ 6)='H0 '
  246. TABOBL(JGM0+ 7)='AP '
  247. TABOBL(JGM0+ 8)='SB '
  248. TABOBL(JGM0+ 9)='N '
  249. TABOBL(JGM0+10)='S0 '
  250. RETURN
  251. C ====
  252. C 10 - Modele viscoplastique NOUAILLAS_A
  253. C ====
  254. ELSE IF (IPLAC.EQ.10) THEN
  255. JGM0=JGOBL
  256. JGOBL=JGM0+22
  257. TABOBL(JGM0+ 1)='ALF '
  258. TABOBL(JGM0+ 2)='N '
  259. TABOBL(JGM0+ 3)='KK '
  260. TABOBL(JGM0+ 4)='K0 '
  261. TABOBL(JGM0+ 5)='ALFK'
  262. TABOBL(JGM0+ 6)='ALFR'
  263. TABOBL(JGM0+ 7)='CL1 '
  264. TABOBL(JGM0+ 8)='DNL1'
  265. TABOBL(JGM0+ 9)='PHI '
  266. TABOBL(JGM0+10)='CL2 '
  267. TABOBL(JGM0+11)='DNL2'
  268. TABOBL(JGM0+12)='B '
  269. TABOBL(JGM0+13)='GDM1'
  270. TABOBL(JGM0+14)='GDM2'
  271. TABOBL(JGM0+15)='PTM1'
  272. TABOBL(JGM0+16)='PTM2'
  273. TABOBL(JGM0+17)='GAMA'
  274. TABOBL(JGM0+18)='M '
  275. TABOBL(JGM0+19)='ETA '
  276. TABOBL(JGM0+20)='MU '
  277. TABOBL(JGM0+21)='QMAX'
  278. TABOBL(JGM0+22)='QSTA'
  279. RETURN
  280. C ====
  281. C 11 - Modele viscoplastique NOUAILLAS_B
  282. C ====
  283. ELSE IF (IPLAC.EQ.11) THEN
  284. JGM0=JGOBL
  285. JGOBL=JGM0+14
  286. TABOBL(JGM0+ 1)='ALF '
  287. TABOBL(JGM0+ 2)='N '
  288. TABOBL(JGM0+ 3)='KK '
  289. TABOBL(JGM0+ 4)='K0 '
  290. TABOBL(JGM0+ 5)='CL1 '
  291. TABOBL(JGM0+ 6)='DNL1'
  292. TABOBL(JGM0+ 7)='PHI '
  293. TABOBL(JGM0+ 8)='CL2 '
  294. TABOBL(JGM0+ 9)='DNL2'
  295. TABOBL(JGM0+10)='B '
  296. TABOBL(JGM0+11)='GDM1'
  297. TABOBL(JGM0+12)='PTM1'
  298. TABOBL(JGM0+13)='RMAX'
  299. TABOBL(JGM0+14)='BR '
  300. RETURN
  301. C ====
  302. C 12 - Modele viscoplastique VISK2
  303. C ====
  304. ELSE IF (IPLAC.EQ.12) THEN
  305. JGM0=JGOBL
  306. JGOBL=JGM0+5
  307. TABOBL(JGM0+1)='SIGY'
  308. TABOBL(JGM0+2)='H '
  309. TABOBL(JGM0+3)='ETA '
  310. TABOBL(JGM0+4)='HVIS'
  311. TABOBL(JGM0+5)='N '
  312. RETURN
  313. C ====
  314. C 13 - Modele VISCOHINTE
  315. C ====
  316. ELSE IF (IPLAC.EQ.13) THEN
  317. JGM0=JGOBL
  318. JGOBL=JGM0+7
  319. TABOBL(JGM0+1)='GAM1'
  320. TABOBL(JGM0+2)='AL '
  321. TABOBL(JGM0+3)='KK '
  322. TABOBL(JGM0+4)='NN '
  323. TABOBL(JGM0+5)='YO '
  324. TABOBL(JGM0+6)='YC '
  325. TABOBL(JGM0+7)='MM '
  326. RETURN
  327. C ====
  328. C 14 - Modele viscoplastique MISTRAL
  329. C ====
  330. ELSE IF (IPLAC.EQ.14) THEN
  331. JGM0=JGOBL
  332. JGOBL=JGM0+13
  333. TABOBL(JGM0+ 1)='SIP1'
  334. TABOBL(JGM0+ 2)='SIP2'
  335. TABOBL(JGM0+ 3)='IBAS'
  336. TABOBL(JGM0+ 4)='DILT'
  337. TABOBL(JGM0+ 5)='NBRE'
  338. TABOBL(JGM0+ 6)='COHI'
  339. TABOBL(JGM0+ 7)='ACOU'
  340. TABOBL(JGM0+ 8)='EDIR'
  341. TABOBL(JGM0+ 9)='RVCE'
  342. TABOBL(JGM0+10)='ECRX'
  343. TABOBL(JGM0+11)='DVDI'
  344. TABOBL(JGM0+12)='CROI'
  345. TABOBL(JGM0+13)='INCR'
  346. RETURN
  347. C ====
  348. C 15 - Modele viscoplastique BETON_URGC
  349. C ====
  350. ELSE IF (IPLAC.EQ.15) THEN
  351. JGM0=JGOBL
  352. JGOBL=JGM0+10
  353. TABOBL(JGM0+ 1)='ALFA'
  354. TABOBL(JGM0+ 2)='BETA'
  355. TABOBL(JGM0+ 3)='LCS '
  356. TABOBL(JGM0+ 4)='GFC'
  357. TABOBL(JGM0+ 5)='GFT'
  358. TABOBL(JGM0+ 6)='ITON'
  359. TABOBL(JGM0+ 7)='IMOD'
  360. TABOBL(JGM0+ 8)='ICT '
  361. TABOBL(JGM0+ 9)='ICC'
  362. TABOBL(JGM0+10)='ETA'
  363. RETURN
  364. C ====
  365. C 16 - Modele LEMENDO (fluage de type LEMaitre avec ENDOmmagement)
  366. C ====
  367. ELSE IF (IPLAC.EQ.16) THEN
  368. JGM0=JGOBL
  369. JGOBL=JGM0+9
  370. TABOBL(JGM0+1)='SIGY'
  371. TABOBL(JGM0+2)='N '
  372. TABOBL(JGM0+3)='M '
  373. TABOBL(JGM0+4)='KK '
  374. TABOBL(JGM0+5)='ALP1'
  375. TABOBL(JGM0+6)='BLP1'
  376. TABOBL(JGM0+7)='R '
  377. TABOBL(JGM0+8)='A '
  378. TABOBL(JGM0+9)='EXK '
  379. RETURN
  380. C ====
  381. C 17 - Modele FLUNOR2 (fluage de type Norton)
  382. C ====
  383. ELSE IF (IPLAC.EQ.17) THEN
  384. JGM0=JGOBL
  385. JGOBL=JGM0+6
  386. TABOBL(JGM0+1)='SIGY'
  387. TABOBL(JGM0+2)='AF1 '
  388. TABOBL(JGM0+3)='AF2 '
  389. TABOBL(JGM0+4)='AF3 '
  390. TABOBL(JGM0+5)='SFFS'
  391. TABOBL(JGM0+6)='EFFS'
  392. RETURN
  393. C ====
  394. C 18 - Modele GATT_MONERIE
  395. C ====
  396. ELSE IF (IPLAC.EQ.18) THEN
  397. JGM0=JGOBL
  398. JGOBL=JGM0+32
  399. TABOBL(JGM0+ 1)='R '
  400. TABOBL(JGM0+ 2)='DG '
  401. TABOBL(JGM0+ 3)='K1 '
  402. TABOBL(JGM0+ 4)='M1 '
  403. TABOBL(JGM0+ 5)='Q1 '
  404. TABOBL(JGM0+ 6)='N1 '
  405. TABOBL(JGM0+ 7)='K2 '
  406. TABOBL(JGM0+ 8)='M2 '
  407. TABOBL(JGM0+ 9)='Q2 '
  408. TABOBL(JGM0+10)='N2 '
  409. TABOBL(JGM0+11)='OMEG'
  410. TABOBL(JGM0+12)='Q '
  411. TABOBL(JGM0+13)='H '
  412. TABOBL(JGM0+14)='BETA'
  413. TABOBL(JGM0+15)='K '
  414. TABOBL(JGM0+16)='A '
  415. TABOBL(JGM0+17)='Q3 '
  416. TABOBL(JGM0+18)='N3 '
  417. TABOBL(JGM0+19)='ADEN'
  418. TABOBL(JGM0+20)='KGON'
  419. TABOBL(JGM0+21)='POR0'
  420. TABOBL(JGM0+22)='BUMI'
  421. TABOBL(JGM0+23)='EFIS'
  422. TABOBL(JGM0+24)='DG0 '
  423. TABOBL(JGM0+25)='CR1 '
  424. TABOBL(JGM0+26)='CR2 '
  425. TABOBL(JGM0+27)='CR3 '
  426. TABOBL(JGM0+28)='CR '
  427. TABOBL(JGM0+29)='KP '
  428. TABOBL(JGM0+30)='AP '
  429. TABOBL(JGM0+31)='BP '
  430. TABOBL(JGM0+32)='QP '
  431.  
  432. JGM0=JGFAC
  433. JGFAC=JGM0+6
  434. TABFAC(JGM0+ 1)='TYPE'
  435. TABFAC(JGM0+ 2)='COMP'
  436. TABFAC(JGM0+ 3)='DYN '
  437. TABFAC(JGM0+ 4)='DYN1'
  438. TABFAC(JGM0+ 5)='DYN2'
  439. TABFAC(JGM0+ 6)='DYN3'
  440. RETURN
  441. C ====
  442. C 19 - Modele UO2 = OTTOSEN + GATT_MONERIE
  443. C ====
  444. ELSE IF (IPLAC.EQ.19) THEN
  445. C= 19.1 - Modes de calcul PLAN DEFO, PLAN GENE, Axisymetrie, Fourier
  446. IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1.OR.
  447. . IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  448. JGM0=JGOBL
  449. JGOBL=JGM0+39
  450. TABOBL(JGM0+ 1)='R '
  451. TABOBL(JGM0+ 2)='DG '
  452. TABOBL(JGM0+ 3)='K1 '
  453. TABOBL(JGM0+ 4)='M1 '
  454. TABOBL(JGM0+ 5)='Q1 '
  455. TABOBL(JGM0+ 6)='N1 '
  456. TABOBL(JGM0+ 7)='K2 '
  457. TABOBL(JGM0+ 8)='M2 '
  458. TABOBL(JGM0+ 9)='Q2 '
  459. TABOBL(JGM0+10)='N2 '
  460. TABOBL(JGM0+11)='OMEG'
  461. TABOBL(JGM0+12)='Q '
  462. TABOBL(JGM0+13)='H '
  463. TABOBL(JGM0+14)='BETA'
  464. TABOBL(JGM0+15)='K '
  465. TABOBL(JGM0+16)='A '
  466. TABOBL(JGM0+17)='Q3 '
  467. TABOBL(JGM0+18)='N3 '
  468. TABOBL(JGM0+19)='ADEN'
  469. TABOBL(JGM0+20)='KGON'
  470. TABOBL(JGM0+21)='POR0'
  471. TABOBL(JGM0+22)='BUMI'
  472. TABOBL(JGM0+23)='EFIS'
  473. TABOBL(JGM0+24)='DG0 '
  474. TABOBL(JGM0+25)='CR1 '
  475. TABOBL(JGM0+26)='CR2 '
  476. TABOBL(JGM0+27)='CR3 '
  477. TABOBL(JGM0+28)='CR '
  478. TABOBL(JGM0+29)='KP '
  479. TABOBL(JGM0+30)='AP '
  480. TABOBL(JGM0+31)='BP '
  481. TABOBL(JGM0+32)='QP '
  482. IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1) THEN
  483. TABOBL(JGM0+33)='LXX '
  484. TABOBL(JGM0+34)='LYY '
  485. TABOBL(JGM0+35)='LXY '
  486. TABOBL(JGM0+36)='LZZ '
  487. TABOBL(JGM0+37)='PXX '
  488. TABOBL(JGM0+38)='PYY '
  489. TABOBL(JGM0+39)='PXY '
  490. C* ELSE IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  491. ELSE
  492. TABOBL(JGM0+33)='LRR '
  493. TABOBL(JGM0+34)='LZZ '
  494. TABOBL(JGM0+35)='LRZ '
  495. TABOBL(JGM0+36)='LOO '
  496. TABOBL(JGM0+37)='PRR '
  497. TABOBL(JGM0+38)='PZZ '
  498. TABOBL(JGM0+39)='PRZ '
  499. ENDIF
  500. JGM0=JGFAC
  501. JGFAC=JGM0+28
  502. TABFAC(JGM0+ 1)='GFTR'
  503. TABFAC(JGM0+ 2)='LTR '
  504. TABFAC(JGM0+ 3)='GS '
  505. TABFAC(JGM0+ 4)='BTR '
  506. TABFAC(JGM0+ 5)='WRUP'
  507. TABFAC(JGM0+ 6)='BILI'
  508. TABFAC(JGM0+ 7)='EPSR'
  509. TABFAC(JGM0+ 8)='GFT1'
  510. TABFAC(JGM0+ 9)='GFT2'
  511. TABFAC(JGM0+10)='GFT3'
  512. TABFAC(JGM0+11)='GS1 '
  513. TABFAC(JGM0+12)='GS2 '
  514. TABFAC(JGM0+13)='GS3 '
  515. TABFAC(JGM0+14)='LTR1'
  516. TABFAC(JGM0+15)='LTR2'
  517. TABFAC(JGM0+16)='LTR3'
  518. TABFAC(JGM0+17)='WRU1'
  519. TABFAC(JGM0+18)='WRU2'
  520. TABFAC(JGM0+19)='BIL1'
  521. TABFAC(JGM0+20)='BIL2'
  522. TABFAC(JGM0+21)='EPSB'
  523. TABFAC(JGM0+22)='SIMP'
  524. TABFAC(JGM0+23)='TYPE'
  525. TABFAC(JGM0+24)='COMP'
  526. TABFAC(JGM0+25)='DYN '
  527. TABFAC(JGM0+26)='DYN1'
  528. TABFAC(JGM0+27)='DYN2'
  529. TABFAC(JGM0+28)='DYN3'
  530. RETURN
  531. C= 19.2 - Modes de calcul PLAN CONT et TRIDimensionnel COQUEs minces
  532. ELSE IF ((IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)).OR.
  533. . IFOUR.EQ.-2) THEN
  534. JGM0=JGOBL
  535. JGOBL=JGM0+39
  536. TABOBL(JGM0+ 1)='R '
  537. TABOBL(JGM0+ 2)='DG '
  538. TABOBL(JGM0+ 3)='K1 '
  539. TABOBL(JGM0+ 4)='M1 '
  540. TABOBL(JGM0+ 5)='Q1 '
  541. TABOBL(JGM0+ 6)='N1 '
  542. TABOBL(JGM0+ 7)='K2 '
  543. TABOBL(JGM0+ 8)='M2 '
  544. TABOBL(JGM0+ 9)='Q2 '
  545. TABOBL(JGM0+10)='N2 '
  546. TABOBL(JGM0+11)='OMEG'
  547. TABOBL(JGM0+12)='Q '
  548. TABOBL(JGM0+13)='H '
  549. TABOBL(JGM0+14)='BETA'
  550. TABOBL(JGM0+15)='K '
  551. TABOBL(JGM0+16)='A '
  552. TABOBL(JGM0+17)='Q3 '
  553. TABOBL(JGM0+18)='N3 '
  554. TABOBL(JGM0+19)='ADEN'
  555. TABOBL(JGM0+20)='KGON'
  556. TABOBL(JGM0+21)='POR0'
  557. TABOBL(JGM0+22)='BUMI'
  558. TABOBL(JGM0+23)='EFIS'
  559. TABOBL(JGM0+24)='DG0 '
  560. TABOBL(JGM0+25)='CR1 '
  561. TABOBL(JGM0+26)='CR2 '
  562. TABOBL(JGM0+27)='CR3 '
  563. TABOBL(JGM0+28)='CR '
  564. TABOBL(JGM0+29)='KP '
  565. TABOBL(JGM0+30)='AP '
  566. TABOBL(JGM0+31)='BP '
  567. TABOBL(JGM0+32)='QP '
  568. IF (IFOUR.EQ.-2) THEN
  569. TABOBL(JGM0+33)='LXX '
  570. TABOBL(JGM0+34)='LYY '
  571. TABOBL(JGM0+35)='LXY '
  572. TABOBL(JGM0+36)='LZZ '
  573. TABOBL(JGM0+37)='PXX '
  574. TABOBL(JGM0+38)='PYY '
  575. TABOBL(JGM0+39)='PXY '
  576. C* ELSE IF (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
  577. ELSE
  578. TABOBL(JGM0+33)='LSS '
  579. TABOBL(JGM0+34)='LTT '
  580. TABOBL(JGM0+35)='LST '
  581. TABOBL(JGM0+36)='LNN '
  582. TABOBL(JGM0+37)='PSS '
  583. TABOBL(JGM0+38)='PTT '
  584. TABOBL(JGM0+39)='PST '
  585. ENDIF
  586.  
  587. JGM0=JGFAC
  588. JGFAC=JGM0+23
  589. TABFAC(JGM0+ 1)='GFTR'
  590. TABFAC(JGM0+ 2)='LTR '
  591. TABFAC(JGM0+ 3)='GS '
  592. TABFAC(JGM0+ 4)='BTR '
  593. TABFAC(JGM0+ 5)='WRUP'
  594. TABFAC(JGM0+ 6)='BILI'
  595. TABFAC(JGM0+ 7)='GFT1'
  596. TABFAC(JGM0+ 8)='GFT2'
  597. TABFAC(JGM0+ 9)='GS1 '
  598. TABFAC(JGM0+10)='GS2 '
  599. TABFAC(JGM0+11)='LTR1'
  600. TABFAC(JGM0+12)='LTR2'
  601. TABFAC(JGM0+13)='WRU1'
  602. TABFAC(JGM0+14)='WRU2'
  603. TABFAC(JGM0+15)='BIL1'
  604. TABFAC(JGM0+16)='BIL2'
  605. TABFAC(JGM0+17)='SIMP'
  606. TABFAC(JGM0+18)='TYPE'
  607. TABFAC(JGM0+19)='COMP'
  608. TABFAC(JGM0+20)='DYN '
  609. TABFAC(JGM0+21)='DYN1'
  610. TABFAC(JGM0+22)='DYN2'
  611. TABFAC(JGM0+23)='DYN3'
  612. RETURN
  613. C= 19.3 - Formulation TRIDIMENSIONNELLE MASSIVE
  614. ELSE IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
  615. JGM0=JGOBL
  616. JGOBL=JGM0+44
  617. TABOBL(JGM0+ 1)='R '
  618. TABOBL(JGM0+ 2)='DG '
  619. TABOBL(JGM0+ 3)='K1 '
  620. TABOBL(JGM0+ 4)='M1 '
  621. TABOBL(JGM0+ 5)='Q1 '
  622. TABOBL(JGM0+ 6)='N1 '
  623. TABOBL(JGM0+ 7)='K2 '
  624. TABOBL(JGM0+ 8)='M2 '
  625. TABOBL(JGM0+ 9)='Q2 '
  626. TABOBL(JGM0+10)='N2 '
  627. TABOBL(JGM0+11)='OMEG'
  628. TABOBL(JGM0+12)='Q '
  629. TABOBL(JGM0+13)='H '
  630. TABOBL(JGM0+14)='BETA'
  631. TABOBL(JGM0+15)='K '
  632. TABOBL(JGM0+16)='A '
  633. TABOBL(JGM0+17)='Q3 '
  634. TABOBL(JGM0+18)='N3 '
  635. TABOBL(JGM0+19)='ADEN'
  636. TABOBL(JGM0+20)='KGON'
  637. TABOBL(JGM0+21)='POR0'
  638. TABOBL(JGM0+22)='BUMI'
  639. TABOBL(JGM0+23)='EFIS'
  640. TABOBL(JGM0+24)='DG0 '
  641. TABOBL(JGM0+25)='CR1 '
  642. TABOBL(JGM0+26)='CR2 '
  643. TABOBL(JGM0+27)='CR3 '
  644. TABOBL(JGM0+28)='CR '
  645. TABOBL(JGM0+29)='KP '
  646. TABOBL(JGM0+30)='AP '
  647. TABOBL(JGM0+31)='BP '
  648. TABOBL(JGM0+32)='QP '
  649. TABOBL(JGM0+33)='LXX '
  650. TABOBL(JGM0+34)='LYY '
  651. TABOBL(JGM0+35)='LZZ '
  652. TABOBL(JGM0+36)='LXY '
  653. TABOBL(JGM0+37)='LXZ '
  654. TABOBL(JGM0+38)='LYZ '
  655. TABOBL(JGM0+39)='PXX '
  656. TABOBL(JGM0+40)='PYY '
  657. TABOBL(JGM0+41)='PZZ '
  658. TABOBL(JGM0+42)='PXY '
  659. TABOBL(JGM0+43)='PXZ '
  660. TABOBL(JGM0+44)='PYZ '
  661.  
  662. JGM0=JGFAC
  663. JGFAC=JGM0+28
  664. TABFAC(JGM0+ 1)='GFTR'
  665. TABFAC(JGM0+ 2)='LTR '
  666. TABFAC(JGM0+ 3)='GS '
  667. TABFAC(JGM0+ 4)='BTR '
  668. TABFAC(JGM0+ 5)='WRUP'
  669. TABFAC(JGM0+ 6)='BILI'
  670. TABFAC(JGM0+ 7)='GFT1'
  671. TABFAC(JGM0+ 8)='GFT2'
  672. TABFAC(JGM0+ 9)='GFT3'
  673. TABFAC(JGM0+10)='GS1 '
  674. TABFAC(JGM0+11)='GS2 '
  675. TABFAC(JGM0+12)='GS3 '
  676. TABFAC(JGM0+13)='LTR1'
  677. TABFAC(JGM0+14)='LTR2'
  678. TABFAC(JGM0+15)='LTR3'
  679. TABFAC(JGM0+16)='WRU1'
  680. TABFAC(JGM0+17)='WRU2'
  681. TABFAC(JGM0+18)='WRU3'
  682. TABFAC(JGM0+19)='BIL1'
  683. TABFAC(JGM0+20)='BIL2'
  684. TABFAC(JGM0+21)='BIL3'
  685. TABFAC(JGM0+22)='SIMP'
  686. TABFAC(JGM0+23)='TYPE'
  687. TABFAC(JGM0+24)='COMP'
  688. TABFAC(JGM0+25)='DYN '
  689. TABFAC(JGM0+26)='DYN1'
  690. TABFAC(JGM0+27)='DYN2'
  691. TABFAC(JGM0+28)='DYN3'
  692. RETURN
  693.  
  694. C= 19.4 - Formulation UNIDIMENSIONNELLE (1D) MASSIVE
  695. ELSE IF ((IFOUR.GE.3.AND.IFOUR.LE.15).AND.MFR.EQ.1) THEN
  696. JGM0=JGOBL
  697. JGOBL=JGM0+37
  698. TABOBL(JGM0+ 1)='R '
  699. TABOBL(JGM0+ 2)='DG '
  700. TABOBL(JGM0+ 3)='K1 '
  701. TABOBL(JGM0+ 4)='M1 '
  702. TABOBL(JGM0+ 5)='Q1 '
  703. TABOBL(JGM0+ 6)='N1 '
  704. TABOBL(JGM0+ 7)='K2 '
  705. TABOBL(JGM0+ 8)='M2 '
  706. TABOBL(JGM0+ 9)='Q2 '
  707. TABOBL(JGM0+10)='N2 '
  708. TABOBL(JGM0+11)='OMEG'
  709. TABOBL(JGM0+12)='Q '
  710. TABOBL(JGM0+13)='H '
  711. TABOBL(JGM0+14)='BETA'
  712. TABOBL(JGM0+15)='K '
  713. TABOBL(JGM0+16)='A '
  714. TABOBL(JGM0+17)='Q3 '
  715. TABOBL(JGM0+18)='N3 '
  716. TABOBL(JGM0+19)='ADEN'
  717. TABOBL(JGM0+20)='KGON'
  718. TABOBL(JGM0+21)='POR0'
  719. TABOBL(JGM0+22)='BUMI'
  720. TABOBL(JGM0+23)='EFIS'
  721. TABOBL(JGM0+24)='DG0 '
  722. TABOBL(JGM0+25)='CR1 '
  723. TABOBL(JGM0+26)='CR2 '
  724. TABOBL(JGM0+27)='CR3 '
  725. TABOBL(JGM0+28)='CR '
  726. TABOBL(JGM0+29)='KP '
  727. TABOBL(JGM0+30)='AP '
  728. TABOBL(JGM0+31)='BP '
  729. TABOBL(JGM0+32)='QP '
  730. C*OF A finir en fonction des definitions de ces grandeurs
  731. C*OF et en fonction de IFOUR
  732. IF (IFOUR.LE.11) THEN
  733. TABOBL(JGM0+33)='LXX '
  734. TABOBL(JGM0+34)='LYY '
  735. TABOBL(JGM0+35)='LZZ '
  736. TABOBL(JGM0+36)='PXX '
  737. TABOBL(JGM0+37)='PYY '
  738. ELSE
  739. TABOBL(JGM0+33)='LRR '
  740. TABOBL(JGM0+34)='LZZ '
  741. TABOBL(JGM0+35)='LOO '
  742. TABOBL(JGM0+36)='PRR '
  743. TABOBL(JGM0+37)='PZZ '
  744. ENDIF
  745. JGM0=JGFAC
  746. JGFAC=JGM0+28
  747. C* A finir en fonction de la def. des parametres !
  748. TABFAC(JGM0+ 1)='GFTR'
  749. TABFAC(JGM0+ 2)='LTR '
  750. TABFAC(JGM0+ 3)='GS '
  751. TABFAC(JGM0+ 4)='BTR '
  752. TABFAC(JGM0+ 5)='WRUP'
  753. TABFAC(JGM0+ 6)='BILI'
  754. TABFAC(JGM0+ 7)='GFT1'
  755. TABFAC(JGM0+ 8)='GFT2'
  756. TABFAC(JGM0+ 9)='GFT3'
  757. TABFAC(JGM0+10)='GS1 '
  758. TABFAC(JGM0+11)='GS2 '
  759. TABFAC(JGM0+12)='GS3 '
  760. TABFAC(JGM0+13)='LTR1'
  761. TABFAC(JGM0+14)='LTR2'
  762. TABFAC(JGM0+15)='LTR3'
  763. TABFAC(JGM0+16)='WRU1'
  764. TABFAC(JGM0+17)='WRU2'
  765. TABFAC(JGM0+18)='WRU3'
  766. TABFAC(JGM0+19)='BIL1'
  767. TABFAC(JGM0+20)='BIL2'
  768. TABFAC(JGM0+21)='BIL3'
  769. TABFAC(JGM0+22)='SIMP'
  770. TABFAC(JGM0+23)='TYPE'
  771. TABFAC(JGM0+24)='COMP'
  772. TABFAC(JGM0+25)='DYN '
  773. TABFAC(JGM0+26)='DYN1'
  774. TABFAC(JGM0+27)='DYN2'
  775. TABFAC(JGM0+28)='DYN3'
  776. RETURN
  777. ENDIF
  778. C ====
  779. C 20 - Modele viscoplastique BETON_URGC_ENDO
  780. C ====
  781. ELSE IF (IPLAC.EQ.20) THEN
  782. JGM0=JGOBL
  783. JGOBL=JGM0+12
  784. TABOBL(JGM0+ 1)='ALFA'
  785. TABOBL(JGM0+ 2)='BETA'
  786. TABOBL(JGM0+ 3)='LCS '
  787. TABOBL(JGM0+ 4)='GFC '
  788. TABOBL(JGM0+ 5)='GFT '
  789. TABOBL(JGM0+ 6)='ITON'
  790. TABOBL(JGM0+ 7)='IMOD'
  791. TABOBL(JGM0+ 8)='DC '
  792. TABOBL(JGM0+ 9)='DT '
  793. TABOBL(JGM0+10)='IASO'
  794. TABOBL(JGM0+11)='ICOU'
  795. TABOBL(JGM0+12)='ETA '
  796. RETURN
  797. C ====
  798. C 21 - Modele viscoplastique double endommagement
  799. C ====
  800. ELSE IF (IPLAC.EQ.21) THEN
  801. JGM0=JGOBL
  802. JGOBL=JGM0+11
  803. TABOBL(JGM0+1)='SIGY'
  804. TABOBL(JGM0+2)='B'
  805. TABOBL(JGM0+3)='RI'
  806. TABOBL(JGM0+4)='K'
  807. TABOBL(JGM0+5)='N'
  808. TABOBL(JGM0+6)='SD'
  809. TABOBL(JGM0+7)='RD'
  810. TABOBL(JGM0+8)='PD'
  811. TABOBL(JGM0+9)='SC'
  812. TABOBL(JGM0+10)='RC'
  813. TABOBL(JGM0+11)='PC'
  814. RETURN
  815. C ====
  816. C 22 - Modele viscoplastique CHAB_SINH_R
  817. C ====
  818. ELSE IF (IPLAC.EQ.22) THEN
  819. JGM0=JGOBL
  820. JGOBL=JGM0+6
  821. TABOBL(JGM0+1)='SIGY'
  822. TABOBL(JGM0+2)='B'
  823. TABOBL(JGM0+3)='RI'
  824. TABOBL(JGM0+4)='K'
  825. TABOBL(JGM0+5)='N'
  826. TABOBL(JGM0+6)='epso'
  827. RETURN
  828. C ====
  829. C 23 - Modele viscoplastique CHAB_SINH_X
  830. C ====
  831. ELSE IF (IPLAC.EQ.23) THEN
  832. JGM0=JGOBL
  833. JGOBL=JGM0+9
  834. TABOBL(JGM0+1)='SIGY'
  835. TABOBL(JGM0+2)='B'
  836. TABOBL(JGM0+3)='RI'
  837. TABOBL(JGM0+4)='K'
  838. TABOBL(JGM0+5)='N'
  839. TABOBL(JGM0+6)='epso'
  840. TABOBL(JGM0+7)='C1'
  841. TABOBL(JGM0+8)='gam1'
  842. TABOBL(JGM0+9)='C2'
  843. RETURN
  844. C ====
  845. C 24 - Modele viscoplastique CHAB_NOR_R
  846. C ====
  847. ELSE IF (IPLAC.EQ.24) THEN
  848. JGM0=JGOBL
  849. JGOBL=JGM0+5
  850. TABOBL(JGM0+1)='SIGY'
  851. TABOBL(JGM0+2)='B'
  852. TABOBL(JGM0+3)='RI'
  853. TABOBL(JGM0+4)='K'
  854. TABOBL(JGM0+5)='N'
  855. RETURN
  856. C ====
  857. C 25 - Modele viscoplastique CHAB_NOR_X
  858. C ====
  859. ELSE IF (IPLAC.EQ.25) THEN
  860. JGM0=JGOBL
  861. JGOBL=JGM0+8
  862. TABOBL(JGM0+1)='SIGY'
  863. TABOBL(JGM0+2)='B'
  864. TABOBL(JGM0+3)='RI'
  865. TABOBL(JGM0+4)='K'
  866. TABOBL(JGM0+5)='N'
  867. TABOBL(JGM0+6)='C1'
  868. TABOBL(JGM0+7)='gam1'
  869. TABOBL(JGM0+8)='C2'
  870. RETURN
  871. C ===
  872. C 26 - Modele d'ecrouissage-VISCOsite multiplicative avec enDOMMAGEment anisotrope
  873. C ===
  874. ELSE IF (IPLAC.EQ.26) THEN
  875. JGM0=JGOBL
  876. JGOBL=JGM0+8
  877. TABOBL(JGM0+1)='N '
  878. TABOBL(JGM0+2)='M '
  879. TABOBL(JGM0+3)='KK '
  880. TABOBL(JGM0+4)='ALF2'
  881. TABOBL(JGM0+5)='BET2'
  882. TABOBL(JGM0+6)='R '
  883. TABOBL(JGM0+7)='A '
  884. TABOBL(JGM0+8)='Q '
  885.  
  886. JGM0=JGFAC
  887. JGFAC=JGM0+1
  888. TABFAC(JGM0+1)='SMAX'
  889. RETURN
  890. C ===
  891. C 27 - Modele FLUTRA
  892. C ===
  893. ELSE IF (IPLAC.EQ.27) THEN
  894. JGM0=JGOBL
  895. JGOBL=JGM0+24
  896. TABOBL(JGM0+1)= 'KTR0'
  897. TABOBL(JGM0+2)= 'ATRA'
  898. TABOBL(JGM0+3)= 'BTRA'
  899. TABOBL(JGM0+4)= 'ACOM'
  900. TABOBL(JGM0+5)= 'BCOM'
  901. TABOBL(JGM0+6)= 'EKV1'
  902. TABOBL(JGM0+7)= 'TKV1'
  903. TABOBL(JGM0+8)= 'EKV2'
  904. TABOBL(JGM0+9)= 'TKV2'
  905. TABOBL(JGM0+10)= 'EKV3'
  906. TABOBL(JGM0+11)= 'TKV3'
  907. TABOBL(JGM0+12)= 'EKV4'
  908. TABOBL(JGM0+13)= 'TKV4'
  909. TABOBL(JGM0+14)= 'EKV5'
  910. TABOBL(JGM0+15)= 'TKV5'
  911. TABOBL(JGM0+16)= 'EKV6'
  912. TABOBL(JGM0+17)= 'TKV6'
  913. TABOBL(JGM0+18)= 'BETA'
  914. TABOBL(JGM0+19)= 'ETA1'
  915. TABOBL(JGM0+20)= 'NUPO'
  916. TABOBL(JGM0+21)= 'XFDE'
  917. TABOBL(JGM0+22)= 'SLMA'
  918. TABOBL(JGM0+23)= 'VGEA'
  919. TABOBL(JGM0+24)= 'VGEB'
  920. RETURN
  921. C ===
  922. C 28 - Modele SYMONDS & COWPER SYCO1
  923. C ===
  924. ELSE IF (IPLAC.EQ.28) THEN
  925. JGM0=JGOBL
  926. JGOBL=JGM0+2
  927. TABOBL(JGM0+1)='PSYC'
  928. TABOBL(JGM0+2)='DSYC'
  929. RETURN
  930. C ===
  931. C 29 - Modele SYMONDS & COWPER SYCO2
  932. C ===
  933. ELSE IF (IPLAC.EQ.29) THEN
  934. JGM0=JGOBL
  935. JGOBL=JGM0+4
  936. TABOBL(JGM0+1)='PSYC'
  937. TABOBL(JGM0+2)='ASYC'
  938. TABOBL(JGM0+3)='BSYC'
  939. TABOBL(JGM0+4)='CSYC'
  940. RETURN
  941. ENDIF
  942. C ==========
  943. C ERREUR : modele non reference (IRET=0)
  944. C ==========
  945. IRET=0
  946. CALL ERREUR(261)
  947.  
  948. RETURN
  949. END
  950.  
  951.  

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