2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
9 c aupres des huissiers de justice Simart et Lavoir a Clamart
10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
11 c aupres des huissiers de justice
12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
14 c HOMARD est une marque deposee d'Electricite de France
15 c Copyright EDF 1996, 2020
16 c ______________________________________________________________________
18 c Gestionnaire de la Memoire :
20 c Initialisation des Tables d'OBjets
34 c numeros de version des tables d'objets
45 c--------------------------------------------------
47 nomtyp( 1) = 'HOM_Mail'
54 nomcha( 2) = 'Ma_Point'
60 nomcha( 5) = 'Volume '
62 nomcha( 6) = 'ElemIgno'
64 nomcha( 7) = 'Voisins '
66 nomcha( 8) = 'RenuMail'
68 nomcha( 9) = 'InfoSupE'
70 nomcha( 10) = 'InfoSupS'
73 c--------------------------------------------------
75 nomtyp( 2) = 'RenuMail'
80 nomcha( 11) = 'NoHOMARD'
82 nomcha( 12) = 'NoCalcul'
84 nomcha( 13) = 'MPHOMARD'
86 nomcha( 14) = 'MPCalcul'
88 nomcha( 15) = 'ArHOMARD'
90 nomcha( 16) = 'ArCalcul'
92 nomcha( 17) = 'TrHOMARD'
94 nomcha( 18) = 'TrCalcul'
96 nomcha( 19) = 'TeHOMARD'
98 nomcha( 20) = 'TeCalcul'
100 nomcha( 21) = 'QuHOMARD'
102 nomcha( 22) = 'QuCalcul'
104 nomcha( 23) = 'PyHOMARD'
106 nomcha( 24) = 'PyCalcul'
108 nomcha( 25) = 'HeHOMARD'
110 nomcha( 26) = 'HeCalcul'
112 nomcha( 27) = 'PeHOMARD'
114 nomcha( 28) = 'PeCalcul'
116 nomcha( 29) = 'Nombres '
118 nomcha( 30) = 'InfoSupE'
121 c--------------------------------------------------
123 nomtyp( 3) = 'HOM_Noeu'
128 nomcha( 31) = 'Coor '
130 nomcha( 32) = 'HistEtat'
132 nomcha( 33) = 'AretSupp'
134 nomcha( 34) = 'Homologu'
136 nomcha( 35) = 'Deraffin'
138 nomcha( 36) = 'CoorCons'
140 nomcha( 37) = 'InfoGene'
142 nomcha( 38) = 'Recollem'
144 nomcha( 39) = 'Famille '
146 nomcha( 40) = 'Frontier'
149 c--------------------------------------------------
151 nomtyp( 4) = 'HOM_Aret'
156 nomcha( 41) = 'HOM_Se02'
158 nomcha( 42) = 'HOM_Se03'
161 c--------------------------------------------------
163 nomtyp( 5) = 'HOM_Face'
168 nomcha( 43) = 'HOM_Tr03'
170 nomcha( 44) = 'HOM_Tr06'
172 nomcha( 45) = 'HOM_Tr07'
174 nomcha( 46) = 'HOM_Qu04'
176 nomcha( 47) = 'HOM_Qu08'
178 nomcha( 48) = 'HOM_Qu09'
181 c--------------------------------------------------
183 nomtyp( 6) = 'HOM_Volu'
188 nomcha( 49) = 'HOM_Te04'
190 nomcha( 50) = 'HOM_Te10'
192 nomcha( 51) = 'HOM_Py05'
194 nomcha( 52) = 'HOM_Py13'
196 nomcha( 53) = 'HOM_He08'
198 nomcha( 54) = 'HOM_He20'
200 nomcha( 55) = 'HOM_He27'
202 nomcha( 56) = 'HOM_Pe06'
204 nomcha( 57) = 'HOM_Pe15'
207 c--------------------------------------------------
209 nomtyp( 7) = 'HOM_Enti'
214 nomcha( 58) = 'ConnDesc'
216 nomcha( 59) = 'ConnAret'
218 nomcha( 60) = 'HistEtat'
220 nomcha( 61) = 'Niveau '
222 nomcha( 62) = 'Mere '
224 nomcha( 63) = 'Fille '
226 nomcha( 64) = 'Homologu'
228 nomcha( 65) = 'InfoSupp'
230 nomcha( 66) = 'InfoSup2'
232 nomcha( 67) = 'NoeuInMa'
234 nomcha( 68) = 'Deraffin'
236 nomcha( 69) = 'InfoGene'
238 nomcha( 70) = 'Recollem'
240 nomcha( 71) = 'Famille '
243 c--------------------------------------------------
245 nomtyp( 8) = 'HOM_Elig'
250 nomcha( 72) = 'ConnNoeu'
252 nomcha( 73) = 'FamilMED'
255 c--------------------------------------------------
257 nomtyp( 9) = 'HOM_Fami'
262 nomcha( 74) = 'EntiFamm'
264 nomcha( 75) = 'Codes '
267 c--------------------------------------------------
269 nomtyp( 10) = 'HOM_Reco'
274 nomcha( 76) = 'ListeA '
276 nomcha( 77) = 'ListeB '
279 c--------------------------------------------------
281 nomtyp( 11) = 'Voisins '
286 nomcha( 78) = '0D/1D '
288 nomcha( 79) = '1D/2D '
290 nomcha( 80) = 'Vol/Tri '
292 nomcha( 81) = 'Vol/Qua '
294 nomcha( 82) = 'PyPe/Tri'
296 nomcha( 83) = 'PyPe/Qua'
298 nomcha( 84) = 'Tet/Are '
300 nomcha( 85) = 'Hex/Are '
302 nomcha( 86) = 'Pen/Are '
304 nomcha( 87) = 'Pyr/Are '
307 c--------------------------------------------------
309 nomtyp( 12) = 'Sauve_HM'
314 nomcha( 88) = 'Fille_Ar'
316 nomcha( 89) = 'HEtat_Ar'
318 nomcha( 90) = 'Fille_Tr'
320 nomcha( 91) = 'HEtat_Tr'
322 nomcha( 92) = 'Famil_Tr'
324 nomcha( 93) = 'Fille_Qu'
326 nomcha( 94) = 'HEtat_Qu'
328 nomcha( 95) = 'Fille_Te'
330 nomcha( 96) = 'HEtat_Te'
332 nomcha( 97) = 'Fille_Py'
334 nomcha( 98) = 'HEtat_Py'
336 nomcha( 99) = 'Fille_He'
338 nomcha( 100) = 'HEtat_He'
340 nomcha( 101) = 'Insu2_He'
342 nomcha( 102) = 'Fille_Pe'
344 nomcha( 103) = 'HEtat_Pe'
346 nomcha( 104) = 'Insu2_Pe'
348 nomcha( 105) = 'RenuMail'
351 c--------------------------------------------------
353 nomtyp( 13) = 'HOM_Indi'
358 nomcha( 106) = 'Noeud '
360 nomcha( 107) = 'Point '
362 nomcha( 108) = 'Arete '
364 nomcha( 109) = 'Trian '
366 nomcha( 110) = 'Quadr '
368 nomcha( 111) = 'Tetra '
370 nomcha( 112) = 'Hexae '
372 nomcha( 113) = 'Pyram '
374 nomcha( 114) = 'Penta '
377 c--------------------------------------------------
379 nomtyp( 14) = 'Indicate'
384 nomcha( 115) = 'Support '
386 nomcha( 116) = 'ValeursE'
388 nomcha( 117) = 'ValeursR'
391 c--------------------------------------------------
393 nomtyp( 15) = 'Cal_Mail'
398 nomcha( 118) = 'InfoGene'
400 nomcha( 119) = 'Noeud '
402 nomcha( 120) = 'ConnNoeu'
404 nomcha( 121) = 'ConnDesc'
406 nomcha( 122) = 'Famille '
408 nomcha( 123) = 'Equivalt'
410 nomcha( 124) = 'Frontier'
412 nomcha( 125) = 'CodeExte'
414 nomcha( 126) = 'Nombres '
417 c--------------------------------------------------
419 nomtyp( 16) = 'MC_Noe '
424 nomcha( 127) = 'NumeExte'
426 nomcha( 128) = 'Coor '
428 nomcha( 129) = 'FamilMED'
430 nomcha( 130) = 'CoorCons'
433 c--------------------------------------------------
435 nomtyp( 17) = 'MC_CNo '
440 nomcha( 131) = 'NumeExte'
442 nomcha( 132) = 'FamilMED'
444 nomcha( 133) = 'Type '
446 nomcha( 134) = 'Noeuds '
449 c--------------------------------------------------
451 nomtyp( 18) = 'MC_CDe '
456 nomcha( 135) = 'NumeExte'
458 nomcha( 136) = 'FamilMED'
460 nomcha( 137) = 'Type '
462 nomcha( 138) = 'Entites '
465 c--------------------------------------------------
467 nomtyp( 19) = 'MC_Fam '
472 nomcha( 139) = 'Numero '
474 nomcha( 140) = 'Nom '
476 nomcha( 141) = 'Groupe '
479 c--------------------------------------------------
481 nomtyp( 20) = 'MC_Equ '
486 nomcha( 142) = 'Pointeur'
488 nomcha( 143) = 'InfoGene'
490 nomcha( 144) = 'Noeud '
492 nomcha( 145) = 'Point '
494 nomcha( 146) = 'Arete '
496 nomcha( 147) = 'Trian '
498 nomcha( 148) = 'Quadr '
500 nomcha( 149) = 'Tetra '
502 nomcha( 150) = 'Hexae '
505 c--------------------------------------------------
507 nomtyp( 21) = 'MC_CEx '
512 nomcha( 151) = 'Noeud '
514 nomcha( 152) = 'Point '
516 nomcha( 153) = 'Arete '
518 nomcha( 154) = 'Trian '
520 nomcha( 155) = 'Quadr '
522 nomcha( 156) = 'Tetra '
524 nomcha( 157) = 'Pyram '
526 nomcha( 158) = 'Hexae '
528 nomcha( 159) = 'Penta '
530 nomcha( 160) = 'ElemBord'
533 c--------------------------------------------------
535 nomtyp( 22) = 'Solution'
540 nomcha( 161) = 'InfoCham'
542 nomcha( 162) = 'InfoPaFo'
544 nomcha( 163) = 'InfoProf'
546 nomcha( 164) = 'InfoLoPG'
549 c--------------------------------------------------
551 nomtyp( 23) = 'InfoCham'
556 nomcha( 165) = 'Nom_Comp'
558 nomcha( 166) = 'Cham_Ent'
560 nomcha( 167) = 'Cham_Ree'
562 nomcha( 168) = 'Cham_Car'
565 c--------------------------------------------------
567 nomtyp( 24) = 'PackFonc'
572 nomcha( 169) = 'Fonction'
574 nomcha( 170) = 'TypeSuAs'
577 c--------------------------------------------------
579 nomtyp( 25) = 'Profil '
584 nomcha( 171) = 'NomProfi'
586 nomcha( 172) = 'ListEnti'
589 c--------------------------------------------------
591 nomtyp( 26) = 'LocaPG '
596 nomcha( 173) = 'NomLocPG'
598 nomcha( 174) = 'CoorNoeu'
600 nomcha( 175) = 'CoorPtGa'
602 nomcha( 176) = 'PoidPtGa'
605 c--------------------------------------------------
607 nomtyp( 27) = 'Fonction'
612 nomcha( 177) = 'ValeursE'
614 nomcha( 178) = 'ValeursR'
616 nomcha( 179) = 'InfoCham'
618 nomcha( 180) = 'InfoPrPG'
620 nomcha( 181) = 'TypeSuAs'
623 c--------------------------------------------------
625 nomtyp( 28) = 'DonnHOMA'
630 nomcha( 182) = 'OptEnt '
632 nomcha( 183) = 'OptRee '
634 nomcha( 184) = 'OptCar '
636 nomcha( 185) = 'EtatCour'
639 c--------------------------------------------------
641 nomtyp( 29) = 'FichExec'
646 nomcha( 186) = 'NomRefer'
648 nomcha( 187) = 'LongNomF'
650 nomcha( 188) = 'PosiNomF'
652 nomcha( 189) = 'NomUFich'
654 nomcha( 190) = 'NomObjSt'
656 nomcha( 191) = 'InfoSupp'
659 c--------------------------------------------------
661 nomtyp( 30) = 'ChampMAJ'
666 nomcha( 192) = 'CarCaChp'
668 nomcha( 193) = 'CarEnChp'
670 nomcha( 194) = 'CarReChp'
673 c--------------------------------------------------
675 nomtyp( 31) = 'Cal_Fron'
680 nomcha( 195) = 'CoorNoeu'
682 nomcha( 196) = 'NumeLign'
684 nomcha( 197) = 'TypeLign'
686 nomcha( 198) = 'PtrSomLi'
688 nomcha( 199) = 'SommSegm'
690 nomcha( 200) = 'AbsCurvi'
692 nomcha( 201) = 'Groupes '
695 c--------------------------------------------------
697 nomtyp( 32) = 'PtTabEnt'
702 nomcha( 202) = 'Pointeur'
704 nomcha( 203) = 'Table '
707 c--------------------------------------------------
709 nomtyp( 33) = 'PtTabRee'
714 nomcha( 204) = 'Pointeur'
716 nomcha( 205) = 'Table '
719 c--------------------------------------------------
721 nomtyp( 34) = 'PtTabC08'
726 nomcha( 206) = 'Pointeur'
728 nomcha( 207) = 'Taille '
730 nomcha( 208) = 'Table '
733 c--------------------------------------------------
735 nomtyp( 35) = 'Pt2TbEnt'
740 nomcha( 209) = 'Pointeur'
742 nomcha( 210) = 'ListeA '
744 nomcha( 211) = 'ListeB '
747 c--------------------------------------------------
749 nomtyp( 36) = 'PtPtTEnt'
754 nomcha( 212) = 'Pointer1'
756 nomcha( 213) = 'Pointer2'
758 nomcha( 214) = 'Table '
761 c--------------------------------------------------
763 nomtyp( 37) = '2ListEnt'
768 nomcha( 215) = 'ListeA '
770 nomcha( 216) = 'ListeB '
773 c--------------------------------------------------
775 nomtyp( 38) = '3ListEnt'
780 nomcha( 217) = 'ListeA '
782 nomcha( 218) = 'ListeB '
784 nomcha( 219) = 'ListeC '
787 c--------------------------------------------------
789 nomtyp( 39) = '2ListeER'
794 nomcha( 220) = 'ListeA '
796 nomcha( 221) = 'ListeB '
799 c--------------------------------------------------
801 nomtyp( 40) = 'EntCarRe'
806 nomcha( 222) = 'ValeursE'
808 nomcha( 223) = 'ValeursS'
810 nomcha( 224) = 'ValeursR'
812 nomcha( 225) = 'Suivant '
815 c--------------------------------------------------
817 nomtyp( 41) = '10TabEnt'
822 nomcha( 226) = 'Tab1 '
824 nomcha( 227) = 'Tab2 '
826 nomcha( 228) = 'Tab3 '
828 nomcha( 229) = 'Tab4 '
830 nomcha( 230) = 'Tab5 '
832 nomcha( 231) = 'Tab6 '
834 nomcha( 232) = 'Tab7 '
836 nomcha( 233) = 'Tab8 '
838 nomcha( 234) = 'Tab9 '
840 nomcha( 235) = 'Tab10 '
843 c--------------------------------------------------
845 nomtyp( 42) = '10TabRee'
850 nomcha( 236) = 'Tab1 '
852 nomcha( 237) = 'Tab2 '
854 nomcha( 238) = 'Tab3 '
856 nomcha( 239) = 'Tab4 '
858 nomcha( 240) = 'Tab5 '
860 nomcha( 241) = 'Tab6 '
862 nomcha( 242) = 'Tab7 '
864 nomcha( 243) = 'Tab8 '
866 nomcha( 244) = 'Tab9 '
868 nomcha( 245) = 'Tab10 '
871 c--------------------------------------------------
873 nomtyp( 43) = '10TabC08'
878 nomcha( 246) = 'Tab1 '
880 nomcha( 247) = 'Tab2 '
882 nomcha( 248) = 'Tab3 '
884 nomcha( 249) = 'Tab4 '
886 nomcha( 250) = 'Tab5 '
888 nomcha( 251) = 'Tab6 '
890 nomcha( 252) = 'Tab7 '
892 nomcha( 253) = 'Tab8 '
894 nomcha( 254) = 'Tab9 '
896 nomcha( 255) = 'Tab10 '
899 do 24 , iaux = 1 , nbrtyp
900 nomtbp(iaux) = nomtyp(iaux)