Télécharger idvisc.eso

Retour à la liste

Numérotation des lignes :

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

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