subroutine gmitob c ______________________________________________________________________ c c H O M A R D V11.n c c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D c c Version originale enregistree le 18 juin 1996 sous le numero 96036 c aupres des huissiers de justice Simart et Lavoir a Clamart c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014 c aupres des huissiers de justice c Lavoir, Silinski & Cherqui-Abrahmi a Clamart c c HOMARD est une marque deposee d'Electricite de France c Copyright EDF 1996, 2020 c ______________________________________________________________________ c c Gestionnaire de la Memoire : c - - c Initialisation des Tables d'OBjets c - - -- c save c #include "gmmatc.h" c #include "gmtoas.h" #include "gmtori.h" #include "gmtors.h" #include "gmtove.h" c integer iaux c c numeros de version des tables d'objets c nuveto = 11 nusvto = 9 daheto = 30585600 nuanto = 2016 c c objets structures c nbrtyp = 43 c c-------------------------------------------------- c nomtyp( 1) = 'HOM_Mail' nbratt( 1) = 11 nbcham( 1) = 10 adrdst( 1) = 1 c nomcha( 1) = 'Noeud ' typcha( 1) = 3 nomcha( 2) = 'Ma_Point' typcha( 2) = 7 nomcha( 3) = 'Arete ' typcha( 3) = 4 nomcha( 4) = 'Face ' typcha( 4) = 5 nomcha( 5) = 'Volume ' typcha( 5) = 6 nomcha( 6) = 'ElemIgno' typcha( 6) = 8 nomcha( 7) = 'Voisins ' typcha( 7) = 11 nomcha( 8) = 'RenuMail' typcha( 8) = 2 nomcha( 9) = 'InfoSupE' typcha( 9) = 41 nomcha( 10) = 'InfoSupS' typcha( 10) = 43 c c-------------------------------------------------- c nomtyp( 2) = 'RenuMail' nbratt( 2) = 19 nbcham( 2) = 20 adrdst( 2) = 11 c nomcha( 11) = 'NoHOMARD' typcha( 11) = -1 nomcha( 12) = 'NoCalcul' typcha( 12) = -1 nomcha( 13) = 'MPHOMARD' typcha( 13) = -1 nomcha( 14) = 'MPCalcul' typcha( 14) = -1 nomcha( 15) = 'ArHOMARD' typcha( 15) = -1 nomcha( 16) = 'ArCalcul' typcha( 16) = -1 nomcha( 17) = 'TrHOMARD' typcha( 17) = -1 nomcha( 18) = 'TrCalcul' typcha( 18) = -1 nomcha( 19) = 'TeHOMARD' typcha( 19) = -1 nomcha( 20) = 'TeCalcul' typcha( 20) = -1 nomcha( 21) = 'QuHOMARD' typcha( 21) = -1 nomcha( 22) = 'QuCalcul' typcha( 22) = -1 nomcha( 23) = 'PyHOMARD' typcha( 23) = -1 nomcha( 24) = 'PyCalcul' typcha( 24) = -1 nomcha( 25) = 'HeHOMARD' typcha( 25) = -1 nomcha( 26) = 'HeCalcul' typcha( 26) = -1 nomcha( 27) = 'PeHOMARD' typcha( 27) = -1 nomcha( 28) = 'PeCalcul' typcha( 28) = -1 nomcha( 29) = 'Nombres ' typcha( 29) = -1 nomcha( 30) = 'InfoSupE' typcha( 30) = 41 c c-------------------------------------------------- c nomtyp( 3) = 'HOM_Noeu' nbratt( 3) = 4 nbcham( 3) = 10 adrdst( 3) = 31 c nomcha( 31) = 'Coor ' typcha( 31) = -2 nomcha( 32) = 'HistEtat' typcha( 32) = -1 nomcha( 33) = 'AretSupp' typcha( 33) = -1 nomcha( 34) = 'Homologu' typcha( 34) = -1 nomcha( 35) = 'Deraffin' typcha( 35) = -1 nomcha( 36) = 'CoorCons' typcha( 36) = -2 nomcha( 37) = 'InfoGene' typcha( 37) = -3 nomcha( 38) = 'Recollem' typcha( 38) = -1 nomcha( 39) = 'Famille ' typcha( 39) = 9 nomcha( 40) = 'Frontier' typcha( 40) = 39 c c-------------------------------------------------- c nomtyp( 4) = 'HOM_Aret' nbratt( 4) = 0 nbcham( 4) = 2 adrdst( 4) = 41 c nomcha( 41) = 'HOM_Se02' typcha( 41) = 7 nomcha( 42) = 'HOM_Se03' typcha( 42) = 7 c c-------------------------------------------------- c nomtyp( 5) = 'HOM_Face' nbratt( 5) = 0 nbcham( 5) = 6 adrdst( 5) = 43 c nomcha( 43) = 'HOM_Tr03' typcha( 43) = 7 nomcha( 44) = 'HOM_Tr06' typcha( 44) = 7 nomcha( 45) = 'HOM_Tr07' typcha( 45) = 7 nomcha( 46) = 'HOM_Qu04' typcha( 46) = 7 nomcha( 47) = 'HOM_Qu08' typcha( 47) = 7 nomcha( 48) = 'HOM_Qu09' typcha( 48) = 7 c c-------------------------------------------------- c nomtyp( 6) = 'HOM_Volu' nbratt( 6) = 0 nbcham( 6) = 9 adrdst( 6) = 49 c nomcha( 49) = 'HOM_Te04' typcha( 49) = 7 nomcha( 50) = 'HOM_Te10' typcha( 50) = 7 nomcha( 51) = 'HOM_Py05' typcha( 51) = 7 nomcha( 52) = 'HOM_Py13' typcha( 52) = 7 nomcha( 53) = 'HOM_He08' typcha( 53) = 7 nomcha( 54) = 'HOM_He20' typcha( 54) = 7 nomcha( 55) = 'HOM_He27' typcha( 55) = 7 nomcha( 56) = 'HOM_Pe06' typcha( 56) = 7 nomcha( 57) = 'HOM_Pe15' typcha( 57) = 7 c c-------------------------------------------------- c nomtyp( 7) = 'HOM_Enti' nbratt( 7) = 2 nbcham( 7) = 14 adrdst( 7) = 58 c nomcha( 58) = 'ConnDesc' typcha( 58) = -1 nomcha( 59) = 'ConnAret' typcha( 59) = -1 nomcha( 60) = 'HistEtat' typcha( 60) = -1 nomcha( 61) = 'Niveau ' typcha( 61) = -1 nomcha( 62) = 'Mere ' typcha( 62) = -1 nomcha( 63) = 'Fille ' typcha( 63) = -1 nomcha( 64) = 'Homologu' typcha( 64) = -1 nomcha( 65) = 'InfoSupp' typcha( 65) = -1 nomcha( 66) = 'InfoSup2' typcha( 66) = -1 nomcha( 67) = 'NoeuInMa' typcha( 67) = -1 nomcha( 68) = 'Deraffin' typcha( 68) = -1 nomcha( 69) = 'InfoGene' typcha( 69) = -3 nomcha( 70) = 'Recollem' typcha( 70) = 10 nomcha( 71) = 'Famille ' typcha( 71) = 9 c c-------------------------------------------------- c nomtyp( 8) = 'HOM_Elig' nbratt( 8) = 1 nbcham( 8) = 2 adrdst( 8) = 72 c nomcha( 72) = 'ConnNoeu' typcha( 72) = -1 nomcha( 73) = 'FamilMED' typcha( 73) = -1 c c-------------------------------------------------- c nomtyp( 9) = 'HOM_Fami' nbratt( 9) = 2 nbcham( 9) = 2 adrdst( 9) = 74 c nomcha( 74) = 'EntiFamm' typcha( 74) = -1 nomcha( 75) = 'Codes ' typcha( 75) = -1 c c-------------------------------------------------- c nomtyp( 10) = 'HOM_Reco' nbratt( 10) = 3 nbcham( 10) = 2 adrdst( 10) = 76 c nomcha( 76) = 'ListeA ' typcha( 76) = -1 nomcha( 77) = 'ListeB ' typcha( 77) = -1 c c-------------------------------------------------- c nomtyp( 11) = 'Voisins ' nbratt( 11) = 2 nbcham( 11) = 10 adrdst( 11) = 78 c nomcha( 78) = '0D/1D ' typcha( 78) = 32 nomcha( 79) = '1D/2D ' typcha( 79) = 32 nomcha( 80) = 'Vol/Tri ' typcha( 80) = -1 nomcha( 81) = 'Vol/Qua ' typcha( 81) = -1 nomcha( 82) = 'PyPe/Tri' typcha( 82) = -1 nomcha( 83) = 'PyPe/Qua' typcha( 83) = -1 nomcha( 84) = 'Tet/Are ' typcha( 84) = 32 nomcha( 85) = 'Hex/Are ' typcha( 85) = 32 nomcha( 86) = 'Pen/Are ' typcha( 86) = 32 nomcha( 87) = 'Pyr/Are ' typcha( 87) = 32 c c-------------------------------------------------- c nomtyp( 12) = 'Sauve_HM' nbratt( 12) = 7 nbcham( 12) = 18 adrdst( 12) = 88 c nomcha( 88) = 'Fille_Ar' typcha( 88) = -1 nomcha( 89) = 'HEtat_Ar' typcha( 89) = -1 nomcha( 90) = 'Fille_Tr' typcha( 90) = -1 nomcha( 91) = 'HEtat_Tr' typcha( 91) = -1 nomcha( 92) = 'Famil_Tr' typcha( 92) = -1 nomcha( 93) = 'Fille_Qu' typcha( 93) = -1 nomcha( 94) = 'HEtat_Qu' typcha( 94) = -1 nomcha( 95) = 'Fille_Te' typcha( 95) = -1 nomcha( 96) = 'HEtat_Te' typcha( 96) = -1 nomcha( 97) = 'Fille_Py' typcha( 97) = -1 nomcha( 98) = 'HEtat_Py' typcha( 98) = -1 nomcha( 99) = 'Fille_He' typcha( 99) = -1 nomcha( 100) = 'HEtat_He' typcha( 100) = -1 nomcha( 101) = 'Insu2_He' typcha( 101) = -1 nomcha( 102) = 'Fille_Pe' typcha( 102) = -1 nomcha( 103) = 'HEtat_Pe' typcha( 103) = -1 nomcha( 104) = 'Insu2_Pe' typcha( 104) = -1 nomcha( 105) = 'RenuMail' typcha( 105) = 2 c c-------------------------------------------------- c nomtyp( 13) = 'HOM_Indi' nbratt( 13) = 0 nbcham( 13) = 9 adrdst( 13) = 106 c nomcha( 106) = 'Noeud ' typcha( 106) = 14 nomcha( 107) = 'Point ' typcha( 107) = 14 nomcha( 108) = 'Arete ' typcha( 108) = 14 nomcha( 109) = 'Trian ' typcha( 109) = 14 nomcha( 110) = 'Quadr ' typcha( 110) = 14 nomcha( 111) = 'Tetra ' typcha( 111) = 14 nomcha( 112) = 'Hexae ' typcha( 112) = 14 nomcha( 113) = 'Pyram ' typcha( 113) = 14 nomcha( 114) = 'Penta ' typcha( 114) = 14 c c-------------------------------------------------- c nomtyp( 14) = 'Indicate' nbratt( 14) = 3 nbcham( 14) = 3 adrdst( 14) = 115 c nomcha( 115) = 'Support ' typcha( 115) = -1 nomcha( 116) = 'ValeursE' typcha( 116) = -1 nomcha( 117) = 'ValeursR' typcha( 117) = -2 c c-------------------------------------------------- c nomtyp( 15) = 'Cal_Mail' nbratt( 15) = 8 nbcham( 15) = 9 adrdst( 15) = 118 c nomcha( 118) = 'InfoGene' typcha( 118) = 34 nomcha( 119) = 'Noeud ' typcha( 119) = 16 nomcha( 120) = 'ConnNoeu' typcha( 120) = 17 nomcha( 121) = 'ConnDesc' typcha( 121) = 18 nomcha( 122) = 'Famille ' typcha( 122) = 19 nomcha( 123) = 'Equivalt' typcha( 123) = 20 nomcha( 124) = 'Frontier' typcha( 124) = -1 nomcha( 125) = 'CodeExte' typcha( 125) = 21 nomcha( 126) = 'Nombres ' typcha( 126) = -1 c c-------------------------------------------------- c nomtyp( 16) = 'MC_Noe ' nbratt( 16) = 3 nbcham( 16) = 4 adrdst( 16) = 127 c nomcha( 127) = 'NumeExte' typcha( 127) = -1 nomcha( 128) = 'Coor ' typcha( 128) = -2 nomcha( 129) = 'FamilMED' typcha( 129) = -1 nomcha( 130) = 'CoorCons' typcha( 130) = -2 c c-------------------------------------------------- c nomtyp( 17) = 'MC_CNo ' nbratt( 17) = 3 nbcham( 17) = 4 adrdst( 17) = 131 c nomcha( 131) = 'NumeExte' typcha( 131) = -1 nomcha( 132) = 'FamilMED' typcha( 132) = -1 nomcha( 133) = 'Type ' typcha( 133) = -1 nomcha( 134) = 'Noeuds ' typcha( 134) = -1 c c-------------------------------------------------- c nomtyp( 18) = 'MC_CDe ' nbratt( 18) = 2 nbcham( 18) = 4 adrdst( 18) = 135 c nomcha( 135) = 'NumeExte' typcha( 135) = -1 nomcha( 136) = 'FamilMED' typcha( 136) = -1 nomcha( 137) = 'Type ' typcha( 137) = -1 nomcha( 138) = 'Entites ' typcha( 138) = -1 c c-------------------------------------------------- c nomtyp( 19) = 'MC_Fam ' nbratt( 19) = 3 nbcham( 19) = 3 adrdst( 19) = 139 c nomcha( 139) = 'Numero ' typcha( 139) = -1 nomcha( 140) = 'Nom ' typcha( 140) = -3 nomcha( 141) = 'Groupe ' typcha( 141) = 34 c c-------------------------------------------------- c nomtyp( 20) = 'MC_Equ ' nbratt( 20) = 8 nbcham( 20) = 9 adrdst( 20) = 142 c nomcha( 142) = 'Pointeur' typcha( 142) = -1 nomcha( 143) = 'InfoGene' typcha( 143) = -3 nomcha( 144) = 'Noeud ' typcha( 144) = -1 nomcha( 145) = 'Point ' typcha( 145) = -1 nomcha( 146) = 'Arete ' typcha( 146) = -1 nomcha( 147) = 'Trian ' typcha( 147) = -1 nomcha( 148) = 'Quadr ' typcha( 148) = -1 nomcha( 149) = 'Tetra ' typcha( 149) = -1 nomcha( 150) = 'Hexae ' typcha( 150) = -1 c c-------------------------------------------------- c nomtyp( 21) = 'MC_CEx ' nbratt( 21) = 10 nbcham( 21) = 10 adrdst( 21) = 151 c nomcha( 151) = 'Noeud ' typcha( 151) = -1 nomcha( 152) = 'Point ' typcha( 152) = -1 nomcha( 153) = 'Arete ' typcha( 153) = -1 nomcha( 154) = 'Trian ' typcha( 154) = -1 nomcha( 155) = 'Quadr ' typcha( 155) = -1 nomcha( 156) = 'Tetra ' typcha( 156) = -1 nomcha( 157) = 'Pyram ' typcha( 157) = -1 nomcha( 158) = 'Hexae ' typcha( 158) = -1 nomcha( 159) = 'Penta ' typcha( 159) = -1 nomcha( 160) = 'ElemBord' typcha( 160) = -1 c c-------------------------------------------------- c nomtyp( 22) = 'Solution' nbratt( 22) = 4 nbcham( 22) = 4 adrdst( 22) = 161 c nomcha( 161) = 'InfoCham' typcha( 161) = -3 nomcha( 162) = 'InfoPaFo' typcha( 162) = -3 nomcha( 163) = 'InfoProf' typcha( 163) = -3 nomcha( 164) = 'InfoLoPG' typcha( 164) = -3 c c-------------------------------------------------- c nomtyp( 23) = 'InfoCham' nbratt( 23) = 3 nbcham( 23) = 4 adrdst( 23) = 165 c nomcha( 165) = 'Nom_Comp' typcha( 165) = -3 nomcha( 166) = 'Cham_Ent' typcha( 166) = -1 nomcha( 167) = 'Cham_Ree' typcha( 167) = -2 nomcha( 168) = 'Cham_Car' typcha( 168) = -3 c c-------------------------------------------------- c nomtyp( 24) = 'PackFonc' nbratt( 24) = 5 nbcham( 24) = 2 adrdst( 24) = 169 c nomcha( 169) = 'Fonction' typcha( 169) = -3 nomcha( 170) = 'TypeSuAs' typcha( 170) = -1 c c-------------------------------------------------- c nomtyp( 25) = 'Profil ' nbratt( 25) = 2 nbcham( 25) = 2 adrdst( 25) = 171 c nomcha( 171) = 'NomProfi' typcha( 171) = -3 nomcha( 172) = 'ListEnti' typcha( 172) = -1 c c-------------------------------------------------- c nomtyp( 26) = 'LocaPG ' nbratt( 26) = 4 nbcham( 26) = 4 adrdst( 26) = 173 c nomcha( 173) = 'NomLocPG' typcha( 173) = -3 nomcha( 174) = 'CoorNoeu' typcha( 174) = -2 nomcha( 175) = 'CoorPtGa' typcha( 175) = -2 nomcha( 176) = 'PoidPtGa' typcha( 176) = -2 c c-------------------------------------------------- c nomtyp( 27) = 'Fonction' nbratt( 27) = 8 nbcham( 27) = 5 adrdst( 27) = 177 c nomcha( 177) = 'ValeursE' typcha( 177) = -1 nomcha( 178) = 'ValeursR' typcha( 178) = -2 nomcha( 179) = 'InfoCham' typcha( 179) = -3 nomcha( 180) = 'InfoPrPG' typcha( 180) = -3 nomcha( 181) = 'TypeSuAs' typcha( 181) = -1 c c-------------------------------------------------- c nomtyp( 28) = 'DonnHOMA' nbratt( 28) = 5 nbcham( 28) = 4 adrdst( 28) = 182 c nomcha( 182) = 'OptEnt ' typcha( 182) = -1 nomcha( 183) = 'OptRee ' typcha( 183) = -2 nomcha( 184) = 'OptCar ' typcha( 184) = -3 nomcha( 185) = 'EtatCour' typcha( 185) = -1 c c-------------------------------------------------- c nomtyp( 29) = 'FichExec' nbratt( 29) = 2 nbcham( 29) = 6 adrdst( 29) = 186 c nomcha( 186) = 'NomRefer' typcha( 186) = -3 nomcha( 187) = 'LongNomF' typcha( 187) = -1 nomcha( 188) = 'PosiNomF' typcha( 188) = -1 nomcha( 189) = 'NomUFich' typcha( 189) = -3 nomcha( 190) = 'NomObjSt' typcha( 190) = -3 nomcha( 191) = 'InfoSupp' typcha( 191) = -3 c c-------------------------------------------------- c nomtyp( 30) = 'ChampMAJ' nbratt( 30) = 1 nbcham( 30) = 3 adrdst( 30) = 192 c nomcha( 192) = 'CarCaChp' typcha( 192) = -3 nomcha( 193) = 'CarEnChp' typcha( 193) = -1 nomcha( 194) = 'CarReChp' typcha( 194) = -2 c c-------------------------------------------------- c nomtyp( 31) = 'Cal_Fron' nbratt( 31) = 5 nbcham( 31) = 7 adrdst( 31) = 195 c nomcha( 195) = 'CoorNoeu' typcha( 195) = -2 nomcha( 196) = 'NumeLign' typcha( 196) = -1 nomcha( 197) = 'TypeLign' typcha( 197) = -1 nomcha( 198) = 'PtrSomLi' typcha( 198) = -1 nomcha( 199) = 'SommSegm' typcha( 199) = -1 nomcha( 200) = 'AbsCurvi' typcha( 200) = -2 nomcha( 201) = 'Groupes ' typcha( 201) = 34 c c-------------------------------------------------- c nomtyp( 32) = 'PtTabEnt' nbratt( 32) = 2 nbcham( 32) = 2 adrdst( 32) = 202 c nomcha( 202) = 'Pointeur' typcha( 202) = -1 nomcha( 203) = 'Table ' typcha( 203) = -1 c c-------------------------------------------------- c nomtyp( 33) = 'PtTabRee' nbratt( 33) = 2 nbcham( 33) = 2 adrdst( 33) = 204 c nomcha( 204) = 'Pointeur' typcha( 204) = -1 nomcha( 205) = 'Table ' typcha( 205) = -2 c c-------------------------------------------------- c nomtyp( 34) = 'PtTabC08' nbratt( 34) = 2 nbcham( 34) = 3 adrdst( 34) = 206 c nomcha( 206) = 'Pointeur' typcha( 206) = -1 nomcha( 207) = 'Taille ' typcha( 207) = -1 nomcha( 208) = 'Table ' typcha( 208) = -3 c c-------------------------------------------------- c nomtyp( 35) = 'Pt2TbEnt' nbratt( 35) = 2 nbcham( 35) = 3 adrdst( 35) = 209 c nomcha( 209) = 'Pointeur' typcha( 209) = -1 nomcha( 210) = 'ListeA ' typcha( 210) = -1 nomcha( 211) = 'ListeB ' typcha( 211) = -1 c c-------------------------------------------------- c nomtyp( 36) = 'PtPtTEnt' nbratt( 36) = 3 nbcham( 36) = 3 adrdst( 36) = 212 c nomcha( 212) = 'Pointer1' typcha( 212) = -1 nomcha( 213) = 'Pointer2' typcha( 213) = -1 nomcha( 214) = 'Table ' typcha( 214) = -1 c c-------------------------------------------------- c nomtyp( 37) = '2ListEnt' nbratt( 37) = 1 nbcham( 37) = 2 adrdst( 37) = 215 c nomcha( 215) = 'ListeA ' typcha( 215) = -1 nomcha( 216) = 'ListeB ' typcha( 216) = -1 c c-------------------------------------------------- c nomtyp( 38) = '3ListEnt' nbratt( 38) = 1 nbcham( 38) = 3 adrdst( 38) = 217 c nomcha( 217) = 'ListeA ' typcha( 217) = -1 nomcha( 218) = 'ListeB ' typcha( 218) = -1 nomcha( 219) = 'ListeC ' typcha( 219) = -1 c c-------------------------------------------------- c nomtyp( 39) = '2ListeER' nbratt( 39) = 1 nbcham( 39) = 2 adrdst( 39) = 220 c nomcha( 220) = 'ListeA ' typcha( 220) = -1 nomcha( 221) = 'ListeB ' typcha( 221) = -1 c c-------------------------------------------------- c nomtyp( 40) = 'EntCarRe' nbratt( 40) = 1 nbcham( 40) = 4 adrdst( 40) = 222 c nomcha( 222) = 'ValeursE' typcha( 222) = -1 nomcha( 223) = 'ValeursS' typcha( 223) = -3 nomcha( 224) = 'ValeursR' typcha( 224) = -2 nomcha( 225) = 'Suivant ' typcha( 225) = 40 c c-------------------------------------------------- c nomtyp( 41) = '10TabEnt' nbratt( 41) = 10 nbcham( 41) = 10 adrdst( 41) = 226 c nomcha( 226) = 'Tab1 ' typcha( 226) = -1 nomcha( 227) = 'Tab2 ' typcha( 227) = -1 nomcha( 228) = 'Tab3 ' typcha( 228) = -1 nomcha( 229) = 'Tab4 ' typcha( 229) = -1 nomcha( 230) = 'Tab5 ' typcha( 230) = -1 nomcha( 231) = 'Tab6 ' typcha( 231) = -1 nomcha( 232) = 'Tab7 ' typcha( 232) = -1 nomcha( 233) = 'Tab8 ' typcha( 233) = -1 nomcha( 234) = 'Tab9 ' typcha( 234) = -1 nomcha( 235) = 'Tab10 ' typcha( 235) = -1 c c-------------------------------------------------- c nomtyp( 42) = '10TabRee' nbratt( 42) = 10 nbcham( 42) = 10 adrdst( 42) = 236 c nomcha( 236) = 'Tab1 ' typcha( 236) = -2 nomcha( 237) = 'Tab2 ' typcha( 237) = -2 nomcha( 238) = 'Tab3 ' typcha( 238) = -2 nomcha( 239) = 'Tab4 ' typcha( 239) = -2 nomcha( 240) = 'Tab5 ' typcha( 240) = -2 nomcha( 241) = 'Tab6 ' typcha( 241) = -2 nomcha( 242) = 'Tab7 ' typcha( 242) = -2 nomcha( 243) = 'Tab8 ' typcha( 243) = -2 nomcha( 244) = 'Tab9 ' typcha( 244) = -2 nomcha( 245) = 'Tab10 ' typcha( 245) = -2 c c-------------------------------------------------- c nomtyp( 43) = '10TabC08' nbratt( 43) = 10 nbcham( 43) = 10 adrdst( 43) = 246 c nomcha( 246) = 'Tab1 ' typcha( 246) = -3 nomcha( 247) = 'Tab2 ' typcha( 247) = -3 nomcha( 248) = 'Tab3 ' typcha( 248) = -3 nomcha( 249) = 'Tab4 ' typcha( 249) = -3 nomcha( 250) = 'Tab5 ' typcha( 250) = -3 nomcha( 251) = 'Tab6 ' typcha( 251) = -3 nomcha( 252) = 'Tab7 ' typcha( 252) = -3 nomcha( 253) = 'Tab8 ' typcha( 253) = -3 nomcha( 254) = 'Tab9 ' typcha( 254) = -3 nomcha( 255) = 'Tab10 ' typcha( 255) = -3 c do 24 , iaux = 1 , nbrtyp nomtbp(iaux) = nomtyp(iaux) 24 continue c end