X-Git-Url: http://git.salome-platform.org/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Ftool%2FGestion_MTU%2Fgmitob.F;fp=src%2Ftool%2FGestion_MTU%2Fgmitob.F;h=725f8d150d27b62b47b13f19ea768e62a18fd4f6;hb=3e48edf702d97267d52647274bbaf2b05a6f6050;hp=0000000000000000000000000000000000000000;hpb=739517435bbd756426c0f0decff89875ea8fb0dc;p=modules%2Fhomard.git diff --git a/src/tool/Gestion_MTU/gmitob.F b/src/tool/Gestion_MTU/gmitob.F new file mode 100644 index 00000000..725f8d15 --- /dev/null +++ b/src/tool/Gestion_MTU/gmitob.F @@ -0,0 +1,903 @@ + 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