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