Télécharger bdata.eso

Retour à la liste

Numérotation des lignes :

  1. C BDATA SOURCE CB215821 17/10/18 21:15:01 9592
  2. BLOCK DATA
  3.  
  4. -INC CCOPTIO
  5. -INC CCPRECO
  6. -INC CCGEOME
  7. -INC CCREEL
  8. -INC CCNOYAU
  9. -INC CCHAMP
  10. -INC CCVQUA4
  11. -INC CCASSIS
  12. -INC CCFXDR
  13. -INC CCTRACE
  14. PARAMETER (UNTIER= 0.3333333333333333)
  15. PARAMETER (UNSIXI= 0.1666666666666667)
  16. PARAMETER (UNSIXM=-0.1666666666666667)
  17. PARAMETER (UNDOUZ= 0.0833333333333333)
  18.  
  19.  
  20. COMMON /CTDRAN/ r(32),xa,xm,xg,xval,xgerme,iflag,ibuff
  21. REAL*8 xa,xm,xg,xval,xgerme,r
  22.  
  23. C ------------------------
  24. C Valeurs de CCPRECO.INC :
  25. C ------------------------
  26.  
  27. C Preconditionnement numerotation
  28. DATA PRENUM / 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  29. . 0,0,0,0,0,0,0,0,0,0 /
  30.  
  31. C Preconditionnement COMP
  32. DATA PREORI / 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  33. . 0,0,0,0,0,0,0,0,0,0 /
  34. DATA PREPRE / 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  35. . 0,0,0,0,0,0,0,0,0,0 /
  36. DATA PRECLE / ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
  37. . ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
  38. . ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ' /
  39. C Preconditionnement crechp
  40. DATA PREMEL / nbemel*0/
  41. * DATA PREMEL / 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  42. * > 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  43. * . 0,0,0,0,0,0,0,0,0,0 /
  44.  
  45. C Preconditionnement part6
  46. DATA PARMOD / NMOPAR*0 /
  47. DATA PESCLA / NMOPAR*0 /
  48.  
  49. C Preconditionnement reduaf (Echelle globale MMODEL et MCHELM)
  50. PARAMETER(ITAIL1=NBASMA+1, ITAIL2=ITAIL1*NPREDU)
  51. DATA NBPRRE / ITAIL1*0 /
  52. DATA PRECMO / ITAIL2*0 /
  53. DATA PRECM1 / ITAIL2*0 /
  54. DATA PRECM2 / ITAIL2*0 /
  55.  
  56. C Preconditionnement reduaf (Intersections des MELEME)
  57. PARAMETER(ITAIL3=ITAIL1*NTRIPL)
  58. DATA NINTSA / ITAIL1*0 /
  59. DATA PMAMOD / ITAIL3*0 /
  60. DATA PMACHA / ITAIL3*0 /
  61. DATA PMLENT / ITAIL3*0 /
  62.  
  63. C Nombres d'assistants et parametres assistants
  64. DATA NBESC / 0 /
  65. DATA LODESL,LOTRMA,LODEFE / .FALSE.,.FALSE.,.FALSE. /
  66. DATA INILU,NOMLU / 0,0 /
  67. DATA IEGAL / 1 /
  68.  
  69.  
  70. C ------------------------
  71. C Valeurs de CCOPTIO.INC :
  72. C ------------------------
  73.  
  74. DATA TITREE/'GIBI FECIT
  75. . ' /
  76. DATA IERPER,IERMAX,IERR / 2,0,0 /
  77. DATA IOLEC,IOIMP,IOCAR,IOPER,MEPSIL,IOSAU,IORES / 5,6,4,7,2,8,2 /
  78. DATA IOACQ / 9 /
  79. DATA IOSCR / 0 /
  80. DATA IOTER / 5 /
  81. DATA LUPARA /0/
  82. DATA MISAUP /0/
  83. DATA ZLOPRO /.FALSE./
  84. C Pour IBM : a surcharger dans DEPMAC)
  85. DATA IZROSF / 4 /
  86. DATA IOSPI / 0 /
  87. DATA IIMPI / 0 /
  88. DATA IDIM / 0 /
  89. DATA IFOMOD,IFOUR,NIFOUR,NSDPGE / -1,-1, 0, 0 /
  90. DATA DIOCAD / 30. /
  91. C ... Lorsque IONIVE est modifié il ne faut pas oublier de modifier la
  92. C valeur maximale (en dur) dans OPTION ...
  93. DATA IONIVE / 20 /
  94. DATA NGMAXY/200000/
  95. DATA ISOTYP/1/
  96. DATA IOMBRE/1/
  97. DATA NORVAL/0/
  98. DATA NORVAD/0/
  99. DATA NORINC/0/
  100. DATA NORIND/0/
  101. DATA NUCROU/0/
  102. DATA LANGUE/'FRAN' /
  103. DATA IOEIL/0/
  104. DATA Ilgni/0/
  105. C Pour l'impression Postscript en vertical
  106. DATA ZHORIZ /.TRUE./
  107. DATA ZINIPS /.TRUE./
  108.  
  109. C Dimension d'une file en nombre de flottant simple precision
  110. DATA DIMFIC / 4.8E8 /
  111.  
  112. C Epaisseur du trait pour le tracé
  113. DATA IEPTR / 1 /
  114.  
  115.  
  116. C ------------------------
  117. C Valeurs de CCGEOME.INC :
  118. C -------------------------
  119.  
  120. PARAMETER (NDIR1=426,NDIR1P=NDIR1+1,NDIR2=310)
  121. PARAMETER (NDIR2P=NDIR1+NDIR2+1,NDIR3=764)
  122. PARAMETER (NFAC1=371,NFAC1P=NFAC1+1,NFAC2=339)
  123. PARAMETER (NFAC2P=NFAC1+NFAC2+1,NFAC3=290)
  124. INTEGER KSEGM1(NDIR1),KSEGM2(NDIR2),KSEGM3(NDIR3)
  125. INTEGER LFAC1(NFAC1),LFAC2(NFAC2),LFAC3(NFAC3)
  126. EQUIVALENCE (KSEGM(1),KSEGM1(1)),(KSEGM(NDIR1P),KSEGM2(1)),
  127. . (KSEGM(NDIR2P),KSEGM3(1))
  128. EQUIVALENCE (LFAC(1),LFAC1(1)),(LFAC(NFAC1P),LFAC2(1)),
  129. . (LFAC(NFAC2P),LFAC3(1))
  130. INTEGER LISNO1(378),LISNO2(378),LISNO3(340)
  131. INTEGER LIELM1(356),LIELM2(368)
  132. INTEGER LPOS11(2,105),LPOS12(2,109)
  133. EQUIVALENCE (LPOS1(1,1),LPOS11(1,1)),(LPOS1(1,106),LPOS12(1,1))
  134. EQUIVALENCE (LISNOE(1),LISNO1(1)),(LISNOE(379),LISNO2(1)),
  135. . (LISNOE(757),LISNO3(1))
  136. EQUIVALENCE (LIELM(1),LIELM1(1)),(LIELM(357),LIELM2(1))
  137.  
  138. PARAMETER (NTABM1=248,NTABM4=217)
  139. INTEGER ITABM1(NTABM1),ITABM2(NTABM1)
  140. INTEGER ITABM3(NTABM1),ITABM4(NTABM4)
  141. EQUIVALENCE (ITABM(0,0),ITABM1(1)),(ITABM(0,8),ITABM2(1))
  142. EQUIVALENCE (ITABM(0,16),ITABM3(1)),(ITABM(0,24),ITABM4(1))
  143.  
  144. C Couleur par defaut, indice du noir
  145. C Tableau des couleurs (indices de 0 à 100)
  146. DATA IDCOUL,IDNOIR,NBCOUL / 0,8,31 /
  147. DATA NCOUL / 'DEFA','BLEU','ROUG','ROSE','VERT','TURQ','JAUN',
  148. . 'BLAN','NOIR','VIOL','ORAN','AZUR','OCEA','CYAN',
  149. . 'OLIV','GRIS','POUR','BRUN','BRIQ','CORA','BEIG',
  150. . 'OR' ,'MARI','BOUT','LIME','LAVA','BRON','KAKI',
  151. . 'PEAU','CARA','INDI',70*' ' /
  152.  
  153. C Tableau de mélange des couleurs deux à deux [0:15,0:15]
  154. * DATA ITABM / 0,5,3,2,6,1,0,0,
  155. * . 5,1,3,3,5,5,4,5,
  156. * . 3,3,2,3,6,3,6,3,
  157. * . 2,3,3,3,2,3,6,2,
  158. * . 6,5,6,2,4,5,6,6,
  159. * . 1,5,3,4,5,5,4,1,
  160. * . 0,4,6,6,6,4,6,7,
  161. * . 0,5,3,2,6,1,7,7 /
  162. c DATA ITABM / 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,0 ,9 ,10,11,12,13,14,15,
  163. c . 1 ,1 ,11,11,14,5 ,4 ,7 ,1 ,1 ,6 ,11,12,13,14,1 ,
  164. c . 2 ,11,2 ,3 ,6 ,11,10,7 ,2 ,11,2 ,11,11,11,14,2 ,
  165. c . 3 ,11,3 ,3 ,2 ,3 ,6 ,7 ,3 ,11,2 ,9 ,13,2 ,15,3 ,
  166. c . 4 ,14,6 ,2 ,4 ,5 ,6 ,7 ,4 ,1 ,1 ,7 ,13,7 ,2 ,4 ,
  167. c . 5 ,5 ,3 ,4 ,5 ,5 ,4 ,7 ,5 ,4 ,12,1 ,13,5 ,15,5 ,
  168. c . 6 ,4 ,6 ,6 ,6 ,4 ,6 ,7 ,6 ,4 ,10,7 ,10,10,6 ,6 ,
  169. c . 7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,7 ,
  170. c . 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,10,11,12,13,14,15,
  171. c . 9 ,1 ,0 ,11,1 ,4 ,4 ,7 ,9 ,9 ,14,1 ,1 ,9 ,15,9 ,
  172. c . 10,10,0 ,2 ,1 ,12,10,7 ,10,14,10,7 ,5 ,14,14,10,
  173. c . 11,11,0 ,9 ,7 ,1 ,7 ,7 ,11,1 ,7 ,11,12,1 ,15,11,
  174. c . 12,12,0 ,13,13,13,10,7 ,12,1 ,5 ,12,12,1 ,5 ,12,
  175. c . 13,13,0 ,2 ,7 ,5 ,10,7 ,13,9 ,14,1 ,1 ,13,5 ,13,
  176. c . 14,14,0 ,15,2 ,15,6 ,7 ,14,15,14,15,5 ,5 ,14,14,
  177. c . 15,1 ,2 ,3 ,4 ,5 ,6 ,7 ,15,9 ,10,11,12,13,14,15 /
  178. DATA ITABM1 / 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,
  179. & 15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
  180. . 1, 1, 30,9, 12,11,12,13,22,1, 16,1, 11,11,12,
  181. & 11,9, 30,30,9, 13,12,1, 22,12,11,30,5, 9, 30,1,
  182. . 2, 30,2, 16,17,29,10,19,18,16,2, 16,17,29,29,
  183. & 19,18,18,2, 2, 19,10,18,17,26,19,29,19,19,18,18,
  184. . 3, 9, 16,3, 12,9, 19,28,30,3, 19,9, 16,28,16,
  185. & 28,3, 16,16,16,28,19,9, 30,28,28,16,28,3, 16,9,
  186. . 4, 12,17,12,4, 12,24,24,23,12,14,12,4, 12,4,
  187. & 12,12,23,17,14,14,14,23,4, 14,12,14,14,14,14,12,
  188. . 5, 11,29,9, 12,5, 14,13,12,11,14,5, 5, 5, 12,
  189. & 13,13,12,12,15,15,14,12,12,12,13,14,15,15,12,11,
  190. . 6, 12,10,19,24,14,6, 27,17,29,21,14,14,27,24,
  191. & 27,19,26,26,26,27,6, 17,14,6, 27,21,6, 27,26,29,
  192. . 7, 13,19,28,24,13,27,7, 12,28,27,13,15,25,27,
  193. & 25,28,29,28,28,25,27,13,12,27,0, 27,20,25,20,15/
  194. DATA ITABM2 / 8, 22,18,30,23,12,17,12,8, 30,17,22,23,12,17,
  195. & 12,17,8, 17,17,17,17,8, 8, 17,12,17,17,17,17,22,
  196. . 9, 1, 16,3, 12,11,29,28,30,9, 16,9, 30,9, 16,
  197. & 16,9, 16,16,16,28,29,30,30,29,15,16,16,16,16,9,
  198. . 10,16,2, 19,14,14,21,27,17,16,10,12,14,27,26,
  199. & 27,19,29,29,26,27,10,17,17,26,27,10,26,19,26,17,
  200. . 11,1, 16,9, 12,5, 14,13,22,9, 12,11,5, 5, 12,
  201. & 13,9, 12,30,12,13,14,1, 12,12,13,12,13,13,12,11,
  202. . 12,11,17,16,4, 5, 14,15,23,30,14,5, 12,5, 12,
  203. & 5, 29,12,17,29,15,14,12,12,14,13,14,14,15,14,12,
  204. . 13,11,29,28,12,5, 27,25,12,9, 27,5, 5, 13,15,
  205. & 13,15,12,29,15,15,27,11,12,27,15,27,15,15,15,11,
  206. . 14,12,29,16,4, 12,24,27,17,16,26,12,12,15,14,
  207. & 27,29,29,29,29,27,26,12,12,14,27,14,14,27,14,17,
  208. . 15,11,19,28,12,13,27,25,12,16,27,13,5, 13,27,
  209. & 15,28,29,29,28,15,27,12,12,27,15,27,20,15,27,16/
  210. DATA ITABM3 / 16,9, 18,3, 12,13,19,28,17,9, 19,9, 29,15,29,
  211. & 28,16,18,16,16,28,19,30,17,29,28,29,19,16,16,9,
  212. . 17,30,18,16,23,12,26,29,8, 16,29,12,12,12,29,
  213. & 29,18,17,17,29,29,26,30,17,14,29,29,29,29,17,17,
  214. . 18,30,2, 16,17,12,26,28,17,16,29,30,17,29,29,
  215. & 29,16,17,18,29,29,26,30,17,29,29,29,29,19,18,18,
  216. . 19,9, 2, 16,14,15,26,28,17,16,26,12,29,15,29,
  217. & 28,16,29,29,19,27,26,17,17,26,28,29,19,19,19,16,
  218. . 20,13,19,28,14,15,27,25,17,28,27,13,15,15,27,
  219. & 15,28,29,29,27,20,27,12,14,27,15,27,20,20,27,16,
  220. . 21,12,10,19,14,14,6, 27,17,29,10,14,14,27,26,
  221. & 27,19,26,26,26,27,21,17,14,6, 27,10,21,27,26,29,
  222. . 22,1, 18,9, 23,12,17,13,8, 30,17,1, 12,11,12,
  223. & 12,30,30,30,17,12,17,22,8, 12,5, 17,12,16,17,22,
  224. . 23,22,17,30,4, 12,14,12,8, 30,17,12,12,12,12,
  225. & 12,17,17,17,17,14,14,8, 23,14,12,17,14,12,17,22/
  226. DATA ITABM4 / 24,12,26,28,14,12,6, 27,17,29,26,12,14,27,14,
  227. & 27,29,14,29,26,27,6, 12,14,24,27,14,24,27,14,12,
  228. . 25,11,19,28,12,13,27,0, 12,15,27,13,13,15,27,
  229. & 15,28,29,29,28,15,27,5, 12,27,25,27,20,15,28,13,
  230. . 26,30,29,16,14,14,21,27,17,16,10,12,14,27,14,
  231. & 27,29,29,29,29,27,10,17,17,14,27,26,26,19,26,17,
  232. . 27,5, 19,28,14,15,6, 20,17,16,26,13,14,15,14,
  233. & 20,19,29,29,19,20,21,12,14,24,20,26,27,20,27,29,
  234. . 28,9, 19,3, 14,15,27,25,17,16,19,13,15,15,27,
  235. & 15,16,29,19,19,20,27,16,12,27,15,19,20,28,19,16,
  236. . 29,30,18,16,14,12,26,20,17,16,26,12,14,15,14,
  237. & 27,16,17,18,19,27,26,17,17,14,28,26,27,19,29,16,
  238. . 30,1, 18,9, 12,11,29,15,22,9, 17,11,12,11,17,
  239. & 16,9, 17,18,16,16,29,22,22,12,13,17,29,16,16,30/
  240.  
  241.  
  242. DATA DENSIT / 0. /
  243. DATA ILCOUR / 0 /
  244.  
  245. C Noms des elements support geometrique
  246. C ATTENTION : nombre LIMITE a 100 dans CCGEOME.INC)
  247. DATA NOMBR / 48 /
  248. DATA NOMS( 1),NOMS( 2),NOMS( 3),NOMS( 4),NOMS( 5),NOMS( 6),
  249. . NOMS( 7),NOMS( 8),NOMS( 9),NOMS(10),NOMS(11),NOMS(12),
  250. . NOMS(13),NOMS(14),NOMS(15),NOMS(16),NOMS(17),NOMS(18),
  251. . NOMS(19),NOMS(20),NOMS(21),NOMS(22),NOMS(23),NOMS(24),
  252. . NOMS(25),NOMS(26),NOMS(27),NOMS(28),NOMS(29),NOMS(30),
  253. . NOMS(31),NOMS(32),NOMS(33),NOMS(34),NOMS(35),NOMS(36),
  254. . NOMS(37),NOMS(38),NOMS(39),NOMS(40),NOMS(41),NOMS(42),
  255. . NOMS(43),NOMS(44),NOMS(45),NOMS(46),NOMS(47),NOMS(48)
  256. . / 'POI1','SEG2','SEG3','TRI3','TRI4','TRI6',
  257. . 'TRI7','QUA4','QUA5','QUA8','QUA9','RAC2',
  258. . 'RAC3','CUB8','CU20','PRI6','PR15','LIA3',
  259. . 'LIA4','LIA6','LIA8','MULT','TET4','TE10',
  260. . 'PYR5','PY13','ATTA','SUPE','RAP3','LIP6',
  261. . 'LIP8','POLY','CU27','PR21','TE15','PY19',
  262. . 'SEG4','QU16','TR12','PR18','SEG6','TR21',
  263. . 'QU36','C216','P126','TE56','PY91','SURE' /
  264. C Dimension des elements geometriques
  265. C -1 si pas de sens
  266. DATA LDLR( 1),LDLR( 2),LDLR( 3),LDLR( 4),LDLR( 5),LDLR( 6),
  267. . LDLR( 7),LDLR( 8),LDLR( 9),LDLR(10),LDLR(11),LDLR(12),
  268. . LDLR(13),LDLR(14),LDLR(15),LDLR(16),LDLR(17),LDLR(18),
  269. . LDLR(19),LDLR(20),LDLR(21),LDLR(22),LDLR(23),LDLR(24),
  270. . LDLR(25),LDLR(26),LDLR(27),LDLR(28),LDLR(29),LDLR(30),
  271. . LDLR(31),LDLR(32),LDLR(33),LDLR(34),LDLR(35),LDLR(36),
  272. . LDLR(37),LDLR(38),LDLR(39),LDLR(40),LDLR(41),LDLR(42),
  273. . LDLR(43),LDLR(44),LDLR(45),LDLR(46),LDLR(47),LDLR(48)
  274. . / 0, 1, 1, 2, 2, 2,
  275. . 2, 2, 2, 2, 2, 1,
  276. . 1, 3, 3, 3, 3, 2,
  277. . 2, 2, 2, -1, 3, 3,
  278. . 3, 3, -1, -1, 2, 3,
  279. . 3, 2, 3, 3, 3, 3,
  280. . 1, 2, 2, 3, 1, 2,
  281. . 2, 3, 3, 3, 3, -1 /
  282.  
  283. C Nombre de noeuds par element geometrique
  284. DATA NBNNE( 1),NBNNE( 2),NBNNE( 3),NBNNE( 4),NBNNE( 5),NBNNE( 6),
  285. . NBNNE( 7),NBNNE( 8),NBNNE( 9),NBNNE(10),NBNNE(11),NBNNE(12),
  286. . NBNNE(13),NBNNE(14),NBNNE(15),NBNNE(16),NBNNE(17),NBNNE(18),
  287. . NBNNE(19),NBNNE(20),NBNNE(21),NBNNE(22),NBNNE(23),NBNNE(24),
  288. . NBNNE(25),NBNNE(26),NBNNE(27),NBNNE(28),NBNNE(29),NBNNE(30),
  289. . NBNNE(31),NBNNE(32),NBNNE(33),NBNNE(34),NBNNE(35),NBNNE(36),
  290. . NBNNE(37),NBNNE(38),NBNNE(39),NBNNE(40),NBNNE(41),NBNNE(42),
  291. . NBNNE(43),NBNNE(44),NBNNE(45),NBNNE(46),NBNNE(47),NBNNE(48)
  292. . / 1, 2, 3, 3, 4, 6, 7, 4, 5, 8, 9, 4, 6, 8, 20,
  293. . 6, 15, 6, 8, 12, 16, 0, 4, 10, 5, 13, 0, 0, 8, 15,
  294. . 20, 0, 27, 21, 15, 19, 4, 16, 12, 18, 6, 21, 36,216,126,
  295. . 56, 91, 0 /
  296. C Degre de l'interpolation geometrique (nombre de noeuds par segment)
  297. DATA KDEGRE( 1),KDEGRE( 2),KDEGRE( 3),KDEGRE( 4),KDEGRE( 5),
  298. . KDEGRE( 6),KDEGRE( 7),KDEGRE( 8),KDEGRE( 9),KDEGRE(10),
  299. . KDEGRE(11),KDEGRE(12),KDEGRE(13),KDEGRE(14),KDEGRE(15),
  300. . KDEGRE(16),KDEGRE(17),KDEGRE(18),KDEGRE(19),KDEGRE(20),
  301. . KDEGRE(21),KDEGRE(22),KDEGRE(23),KDEGRE(24),KDEGRE(25),
  302. . KDEGRE(26),KDEGRE(27),KDEGRE(28),KDEGRE(29),KDEGRE(30),
  303. . KDEGRE(31),KDEGRE(32),KDEGRE(33),KDEGRE(34),KDEGRE(35),
  304. . KDEGRE(36),KDEGRE(37),KDEGRE(38),KDEGRE(39),KDEGRE(40),
  305. . KDEGRE(41),KDEGRE(42),KDEGRE(43),KDEGRE(44),KDEGRE(45),
  306. . KDEGRE(46),KDEGRE(47),KDEGRE(48)
  307. * 1 11 20
  308. . / 1, 2, 3, 2, 2, 3, 3, 2, 2, 3, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3,
  309. * 21 31 40
  310. . 3, 0, 2, 3, 2, 3, 0, 0, 3, 3, 3, 2, 3, 3, 3, 3, 4, 4, 4, 2,
  311. . 6, 6, 6, 6, 6, 6, 6, 0 /
  312. C Faces des elements (= numero element support des faces dans NOMS)
  313. DATA KSURF( 1),KSURF( 2),KSURF( 3),KSURF( 4),KSURF( 5),KSURF( 6),
  314. . KSURF( 7),KSURF( 8),KSURF( 9),KSURF(10),KSURF(11),KSURF(12),
  315. . KSURF(13),KSURF(14),KSURF(15),KSURF(16),KSURF(17),KSURF(18),
  316. . KSURF(19),KSURF(20),KSURF(21),KSURF(22),KSURF(23),KSURF(24),
  317. . KSURF(25),KSURF(26),KSURF(27),KSURF(28),KSURF(29),KSURF(30),
  318. . KSURF(31),KSURF(32),KSURF(33),KSURF(34),KSURF(35),KSURF(36),
  319. . KSURF(37),KSURF(38),KSURF(39),KSURF(40),KSURF(41),KSURF(42),
  320. . KSURF(43),KSURF(44),KSURF(45),KSURF(46),KSURF(47),KSURF(48)
  321. * 1 11 20
  322. . / 0, 0, 0, 4, 5, 6, 7, 8, 9,10,11, 8, 0, 8,10, 8,10, 8, 6, 8,
  323. * 21 31 40
  324. . 10, 0, 4, 6, 8,10, 0, 0,29, 6,10,32,11,11, 7,11,37,38,39,40,
  325. . 0,42,43,43,43,42,43, 0 /
  326. C Nombre de "sommets" de l'element geometrique
  327. DATA NBSOM( 1),NBSOM( 2),NBSOM( 3),NBSOM( 4),NBSOM( 5),NBSOM( 6),
  328. . NBSOM( 7),NBSOM( 8),NBSOM( 9),NBSOM(10),NBSOM(11),NBSOM(12),
  329. . NBSOM(13),NBSOM(14),NBSOM(15),NBSOM(16),NBSOM(17),NBSOM(18),
  330. . NBSOM(19),NBSOM(20),NBSOM(21),NBSOM(22),NBSOM(23),NBSOM(24),
  331. . NBSOM(25),NBSOM(26),NBSOM(27),NBSOM(28),NBSOM(29),NBSOM(30),
  332. . NBSOM(31),NBSOM(32),NBSOM(33),NBSOM(34),NBSOM(35),NBSOM(36),
  333. . NBSOM(37),NBSOM(38),NBSOM(39),NBSOM(40),NBSOM(41),NBSOM(42),
  334. . NBSOM(43),NBSOM(44),NBSOM(45),NBSOM(46),NBSOM(47),NBSOM(48)
  335. * 1 11 20
  336. . / 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 2, 8, 8, 6, 6, 6, 8, 3,
  337. * 21 31 40
  338. . 4, 0, 4, 4, 5, 5, 0, 0, 4, 6, 8, 0, 8, 6, 4, 5, 2, 4, 3, 6,
  339. . 2, 3, 4, 8, 6, 4, 5, 0 /
  340. C "Position" dans le tableau IBSOM pour avoir numeros locaux sommets
  341. DATA NSPOS( 1),NSPOS( 2),NSPOS( 3),NSPOS( 4),NSPOS( 5),NSPOS( 6),
  342. . NSPOS( 7),NSPOS( 8),NSPOS( 9),NSPOS(10),NSPOS(11),NSPOS(12),
  343. . NSPOS(13),NSPOS(14),NSPOS(15),NSPOS(16),NSPOS(17),NSPOS(18),
  344. . NSPOS(19),NSPOS(20),NSPOS(21),NSPOS(22),NSPOS(23),NSPOS(24),
  345. . NSPOS(25),NSPOS(26),NSPOS(27),NSPOS(28),NSPOS(29),NSPOS(30),
  346. . NSPOS(31),NSPOS(32),NSPOS(33),NSPOS(34),NSPOS(35),NSPOS(36),
  347. . NSPOS(37),NSPOS(38),NSPOS(39),NSPOS(40),NSPOS(41),NSPOS(42),
  348. . NSPOS(43),NSPOS(44),NSPOS(45),NSPOS(46),NSPOS(47),NSPOS(48)
  349. * 1 11 15
  350. . / 1, 2, 4, 6, 9, 12, 15, 18, 22, 26, 30, 18, 4, 34, 42,
  351. * 16 21 30
  352. . 50, 56, 50, 34, 12, 26, 0, 62, 66, 70, 75, 0, 0, 80, 84,
  353. * 31 41 45
  354. . 90, 98, 42, 56, 66, 75,126,126,126, 56,130,132,135,139,147,
  355. . 153,157, 0 /
  356. C Tableau des sommets par element (numero local des sommets)
  357. DATA IBSOM
  358. * 1 2 4 6 9 12 15 18 22
  359. . / 1, 1,2, 1,3, 1,2,3, 1,2,3, 1,3,5, 1,3,5, 1,2,3,4, 1,2,3,4,
  360. * 26 30 34 42
  361. . 1,3,5,7, 1,3,5,7, 1,2,3,4,5,6,7,8, 1,3,5,7,13,15,17,19,
  362. * 50 56 62 66 70
  363. . 1,2,3,4,5,6, 1,3,5,10,12,14 ,1,2,3,4, 1,3,5,10, 1,2,3,4,5,
  364. * 75 80 84 90
  365. . 1,3,5,7,13, 1,3,4,6, 1,3,5,7,9,11, 1,3,5,7,9,11,13,15,
  366. * 98 112
  367. . 1,2,3,4,5,6,7,8,9,10,11,12,13,14, 1,3,5,7,13,15,17,19,
  368. * 120 126 130 132 135
  369. . 1,3,5,10,12,14, 1,4,7,10, 1,6, 1,6,11, 1,6,11,16,
  370. * 139 147 153
  371. . 1,6,11,16,181,186,191,196, 1,6,11,106,111,116, 1,6,11,56,
  372. * 157
  373. . 1,6,11,16,91, 139*0 /
  374. C Nombre de segments par element (entre 2 noeuds successifs)
  375. DATA LPL( 1),LPL( 2),LPL( 3),LPL( 4),LPL( 5),LPL( 6),LPL( 7),
  376. . LPL( 8),LPL( 9),LPL(10),LPL(11),LPL(12),LPL(13),LPL(14),
  377. . LPL(15),LPL(16),LPL(17),LPL(18),LPL(19),LPL(20),LPL(21),
  378. . LPL(22),LPL(23),LPL(24),LPL(25),LPL(26),LPL(27),LPL(28),
  379. . LPL(29),LPL(30),LPL(31),LPL(32),LPL(33),LPL(34),LPL(35),
  380. . LPL(36),LPL(37),LPL(38),LPL(39),LPL(40),LPL(41),LPL(42),
  381. . LPL(43),LPL(44),LPL(45),LPL(46),LPL(47),LPL(48)
  382. * 1 11 20
  383. . / 0, 1, 2, 3, 3, 6, 6, 4, 4, 8, 8, 4, 2,12,24, 9,18, 9,12, 6,
  384. * 21 31 40
  385. . 8, 0, 6,12, 8,16, 0, 0, 8,18,24, 0,24,18,12,16,12, 9, 3,18,
  386. . 5,15,20,60,45,30,40, 0 /
  387. C "Position" dans tableau KSEGM de la liste des segments d'un element
  388. DATA LPT( 1),LPT( 2),LPT( 3),LPT( 4),LPT( 5),LPT( 6),LPT( 7),
  389. . LPT( 8),LPT( 9),LPT(10),LPT(11),LPT(12),LPT(13),LPT(14),
  390. . LPT(15),LPT(16),LPT(17),LPT(18),LPT(19),LPT(20),LPT(21),
  391. . LPT(22),LPT(23),LPT(24),LPT(25),LPT(26),LPT(27),LPT(28),
  392. . LPT(29),LPT(30),LPT(31),LPT(32),LPT(33),LPT(34),LPT(35),
  393. . LPT(36),LPT(37),LPT(38),LPT(39),LPT(40),LPT(41),LPT(42),
  394. . LPT(43),LPT(44),LPT(45),LPT(46),LPT(47),LPT(48)
  395. * 1 11 15
  396. . / 0, 1, 3, 7, 13, 19, 31, 43, 51, 59, 75, 43, 3, 91,115,
  397. * 16 21 30
  398. . 163,181,163, 91, 19, 59, 0,217,229,253,269, 0, 0,301,317,
  399. * 31 41 45
  400. . 353,401,115,181,229,269,401,401,401,181,427,437,467,467,587,
  401. . 677,737, 0 /
  402. DATA KSEGM1 /
  403. . 1,2, 1,2,2,3, 1,2,2,3,3,1, 1,2,2,3,3,1, 1,2,2,3,3,4,4,5,5,6,6,1,
  404. . 1,2,2,3,3,4,4,5,5,6,6,1, 1,2,2,3,3,4,4,1, 1,2,2,3,3,4,4,1,
  405. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,1, 1,2,2,3,3,4,4,5,5,6,6,7,7,8,
  406. . 8,1, 1,2,2,3,3,4,4,1,5,6,6,7,7,8,8,5,1,5,2,6,3,7,4,8,
  407. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,1,
  408. . 1,9,9,13,3,10,10,15,5,11,11,17,7,12,12,19,13,14,14,15,15,
  409. . 16,16,17,17,18,18,19,19,20,20,13,
  410. . 1,2,2,3,3,1,4,5,5,6,6,4,1,4,2,5,3,6, 1,2,2,3,3,4,4,5,5,6,6,1,
  411. . 10,11,11,12,12,13,13,14,14,15,15,10,
  412. . 1,7,7,10,3,8,8,12,5,9,9,14, 1,2,2,3,3,1,1,4,2,4,3,4,
  413. . 1,2,2,3,3,4,4,5,5,6,6,1,1,7,7,10,3,8,8,10,5,9,9,10,
  414. . 1,2,2,3,3,4,4,1,1,5,2,5,3,5,4,5,
  415. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,1,1,9,9,13,3,10,10,13,5,11,11,
  416. . 13,7,12,12,13, 1,2,2,3,3,8,8,4,4,5,5,6,6,7,7,1,
  417. . 1,2,2,3,3,4,4,5,5,6,6,1, 1,13,13,7, 3,14,14,9, 5,15,15,11,
  418. . 7,8,8,9,9,10,10,11,11,12,12,7, 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,1,
  419. . 1,17,17,9, 3,18,18,11, 5,19,19,13,
  420. . 7,20,20,15,9,10,10,11,11,12,12,13,13,14,14,15,15,16,16,9,
  421. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14 /
  422. DATA KSEGM2 /
  423. . 1,2,2,3,3,4,4,5,5,6, 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,
  424. . 11,11,12,12,13,13,14,14,15,15,1, 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,
  425. . 9,9,10,10,11,11,12,12,13,13,14,14,15,15,16,16,17,17,18,18,19,19,
  426. . 20,20,1, 181,182,182,183,183,184,184,185,185,186,186,187,187,
  427. . 188,188,189,189,190,190,191,191,192,192,193,193,194,194,195,195,
  428. . 196,196,197,197,198,198,199,199,200,200,181, 1,37,37,73,73,109,
  429. . 109,145,145,181, 6,42,42,78,78,114,114,150,150,186, 11,47,47,83,
  430. . 83,119,119,155,155,191, 16,52,52,88,88,124,124,160,160,196,
  431. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14,
  432. . 15,15,1, 106,107,107,108,108,109,109,110,110,111,111,112,112,113,
  433. . 113,114,114,115,115,116,116,117,117,118,118,119,119,120,120,106 ,
  434. . 1,22,22,43,43,64,64,85,85,106, 6,27,27,48,48,69,69,90,90,111,
  435. . 11,32,32,53,53,74,74,95,95,116,
  436. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14,
  437. . 15,15,1, 1,22,22,37,37,47,47,53,53,56, 6,26,26,40,40,49,49,54,54,
  438. . 56, 11,30,30,43,43,51,51,55,55,56 /
  439. DATA KSEGM3 /
  440. . 1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14,
  441. . 15,15,16,16,17,17,18,18,19,19,20,20,1, 1,37,37,62,62,78,78,87,87,
  442. . 91, 6,41,41,65,65,80,80,88,88,91, 11,45,45,68,68,82,82,89,89,91,
  443. . 16,49,49,71,71,84,84,90,90,91, 684*0 /
  444. C KDFAC : 1) nombre de points de la face
  445. C 2) adresse de description des triangles dans KFAC
  446. C 3) nombre de triangles dans la face
  447. DATA KDFAC /3,1,1, 4,4,2, 6,10,4, 8,22,6, 6,40,4, 0,0,0, 7,52,6,
  448. . 9,70,8, 21,94,25, 36,169,50, 30*0/
  449. C FACES : T3 Q4 T6 Q8 ?? POLY T7 Q9 T21 Q36
  450. C KFAC DESCRIPTION DES TRIANGLES DANS LA FACE
  451. * 1 4 10
  452. DATA KFAC / 1,2,3, 1,2,3,1,3,4, 1,2,6, 2,3,4, 4,5,6, 4,6,2,
  453. * 22
  454. . 1,2,8, 2,3,4, 4,5,6, 7,8,6, 2,4,8, 4,6,8,
  455. * 40
  456. . 1,2,5, 1,5,6, 2,3,4, 2,4,5,
  457. * 52
  458. . 1,2,7, 2,3,7, 3,4,7, 4,5,7, 5,6,7, 6,1,7,
  459. * 70
  460. . 1,2,9, 2,3,9, 3,4,9, 4,5,9, 5,6,9, 6,7,9, 7,8,9, 8,1,9,
  461. * 94
  462. . 1, 2,15, 2, 3,16, 3, 4,17, 4, 5,18, 5, 6, 7,
  463. . 2,16,15, 3,17,16, 4,18,17, 5, 7,18, 15,16,14,
  464. . 16,17,19, 17,18,20, 18, 7, 8, 16, 9,14, 17,20,19,
  465. . 18, 8,20, 14,19,13, 19,20,21, 20, 8, 9, 19,21,13,
  466. . 20, 9,21, 13,21,12, 21, 9,10, 21,10,12, 12,10,11,
  467. * 169
  468. . 1,21,20, 1, 2,21, 2, 3,21, 3,22,21, 3,23,22,
  469. . 3, 4,23, 4, 5,23, 5,24,23, 5, 7,24, 5, 6, 7,
  470. . 20,21,19, 21,25,19, 21,26,25, 21,22,26, 22,23,26,
  471. . 23,27,26, 23,28,27, 23,24,28, 24, 7,28, 7, 8,28,
  472. . 19,29,18, 19,25,29, 25,26,29, 26,30,29, 26,31,30,
  473. . 26,27,31, 27,28,31, 28,32,31, 28, 9,32, 28, 8, 9,
  474. . 18,29,17, 29,33,17, 29,34,33, 29,30,34, 30,31,34,
  475. . 31,35,34, 31,36,35, 31,32,36, 32, 9,36, 9,10,36,
  476. . 17,15,16, 17,33,15, 33,34,15, 34,14,15, 34,13,14,
  477. . 34,35,13, 35,36,13, 36,12,13, 36,11,12, 36,10,11, 682*0 /
  478. C
  479. C LTEL : 1) nombre de faces dans l'element
  480. C 2) adresse dans LDEL de la description des faces
  481. C POI1 SEG2 SEG3 TRI3 TRI4 TRI6 TRI7 QUA4 QUA5 QUA8 QUA9
  482. DATA LTEL/0,0, 0,0, 0,0, 1,1, 1,1, 1,2, 1,93, 1,3, 1,3, 1,4, 1,94,
  483. C RAC2 RAC3 CUB8 CU20 PRI6 PR15 LIA3 LIA4 LIA6 LIA8 MULT TET4
  484. . 1,3, 0,0, 6,5, 6,11, 5,17, 5,22, 5,17, 6,5, 1,2, 1,4, 0,0, 4,27,
  485. C TE10 PYR5 PY13 ATTA SUPE RAP3 LIP6 LIP8 POLY
  486. . 4,31, 5,35, 5,40, 0,0, 0,0, 1,45, 2,46, 2,48, 1,50,
  487. C CU27 PR21 TE15 PY19
  488. . 6,73, 5,79, 4,84, 5,88,
  489. C SEG4 QU16 TR12 PR18 SEG6 TR21 QU36 C216 P126 TE56 PY91
  490. . 0,0, 0,0, 0,0, 0,0, 0,0, 1,51, 1,52, 6,53, 5,59, 4,64, 5,68,
  491. C SURE
  492. . 0,0, 0,0, 0,0, 100*0 /
  493.  
  494. C LDEL : 1) type de la face
  495. C 2) adresse de la face dans LFAC
  496. c T3/4 T6/7 Q4/5 Q8/9 <(5)----------CUB8------------>
  497. c DATA LDEL / 1,1, 3,1, 2,1, 4,1, 2,1, 2,5, 2,9, 2,13, 2,17, 2,21,
  498. DATA LDEL / 1,1, 3,1, 2,1, 4,1, 2,1,2,684,2,688,2,692, 2,17, 2,21,
  499. c <(11)-------------CU20-----------> <(17)---------PRI6-------->
  500. . 4,1, 4,25, 4,33, 4,41, 4,49, 4,57, 1,1,1,696,2,699,2,703,2,707,
  501. c <(22)-----------PR15-------> <(27)--------TET4------->
  502. . 3,1, 3,77, 4,83, 4,91, 4,99, 1,1, 1,107, 1,110, 1,113,
  503. c <(31)--------TE10-------> <(35)------------PYR5---------->
  504. . 3,1, 3,116, 3,122, 3,128, 2,1, 1,134, 1,137, 1,140, 1,143,
  505. c <(40)-----------PY13-----------> RAP3 <(46)-LIP6> <(48)-LIP8>
  506. . 4,1, 3,146, 3,152, 3,158, 3,164, 4,170, 3,1, 3,178, 4,1, 4,184,
  507. c <POLY> TR21 QU36
  508. . 6,192, 9,192, 10,192,
  509. C <-----------------------C216------------------->
  510. . 10,192, 10,228, 10,264, 10,300, 10,336, 10,372,
  511. c <--------------P126-----------------> <-----------TE56--------->
  512. . 7,192, 7,408, 10,429, 10,465, 10,501, 7,192, 7,537, 7,558, 7,579,
  513. c <(68)----------PY91---------------> <(73)------CU27----------
  514. . 10,192, 9,600, 9,621, 9,642, 9,663, 8,720, 8,729, 8,738, 8,747,
  515. c ----------> <(79)-----------PR21------------> <(84)----TE15-
  516. . 8,756,8,765, 7,774, 7,781, 8,788, 8,797, 8,806, 7,815, 7,822,
  517. c -----------> <(88)------------PY19-----------> (93) T7 (94) Q9
  518. . 7,829, 7,836, 8,843, 7,852, 7,859, 7,866, 7,873, 7,711 , 8,711,
  519. . 12*0/
  520.  
  521. C LFAC : description de la face
  522. c BP2016 : on oriente les faces vers l'interieur des elements
  523. c (sauf pour les elements C216, P126 TE56 et PY91)
  524. c rem : chiffres 1 a 8 = FACE1 du CUB8 CU20 PRI6 PR15 TET4 TE10 PYR5 ...
  525. c 1:24 CUB8 <FACE1> <FACE3> <FACE4> <FACE5> <FACE6>
  526. DATA LFAC1 / 1,2,3,4, 5,6,7,8, 1,2,6,5, 2,3,7,6, 4,3,7,8, 1,4,8,5,
  527. c 25:40
  528. c CU20 < FACE2 > < FACE3 >
  529. . 13,20,19,18,17,16,15,14, 1,9,13,14,15,10,3,2,
  530. c 41:64
  531. c CU20 < FACE4 > < FACE5 > < FACE6 >
  532. . 3,10,15,16,17,11,5,4, 7,6,5,11,17,18,19,12, 1,8,7,12,19,20,13,9,
  533. c 65:82
  534. c PRI6 <FACE3> <FACE4> <FACE5> PR15 < FAC2 >
  535. . 1,2,5,4, 2,3,6,5, 3,1,4,6, 10,15,14,13,12,11,
  536. c 83:106
  537. c PR15 < FACE3 > < FACE4 > < FACE5 >
  538. . 1,7,10,11,12,8,3,2, 3,8,12,13,14,9,5,4, 5,9,14,15,10,7,1,6,
  539. c 107:133
  540. c TET4<FAC2><FAC3><FAC4> TE10 < FAC2 > < FAC3 > < FAC4 >
  541. . 1,4,2,2,4,3,3,4,1, 1,7,10,8,3,2, 3,8,10,9,5,4, 5,9,10,7,1,6,
  542. c 134:157
  543. c PYR5 <FAC2><FAC3><FAC4><FAC5> PY13 < FAC2 > < FAC3 >
  544. . 1,5,2,2,5,3,3,5,4,4,5,1, 1,9,13,10,3,2, 3,10,13,11,5,4,
  545. c 158:169
  546. c PY13 < FAC4 > < FAC5 >
  547. . 5,11,13,12,7,6, 7,12,13,9,1,8,
  548. c 170:191 <RAP3 FACE1> < LIP6 FACE2 > < LIP8 FACE2 >
  549. . 1,2,3,8,4,5,6,7, 7,8,9,10,11,12, 9,10,11,12,13,14,15,16,
  550. c 192:215 < liste 1 a 36 pour les FACES 1 des POLY TR21 QU36
  551. . 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
  552. c 216:233 C216 P126 TE56 PY91 ... >
  553. . 25,26,27,28,29,30,31,32,33,34,35,36, 181,182,183,184,185,186,
  554. c 234:249
  555. . 187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,
  556. c 250:263
  557. . 203,204,205,206,207,208,209,210,211,212,213,214,215,216,
  558. c 264:283
  559. . 1,2,3,4,5,6,42,78,114,150,186,185,184,183,182,181,145,109,73,37,
  560. c 284:299
  561. . 38,39,40,41,74,75,76,77,110,111,112,113,146,147,148,149,
  562. c 300:318
  563. . 6,7,8,9,10,11,47,83,119,155,191,190,189,188,187,186,150,114,78,
  564. c 319:335
  565. . 42,43,44,45,46,79,80,81,82,115,116,117,118,151,152,153,154,
  566. c 336:353
  567. . 11,12,13,14,15,16,52,88,124,160,196,195,194,193,192,191,155,119,
  568. c 354:371
  569. . 83,47,48,49,50,51,84,85,86,87,120,121,122,123,156,157,158,159 /
  570. C Tableau LFAC2 :
  571. c 372:386
  572. DATA LFAC2 / 16,17,18,19,20,1,37,73,109,145,181,200,199,198,197,
  573. c 387:404
  574. . 196,160,124,88,52,53,54,55,56,89,90,91,92,125,126,127,128,161,
  575. c 405:407
  576. . 162,163,164,
  577. c 48:423
  578. . 106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,
  579. c 424:442
  580. . 122,123,124,125,126, 1,2,3,4,5,6,27,48,69,90,111,110,109,108,
  581. c 443:462
  582. . 107,106,85,64,43,22,23,24,25,26,44,45,46,47,65,66,67,68,86,87,
  583. c 463:482
  584. . 88,89, 6,7,8,9,10,11,32,53,74,95,116,115,114,113,112,111,90,69,
  585. c 483:500
  586. . 48,27,28,29,30,31,49,50,51,52,70,71,72,73,91,92,93,94,
  587. c 501:519
  588. . 11,12,13,14,15,1,22,43,64,85,106,120,119,118,117,116,95,74,53,
  589. c 520:536
  590. . 32,33,34,35,36,54,55,56,57,75,76,77,78,96,97,98,99,
  591. c 537:557
  592. . 1,2,3,4,5,6,26,40,49,54,56,53,47,37,22,23,24,25,38,39,48,
  593. c 558:578
  594. . 6,7,8,9,10,11,30,43,51,55,56,54,49,40,26,27,28,29,41,42,50,
  595. c 579:599
  596. . 11,12,13,14,15,1,22,37,47,53,56,55,51,43,30,31,32,33,44,45,52,
  597. c 600:620
  598. . 1,2,3,4,5,6,41,65,80,88,91,87,78,62,37,38,39,40,63,64,79,
  599. c 621:641
  600. . 6,7,8,9,10,11,45,68,82,89,91,88,80,65,41,42,43,44,66,67,81,
  601. c 642:662
  602. . 11,12,13,14,15,16,49,71,84,90,91,89,82,68,45,46,47,48,69,70,83,
  603. c 663:683
  604. . 16,17,18,19,20,1,37,62,78,87,91,90,84,71,49,50,51,52,72,73,85,
  605. c 684 688 692
  606. . 5,8,7,6, 1,5,6,2, 2,6,7,3,
  607. c 696 699 703 707
  608. . 4,6,5, 1,4,5,2, 2,5,6,3, 3,6,4,1 /
  609. C Tableau LFAC3 :
  610. c 711:728
  611. C T7/Q9 CU27 < FACE1 >
  612. DATA LFAC3 /1,2,3,4,5,6,7,8,9, 1,2,3,4,5,6,7,8,25,
  613. c 729:746
  614. c CU27 < FACE2 > < FACE3 >
  615. . 13,20,19,18,17,16,15,14,26, 1,9,13,14,15,10,3,2,21,
  616. c 747:764
  617. c CU27 < FACE4 > < FACE5 >
  618. . 3,10,15,16,17,11,5,4,22, 7,6,5,11,17,18,19,12,23,
  619. c 765:787
  620. c CU27 < FACE6 > PR21 <FACE1 > < FACE2 >
  621. . 1,8,7,12,19,20,13,9,24, 1,2,3,4,5,6,19, 10,15,14,13,12,11,20,
  622. c 788:805
  623. c PR21 < FACE3 > < FACE4 >
  624. . 1,7,10,11,12,8,3,2,16, 3,8,12,13,14,9,5,4,17,
  625. c 806:821
  626. c PR21 < FACE5 > TE15 < FAC1 >
  627. . 5,9,14,15,10,7,1,6,18, 1,2,3,4,5,6,11,
  628. c 822:842
  629. c TE15 < FAC2 > < FAC3 > < FAC4 >
  630. . 1,7,10,8,3,2,12, 3,8,10,9,5,4,13, 5,9,10,7,1,6,14,
  631. c 843:865
  632. c PY19 <FAC1 > < FAC2 > < FAC3 >
  633. . 1,2,3,4,5,6,7,8,14, 1,9,13,10,3,2,15, 3,10,13,11,5,4,16,
  634. c 866:879
  635. c PY19 < FAC4 > < FAC5 >
  636. . 5,11,13,12,7,6,17, 7,12,13,9,1,8,18,
  637. c 880:1000
  638. . 121*0 /
  639. cbp2016C KSIF : un point interne a un element doit voir les faces de cet
  640. cbp2016C element sous un angle solide positif
  641. cbp2016 DATA KSIF / -1, 1, 1, 1,-1,-1,-1, 1, 1, 1, 1 /
  642. C
  643. C Tableau des noeuds (de l'element initial) auxquels il faudra
  644. C affecter les coefficients des fonctions de forme (XCOEEF) pour
  645. C obtenir les coordonnes des nouveaux noeuds
  646. C Nb valeurs = 21x52 + 4 = 1096
  647. DATA LISNO1 /
  648. c <-----TRI3-----><-(7)-----------------------TRI6-----------(21)
  649. . 1, 2, 2, 3, 1, 3, 2, 1, 3, 2, 3, 1, 4, 3, 5, 4, 5, 3, 6, 5, 1,
  650. c -------------------------------------------------------------->
  651. . 6, 1, 5, 2, 6, 4, 3, 5, 1, 2, 4, 6, 1, 5, 3, 4, 6, 2, 1, 3, 5,
  652. c <-----------QUA4-------------------><----------------QUA8---(63)
  653. . 1, 2, 2, 3, 3, 4, 1, 4, 1, 2, 3, 4, 2, 1, 3, 2, 3, 1, 4, 3, 5,
  654. c ------------------------------------------------------------(84)
  655. . 4, 5, 3, 6, 5, 7, 6, 7, 5, 8, 7, 1, 8, 1, 7, 2, 4, 8, 6, 1, 3,
  656. c -----------------------------------------------------------(105)
  657. . 5, 7, 2, 4, 6, 8, 1, 3, 5, 7, 8, 2, 6, 4, 1, 3, 5, 7, 4, 2, 6,
  658. c --------------------------------------><-------------------(126)
  659. . 8, 1, 3, 5, 7, 6, 4, 8, 2, 1, 3, 5, 7, 1, 2, 1, 2, 3, 4, 1, 4,
  660. . 1, 5, 1, 2, 5, 6, 1, 2, 3, 4, 5, 6, 7, 8, 1, 4, 5, 8, 2, 3, 2,
  661. . 6, 2, 3, 6, 7, 3, 4, 3, 7, 3, 4, 7, 8, 4, 8, 5, 6, 5, 6, 7, 8,
  662. . 5, 8, 6, 7, 7, 8, 2, 1, 3, 2, 4, 8, 6, 1, 3, 5, 7, 2, 4, 6, 8,
  663. . 1, 3, 5, 7, 8, 6, 2, 4, 1, 3, 5, 7, 8, 1, 7, 9, 1,13, 2, 9,10,
  664. . 14, 1, 3,13,15, 2, 4, 6, 8, 9,10,11,12,14,16,18,20,13,15,17,19,
  665. . 1, 3, 5, 7, 8, 9,12,20, 1, 7,13,19, 9, 2,14,10, 1, 3,13,15, 2,
  666. . 9,10,14, 1, 3,13,15, 2, 9,10,14, 4, 8,16,20, 6,11,12,18, 5, 7,
  667. . 17,19, 1, 3,13,15, 2, 4, 6, 8, 9,10,11,12,14,16,18,20, 1, 3, 5,
  668. . 7,13,15,17,19, 8, 9,12,20, 2, 6,14,18, 4,10,11,16, 3, 5,15,17,
  669. . 1, 7,13,19, 8, 9,12,20, 1, 7,13,19, 9, 8,20,12, 1, 7,13,19, 2,
  670. . 3, 1, 4, 3, 5, 4, 2, 6, 8, 1, 3, 5, 7,10, 3,15, 4,10,11,16, 3,
  671. . 5,15,17,10, 2,14, 9, 1, 3,13,15,10, 4,16,11, 5, 3,15,17, 4,10 /
  672. C
  673. DATA LISNO2 /
  674. . 11,16, 3, 5,15,17, 4,10,11,16, 2, 6,14,18, 8, 9,12,20, 1, 7,13,
  675. . 19, 3, 5,15,17, 4, 5, 3, 6, 5, 7, 6, 4, 8, 2, 1, 3, 5, 7,11, 5,
  676. . 17, 6,11,12,18, 5, 7,17,19,11, 4,16,10, 3, 5,15,17,11, 6,18,12,
  677. . 5, 7,17,19, 6,11,12,18, 5, 7,17,19, 6,11,12,18, 4, 8,16,20, 2,
  678. . 9,10,14, 1, 3,13,15, 5, 7,17,19, 6, 7, 5, 8, 7, 1,12, 7,19,12,
  679. . 6,18,11, 5, 7,17,19,12, 8,20, 9, 1, 7,13,19, 9,13, 1,14, 9,10,
  680. . 2, 1, 3,13,15,14,16,18,20, 9,10,11,12, 2, 4, 6, 8, 1, 3, 5, 7,
  681. . 13,15,17,19,20, 9,12, 8, 1, 7,13,19,14,13,15,14,16,20,18,13,15,
  682. . 17,19,14,16,18,20,13,15,17,19,20,14,18,16,13,15,17,19,20,13,19,
  683. . 10,15, 3,16,10,11, 4, 3, 5,15,17,14,15,13,16,15,17,16,14,18,20,
  684. . 13,15,17,19,11,17, 5,18,11,12, 6, 5, 7,17,19,16,17,15,18,17,19,
  685. . 18,16,20,14,13,15,17,19,12,19, 7,18,19,17,20,19,13, 1, 2, 2, 3,
  686. . 1, 3, 4, 5, 5, 6, 4, 6, 2, 1, 3, 2, 3, 1, 4, 3, 5, 4, 5, 3, 6,
  687. . 5, 1, 6, 1, 5, 2, 6, 4, 3, 5, 1, 2, 4, 6, 1, 5, 3, 4, 6, 2, 1,
  688. . 3, 5, 2, 7, 8,11, 1, 3,10,12, 4, 8, 9,13, 3, 5,12,14, 6, 7, 9,
  689. . 15, 1, 5,10,14,11,10,12,11,12,10,13,12,14,13,14,12,15,14,10,15,
  690. . 10,14,11,15,13,12,14,10,11,13,15,10,14,12,15,13,11,12,10,14, 1,
  691. . 2, 2, 3, 1, 3, 1, 4, 2, 4, 3, 4, 2, 1, 3, 2, 6, 4, 3, 5, 1, 6 /
  692. C
  693. DATA LISNO3 /
  694. . 1, 5, 7, 1,10, 2, 7, 8, 3,10, 1, 6, 7, 9, 5,10, 1, 2, 3, 1, 4,
  695. . 3, 5, 2, 4, 6, 1, 5, 3, 2, 8, 7, 1,10, 3, 8, 3,10, 4, 8, 9, 5,
  696. . 10, 3, 4, 5, 3, 6, 5, 1, 4, 6, 2, 1, 3, 5, 4, 9, 8, 3,10, 5, 9,
  697. . 5,10, 6, 9, 7, 1,10, 3, 7, 8, 2, 1, 3,10, 8, 9, 4, 3, 5,10, 7,
  698. . 9, 6, 1, 5,10, 7,10, 1, 8,10, 3, 9,10, 5, 2, 4, 6, 7, 8, 9, 1,
  699. . 3, 5,10, 1, 2, 2, 3, 3, 4, 1, 4, 1, 2, 3, 4, 1, 5, 2, 5, 3, 5,
  700. . 4, 5, 2, 1, 3, 2, 4, 8, 6, 1, 3, 5, 7, 2, 4, 6, 8, 1, 3, 5, 7,
  701. . 8, 6, 2, 4, 1, 3, 5, 7, 8, 1, 7, 9, 1,13, 2, 9,10, 3,13, 1, 2,
  702. . 8, 9, 4, 6,10,12,11, 5,13, 1, 3, 7, 8, 9,12, 7,13, 1, 2, 3, 1,
  703. . 4, 3, 5, 4, 2, 6, 8, 1, 3, 5, 7, 2,10, 9, 1,13, 3,10, 3,13, 4,
  704. . 10,11, 5,13, 3, 2, 4,10, 6, 8, 9,11,12, 7,13, 1, 3, 5, 4, 5, 3,
  705. . 6, 5, 7, 6, 8, 4, 2, 1, 3, 5, 7, 4, 6,11, 2, 8,10,12, 9, 1,13,
  706. . 3, 5, 7, 4,11,10, 3,13, 5,11, 5,13, 6,11,12, 7,13, 5, 6, 7, 5,
  707. . 8, 7, 1, 8,12, 9, 1,13, 7, 6, 8,12, 2, 4, 9,11,10, 3,13, 1, 5,
  708. . 7, 6,12,11, 5,13, 7,12, 7,13, 9,10, 2, 1, 3,13,10,11, 4, 3, 5,
  709. . 13,11,12, 6, 5, 7,13, 9,12, 8, 1, 7,13, 9,13, 1,10,13, 3,11,13,
  710. . 5,12,13, 7 /
  711. C
  712. C LPOS1 : 1) Position dans le tableau XCOEFF
  713. C 2) Nombre d'elements de la liste pointee par 1)
  714. C Nb valeurs = 21x20 + 8 = 428
  715. DATA LPOS11 /
  716. c <------TRI3------><-----------------------TRI6-------------(21)
  717. . 1, 2, 1, 2, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,10, 6,10,
  718. c -------------------------------------->
  719. c <------------QUA4---(32)-----><------QUA8---------(42)
  720. . 6,10, 6, 1, 2, 1, 2, 1, 2, 1, 2, 6, 4, 3, 3, 3, 3, 3, 3, 3, 3,
  721. c -----------------------(51)-------------------------> (63)
  722. . 3, 3, 3, 3, 3, 3, 3, 3,16, 8,24, 8,16, 8,16, 8,16, 8, 1, 2, 6,
  723. . 4, 1, 2, 1, 2, 6, 4,32, 8, 6, 4, 1, 2, 1, 2, 6, 4, 1, 2, 1, 2,
  724. . 6, 4, 1, 2, 1, 2, 6, 4, 1, 2, 1, 2, 1, 2, 3, 3,16, 8,24, 8,16,
  725. . 8, 3, 3, 3, 3,16, 8,63,20,16, 8,16, 8,24, 8,63,20,83,20,63,20,
  726. . 24, 8,16, 8, 3, 3, 3, 3,16, 8, 3, 3,16, 8,16, 8,16, 8,24, 8,63,
  727. . 20, 3, 3, 3, 3,16, 8, 3, 3,16, 8,16, 8,16, 8,24, 8,63,20, 3, 3,
  728. . 3, 3, 3, 3,16, 8,16, 8, 3, 3,16, 8,63,20,16, 8, 3, 3,16, 8,24,
  729. . 8,16, 8, 3, 3, 3, 3,16, 8, 3, 3, 3, 3,16, 8, 3, 3,16, 8, 3, 3 /
  730. DATA LPOS12 /
  731. . 3, 3,16, 8, 3, 3, 3, 3, 3, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1,
  732. . 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,10, 6,10, 6,10, 6,24, 8,
  733. . 24, 8,24, 8, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,10, 6,10, 6,10,
  734. . 6, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 3,10, 6, 3, 3, 3, 3,
  735. . 10, 6,10, 6, 3, 3, 3, 3,10, 6,10, 6, 3, 3,10, 6, 3, 3, 3, 3,10,
  736. . 6,10, 6, 3, 3,10, 6,10, 6,10, 6,10, 6, 3, 3, 3, 3, 3, 3,40,10,
  737. . 1, 2, 1, 2, 1, 2, 1, 2, 6, 4, 1, 2, 1, 2, 1, 2, 1, 2, 3, 3,16,
  738. . 8,24, 8,16, 8, 3, 3, 3, 3,10, 6,50,13,10, 6, 3, 3, 3, 3,16, 8,
  739. . 10, 6, 3, 3,10, 6,50,13, 3, 3, 3, 3,16, 8,50,13,10, 6, 3, 3,10,
  740. . 6, 3, 3, 3, 3,10, 6,50,13,10, 6, 3, 3,10, 6,10, 6,10, 6,10, 6,
  741. . 3, 3, 3, 3, 3, 3, 3, 3 /
  742. C
  743. C Position de l'element dans LPOS1
  744. DATA LPOS2 /
  745. c TRI3 TRI6 QUA4 QUA8 CUB8 CU20 PRI6 PR15
  746. . 3*0, 1 ,1*0, 4, 1*0, 13, 1*0, 18, 3*0, 31, 50, 111, 117, 5*0,
  747. c TET4 TE10 PYR5 PY13 etc...
  748. . 138, 144, 169, 178, 74*0 /
  749. C
  750. C Position de l'element dans LISNOE
  751. DATA LPOS3 /
  752. c TRI3 TRI6 QUA4 QUA8 CUB8 CU20 PRI6 PR15
  753. . 3*0, 1, 1*0, 7, 1*0, 43, 1*0, 55, 3*0, 119, 175, 627, 639, 5*0,
  754. c TET4 TE10 PYR5 PY13 etc...
  755. . 735, 747, 865, 885, 74*0 /
  756. C
  757. C Liste des coefficients a affecter aux noeuds (valeurs obtenues par
  758. C le calcul des fonctions de forme, selon le type de noeud a creer)
  759. DATA XCOEFF /
  760. C Nb valeurs = 7x14 + 4 = 102
  761. + 0.5, 0.5, 0.75, 0.375, -0.125, 0.25, 0.25,
  762. + 0.25, 0.25, 0.5, 0.5, 0.25, -0.125, -0.125,
  763. + 0, 0.75, 0.375, 0.375, 0.25, -0.1875, -0.1875,
  764. + -0.1875, -0.1875, 0.5, 0.5, 0.5, 0.5, -0.25,
  765. + -0.25, -0.25, -0.25, 0.125, 0.125, 0.125, 0.125,
  766. + 0.125, 0.125, 0.125, 0.125, 0.25, 0.25, 0.25,
  767. + 0.25, 0.25, 0.25, -0.125, -0.125, -0.125, -0.125,
  768. + UNTIER , UNTIER , UNTIER , UNSIXI , UNSIXI , UNSIXI , UNSIXI ,
  769. + UNDOUZ , -0.125, -0.125, UNSIXM , UNSIXM , UNSIXM , 0.375,
  770. + 0.375, 0.375, 0.375, 0.1875, 0.1875, 0.1875, 0.1875,
  771. + 0.125, 0.125, 0.125, 0.125,-0.15625,-0.15625,-0.15625,
  772. + -0.15625,-0.28125,-0.28125,-0.28125,-0.28125, 0.25, 0.25,
  773. + 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25,
  774. + 0.25, 0.25, 0.25, -0.25, -0.25, -0.25, -0.25,
  775. + -0.25, -0.25, -0.25, -0.25 /
  776. C
  777. C Nombre de points a creer pour raffiner l'element
  778. DATA NBRAF /
  779. c TRI3 TRI6 QUA4 QUA8 CUB8 CU20 PRI6 PR15
  780. . 3*0, 3 ,1*0, 9 ,1*0, 5 ,1*0, 13 ,3*0, 19 , 61 , 6, 21,
  781. c TET4 TE10 PYR5 PY13 etc...
  782. . 5*0, 6 , 25, 9, 37, 74*0 /
  783. C
  784. C LNELM : 1) nombre d'elements a creer
  785. C 2) type d'elements a creer
  786. C Indexe par (ITYPEL-1)*2+1
  787. C Nb valeurs = 108
  788. DATA LNELM /
  789. . 12*0,4,4,6*0,4,6,6*0,4,8,6*0,4,10,14*0,8,14,2*0,8,15,2*0,4,16,
  790. . 2*0,4,17,22*0,8,23,2*0,8,24,2*0,6,25,4,23,6,26,4,24,4*0 /
  791. C
  792. C Liste des noeuds formant les elements a creer
  793. C Rq: pour les tetraedres il y a deux types de decomposition selon
  794. C la longueur des diagonales 7-4 et 9-2
  795. C LIELM1 : TRI3-TRI6-QUA4-QUA8-CU20-TET4 (21x16+20=356 valeurs)
  796. C LIELM2 : TE10-PRI6-PR15-PYR5-PY13 (21x17+11=368 valeurs)
  797. DATA LIELM1 /
  798. . 1, 4, 6, 2, 5, 4, 3, 6, 5, 4, 5, 6, 1, 7, 2,13, 6,12, 2, 8, 3,
  799. . 9, 4,14, 4,10, 5,11, 6,15, 2,14, 4,15, 6,13, 1, 5, 9, 8, 2, 6,
  800. . 9, 5, 3, 7, 9, 6, 4, 8, 9, 7, 1, 9, 2,17,18,19, 8,16, 2,10, 3,
  801. . 11, 4,20,18,17, 4,12, 5,13, 6,21,18,20, 6,14, 7,15, 8,19,18,21,
  802. . 1, 9,10,11,12,13,14,15, 9, 2,16,10,13,17,18,14,10,16, 3,19,14,
  803. . 18,20,21,11,10,19, 4,15,14,21,22,12,13,14,15, 5,23,24,25,13,17,
  804. . 18,14,23, 6,26,24,14,18,20,21,24,26, 7,27,15,14,21,22,25,24,27,
  805. . 8, 1,21, 2,22,23,24, 8,25,26,27,28,29, 9,30,31,32,33,34,35,36,
  806. . 2,37, 3,38, 4,39,23,22,27,40,41,28,31,42,10,43,44,45,33,32,23,
  807. . 39, 4,46, 5,47, 6,48,28,41,49,50,33,45,44,51,11,52,53,54, 8,24,
  808. . 23,48, 6,55, 7,56,29,28,50,57,35,34,33,54,53,58,12,59, 9,30,31,
  809. . 32,33,34,35,36,60,61,62,63,13,64,14,65,66,67,20,68,31,42,10,43,
  810. . 44,45,33,32,61,69,70,62,14,71,15,72,16,73,66,65,33,45,44,51,11,
  811. . 52,53,54,62,70,74,75,66,73,16,76,17,77,18,78,35,34,33,54,53,58,
  812. . 12,59,63,62,75,79,20,67,66,78,18,80,19,81, 1, 5, 7, 8, 5, 2, 6,
  813. . 9, 7, 6, 3,10, 8, 9,10, 4, 7, 6, 9, 5, 7, 9, 8, 5, 8, 9, 7,10,
  814. . 9, 6, 7,10, 5, 9, 7, 8, 9,10, 7, 8,10, 9, 7, 6, 9, 5, 7, 6 /
  815.  
  816. DATA LIELM2 /
  817. . 1,11, 2,12, 6,13,14,15,16, 7, 2,17, 3,18, 4,19,20,21,22, 8, 4,
  818. . 23, 5,24, 6,25,26,27,28, 9, 7,29, 8,30, 9,31,32,33,34,10, 8,22,
  819. . 4,25, 6,35,30,26,28, 9, 7,29, 8,35, 6,16,31,30,28, 9, 6,35, 8,
  820. . 29, 7,16,12,20,15, 2, 6,25, 4,22, 8,35,12,19,20, 2, 8,30, 9,28,
  821. . 6,35,29,31,16, 7, 2,20, 8,35, 6,12,15,29,16, 7, 9,30, 8,35, 6,
  822. . 28,26,22,25, 4, 8,20, 2,12, 6,35,22,19,25, 4, 1, 7, 9, 4,10,12,
  823. . 7, 2, 8,10, 5,11, 8, 3, 9,11, 6,12, 7, 8, 9,10,11,12, 1,16, 2,
  824. . 22, 6,21, 7,25,27,10,28,11,34,15,33, 2,17, 3,18, 4,23,25, 8,26,
  825. . 11,29,12,30,13,35, 6,24, 4,19, 5,20,27,26, 9,15,36,13,31,14,32,
  826. . 2,23, 4,24, 6,22,25,26,27,11,35,13,36,15,34, 1, 6,10, 9,11, 6,
  827. . 2, 7,10,12, 7, 3, 8,10,13, 9,10, 8, 4,14,11,12,13,14, 5,14,13,
  828. . 12,11,10,11,10,12, 6,12,10,13, 7,13,10,14, 8,14,10,11, 9, 1,14,
  829. . 2,15,16,17, 8,18,19,20,21,22, 9, 2,23, 3,24, 4,25,16,15,26,27,
  830. . 28,29,10,16,25, 4,30, 5,31, 6,32,33,34,35,36,11, 8,17,16,32, 6,
  831. . 37, 7,38,39,40,41,42,12, 9,43,10,44,11,45,12,46,47,48,49,50,13,
  832. . 9,46,12,45,11,44,10,43,21,40,33,29,16, 9,21,16,29,10,43,20,15,
  833. . 26, 2,10,29,16,33,11,44,28,25,34, 4,11,33,16,40,12,45,36,32,41,
  834. . 6,12,40,16,21, 9,46,39,17,22, 8 /
  835. C
  836. C Position de l'element dans LIELM
  837.  
  838. C DATA XXXX / 3*0,TRI3,1*0,TRI6,1*0,QUA4,1*0,QUA8,3*0,CUB8,CU20,
  839. C . PRI6,PR15,5*0,TET4,TE10,PYR5,PY13,74*0 /
  840. DATA LPOS4 / 3*0,1,1*0,13,1*0,37,1*0,53,3*0,85,149,477,501,5*0,
  841. . 309,357,561,607,74*0 /
  842. C
  843. C Nombre de noeuds a creer internes a l'element
  844. DATA NBINTE /
  845. c TRI3 TRI6 QUA4 QUA8 CUB8 CU20 PRI6 PR15
  846. . 3*0,0,1*0,3,1*0,1,1*0,5,3*0,1, 7, 0, 0, 5*0,0,1,0,4,74*0 /
  847. C
  848. C Type du noeud a creer
  849. C Taille : 31 x 6 + 28 = 214
  850. DATA JTYPNO /
  851. . 0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,7,0,0,0,0,0,0,0,0,7,7,7,7,7,0,
  852. . 1,0,0,3,7,6,0,0,4,0,0,5,0,0,2,0,0,0,0,1,1,1,0,0,3,7,6,3,3,7,7,
  853. . 7,6,6,0,0,1,0,4,3,4,4,7,0,0,1,0,5,4,5,5,7,0,0,0,5,6,0,3,7,6,0,
  854. . 2,2,2,0,0,4,0,0,2,0,5,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
  855. . 1,3,4,5,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,1,0,0,2,4,0,0,1,2,0,3,
  856. . 0,0,1,3,0,4,2,3,4,0,0,0,7,0,0,0,0,1,0,0,0,0,0,1,1,1,0,0,2,7,5,
  857. . 0,0,1,2,0,3,7,0,0,1,7,3,0,4,0,0,5,7,4,0,2,3,4,5,0,0,0,0 /
  858.  
  859. C Position de l'element dans JTYPNO
  860. DATA LPOS5 / 3*0,1,1*0,4,1*0,13,1*0,18,3*0,31,50,111,117,5*0,
  861. . 138,144,169,178,74*0 /
  862. C
  863. C Valeurs de CCHAMP.INC :
  864. C -----------------------
  865. C NOMTP stocke tous les noms d ELEMENTS FINIS possibles
  866. C LNOMTP : nombre d'elements finis ACTUELLEMENT utilisables
  867. C attention nomtp fonctionne en relation avec NUMMFR et NUMGEO
  868. C ATTENTION : NOMTP est LIMITE a 300 dans CCHAMP.INC
  869. DATA LNOMTP / 272 /
  870.  
  871. DATA NOMTP( 1) / 'CABL' /
  872. DATA NOMTP( 2) / 'SEG2' /
  873. DATA NOMTP( 3) / 'SEG3' /
  874. DATA NOMTP( 4) / 'TRI3' /
  875. DATA NOMTP( 5) / 'TRI4' /
  876. DATA NOMTP( 6) / 'TRI6' /
  877. DATA NOMTP( 7) / 'TRI7' /
  878. DATA NOMTP( 8) / 'QUA4' /
  879. DATA NOMTP( 9) / 'QUA5' /
  880. DATA NOMTP(10) / 'QUA8' /
  881. DATA NOMTP(11) / 'QUA9' /
  882. DATA NOMTP(12) / 'RAC2' /
  883. DATA NOMTP(13) / 'RAC3' /
  884. DATA NOMTP(14) / 'CUB8' /
  885. DATA NOMTP(15) / 'CU20' /
  886. DATA NOMTP(16) / 'PRI6' /
  887. DATA NOMTP(17) / 'PR15' /
  888. DATA NOMTP(18) / 'LIA3' /
  889. DATA NOMTP(19) / 'LIA4' /
  890. DATA NOMTP(20) / 'LIA6' /
  891. DATA NOMTP(21) / 'LIA8' /
  892. DATA NOMTP(22) / 'MULT' /
  893. DATA NOMTP(23) / 'TET4' /
  894. DATA NOMTP(24) / 'TE10' /
  895. DATA NOMTP(25) / 'PYR5' /
  896. DATA NOMTP(26) / 'PY13' /
  897. DATA NOMTP(27) / 'COQ3' /
  898. DATA NOMTP(28) / 'DKT ' /
  899. DATA NOMTP(29) / 'POUT' /
  900. DATA NOMTP(30) / 'LISP' /
  901. DATA NOMTP(31),NOMTP(32) / 'FAC3','FAC4' /
  902. DATA NOMTP(33),NOMTP(34) / 'FAC6','FAC8' /
  903. DATA NOMTP(35) / 'LTR3' /
  904. DATA NOMTP(36) / 'LQU4' /
  905. DATA NOMTP(37) / 'LCU8' /
  906. DATA NOMTP(38) / 'LPR6' /
  907. DATA NOMTP(39) / 'LTE4' /
  908. DATA NOMTP(40) / 'LPY5' /
  909. DATA NOMTP(41) / 'COQ8' /
  910. DATA NOMTP(42) / 'TUYA' /
  911. DATA NOMTP(43) / 'TUFI' /
  912. DATA NOMTP(44) / 'COQ2' /
  913. DATA NOMTP(45) / 'POI1' /
  914. DATA NOMTP(46) / 'BARR' /
  915. DATA NOMTP(47) / 'RACO' /
  916. DATA NOMTP(48) / 'LSU2' /
  917. DATA NOMTP(49) / 'COQ4' /
  918. DATA NOMTP(50) / 'LISM' /
  919. DATA NOMTP(51) / 'COF3' /
  920. DATA NOMTP(52) / 'RES2' /
  921. DATA NOMTP(53) / 'LSU3' /
  922. DATA NOMTP(54) / 'LSU4' /
  923. DATA NOMTP(55) / 'LICO' /
  924. DATA NOMTP(56) / 'COQ6' /
  925. DATA NOMTP(57),NOMTP(58),NOMTP(59) / 'CVS2','CVS3','CVT3' /
  926. DATA NOMTP(60),NOMTP(61),NOMTP(62) / 'CVT6','CVQ4','CVQ8' /
  927. DATA NOMTP(63),NOMTP(64),NOMTP(65) / 'THP5','TH13','THP6' /
  928. DATA NOMTP(66),NOMTP(67),NOMTP(68) / 'TH15','THC8','TH20' /
  929. DATA NOMTP(69),NOMTP(70),NOMTP(71) / 'ICT3','ICQ4','ICT6' /
  930. DATA NOMTP(72),NOMTP(73) / 'ICQ8','ICC8' /
  931. DATA NOMTP(74),NOMTP(75),NOMTP(76) / 'ICT4','ICP6','IC20' /
  932. DATA NOMTP(77),NOMTP(78) / 'IC10','IC15' /
  933. DATA NOMTP(79),NOMTP(80),NOMTP(81) / 'TRIP','QUAP','CUBP' /
  934. DATA NOMTP(82),NOMTP(83),NOMTP(84) / 'TETP','PRIP','TIMO' /
  935. DATA NOMTP(85),NOMTP(86),NOMTP(87) / 'JOI2','JOI3','JOT3' /
  936. DATA NOMTP(88),NOMTP(89),NOMTP(90) / 'JOI4','JOI6','JOI8' /
  937. DATA NOMTP(91) / 'LISC' /
  938. DATA NOMTP(92) / 'TRIH' /
  939. DATA NOMTP(93),NOMTP(94) / 'DST ','LIC4' /
  940. DATA NOMTP(95),NOMTP(96) / 'CERC','TUYO' /
  941. DATA NOMTP(97),NOMTP(98) / 'LSE2','LITU' /
  942. DATA NOMTP(99),NOMTP(100) / 'HYT3','HYQ4' /
  943. DATA NOMTP(101),NOMTP(102),NOMTP(103) / 'HYT4','HYP6','HYC8' /
  944. DATA NOMTP(104),NOMTP(105),NOMTP(106) / 'TRIS','QUAS','POIS' /
  945. DATA NOMTP(107),NOMTP(108),NOMTP(109) / 'FRO3','JOP3','JOP6' /
  946. DATA NOMTP(110) / 'JOP8' /
  947. DATA NOMTP(111),NOMTP(112),NOMTP(113) / 'POLY','POLY','POLY' /
  948. DATA NOMTP(114),NOMTP(115),NOMTP(116) / 'POLY','POLY','POLY' /
  949. DATA NOMTP(117),NOMTP(118),NOMTP(119) / 'POLY','POLY','POLY' /
  950. DATA NOMTP(120),NOMTP(121),NOMTP(122) / 'POLY','POLY','POLY' /
  951. DATA NOMTP(123),NOMTP(124),NOMTP(125) / 'BAR3','BAEX','LIA2' /
  952. DATA NOMTP(126),NOMTP(127) / 'QUAH','CUBH' /
  953. DATA NOMTP(128) / 'ROT3' /
  954. DATA NOMTP(129),NOMTP(130),NOMTP(131),NOMTP(132),NOMTP(133),
  955. . NOMTP(134),NOMTP(135)
  956. . / 'SEF2','TRF3','QUF4','CUF8','PRF6','TEF4','PYF5' /
  957. DATA NOMTP(136),NOMTP(137),NOMTP(138),NOMTP(139),NOMTP(140),
  958. . NOMTP(141),NOMTP(142)
  959. . / 'MSE3','MTR6','MQU9','MC27','MP18','MT10','MP14' /
  960. DATA NOMTP(143),NOMTP(144),NOMTP(145),NOMTP(146),NOMTP(147),
  961. . NOMTP(148),NOMTP(149)
  962. . / 'SEF3','TRF7','QUF9','CF27','PF21','TF15','PF19' /
  963. DATA NOMTP(150),NOMTP(151),NOMTP(152) / 'SEG6','TR21','QU36' /
  964. DATA NOMTP(153),NOMTP(154),NOMTP(155) / 'C216','P126','TE56' /
  965. DATA NOMTP(156),NOMTP(157) / 'PY91','TRH6' /
  966. DATA NOMTP(158),NOMTP(159),NOMTP(160),NOMTP(161),NOMTP(162),
  967. . NOMTP(163),NOMTP(164),NOMTP(165)
  968. . / 'BSE2','BTR4','BQU5','BCU9','BPR7','BTE5','BPY6','FRO4' /
  969. DATA NOMTP(166),NOMTP(167) / 'SEGS','POJS' /
  970. DATA NOMTP(168),NOMTP(169),NOMTP(170) / 'JCT3','JCI4','JGI2' /
  971. DATA NOMTP(171),NOMTP(172),NOMTP(173) / 'JGT3','JGI4','TRIQ' /
  972. DATA NOMTP(174),NOMTP(175),NOMTP(176) / 'QUAQ','CUBQ','TETQ' /
  973. DATA NOMTP(177),NOMTP(178),NOMTP(179) / 'PRIQ','TRIR','QUAR' /
  974. DATA NOMTP(180),NOMTP(181),NOMTP(182) / 'CUBR','TETR','PRIR' /
  975. DATA NOMTP(183),NOMTP(184),NOMTP(185) / 'Q4RI','Q8RI','JOQ3' /
  976. DATA NOMTP(186),NOMTP(187),NOMTP(188) / 'JOQ6','JOQ8','JOR3' /
  977. DATA NOMTP(189),NOMTP(190) / 'JOR6','JOR8' /
  978. C 10/2003 : Elements finis (MODE UNIDimensionnel - IDIM=1)
  979. DATA NOMTP(191),NOMTP(192) / 'T1D2','T1D3' /
  980. DATA NOMTP(193),NOMTP(194) / 'M1D2','M1D3' /
  981. C 10/05/2004 : Elements finis mécanique fluides
  982. C éléments décrivant la dicrétisation du couple
  983. C vitesse/pression utilisée
  984. C Vitesse Pression Nb de pts
  985. C L: LINE C: CENTRE 03: SEG3 21: PR21
  986. C B: LINEB 1: CENTREP1 07: TRI7 15: TE15
  987. C M: MACRO S: MSOMMET 09: QUA9 19: PY19
  988. C Q: QUAF 27: CU27
  989. C Noms des éléments en LINE/CENTRE pour les éléments géométriques
  990. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  991. DATA NOMTP(195),NOMTP(196),NOMTP(197),NOMTP(198),NOMTP(199),
  992. . NOMTP(200),NOMTP(201)
  993. . / 'LC03','LC07','LC09','LC27','LC21','LC15','LC19' /
  994. C Noms des éléments en LINE/MSOMMET pour les éléments géométriques
  995. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  996. DATA NOMTP(202),NOMTP(203),NOMTP(204),NOMTP(205),NOMTP(206),
  997. . NOMTP(207),NOMTP(208)
  998. . / 'LS03','LS07','LS09','LS27','LS21','LS15','LS19' /
  999. C Noms des éléments en LINEB/MSOMMET pour les éléments géométriques
  1000. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1001. DATA NOMTP(209),NOMTP(210),NOMTP(211),NOMTP(212),NOMTP(213),
  1002. . NOMTP(214),NOMTP(215)
  1003. . / 'BS03','BS07','BS09','BS27','BS21','BS15','BS19' /
  1004. C Noms des éléments en MACRO/CENTRE pour les éléments géométriques
  1005. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1006. DATA NOMTP(216),NOMTP(217),NOMTP(218),NOMTP(219),NOMTP(220),
  1007. . NOMTP(221),NOMTP(222)
  1008. . / 'MC03','MC07','MC09','MC27','MC21','MC15','MC19' /
  1009. C Noms des éléments en MACRO/CENTREP1 pour les éléments géométriques
  1010. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1011. DATA NOMTP(223),NOMTP(224),NOMTP(225),NOMTP(226),NOMTP(227),
  1012. . NOMTP(228),NOMTP(229)
  1013. . / 'M103','M107','M109','M127','M121','M115','M119' /
  1014. C Noms des éléments en MACRO/MSOMMET pour les éléments géométriques
  1015. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1016. DATA NOMTP(230),NOMTP(231),NOMTP(232),NOMTP(233),NOMTP(234),
  1017. . NOMTP(235),NOMTP(236)
  1018. . / 'MS03','MS07','MS09','MS27','MS21','MS15','MS19' /
  1019. C Noms des éléments en QUAF/CENTRE pour les éléments géométriques
  1020. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1021. DATA NOMTP(237),NOMTP(238),NOMTP(239),NOMTP(240),NOMTP(241),
  1022. . NOMTP(242),NOMTP(243)
  1023. . / 'QC03','QC07','QC09','QC27','QC21','QC15','QC19' /
  1024. C Noms des éléments en QUAF/CENTREP1 pour les éléments géométriques
  1025. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1026. DATA NOMTP(244),NOMTP(245),NOMTP(246),NOMTP(247),NOMTP(248),
  1027. . NOMTP(249),NOMTP(250)
  1028. . / 'Q103','Q107','Q109','Q127','Q121','Q115','Q119' /
  1029. C Noms des éléments en QUAF/MSOMMET pour les éléments géométriques
  1030. C SEG3, TRI7, QUA9, CU27, PR21, TE15, PY19
  1031. DATA NOMTP(251),NOMTP(252),NOMTP(253),NOMTP(254),NOMTP(255),
  1032. . NOMTP(256),NOMTP(257),NOMTP(258)
  1033. . / 'QS03','QS07','QS09','QS27','QS21','QS15','QS19','CIFL'/
  1034. C Ajout du type d'element SURE (SUpport de RElations)
  1035. C Ajout des elements XFEM (mecanique de la rupture)
  1036. DATA NOMTP(259),NOMTP(260),NOMTP(261),NOMTP(262),NOMTP(263),
  1037. . NOMTP(264)
  1038. . / 'SURE' ,'SHB8','CAF2','CAF3','XQ4R','XC8R'/
  1039. C Element joint unidimesionnel
  1040. DATA NOMTP(265) / 'JOI1' /
  1041. C Elements de zones cohesives
  1042. DATA NOMTP(266),NOMTP(267),NOMTP(268) / 'ZCO2','ZCO3','ZCO4' /
  1043. C elements tuy2 et tuy3 pour advection thermique
  1044. DATA NOMTP(269),nomtp(270)/'TUY2','TUY3'/
  1045. c element coaxial COS2 (3D pour liaison acier-beton analytique)
  1046. DATA NOMTP(271)/'COS2'/
  1047. c element coaxial COA2 (3D pour liaison acier-beton numerique)
  1048. DATA NOMTP(272)/'COA2'/
  1049.  
  1050. C Stockage du mot-cle indiquant comment calculer la matrice de RIGIDITE
  1051. C ATTENTION : NOMIN est DIMENSIONNE a 5 dans CCHAMP.INC.
  1052. C => Tableau NOMIN non utilise actuellement !
  1053. DATA LNOMIN / 2 /
  1054. DATA NOMIN(1) / 'ANALYTIQ' /
  1055. DATA NOMIN(2) / 'NUMERIQU' /
  1056.  
  1057. C Stockage des noms de FORMULATIONS possibles
  1058. C ATTENTION : NOMFR est DIMENSIONNE a 100 dans CCHAMP.INC.
  1059. DATA LNOMFR / 31 /
  1060. DATA NOMFR( 1) / 'MASSIF ' /
  1061. DATA NOMFR( 2) / 'COQUE ' /
  1062. DATA NOMFR( 3) / 'COQUEPAI' /
  1063. DATA NOMFR( 4) / 'POUTRE ' /
  1064. DATA NOMFR( 5) / 'CISATRAN' /
  1065. DATA NOMFR( 6) / 'LIQUIDE ' /
  1066. DATA NOMFR( 7) / 'TUYAU ' /
  1067. DATA NOMFR( 8) / 'LINESPRI' /
  1068. DATA NOMFR( 9) / 'TUFISSUR' /
  1069. DATA NOMFR(10) / 'RACCMASS' /
  1070. DATA NOMFR(11) / 'RACCCOQU' /
  1071. DATA NOMFR(12) / 'SURFLIBR' /
  1072. DATA NOMFR(13) / 'MEMBRANE' /
  1073. DATA NOMFR(14) / 'UNIAXIAL' /
  1074. DATA NOMFR(15) / 'THERMIQU' /
  1075. DATA NOMFR(16) / 'INCOPRES' /
  1076. DATA NOMFR(17) / 'POREUX ' /
  1077. DATA NOMFR(18) / 'RACCORD ' /
  1078. DATA NOMFR(19) / 'HOMOGENE' /
  1079. DATA NOMFR(20) / 'TUYACOUS' /
  1080. DATA NOMFR(21) / 'DARCY ' /
  1081. DATA NOMFR(22) / 'FIBRE ' /
  1082. DATA NOMFR(23) / 'RAYONNEM' /
  1083. DATA NOMFR(24) / 'BAREXENT' /
  1084. DATA NOMFR(25) / 'LIAISON2' /
  1085. DATA NOMFR(26) / 'RACCORDC' /
  1086. DATA NOMFR(27) / 'RACCORDG' /
  1087. DATA NOMFR(28) / 'MACRO_EL' /
  1088. DATA NOMFR(29) / 'THERMOHY' /
  1089. DATA NOMFR(30) / 'ELECTROS' /
  1090. DATA NOMFR(31) / 'DIFFUSIO' /
  1091.  
  1092. C Stockage du nom des types de CHAMPS PAR ELEMENTS possibles
  1093. C ATTENTION : NOMCH est DIMENSIONNE a 100 dans CCHAMP.INC.
  1094. C => Tableau NOMCH non utilise actuellement !
  1095. DATA LNOMCH / 21 /
  1096. DATA NOMCH( 1) / 'NOEUD ' /
  1097. DATA NOMCH( 2) / 'GRAVITE ' /
  1098. DATA NOMCH( 3) / 'RIGIDITE' /
  1099. DATA NOMCH( 4) / 'MASSE ' /
  1100. DATA NOMCH( 5) / 'STRESSES' /
  1101. DATA NOMCH( 6) / 'DEPLACEM' /
  1102. DATA NOMCH( 7) / 'FORCES ' /
  1103. DATA NOMCH( 8) / 'REACTUAL' /
  1104. DATA NOMCH( 9) / 'FVOLUMIQ' /
  1105. DATA NOMCH(10) / 'GRADIENT' /
  1106. DATA NOMCH(11) / 'CONTRAIN' /
  1107. DATA NOMCH(12) / 'DEFORMAT' /
  1108. DATA NOMCH(13) / 'MATERIAU' /
  1109. DATA NOMCH(14) / 'CARACTER' /
  1110. DATA NOMCH(15) / 'TEMPERAT' /
  1111. DATA NOMCH(16) / 'PRINCIPA' /
  1112. DATA NOMCH(17) / 'MAHOOKE ' /
  1113. DATA NOMCH(18) / 'HOTANGEN' /
  1114. DATA NOMCH(19) / 'DILATATI' /
  1115. DATA NOMCH(20) / 'VARINTER' /
  1116. DATA NOMCH(21) / 'GRAFLEXI' /
  1117.  
  1118. C Stockage du nom des MATERIAUx possibles
  1119. C ATTENTION : NOMAT est DIMENSIONNE a 100 dans CCHAMP.INC.
  1120. DATA LNOMAT / 10 /
  1121. DATA NOMAT(1) / 'STANDARD' /
  1122. DATA NOMAT(2) / 'ORTHOTRO' /
  1123. DATA NOMAT(3) / 'ANISOTRO' /
  1124. DATA NOMAT(4) / 'COMPOSIT' /
  1125. DATA NOMAT(5) / 'LIQUIDE ' /
  1126. DATA NOMAT(6) / 'NONLIN ' /
  1127. DATA NOMAT(7) / 'POREUX ' /
  1128. DATA NOMAT(8) / 'THERMIQU' /
  1129. DATA NOMAT(9) / 'HOMOGENE' /
  1130. DATA NOMAT(10) / 'SCHREFLE' /
  1131.  
  1132. C Stockage du nom des composantes de DEPLACEMENT (PRIMALES)
  1133. C ATTENTION : NOMDD est DIMENSIONNE a 100 dans CCHAMP.INC.
  1134. DATA LNOMDD / 64 /
  1135. DATA NOMDD( 1),NOMDD( 2),NOMDD( 3) / 'UX ','UY ','UZ ' /
  1136. DATA NOMDD( 4),NOMDD( 5),NOMDD( 6) / 'RX ','RY ','RZ ' /
  1137. DATA NOMDD( 7),NOMDD( 8),NOMDD( 9) / 'UR ','UT ','RT ' /
  1138. DATA NOMDD(10),NOMDD(11),NOMDD(12) / 'LX ','ALFA','BETA' /
  1139. DATA NOMDD(13),NOMDD(14),NOMDD(15) / 'FBET','P ','PI ' /
  1140. DATA NOMDD(16),NOMDD(17),NOMDD(18) / 'T ','RR ','TINF' /
  1141. DATA NOMDD(19),NOMDD(20),NOMDD(21) / 'TSUP','TH ','FC ' /
  1142. DATA NOMDD(22),NOMDD(23),NOMDD(24) / 'IUX ','IUY ','IUZ ' /
  1143. DATA NOMDD(25),NOMDD(26),NOMDD(27) / 'IRX ','IRY ','IRZ ' /
  1144. DATA NOMDD(28),NOMDD(29),NOMDD(30) / 'IUR ','IUT ','IRT ' /
  1145. DATA NOMDD(31),NOMDD(32),NOMDD(33) / 'PQ ','TP ','IP ' /
  1146. DATA NOMDD(34) / 'IPI ' /
  1147. DATA NOMDD(35),NOMDD(36),NOMDD(37) / 'AX ','AY ','AZ ' /
  1148. DATA NOMDD(38),NOMDD(39),NOMDD(40) / 'B1X ','B1Y ','B1Z ' /
  1149. DATA NOMDD(41),NOMDD(42),NOMDD(43) / 'C1X ','C1Y ','C1Z ' /
  1150. DATA NOMDD(44),NOMDD(45),NOMDD(46) / 'D1X ','D1Y ','D1Z ' /
  1151. DATA NOMDD(47),NOMDD(48),NOMDD(49) / 'E1X ','E1Y ','E1Z ' /
  1152. DATA NOMDD(50),NOMDD(51),NOMDD(52) / 'B2X ','B2Y ','B2Z ' /
  1153. DATA NOMDD(53),NOMDD(54),NOMDD(55) / 'C2X ','C2Y ','C2Z ' /
  1154. DATA NOMDD(56),NOMDD(57),NOMDD(58) / 'D2X ','D2Y ','D2Z ' /
  1155. DATA NOMDD(59),NOMDD(60),NOMDD(61) / 'E2X ','E2Y ','E2Z ' /
  1156. DATA NOMDD(62),NOMDD(63) / 'PG ','PC ' /
  1157. DATA NOMDD(64) / 'VEL ' /
  1158.  
  1159. C Stockage du nom des composantes des "FORCES" (DUALES)
  1160. C ATTENTION : NOMDU est DIMENSIONNE a 100 dans CCHAMP.INC.
  1161. DATA LNOMDU / 64 /
  1162. DATA NOMDU( 1),NOMDU( 2),NOMDU( 3) / 'FX ','FY ','FZ ' /
  1163. DATA NOMDU( 4),NOMDU( 5),NOMDU( 6) / 'MX ','MY ','MZ ' /
  1164. DATA NOMDU( 7),NOMDU( 8),NOMDU( 9) / 'FR ','FT ','MT ' /
  1165. DATA NOMDU(10),NOMDU(11),NOMDU(12) / 'FLX ','FALF','FBET' /
  1166. DATA NOMDU(13),NOMDU(14),NOMDU(15) / 'BETA','FP ','FPI ' /
  1167. DATA NOMDU(16),NOMDU(17),NOMDU(18) / 'Q ','MR ','QINF' /
  1168. DATA NOMDU(19),NOMDU(20),NOMDU(21) / 'QSUP','FLUX','ED ' /
  1169. DATA NOMDU(22),NOMDU(23),NOMDU(24) / 'IFX ','IFY ','IFZ ' /
  1170. DATA NOMDU(25),NOMDU(26),NOMDU(27) / 'IMX ','IMY ','IMZ ' /
  1171. DATA NOMDU(28),NOMDU(29),NOMDU(30) / 'IFR ','IFT ','IMT ' /
  1172. DATA NOMDU(31),NOMDU(32),NOMDU(33) / 'FPQ ','FTP ','IFP ' /
  1173. DATA NOMDU(34) / 'IFPI' /
  1174. DATA NOMDU(35),NOMDU(36),NOMDU(37) / 'FAX ','FAY ','FAZ ' /
  1175. DATA NOMDU(38),NOMDU(39),NOMDU(40) / 'FB1X','FB1Y','FB1Z' /
  1176. DATA NOMDU(41),NOMDU(42),NOMDU(43) / 'FC1X','FC1Y','FC1Z' /
  1177. DATA NOMDU(44),NOMDU(45),NOMDU(46) / 'FD1X','FD1Y','FD1Z' /
  1178. DATA NOMDU(47),NOMDU(48),NOMDU(49) / 'FE1X','FE1Y','FE1Z' /
  1179. DATA NOMDU(50),NOMDU(51),NOMDU(52) / 'FB2X','FB2Y','FB2Z' /
  1180. DATA NOMDU(53),NOMDU(54),NOMDU(55) / 'FC2X','FC2Y','FC2Z' /
  1181. DATA NOMDU(56),NOMDU(57),NOMDU(58) / 'FD2X','FD2Y','FD2Z' /
  1182. DATA NOMDU(59),NOMDU(60),NOMDU(61) / 'FE2X','FE2Y','FE2Z' /
  1183. DATA NOMDU(62),NOMDU(63) / 'QG ','QC ' /
  1184. DATA NOMDU(64) / 'QEL ' /
  1185.  
  1186. C Stockage du nom des modeles de PLASTICITE
  1187. C ATTENTION : NOMAC est DIMENSIONNE a 100 dans CCHAMP.INC.
  1188. C => Nom peu explicite !
  1189. DATA LNOMAC / 40 /
  1190. DATA NOMAC( 1),NOMAC( 2),NOMAC( 3) / 'PARF','LISP','DRUP' /
  1191. DATA NOMAC( 4),NOMAC( 5),NOMAC( 6) / 'CINE','ISOT','CINL' /
  1192. DATA NOMAC( 7),NOMAC( 8),NOMAC( 9) / 'CHA1','EXPL','BETO' /
  1193. DATA NOMAC(10),NOMAC(11),NOMAC(12) / 'MUCO','CHA2','CHA3' /
  1194. DATA NOMAC(13),NOMAC(14),NOMAC(15) / 'CHA4','TUFP','DRUC' /
  1195. DATA NOMAC(16),NOMAC(17),NOMAC(18) / 'GAUV','GUIO','TFEC' /
  1196. DATA NOMAC(19),NOMAC(20),NOMAC(21) / 'NORT','BLAC','POLY' /
  1197. DATA NOMAC(22),NOMAC(23),NOMAC(24) / 'RCC1','RCC2','LEMA' /
  1198. DATA NOMAC(25),NOMAC(26),NOMAC(27) / 'CHAB','ENDO','LISC' /
  1199. DATA NOMAC(28),NOMAC(29),NOMAC(30) / 'UBIQ','VDOM','MAZA' /
  1200. DATA NOMAC(31),NOMAC(32),NOMAC(33) / 'UNIL','STEI','CAMC' /
  1201. DATA NOMAC(34),NOMAC(35),NOMAC(36) / 'MOHR','JOID','BETA' /
  1202. DATA NOMAC(37),NOMAC(38),NOMAC(39) / 'ROTC','GURS','BETU' /
  1203. DATA NOMAC(40) / 'ACIE' /
  1204.  
  1205. C Stockage du noms des composantes de VITESSES
  1206. C Stockage du noms des composantes de VITESSES
  1207. C ATTENTION : NOMVI est DIMENSIONNE a 100 dans CCHAMP.INC.
  1208. C => Tableau NOMVI non utilise actuellement !
  1209. DATA LNOMVI / 10 /
  1210. DATA NOMVI( 1),NOMVI( 2),NOMVI( 3) / 'VX ','VY ','VZ ' /
  1211. DATA NOMVI( 4),NOMVI( 5),NOMVI( 6) / 'VMX ','VMY ','VMZ ' /
  1212. DATA NOMVI( 7),NOMVI( 8),NOMVI( 9) / 'VR ','VT ','VMT ' /
  1213. DATA NOMVI(10) / 'VFLX' /
  1214.  
  1215. C Stockage du nom des compsantes du tenseur des CONTRAINTES
  1216. C ATTENTION : NOMST est DIMENSIONNE a 100 dans CCHAMP.INC.
  1217. C => Tableau NOMST non utilise actuellement !
  1218. C SM = contraintes de MEMBRANE , SF = contraintes de FLEXION
  1219. C X Y Z elements MASSIFS
  1220. C S T N elements de PLAQUE
  1221. C R Z T elements AXISYMETRIQUES
  1222. DATA LNOMST / 59 /
  1223. DATA NOMST( 1) / 'SMXX' /
  1224. DATA NOMST( 2) / 'SMYY' /
  1225. DATA NOMST( 3) / 'SMXY' /
  1226. DATA NOMST( 4) / 'SFXX' /
  1227. DATA NOMST( 5) / 'SFYY' /
  1228. DATA NOMST( 6) / 'SFXY' /
  1229. DATA NOMST( 7) / 'SMXZ' /
  1230. DATA NOMST( 8) / 'SMYZ' /
  1231. DATA NOMST( 9) / 'SMZZ' /
  1232. DATA NOMST(10) / 'SFXZ' /
  1233. DATA NOMST(11) / 'SFYZ' /
  1234. DATA NOMST(12) / 'SFZZ' /
  1235. DATA NOMST(13) / 'SMSS' /
  1236. DATA NOMST(14) / 'SMTT' /
  1237. DATA NOMST(15) / 'SMST' /
  1238. DATA NOMST(16) / 'SFSS' /
  1239. DATA NOMST(17) / 'SFTT' /
  1240. DATA NOMST(18) / 'SFST' /
  1241. DATA NOMST(19) / 'SMSN' /
  1242. DATA NOMST(20) / 'SMTN' /
  1243. DATA NOMST(21) / 'SMNN' /
  1244. DATA NOMST(22) / 'SFSN' /
  1245. DATA NOMST(23) / 'SFTN' /
  1246. DATA NOMST(24) / 'SFNN' /
  1247. DATA NOMST(25) / 'SMRR' /
  1248. DATA NOMST(26) / 'SMZZ' /
  1249. DATA NOMST(27) / 'SMRZ' /
  1250. DATA NOMST(28) / 'SFRR' /
  1251. DATA NOMST(29) / 'SFZZ' /
  1252. DATA NOMST(30) / 'SFRZ' /
  1253. DATA NOMST(31) / 'SMRT' /
  1254. DATA NOMST(32) / 'SMZT' /
  1255. DATA NOMST(33) / 'SMTT' /
  1256. DATA NOMST(34) / 'SFRT' /
  1257. DATA NOMST(35) / 'SFZT' /
  1258. DATA NOMST(36) / 'SFTT' /
  1259. DATA NOMST(37) / 'EFFX' /
  1260. DATA NOMST(38) / 'EFFY' /
  1261. DATA NOMST(39) / 'EFFZ' /
  1262. DATA NOMST(40) / 'MOMX' /
  1263. DATA NOMST(41) / 'MOMY' /
  1264. DATA NOMST(42) / 'MOMZ' /
  1265. DATA NOMST(43) / 'N11 ' /
  1266. DATA NOMST(44) / 'N22 ' /
  1267. DATA NOMST(45) / 'N12 ' /
  1268. DATA NOMST(46) / 'M11 ' /
  1269. DATA NOMST(47) / 'M22 ' /
  1270. DATA NOMST(48) / 'M12 ' /
  1271. DATA NOMST(49) / 'NZZ ' /
  1272. DATA NOMST(50) / 'MZZ ' /
  1273. DATA NOMST(51) / 'V1 ' /
  1274. DATA NOMST(52) / 'V2 ' /
  1275. DATA NOMST(53) / 'NXZ ' /
  1276. DATA NOMST(54) / 'NYZ ' /
  1277. DATA NOMST(55) / 'MXX ' /
  1278. DATA NOMST(56) / 'DELX' /
  1279. DATA NOMST(57) / 'DELY' /
  1280. DATA NOMST(58) / 'DELZ' /
  1281. DATA NOMST(59) / 'DELR' /
  1282.  
  1283. C Stockage du nom des composantes du tenseur des DEFORMATIONS
  1284. C ATTENTION : NOMDF est DIMENSIONNE a 100 dans CCHAMP.INC.
  1285. C => Tableau NOMDF non utilise actuellement !
  1286. C => LNOMDF est different de LNOMST ????
  1287. C Meme convention que ci-dessus SAUF que :
  1288. C SM devient EP et SF devient RT
  1289. DATA LNOMDF / 48 /
  1290. DATA NOMDF( 1) / 'EPXX' /
  1291. DATA NOMDF( 2) / 'EPYY' /
  1292. DATA NOMDF( 3) / 'GAXY' /
  1293. DATA NOMDF( 4) / 'RTXX' /
  1294. DATA NOMDF( 5) / 'RTYY' /
  1295. DATA NOMDF( 6) / 'RTXY' /
  1296. DATA NOMDF( 7) / 'GAXZ' /
  1297. DATA NOMDF( 8) / 'GAYZ' /
  1298. DATA NOMDF( 9) / 'EPZZ' /
  1299. DATA NOMDF(10) / 'RTXZ' /
  1300. DATA NOMDF(11) / 'RTYZ' /
  1301. DATA NOMDF(12) / 'RTZZ' /
  1302. DATA NOMDF(13) / 'EPSS' /
  1303. DATA NOMDF(14) / 'EPTT' /
  1304. DATA NOMDF(15) / 'GAST' /
  1305. DATA NOMDF(16) / 'RTSS' /
  1306. DATA NOMDF(17) / 'RTTT' /
  1307. DATA NOMDF(18) / 'RTST' /
  1308. DATA NOMDF(19) / 'GASN' /
  1309. DATA NOMDF(20) / 'GATN' /
  1310. DATA NOMDF(21) / 'EPNN' /
  1311. DATA NOMDF(22) / 'RTSN' /
  1312. DATA NOMDF(23) / 'RTTN' /
  1313. DATA NOMDF(24) / 'RTNN' /
  1314. DATA NOMDF(25) / 'EPRR' /
  1315. DATA NOMDF(26) / 'EPZZ' /
  1316. DATA NOMDF(27) / 'GARZ' /
  1317. DATA NOMDF(28) / 'RTRR' /
  1318. DATA NOMDF(29) / 'RTZZ' /
  1319. DATA NOMDF(30) / 'RTRZ' /
  1320. DATA NOMDF(31) / 'GART' /
  1321. DATA NOMDF(32) / 'GAZT' /
  1322. DATA NOMDF(33) / 'EPTT' /
  1323. DATA NOMDF(34) / 'RTRT' /
  1324. DATA NOMDF(35) / 'RTZT' /
  1325. DATA NOMDF(36) / 'RTTT' /
  1326. DATA NOMDF(37) / 'EPS ' /
  1327. DATA NOMDF(38) / 'GXY ' /
  1328. DATA NOMDF(39) / 'GXZ ' /
  1329. DATA NOMDF(40) / 'CX ' /
  1330. DATA NOMDF(41) / 'CY ' /
  1331. DATA NOMDF(42) / 'CZ ' /
  1332. DATA NOMDF(43) / 'GASN' /
  1333. DATA NOMDF(44) / 'GATN' /
  1334. DATA NOMDF(45) / 'EELX' /
  1335. DATA NOMDF(46) / 'EELY' /
  1336. DATA NOMDF(47) / 'EELZ' /
  1337. DATA NOMDF(48) / 'EELR' /
  1338.  
  1339. C Stockage du nom des composantes des champs de MATERIAU
  1340. C ATTENTION : NOMYO est DIMENSIONNE a 200 dans CCHAMP.INC.
  1341. C => Tableau NOMYO non utilise actuellement !
  1342. DATA LNOMYO / 115 /
  1343. DATA NOMYO(1) / 'YOUN' /
  1344. DATA NOMYO(2) / 'NU ' /
  1345. DATA NOMYO(3) / 'RHO ' /
  1346. DATA NOMYO(4) / 'ALPH' /
  1347. DATA NOMYO(5) / 'YG1 ' /
  1348. DATA NOMYO(6) / 'YG2 ' /
  1349. DATA NOMYO(7) / 'YG3 ' /
  1350. DATA NOMYO(8) / 'NU12' /
  1351. DATA NOMYO(9) / 'NU23' /
  1352. DATA NOMYO(10) / 'NU13' /
  1353. DATA NOMYO(11) / 'G12 ' /
  1354. DATA NOMYO(12) / 'G23 ' /
  1355. DATA NOMYO(13) / 'G13 ' /
  1356. DATA NOMYO(14) / 'SIGY' /
  1357. DATA NOMYO(15) / 'H ' /
  1358. DATA NOMYO(16) / 'TRAC' /
  1359. DATA NOMYO(17) / 'CSON' /
  1360. DATA NOMYO(18) / 'RORF' /
  1361. DATA NOMYO(19) / 'CREF' /
  1362. DATA NOMYO(20) / 'LCAR' /
  1363. DATA NOMYO(21) / 'ALP1' /
  1364. DATA NOMYO(22) / 'ALP2' /
  1365. DATA NOMYO(23) / 'ALP3' /
  1366. DATA NOMYO(24) / 'G ' /
  1367. DATA NOMYO(25) / 'V1X ' /
  1368. DATA NOMYO(26) / 'V1Y ' /
  1369. DATA NOMYO(27) / 'V1Z ' /
  1370. DATA NOMYO(28) / 'V2X ' /
  1371. DATA NOMYO(29) / 'V2Y ' /
  1372. DATA NOMYO(30) / 'V2Z ' /
  1373. DATA NOMYO(31) / 'V3X ' /
  1374. DATA NOMYO(32) / 'V3Y ' /
  1375. DATA NOMYO(33) / 'V3Z ' /
  1376. DATA NOMYO(34) / 'K ' /
  1377. DATA NOMYO(35) / 'ALF ' /
  1378. DATA NOMYO(36) / 'J1C ' /
  1379. DATA NOMYO(37) / 'T ' /
  1380. DATA NOMYO(38) / 'ALFA' /
  1381. DATA NOMYO(39) / 'BETA' /
  1382. DATA NOMYO(40) / 'GAMM' /
  1383. DATA NOMYO(41) / 'DELT' /
  1384. DATA NOMYO(42) / 'ETA ' /
  1385. DATA NOMYO(43) / 'MU ' /
  1386. DATA NOMYO(44) / 'KL ' /
  1387. DATA NOMYO(45) / 'PORO' /
  1388. DATA NOMYO(46) / 'PERM' /
  1389. DATA NOMYO(47) / 'VISC' /
  1390. DATA NOMYO(48) / 'COMP' /
  1391. DATA NOMYO(49) / 'NORM' /
  1392. DATA NOMYO(50) / 'A ' /
  1393. DATA NOMYO(51) / 'C ' /
  1394. DATA NOMYO(52) / 'R ' /
  1395. DATA NOMYO(53) / 'R0 ' /
  1396. DATA NOMYO(54) / 'RM ' /
  1397. DATA NOMYO(55) / 'B ' /
  1398. DATA NOMYO(56) / 'A1 ' /
  1399. DATA NOMYO(57) / 'C1 ' /
  1400. DATA NOMYO(58) / 'A2 ' /
  1401. DATA NOMYO(59) / 'C2 ' /
  1402. DATA NOMYO(60) / 'PSI ' /
  1403. DATA NOMYO(61) / 'OMEG' /
  1404. DATA NOMYO(62) / 'LT1 ' /
  1405. DATA NOMYO(63) / 'LT2 ' /
  1406. DATA NOMYO(64) / 'LT3 ' /
  1407. DATA NOMYO(65) / 'EPT1' /
  1408. DATA NOMYO(66) / 'EPT2' /
  1409. DATA NOMYO(67) / 'EPT3' /
  1410. DATA NOMYO(68) / 'LCS ' /
  1411. DATA NOMYO(69) / 'LCT ' /
  1412. DATA NOMYO(70) / 'LCD ' /
  1413. DATA NOMYO(71) / 'PCT ' /
  1414. DATA NOMYO(72) / 'PCD ' /
  1415. DATA NOMYO(73) / 'EPCS' /
  1416. DATA NOMYO(74) / 'EPCD' /
  1417. DATA NOMYO(75) / 'LPH ' /
  1418. DATA NOMYO(76) / 'PENT' /
  1419. DATA NOMYO(77) / 'BETA' /
  1420. DATA NOMYO(78) / 'B11 ' /
  1421. DATA NOMYO(79) / 'B22 ' /
  1422. DATA NOMYO(80) / 'B12 ' /
  1423. DATA NOMYO(81) / 'ROF ' /
  1424. DATA NOMYO(82) / 'ROS ' /
  1425. DATA NOMYO(83) / 'SIGF' /
  1426. DATA NOMYO(84) / 'LTR ' /
  1427. DATA NOMYO(85) / 'EPTR' /
  1428. DATA NOMYO(86) / 'ENDO' /
  1429. DATA NOMYO(87) / 'OUV1' /
  1430. DATA NOMYO(88) / 'OUV2' /
  1431. DATA NOMYO(89) / 'OUV3' /
  1432. DATA NOMYO(90) / 'IFIS' /
  1433. DATA NOMYO(91) / 'ANGL' /
  1434. DATA NOMYO(92) / 'LBIC' /
  1435. DATA NOMYO(93) / 'JDA ' /
  1436. DATA NOMYO(94) / 'EMIS' /
  1437. DATA NOMYO(95) / 'EINF' /
  1438. DATA NOMYO(96) / 'ESUP' /
  1439. DATA NOMYO(97) / 'ETA1' /
  1440. DATA NOMYO(98) / 'ETA2' /
  1441. DATA NOMYO(99) / 'RUGO' /
  1442. DATA NOMYO(100) / 'REC ' /
  1443. DATA NOMYO(101) / 'FK ' /
  1444. DATA NOMYO(102) / 'FA ' /
  1445. DATA NOMYO(103) / 'FB ' /
  1446. DATA NOMYO(104) / 'FC ' /
  1447. DATA NOMYO(105) / 'FD ' /
  1448. DATA NOMYO(106) / 'PEL ' /
  1449. DATA NOMYO(107) / 'PE1 ' /
  1450. DATA NOMYO(108) / 'PE2 ' /
  1451. DATA NOMYO(109) / 'PE3 ' /
  1452. DATA NOMYO(110) / 'PE11' /
  1453. DATA NOMYO(111) / 'PE22' /
  1454. DATA NOMYO(112) / 'PE33' /
  1455. DATA NOMYO(113) / 'PE21' /
  1456. DATA NOMYO(114) / 'PE31' /
  1457. DATA NOMYO(115) / 'PE32' /
  1458.  
  1459. C Stockage du nom des CARACTERISTIQUES geometriques
  1460. C ATTENTION : NOMCR est DIMENSIONNE a 100 dans CCHAMP.INC.
  1461. C => Tableau NOMCR non utilise actuellement !
  1462. DATA LNOMCR / 29 /
  1463. DATA NOMCR( 1) / 'EPAI' /
  1464. DATA NOMCR( 2) / 'TORS' /
  1465. DATA NOMCR( 3) / 'INRY' /
  1466. DATA NOMCR( 4) / 'INRZ' /
  1467. DATA NOMCR( 5) / 'SECT' /
  1468. DATA NOMCR( 6) / 'SECY' /
  1469. DATA NOMCR( 7) / 'SECZ' /
  1470. DATA NOMCR( 8) / 'INRZ' /
  1471. DATA NOMCR( 9) / 'RAYO' /
  1472. DATA NOMCR(10) / 'VX ' /
  1473. DATA NOMCR(11) / 'VY ' /
  1474. DATA NOMCR(12) / 'VZ ' /
  1475. DATA NOMCR(13) / 'FISS' /
  1476. DATA NOMCR(14) / 'RACO' /
  1477. DATA NOMCR(15) / 'VXF ' /
  1478. DATA NOMCR(16) / 'VYF ' /
  1479. DATA NOMCR(17) / 'VZF ' /
  1480. DATA NOMCR(18) / 'ANGL' /
  1481. DATA NOMCR(19) / 'CALF' /
  1482. DATA NOMCR(20) / 'DX ' /
  1483. DATA NOMCR(21) / 'DY ' /
  1484. DATA NOMCR(22) / 'DZ ' /
  1485. DATA NOMCR(23) / 'EXCE' /
  1486. DATA NOMCR(24) / 'SCEL' /
  1487. DATA NOMCR(25) / 'SFLU' /
  1488. DATA NOMCR(26) / 'EPS ' /
  1489. DATA NOMCR(27) / 'PRES' /
  1490. DATA NOMCR(28) / 'NOF1' /
  1491. DATA NOMCR(29) / 'NOF2' /
  1492.  
  1493. C Stockage du nom des coefficients de la matrice de Hooke
  1494. C ATTENTION : NOMHO est DIMENSIONNE a 100 dans CCHAMP.INC.
  1495. C => Tableau NOMHO non utilise actuellement !
  1496. DATA LNOMHO / 73 /
  1497. DATA NOMHO(1 ),NOMHO(2 ),NOMHO(3 ),NOMHO(4 ),NOMHO(5 ),NOMHO(6 ),
  1498. . NOMHO(7 ),NOMHO(8 ),NOMHO(9 ),NOMHO(10),NOMHO(11),NOMHO(12),
  1499. . NOMHO(13),NOMHO(14),NOMHO(15),NOMHO(16),NOMHO(17),NOMHO(18),
  1500. . NOMHO(19),NOMHO(20),NOMHO(21),NOMHO(22),NOMHO(23),NOMHO(24),
  1501. . NOMHO(25),NOMHO(26),NOMHO(27),NOMHO(28),NOMHO(29),NOMHO(30),
  1502. . NOMHO(31),NOMHO(32),NOMHO(33),NOMHO(34),NOMHO(35),NOMHO(36)
  1503. . / 'HO11','HO21','HO31','HO41','HO51','HO61',
  1504. . 'HO12','HO22','HO32','HO42','HO52','HO62',
  1505. . 'HO13','HO23','HO33','HO43','HO53','HO63',
  1506. . 'HO14','HO24','HO34','HO44','HO54','HO64',
  1507. . 'HO15','HO25','HO35','HO45','HO55','HO65',
  1508. . 'HO16','HO26','HO36','HO46','HO56','HO66' /
  1509. DATA NOMHO(37),NOMHO(38),NOMHO(39) / 'KXX','KYX','KZX' /
  1510. DATA NOMHO(40),NOMHO(41),NOMHO(42) / 'KXY','KYY','KZY' /
  1511. DATA NOMHO(43),NOMHO(44),NOMHO(45) / 'KXZ','KYZ','KZZ' /
  1512. DATA NOMHO(46),NOMHO(47),NOMHO(48),NOMHO(49),NOMHO(50),NOMHO(51),
  1513. . NOMHO(52),NOMHO(53),NOMHO(54),NOMHO(55),NOMHO(56),NOMHO(57),
  1514. . NOMHO(58),NOMHO(59),NOMHO(60),NOMHO(61),NOMHO(62),NOMHO(63),
  1515. . NOMHO(64),NOMHO(65),NOMHO(66),NOMHO(67),NOMHO(68),NOMHO(69),
  1516. . NOMHO(70),NOMHO(71),NOMHO(72),NOMHO(73)
  1517. . / 'HO71','HO81','HO72','HO82','HO73','HO83','HO74','HO84',
  1518. . 'HO75','HO85','HO76','HO86',
  1519. . 'HO17','HO27','HO37','HO47','HO57','HO67','HO77','HO87',
  1520. . 'HO18','HO28','HO38','HO48','HO58','HO68','HO78','HO88' /
  1521.  
  1522. C Stockage des noms des VARIABLES INTERNES
  1523. C ATTENTION : NOMVRI est DIMENSIONNE a 100 dans CCHAMP.INC.
  1524. C => Tableau NOMVRI non utilise actuellement !
  1525. DATA LNOVRI / 1 /
  1526. DATA NOMVRI( 1) / 'EPSE' /
  1527.  
  1528. C NNAVI stoke tous les couples vitesse/pression utilisable
  1529. C ATTENTION : NNAVI est DIMENSIONNE a 20 dans CCHAMP.INC.
  1530. DATA LNNAVI / 9 /
  1531. DATA NNAVI(1),NNAVI(2),NNAVI(3),NNAVI(4),NNAVI(5),NNAVI(6),
  1532. . NNAVI(7),NNAVI(8),NNAVI(9)
  1533. . / 'LICE','LIMS','LBMS','MCCE','MCP1','MCMS',
  1534. . 'QFCE','QFP1','QFMS' /
  1535. C ELEMENT U/P de Navier-Stokes COURANT
  1536. DATA ILNAVI / 0 /
  1537.  
  1538. C Valeurs de CCVQUA4.INC :
  1539. C ------------------------
  1540. C Tabulation de SIGMA
  1541. DATA VSIGMA / 1.D0,1.D0,1.D0,1.D0 /
  1542. C Tabulation de LAMBDA1
  1543. DATA VLAMD1 / -1.D0,1.D0,1.D0,-1.D0 /
  1544. C Tabulation de LAMBDA2
  1545. DATA VLAMD2 / -1.D0,-1.D0,1.D0,1.D0 /
  1546. C Tabulation de GAMA
  1547. DATA VGAMA / 1.D0,-1.D0,1.D0,-1D0 /
  1548. C TABULATION DE LAMBDA1 * LAMBDA1T
  1549. DATA VL1L1T / 1.D0,-1.D0,-1.D0, 1.D0,
  1550. . -1.D0, 1.D0, 1.D0,-1.D0,
  1551. . -1.D0, 1.D0, 1.D0,-1.D0,
  1552. . 1.D0,-1.D0,-1.D0, 1.D0 /
  1553. C Tabulation de LAMBDA2 * LAMBDA2T
  1554. DATA VL2L2T / 1.D0, 1.D0,-1.D0,-1.D0,
  1555. . 1.D0, 1.D0,-1.D0,-1.D0,
  1556. . -1.D0,-1.D0, 1.D0, 1.D0,
  1557. . -1.D0,-1.D0, 1.D0, 1.D0 /
  1558. C Tabulation de GAMA * GAMAT
  1559. DATA VGGT / 1.D0,-1.D0, 1.D0,-1.D0,
  1560. . -1.D0, 1.D0,-1.D0, 1.D0,
  1561. . 1.D0,-1.D0, 1.D0,-1.D0,
  1562. . -1.D0, 1.D0,-1.D0, 1.D0 /
  1563. C Tabulation de SIGMA * SIGMAT
  1564. DATA VSST / 1.D0, 1.D0, 1.D0, 1.D0,
  1565. . 1.D0, 1.D0, 1.D0, 1.D0,
  1566. . 1.D0, 1.D0, 1.D0, 1.D0,
  1567. . 1.D0, 1.D0, 1.D0, 1.D0 /
  1568. C Tabulation de LAMBDA1 GAMAT + GAMA LAMBDA1T / 2
  1569. DATA VL1GT2 / -1.D0, 1.D0, 0.D0, 0.D0,
  1570. . 1.D0,-1.D0, 0.D0, 0.D0,
  1571. . 0.D0, 0.D0, 1.D0,-1.D0,
  1572. . 0.D0, 0.D0,-1.D0, 1.D0 /
  1573. C Tabulation de LAMBDA2 GAMAT + GAMA LAMBDA2T / 2
  1574. DATA VL2GT2 / -1.D0, 0.D0, 0.D0, 1.D0,
  1575. . 0.D0, 1.D0,-1.D0, 0.D0,
  1576. . 0.D0,-1.D0, 1.D0, 0.D0,
  1577. . 1.D0, 0.D0, 0.D0,-1.D0 /
  1578. C Valeur de CCFXDR
  1579. DATA IXDRR,IXDRW /0,0/
  1580.  
  1581. C Valeurs du COMMON CTDRAN
  1582. C XA=16807.D0,XM=2147483647.D0,XG=123.D0
  1583. DATA IBUFF/32/,IFLAG/0/
  1584. DATA XA/16807.d0/,XM/2147483647.D0/,XG/123.D0/,R/32*0.D0/
  1585. c valeurs de CCTRACE
  1586. c par defaut police courier 14 => IOPOTR=4
  1587. DATA ICOSC/1/,IOPOLI/1/
  1588. DATA IOPOTR/4/
  1589. *sg Ancienne version ?
  1590. * DATA ICOTAB/3,1,5,4,6,2,7,11,9,13,12,14,10,15,8,16/
  1591. DATA ICOTAB /11,3,9,1,13,5,12,4,14,6,10,2,15,7,8/
  1592. DATA ISOTAB/9,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,
  1593. & 1,15,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,
  1594. & 1,8,15,0, 0,0,0,0, 0,0,0,0, 0,0,0,
  1595. & 1,6,11,15, 0,0,0,0, 0,0,0,0, 0,0,0,
  1596. & 1,5,9,12, 15,0,0,0, 0,0,0,0, 0,0,0,
  1597. & 1,4,7,10, 13,15,0,0, 0,0,0,0, 0,0,0,
  1598. & 1,4,7,9, 11,14,15,0, 0,0,0,0, 0,0,0,
  1599. & 1,3,5,7, 9,12,14,15, 0,0,0,0, 0,0,0,
  1600. & 1,3,5,7, 9,11,13,14, 15,0,0,0, 0,0,0,
  1601. & 1,2,4,6, 8,10,12,13, 14,15,0,0, 0,0,0,
  1602. & 1,3,4,6, 7,9,10,12, 13,14,15,0, 0,0,0,
  1603. & 1,2,3,5, 6,7,9,11, 12,13,14,15, 0,0,0,
  1604. & 1,2,4, 5,6,7, 9,10,11,12, 13,14,15,0,0,
  1605. & 1,2,3,4, 6,7,8, 9,10,11,12, 13,14,15,0,
  1606. & 1,2,3,4, 5,6,7, 8,9,10,11, 12,13,14,15/
  1607. csg : pour opti isov lign, on évite blan noir gris i.e. 15,7,8
  1608. c : formule pour générer la nieme ligne du tableau (sauf la 1ere)
  1609. c cc(i=1,n) = enti(1.5+ (i-1)*(12-1)/n )
  1610. DATA ISOTA0/7,0,0,0, 0,0,0,0, 0,0,0,0,
  1611. & 1,12,0,0, 0,0,0,0, 0,0,0,0,
  1612. & 1,7,12,0, 0,0,0,0, 0,0,0,0,
  1613. & 1,5,8,12, 0,0,0,0, 0,0,0,0,
  1614. & 1,4,7, 9, 12,0,0,0, 0,0,0,0,
  1615. & 1,3,5, 8, 10,12,0,0, 0,0,0,0,
  1616. & 1,3,5, 7, 8,10,12,0, 0,0,0,0,
  1617. & 1,3,4,6, 7, 9,10,12, 0,0,0,0,
  1618. & 1,2,4,5, 7, 8, 9,11, 12,0,0,0,
  1619. & 1,2,3,5, 6, 7, 8,10, 11,12,0,0,
  1620. & 1,2,3,4, 5,7, 8, 9, 10,11,12,0,
  1621. & 1,2,3,4, 5,6,7,8, 9,10,11,12/
  1622. END
  1623.  
  1624.  
  1625.  
  1626.  
  1627.  
  1628.  
  1629.  
  1630.  
  1631.  
  1632.  
  1633.  
  1634.  
  1635.  
  1636.  
  1637.  
  1638.  
  1639.  
  1640.  
  1641.  
  1642.  
  1643.  
  1644.  
  1645.  
  1646.  
  1647.  
  1648.  
  1649.  
  1650.  
  1651.  
  1652.  

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