src/tool/Gestion_MTU/gmitob.F

   1       subroutine gmitob
   2 c ______________________________________________________________________
   3 c
   4 c                         H O M A R D     V11.n
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   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
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c Copyright EDF 1996, 2020
  16 c ______________________________________________________________________
  17 c
  18 c       Gestionnaire de la Memoire :
  19 c       -                  -
  20 c       Initialisation des Tables d'OBjets
  21 c       -                  -        --
  22 c
  23       save
  24 c
  25 #include "gmmatc.h"
  26 c
  27 #include "gmtoas.h"
  28 #include "gmtori.h"
  29 #include "gmtors.h"
  30 #include "gmtove.h"
  31 c
  32       integer iaux
  33 c
  34 c numeros de version des tables d'objets
  35 c
  36       nuveto =           11
  37       nusvto =            9
  38       daheto =     30585600
  39       nuanto =         2016
  40 c
  41 c objets structures
  42 c
  43       nbrtyp =           43
  44 c
  45 c--------------------------------------------------
  46 c
  47       nomtyp(         1) = 'HOM_Mail'
  48       nbratt(         1) =           11
  49       nbcham(         1) =           10
  50       adrdst(         1) =            1
  51 c
  52         nomcha(         1) = 'Noeud   '
  53         typcha(         1) =            3
  54         nomcha(         2) = 'Ma_Point'
  55         typcha(         2) =            7
  56         nomcha(         3) = 'Arete   '
  57         typcha(         3) =            4
  58         nomcha(         4) = 'Face    '
  59         typcha(         4) =            5
  60         nomcha(         5) = 'Volume  '
  61         typcha(         5) =            6
  62         nomcha(         6) = 'ElemIgno'
  63         typcha(         6) =            8
  64         nomcha(         7) = 'Voisins '
  65         typcha(         7) =           11
  66         nomcha(         8) = 'RenuMail'
  67         typcha(         8) =            2
  68         nomcha(         9) = 'InfoSupE'
  69         typcha(         9) =           41
  70         nomcha(        10) = 'InfoSupS'
  71         typcha(        10) =           43
  72 c
  73 c--------------------------------------------------
  74 c
  75       nomtyp(         2) = 'RenuMail'
  76       nbratt(         2) =           19
  77       nbcham(         2) =           20
  78       adrdst(         2) =           11
  79 c
  80         nomcha(        11) = 'NoHOMARD'
  81         typcha(        11) =           -1
  82         nomcha(        12) = 'NoCalcul'
  83         typcha(        12) =           -1
  84         nomcha(        13) = 'MPHOMARD'
  85         typcha(        13) =           -1
  86         nomcha(        14) = 'MPCalcul'
  87         typcha(        14) =           -1
  88         nomcha(        15) = 'ArHOMARD'
  89         typcha(        15) =           -1
  90         nomcha(        16) = 'ArCalcul'
  91         typcha(        16) =           -1
  92         nomcha(        17) = 'TrHOMARD'
  93         typcha(        17) =           -1
  94         nomcha(        18) = 'TrCalcul'
  95         typcha(        18) =           -1
  96         nomcha(        19) = 'TeHOMARD'
  97         typcha(        19) =           -1
  98         nomcha(        20) = 'TeCalcul'
  99         typcha(        20) =           -1
 100         nomcha(        21) = 'QuHOMARD'
 101         typcha(        21) =           -1
 102         nomcha(        22) = 'QuCalcul'
 103         typcha(        22) =           -1
 104         nomcha(        23) = 'PyHOMARD'
 105         typcha(        23) =           -1
 106         nomcha(        24) = 'PyCalcul'
 107         typcha(        24) =           -1
 108         nomcha(        25) = 'HeHOMARD'
 109         typcha(        25) =           -1
 110         nomcha(        26) = 'HeCalcul'
 111         typcha(        26) =           -1
 112         nomcha(        27) = 'PeHOMARD'
 113         typcha(        27) =           -1
 114         nomcha(        28) = 'PeCalcul'
 115         typcha(        28) =           -1
 116         nomcha(        29) = 'Nombres '
 117         typcha(        29) =           -1
 118         nomcha(        30) = 'InfoSupE'
 119         typcha(        30) =           41
 120 c
 121 c--------------------------------------------------
 122 c
 123       nomtyp(         3) = 'HOM_Noeu'
 124       nbratt(         3) =            4
 125       nbcham(         3) =           10
 126       adrdst(         3) =           31
 127 c
 128         nomcha(        31) = 'Coor    '
 129         typcha(        31) =           -2
 130         nomcha(        32) = 'HistEtat'
 131         typcha(        32) =           -1
 132         nomcha(        33) = 'AretSupp'
 133         typcha(        33) =           -1
 134         nomcha(        34) = 'Homologu'
 135         typcha(        34) =           -1
 136         nomcha(        35) = 'Deraffin'
 137         typcha(        35) =           -1
 138         nomcha(        36) = 'CoorCons'
 139         typcha(        36) =           -2
 140         nomcha(        37) = 'InfoGene'
 141         typcha(        37) =           -3
 142         nomcha(        38) = 'Recollem'
 143         typcha(        38) =           -1
 144         nomcha(        39) = 'Famille '
 145         typcha(        39) =            9
 146         nomcha(        40) = 'Frontier'
 147         typcha(        40) =           39
 148 c
 149 c--------------------------------------------------
 150 c
 151       nomtyp(         4) = 'HOM_Aret'
 152       nbratt(         4) =            0
 153       nbcham(         4) =            2
 154       adrdst(         4) =           41
 155 c
 156         nomcha(        41) = 'HOM_Se02'
 157         typcha(        41) =            7
 158         nomcha(        42) = 'HOM_Se03'
 159         typcha(        42) =            7
 160 c
 161 c--------------------------------------------------
 162 c
 163       nomtyp(         5) = 'HOM_Face'
 164       nbratt(         5) =            0
 165       nbcham(         5) =            6
 166       adrdst(         5) =           43
 167 c
 168         nomcha(        43) = 'HOM_Tr03'
 169         typcha(        43) =            7
 170         nomcha(        44) = 'HOM_Tr06'
 171         typcha(        44) =            7
 172         nomcha(        45) = 'HOM_Tr07'
 173         typcha(        45) =            7
 174         nomcha(        46) = 'HOM_Qu04'
 175         typcha(        46) =            7
 176         nomcha(        47) = 'HOM_Qu08'
 177         typcha(        47) =            7
 178         nomcha(        48) = 'HOM_Qu09'
 179         typcha(        48) =            7
 180 c
 181 c--------------------------------------------------
 182 c
 183       nomtyp(         6) = 'HOM_Volu'
 184       nbratt(         6) =            0
 185       nbcham(         6) =            9
 186       adrdst(         6) =           49
 187 c
 188         nomcha(        49) = 'HOM_Te04'
 189         typcha(        49) =            7
 190         nomcha(        50) = 'HOM_Te10'
 191         typcha(        50) =            7
 192         nomcha(        51) = 'HOM_Py05'
 193         typcha(        51) =            7
 194         nomcha(        52) = 'HOM_Py13'
 195         typcha(        52) =            7
 196         nomcha(        53) = 'HOM_He08'
 197         typcha(        53) =            7
 198         nomcha(        54) = 'HOM_He20'
 199         typcha(        54) =            7
 200         nomcha(        55) = 'HOM_He27'
 201         typcha(        55) =            7
 202         nomcha(        56) = 'HOM_Pe06'
 203         typcha(        56) =            7
 204         nomcha(        57) = 'HOM_Pe15'
 205         typcha(        57) =            7
 206 c
 207 c--------------------------------------------------
 208 c
 209       nomtyp(         7) = 'HOM_Enti'
 210       nbratt(         7) =            2
 211       nbcham(         7) =           14
 212       adrdst(         7) =           58
 213 c
 214         nomcha(        58) = 'ConnDesc'
 215         typcha(        58) =           -1
 216         nomcha(        59) = 'ConnAret'
 217         typcha(        59) =           -1
 218         nomcha(        60) = 'HistEtat'
 219         typcha(        60) =           -1
 220         nomcha(        61) = 'Niveau  '
 221         typcha(        61) =           -1
 222         nomcha(        62) = 'Mere    '
 223         typcha(        62) =           -1
 224         nomcha(        63) = 'Fille   '
 225         typcha(        63) =           -1
 226         nomcha(        64) = 'Homologu'
 227         typcha(        64) =           -1
 228         nomcha(        65) = 'InfoSupp'
 229         typcha(        65) =           -1
 230         nomcha(        66) = 'InfoSup2'
 231         typcha(        66) =           -1
 232         nomcha(        67) = 'NoeuInMa'
 233         typcha(        67) =           -1
 234         nomcha(        68) = 'Deraffin'
 235         typcha(        68) =           -1
 236         nomcha(        69) = 'InfoGene'
 237         typcha(        69) =           -3
 238         nomcha(        70) = 'Recollem'
 239         typcha(        70) =           10
 240         nomcha(        71) = 'Famille '
 241         typcha(        71) =            9
 242 c
 243 c--------------------------------------------------
 244 c
 245       nomtyp(         8) = 'HOM_Elig'
 246       nbratt(         8) =            1
 247       nbcham(         8) =            2
 248       adrdst(         8) =           72
 249 c
 250         nomcha(        72) = 'ConnNoeu'
 251         typcha(        72) =           -1
 252         nomcha(        73) = 'FamilMED'
 253         typcha(        73) =           -1
 254 c
 255 c--------------------------------------------------
 256 c
 257       nomtyp(         9) = 'HOM_Fami'
 258       nbratt(         9) =            2
 259       nbcham(         9) =            2
 260       adrdst(         9) =           74
 261 c
 262         nomcha(        74) = 'EntiFamm'
 263         typcha(        74) =           -1
 264         nomcha(        75) = 'Codes   '
 265         typcha(        75) =           -1
 266 c
 267 c--------------------------------------------------
 268 c
 269       nomtyp(        10) = 'HOM_Reco'
 270       nbratt(        10) =            3
 271       nbcham(        10) =            2
 272       adrdst(        10) =           76
 273 c
 274         nomcha(        76) = 'ListeA  '
 275         typcha(        76) =           -1
 276         nomcha(        77) = 'ListeB  '
 277         typcha(        77) =           -1
 278 c
 279 c--------------------------------------------------
 280 c
 281       nomtyp(        11) = 'Voisins '
 282       nbratt(        11) =            2
 283       nbcham(        11) =           10
 284       adrdst(        11) =           78
 285 c
 286         nomcha(        78) = '0D/1D   '
 287         typcha(        78) =           32
 288         nomcha(        79) = '1D/2D   '
 289         typcha(        79) =           32
 290         nomcha(        80) = 'Vol/Tri '
 291         typcha(        80) =           -1
 292         nomcha(        81) = 'Vol/Qua '
 293         typcha(        81) =           -1
 294         nomcha(        82) = 'PyPe/Tri'
 295         typcha(        82) =           -1
 296         nomcha(        83) = 'PyPe/Qua'
 297         typcha(        83) =           -1
 298         nomcha(        84) = 'Tet/Are '
 299         typcha(        84) =           32
 300         nomcha(        85) = 'Hex/Are '
 301         typcha(        85) =           32
 302         nomcha(        86) = 'Pen/Are '
 303         typcha(        86) =           32
 304         nomcha(        87) = 'Pyr/Are '
 305         typcha(        87) =           32
 306 c
 307 c--------------------------------------------------
 308 c
 309       nomtyp(        12) = 'Sauve_HM'
 310       nbratt(        12) =            7
 311       nbcham(        12) =           18
 312       adrdst(        12) =           88
 313 c
 314         nomcha(        88) = 'Fille_Ar'
 315         typcha(        88) =           -1
 316         nomcha(        89) = 'HEtat_Ar'
 317         typcha(        89) =           -1
 318         nomcha(        90) = 'Fille_Tr'
 319         typcha(        90) =           -1
 320         nomcha(        91) = 'HEtat_Tr'
 321         typcha(        91) =           -1
 322         nomcha(        92) = 'Famil_Tr'
 323         typcha(        92) =           -1
 324         nomcha(        93) = 'Fille_Qu'
 325         typcha(        93) =           -1
 326         nomcha(        94) = 'HEtat_Qu'
 327         typcha(        94) =           -1
 328         nomcha(        95) = 'Fille_Te'
 329         typcha(        95) =           -1
 330         nomcha(        96) = 'HEtat_Te'
 331         typcha(        96) =           -1
 332         nomcha(        97) = 'Fille_Py'
 333         typcha(        97) =           -1
 334         nomcha(        98) = 'HEtat_Py'
 335         typcha(        98) =           -1
 336         nomcha(        99) = 'Fille_He'
 337         typcha(        99) =           -1
 338         nomcha(       100) = 'HEtat_He'
 339         typcha(       100) =           -1
 340         nomcha(       101) = 'Insu2_He'
 341         typcha(       101) =           -1
 342         nomcha(       102) = 'Fille_Pe'
 343         typcha(       102) =           -1
 344         nomcha(       103) = 'HEtat_Pe'
 345         typcha(       103) =           -1
 346         nomcha(       104) = 'Insu2_Pe'
 347         typcha(       104) =           -1
 348         nomcha(       105) = 'RenuMail'
 349         typcha(       105) =            2
 350 c
 351 c--------------------------------------------------
 352 c
 353       nomtyp(        13) = 'HOM_Indi'
 354       nbratt(        13) =            0
 355       nbcham(        13) =            9
 356       adrdst(        13) =          106
 357 c
 358         nomcha(       106) = 'Noeud   '
 359         typcha(       106) =           14
 360         nomcha(       107) = 'Point   '
 361         typcha(       107) =           14
 362         nomcha(       108) = 'Arete   '
 363         typcha(       108) =           14
 364         nomcha(       109) = 'Trian   '
 365         typcha(       109) =           14
 366         nomcha(       110) = 'Quadr   '
 367         typcha(       110) =           14
 368         nomcha(       111) = 'Tetra   '
 369         typcha(       111) =           14
 370         nomcha(       112) = 'Hexae   '
 371         typcha(       112) =           14
 372         nomcha(       113) = 'Pyram   '
 373         typcha(       113) =           14
 374         nomcha(       114) = 'Penta   '
 375         typcha(       114) =           14
 376 c
 377 c--------------------------------------------------
 378 c
 379       nomtyp(        14) = 'Indicate'
 380       nbratt(        14) =            3
 381       nbcham(        14) =            3
 382       adrdst(        14) =          115
 383 c
 384         nomcha(       115) = 'Support '
 385         typcha(       115) =           -1
 386         nomcha(       116) = 'ValeursE'
 387         typcha(       116) =           -1
 388         nomcha(       117) = 'ValeursR'
 389         typcha(       117) =           -2
 390 c
 391 c--------------------------------------------------
 392 c
 393       nomtyp(        15) = 'Cal_Mail'
 394       nbratt(        15) =            8
 395       nbcham(        15) =            9
 396       adrdst(        15) =          118
 397 c
 398         nomcha(       118) = 'InfoGene'
 399         typcha(       118) =           34
 400         nomcha(       119) = 'Noeud   '
 401         typcha(       119) =           16
 402         nomcha(       120) = 'ConnNoeu'
 403         typcha(       120) =           17
 404         nomcha(       121) = 'ConnDesc'
 405         typcha(       121) =           18
 406         nomcha(       122) = 'Famille '
 407         typcha(       122) =           19
 408         nomcha(       123) = 'Equivalt'
 409         typcha(       123) =           20
 410         nomcha(       124) = 'Frontier'
 411         typcha(       124) =           -1
 412         nomcha(       125) = 'CodeExte'
 413         typcha(       125) =           21
 414         nomcha(       126) = 'Nombres '
 415         typcha(       126) =           -1
 416 c
 417 c--------------------------------------------------
 418 c
 419       nomtyp(        16) = 'MC_Noe  '
 420       nbratt(        16) =            3
 421       nbcham(        16) =            4
 422       adrdst(        16) =          127
 423 c
 424         nomcha(       127) = 'NumeExte'
 425         typcha(       127) =           -1
 426         nomcha(       128) = 'Coor    '
 427         typcha(       128) =           -2
 428         nomcha(       129) = 'FamilMED'
 429         typcha(       129) =           -1
 430         nomcha(       130) = 'CoorCons'
 431         typcha(       130) =           -2
 432 c
 433 c--------------------------------------------------
 434 c
 435       nomtyp(        17) = 'MC_CNo  '
 436       nbratt(        17) =            3
 437       nbcham(        17) =            4
 438       adrdst(        17) =          131
 439 c
 440         nomcha(       131) = 'NumeExte'
 441         typcha(       131) =           -1
 442         nomcha(       132) = 'FamilMED'
 443         typcha(       132) =           -1
 444         nomcha(       133) = 'Type    '
 445         typcha(       133) =           -1
 446         nomcha(       134) = 'Noeuds  '
 447         typcha(       134) =           -1
 448 c
 449 c--------------------------------------------------
 450 c
 451       nomtyp(        18) = 'MC_CDe  '
 452       nbratt(        18) =            2
 453       nbcham(        18) =            4
 454       adrdst(        18) =          135
 455 c
 456         nomcha(       135) = 'NumeExte'
 457         typcha(       135) =           -1
 458         nomcha(       136) = 'FamilMED'
 459         typcha(       136) =           -1
 460         nomcha(       137) = 'Type    '
 461         typcha(       137) =           -1
 462         nomcha(       138) = 'Entites '
 463         typcha(       138) =           -1
 464 c
 465 c--------------------------------------------------
 466 c
 467       nomtyp(        19) = 'MC_Fam  '
 468       nbratt(        19) =            3
 469       nbcham(        19) =            3
 470       adrdst(        19) =          139
 471 c
 472         nomcha(       139) = 'Numero  '
 473         typcha(       139) =           -1
 474         nomcha(       140) = 'Nom     '
 475         typcha(       140) =           -3
 476         nomcha(       141) = 'Groupe  '
 477         typcha(       141) =           34
 478 c
 479 c--------------------------------------------------
 480 c
 481       nomtyp(        20) = 'MC_Equ  '
 482       nbratt(        20) =            8
 483       nbcham(        20) =            9
 484       adrdst(        20) =          142
 485 c
 486         nomcha(       142) = 'Pointeur'
 487         typcha(       142) =           -1
 488         nomcha(       143) = 'InfoGene'
 489         typcha(       143) =           -3
 490         nomcha(       144) = 'Noeud   '
 491         typcha(       144) =           -1
 492         nomcha(       145) = 'Point   '
 493         typcha(       145) =           -1
 494         nomcha(       146) = 'Arete   '
 495         typcha(       146) =           -1
 496         nomcha(       147) = 'Trian   '
 497         typcha(       147) =           -1
 498         nomcha(       148) = 'Quadr   '
 499         typcha(       148) =           -1
 500         nomcha(       149) = 'Tetra   '
 501         typcha(       149) =           -1
 502         nomcha(       150) = 'Hexae   '
 503         typcha(       150) =           -1
 504 c
 505 c--------------------------------------------------
 506 c
 507       nomtyp(        21) = 'MC_CEx  '
 508       nbratt(        21) =           10
 509       nbcham(        21) =           10
 510       adrdst(        21) =          151
 511 c
 512         nomcha(       151) = 'Noeud   '
 513         typcha(       151) =           -1
 514         nomcha(       152) = 'Point   '
 515         typcha(       152) =           -1
 516         nomcha(       153) = 'Arete   '
 517         typcha(       153) =           -1
 518         nomcha(       154) = 'Trian   '
 519         typcha(       154) =           -1
 520         nomcha(       155) = 'Quadr   '
 521         typcha(       155) =           -1
 522         nomcha(       156) = 'Tetra   '
 523         typcha(       156) =           -1
 524         nomcha(       157) = 'Pyram   '
 525         typcha(       157) =           -1
 526         nomcha(       158) = 'Hexae   '
 527         typcha(       158) =           -1
 528         nomcha(       159) = 'Penta   '
 529         typcha(       159) =           -1
 530         nomcha(       160) = 'ElemBord'
 531         typcha(       160) =           -1
 532 c
 533 c--------------------------------------------------
 534 c
 535       nomtyp(        22) = 'Solution'
 536       nbratt(        22) =            4
 537       nbcham(        22) =            4
 538       adrdst(        22) =          161
 539 c
 540         nomcha(       161) = 'InfoCham'
 541         typcha(       161) =           -3
 542         nomcha(       162) = 'InfoPaFo'
 543         typcha(       162) =           -3
 544         nomcha(       163) = 'InfoProf'
 545         typcha(       163) =           -3
 546         nomcha(       164) = 'InfoLoPG'
 547         typcha(       164) =           -3
 548 c
 549 c--------------------------------------------------
 550 c
 551       nomtyp(        23) = 'InfoCham'
 552       nbratt(        23) =            3
 553       nbcham(        23) =            4
 554       adrdst(        23) =          165
 555 c
 556         nomcha(       165) = 'Nom_Comp'
 557         typcha(       165) =           -3
 558         nomcha(       166) = 'Cham_Ent'
 559         typcha(       166) =           -1
 560         nomcha(       167) = 'Cham_Ree'
 561         typcha(       167) =           -2
 562         nomcha(       168) = 'Cham_Car'
 563         typcha(       168) =           -3
 564 c
 565 c--------------------------------------------------
 566 c
 567       nomtyp(        24) = 'PackFonc'
 568       nbratt(        24) =            5
 569       nbcham(        24) =            2
 570       adrdst(        24) =          169
 571 c
 572         nomcha(       169) = 'Fonction'
 573         typcha(       169) =           -3
 574         nomcha(       170) = 'TypeSuAs'
 575         typcha(       170) =           -1
 576 c
 577 c--------------------------------------------------
 578 c
 579       nomtyp(        25) = 'Profil  '
 580       nbratt(        25) =            2
 581       nbcham(        25) =            2
 582       adrdst(        25) =          171
 583 c
 584         nomcha(       171) = 'NomProfi'
 585         typcha(       171) =           -3
 586         nomcha(       172) = 'ListEnti'
 587         typcha(       172) =           -1
 588 c
 589 c--------------------------------------------------
 590 c
 591       nomtyp(        26) = 'LocaPG  '
 592       nbratt(        26) =            4
 593       nbcham(        26) =            4
 594       adrdst(        26) =          173
 595 c
 596         nomcha(       173) = 'NomLocPG'
 597         typcha(       173) =           -3
 598         nomcha(       174) = 'CoorNoeu'
 599         typcha(       174) =           -2
 600         nomcha(       175) = 'CoorPtGa'
 601         typcha(       175) =           -2
 602         nomcha(       176) = 'PoidPtGa'
 603         typcha(       176) =           -2
 604 c
 605 c--------------------------------------------------
 606 c
 607       nomtyp(        27) = 'Fonction'
 608       nbratt(        27) =            8
 609       nbcham(        27) =            5
 610       adrdst(        27) =          177
 611 c
 612         nomcha(       177) = 'ValeursE'
 613         typcha(       177) =           -1
 614         nomcha(       178) = 'ValeursR'
 615         typcha(       178) =           -2
 616         nomcha(       179) = 'InfoCham'
 617         typcha(       179) =           -3
 618         nomcha(       180) = 'InfoPrPG'
 619         typcha(       180) =           -3
 620         nomcha(       181) = 'TypeSuAs'
 621         typcha(       181) =           -1
 622 c
 623 c--------------------------------------------------
 624 c
 625       nomtyp(        28) = 'DonnHOMA'
 626       nbratt(        28) =            5
 627       nbcham(        28) =            4
 628       adrdst(        28) =          182
 629 c
 630         nomcha(       182) = 'OptEnt  '
 631         typcha(       182) =           -1
 632         nomcha(       183) = 'OptRee  '
 633         typcha(       183) =           -2
 634         nomcha(       184) = 'OptCar  '
 635         typcha(       184) =           -3
 636         nomcha(       185) = 'EtatCour'
 637         typcha(       185) =           -1
 638 c
 639 c--------------------------------------------------
 640 c
 641       nomtyp(        29) = 'FichExec'
 642       nbratt(        29) =            2
 643       nbcham(        29) =            6
 644       adrdst(        29) =          186
 645 c
 646         nomcha(       186) = 'NomRefer'
 647         typcha(       186) =           -3
 648         nomcha(       187) = 'LongNomF'
 649         typcha(       187) =           -1
 650         nomcha(       188) = 'PosiNomF'
 651         typcha(       188) =           -1
 652         nomcha(       189) = 'NomUFich'
 653         typcha(       189) =           -3
 654         nomcha(       190) = 'NomObjSt'
 655         typcha(       190) =           -3
 656         nomcha(       191) = 'InfoSupp'
 657         typcha(       191) =           -3
 658 c
 659 c--------------------------------------------------
 660 c
 661       nomtyp(        30) = 'ChampMAJ'
 662       nbratt(        30) =            1
 663       nbcham(        30) =            3
 664       adrdst(        30) =          192
 665 c
 666         nomcha(       192) = 'CarCaChp'
 667         typcha(       192) =           -3
 668         nomcha(       193) = 'CarEnChp'
 669         typcha(       193) =           -1
 670         nomcha(       194) = 'CarReChp'
 671         typcha(       194) =           -2
 672 c
 673 c--------------------------------------------------
 674 c
 675       nomtyp(        31) = 'Cal_Fron'
 676       nbratt(        31) =            5
 677       nbcham(        31) =            7
 678       adrdst(        31) =          195
 679 c
 680         nomcha(       195) = 'CoorNoeu'
 681         typcha(       195) =           -2
 682         nomcha(       196) = 'NumeLign'
 683         typcha(       196) =           -1
 684         nomcha(       197) = 'TypeLign'
 685         typcha(       197) =           -1
 686         nomcha(       198) = 'PtrSomLi'
 687         typcha(       198) =           -1
 688         nomcha(       199) = 'SommSegm'
 689         typcha(       199) =           -1
 690         nomcha(       200) = 'AbsCurvi'
 691         typcha(       200) =           -2
 692         nomcha(       201) = 'Groupes '
 693         typcha(       201) =           34
 694 c
 695 c--------------------------------------------------
 696 c
 697       nomtyp(        32) = 'PtTabEnt'
 698       nbratt(        32) =            2
 699       nbcham(        32) =            2
 700       adrdst(        32) =          202
 701 c
 702         nomcha(       202) = 'Pointeur'
 703         typcha(       202) =           -1
 704         nomcha(       203) = 'Table   '
 705         typcha(       203) =           -1
 706 c
 707 c--------------------------------------------------
 708 c
 709       nomtyp(        33) = 'PtTabRee'
 710       nbratt(        33) =            2
 711       nbcham(        33) =            2
 712       adrdst(        33) =          204
 713 c
 714         nomcha(       204) = 'Pointeur'
 715         typcha(       204) =           -1
 716         nomcha(       205) = 'Table   '
 717         typcha(       205) =           -2
 718 c
 719 c--------------------------------------------------
 720 c
 721       nomtyp(        34) = 'PtTabC08'
 722       nbratt(        34) =            2
 723       nbcham(        34) =            3
 724       adrdst(        34) =          206
 725 c
 726         nomcha(       206) = 'Pointeur'
 727         typcha(       206) =           -1
 728         nomcha(       207) = 'Taille  '
 729         typcha(       207) =           -1
 730         nomcha(       208) = 'Table   '
 731         typcha(       208) =           -3
 732 c
 733 c--------------------------------------------------
 734 c
 735       nomtyp(        35) = 'Pt2TbEnt'
 736       nbratt(        35) =            2
 737       nbcham(        35) =            3
 738       adrdst(        35) =          209
 739 c
 740         nomcha(       209) = 'Pointeur'
 741         typcha(       209) =           -1
 742         nomcha(       210) = 'ListeA  '
 743         typcha(       210) =           -1
 744         nomcha(       211) = 'ListeB  '
 745         typcha(       211) =           -1
 746 c
 747 c--------------------------------------------------
 748 c
 749       nomtyp(        36) = 'PtPtTEnt'
 750       nbratt(        36) =            3
 751       nbcham(        36) =            3
 752       adrdst(        36) =          212
 753 c
 754         nomcha(       212) = 'Pointer1'
 755         typcha(       212) =           -1
 756         nomcha(       213) = 'Pointer2'
 757         typcha(       213) =           -1
 758         nomcha(       214) = 'Table   '
 759         typcha(       214) =           -1
 760 c
 761 c--------------------------------------------------
 762 c
 763       nomtyp(        37) = '2ListEnt'
 764       nbratt(        37) =            1
 765       nbcham(        37) =            2
 766       adrdst(        37) =          215
 767 c
 768         nomcha(       215) = 'ListeA  '
 769         typcha(       215) =           -1
 770         nomcha(       216) = 'ListeB  '
 771         typcha(       216) =           -1
 772 c
 773 c--------------------------------------------------
 774 c
 775       nomtyp(        38) = '3ListEnt'
 776       nbratt(        38) =            1
 777       nbcham(        38) =            3
 778       adrdst(        38) =          217
 779 c
 780         nomcha(       217) = 'ListeA  '
 781         typcha(       217) =           -1
 782         nomcha(       218) = 'ListeB  '
 783         typcha(       218) =           -1
 784         nomcha(       219) = 'ListeC  '
 785         typcha(       219) =           -1
 786 c
 787 c--------------------------------------------------
 788 c
 789       nomtyp(        39) = '2ListeER'
 790       nbratt(        39) =            1
 791       nbcham(        39) =            2
 792       adrdst(        39) =          220
 793 c
 794         nomcha(       220) = 'ListeA  '
 795         typcha(       220) =           -1
 796         nomcha(       221) = 'ListeB  '
 797         typcha(       221) =           -1
 798 c
 799 c--------------------------------------------------
 800 c
 801       nomtyp(        40) = 'EntCarRe'
 802       nbratt(        40) =            1
 803       nbcham(        40) =            4
 804       adrdst(        40) =          222
 805 c
 806         nomcha(       222) = 'ValeursE'
 807         typcha(       222) =           -1
 808         nomcha(       223) = 'ValeursS'
 809         typcha(       223) =           -3
 810         nomcha(       224) = 'ValeursR'
 811         typcha(       224) =           -2
 812         nomcha(       225) = 'Suivant '
 813         typcha(       225) =           40
 814 c
 815 c--------------------------------------------------
 816 c
 817       nomtyp(        41) = '10TabEnt'
 818       nbratt(        41) =           10
 819       nbcham(        41) =           10
 820       adrdst(        41) =          226
 821 c
 822         nomcha(       226) = 'Tab1    '
 823         typcha(       226) =           -1
 824         nomcha(       227) = 'Tab2    '
 825         typcha(       227) =           -1
 826         nomcha(       228) = 'Tab3    '
 827         typcha(       228) =           -1
 828         nomcha(       229) = 'Tab4    '
 829         typcha(       229) =           -1
 830         nomcha(       230) = 'Tab5    '
 831         typcha(       230) =           -1
 832         nomcha(       231) = 'Tab6    '
 833         typcha(       231) =           -1
 834         nomcha(       232) = 'Tab7    '
 835         typcha(       232) =           -1
 836         nomcha(       233) = 'Tab8    '
 837         typcha(       233) =           -1
 838         nomcha(       234) = 'Tab9    '
 839         typcha(       234) =           -1
 840         nomcha(       235) = 'Tab10   '
 841         typcha(       235) =           -1
 842 c
 843 c--------------------------------------------------
 844 c
 845       nomtyp(        42) = '10TabRee'
 846       nbratt(        42) =           10
 847       nbcham(        42) =           10
 848       adrdst(        42) =          236
 849 c
 850         nomcha(       236) = 'Tab1    '
 851         typcha(       236) =           -2
 852         nomcha(       237) = 'Tab2    '
 853         typcha(       237) =           -2
 854         nomcha(       238) = 'Tab3    '
 855         typcha(       238) =           -2
 856         nomcha(       239) = 'Tab4    '
 857         typcha(       239) =           -2
 858         nomcha(       240) = 'Tab5    '
 859         typcha(       240) =           -2
 860         nomcha(       241) = 'Tab6    '
 861         typcha(       241) =           -2
 862         nomcha(       242) = 'Tab7    '
 863         typcha(       242) =           -2
 864         nomcha(       243) = 'Tab8    '
 865         typcha(       243) =           -2
 866         nomcha(       244) = 'Tab9    '
 867         typcha(       244) =           -2
 868         nomcha(       245) = 'Tab10   '
 869         typcha(       245) =           -2
 870 c
 871 c--------------------------------------------------
 872 c
 873       nomtyp(        43) = '10TabC08'
 874       nbratt(        43) =           10
 875       nbcham(        43) =           10
 876       adrdst(        43) =          246
 877 c
 878         nomcha(       246) = 'Tab1    '
 879         typcha(       246) =           -3
 880         nomcha(       247) = 'Tab2    '
 881         typcha(       247) =           -3
 882         nomcha(       248) = 'Tab3    '
 883         typcha(       248) =           -3
 884         nomcha(       249) = 'Tab4    '
 885         typcha(       249) =           -3
 886         nomcha(       250) = 'Tab5    '
 887         typcha(       250) =           -3
 888         nomcha(       251) = 'Tab6    '
 889         typcha(       251) =           -3
 890         nomcha(       252) = 'Tab7    '
 891         typcha(       252) =           -3
 892         nomcha(       253) = 'Tab8    '
 893         typcha(       253) =           -3
 894         nomcha(       254) = 'Tab9    '
 895         typcha(       254) =           -3
 896         nomcha(       255) = 'Tab10   '
 897         typcha(       255) =           -3
 898 c
 899       do 24 , iaux = 1 , nbrtyp
 900         nomtbp(iaux) = nomtyp(iaux)
 901    24 continue
 902 c
 903       end