c@a
c@versb
C-----------------------------------------------------------------------
C
CVERS                  Code_Saturne version 1.3
C                      ------------------------
C
C     This file is part of the Code_Saturne Kernel, element of the
C     Code_Saturne CFD tool.
C 
C     Copyright (C) 1998-2007 EDF S.A., France
C
C     contact: saturne-support@edf.fr
C 
C     The Code_Saturne Kernel is free software; you can redistribute it
C     and/or modify it under the terms of the GNU General Public License
C     as published by the Free Software Foundation; either version 2 of
C     the License, or (at your option) any later version.
C 
C     The Code_Saturne Kernel is distributed in the hope that it will be
C     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
C     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
C     GNU General Public License for more details.
C 
C     You should have received a copy of the GNU General Public License
C     along with the Code_Saturne Kernel; if not, write to the
C     Free Software Foundation, Inc.,
C     51 Franklin St, Fifth Floor,
C     Boston, MA  02110-1301  USA
C
C-----------------------------------------------------------------------
c@verse
C                              entsor.h
C***********************************************************************
C
C --- SORTIE STD
C     NFECRA : UNITE SORTIE STD
C     IWARNI : NIVEAU D'IMPRESSION
C
      INTEGER           NFECRA,IWARNI(NVARMX)
      COMMON / ICONTR / NFECRA,IWARNI
C
C --- FICHIER GEOMETRIE
C
      CHARACTER*6       FICGEO
      COMMON / AGEOTL / FICGEO
C
      INTEGER                   IMPGEO
      COMMON / IGEOTL /         IMPGEO
C
C --- FICHIER SUITE AMONT (SANS FORMAT)
C     ---------------------------------
C     FICAMO,IMPAMO --> fichier suite de base
C     FICAMX,IMPAMX --> fichier suite auxiliaire
C     FICMT1,IMPMT1 --> fichier suite module thermique 1D
C     FICMVO,IMPMVO --> fichier suite methode des vortex (ASCII obligatoirement,
C                       structure specifique)
C     IMPDVO        --> fichier de donnees de la methode des vortex (nom FICDAT
C                       laisse a l'utilisateur dans usvort
C
      CHARACTER*13      FICAMO,FICAMX,FICMT1,FICMVO
      COMMON / AFAMON / FICAMO,FICAMX,FICMT1,FICMVO
C
      INTEGER                   IMPAMO, IMPAMX, IMPMT1, IMPMVO, IMPDVO
      COMMON / IFAMON /         IMPAMO, IMPAMX, IMPMT1, IMPMVO, IMPDVO
C
C --- FICHIERS SUITE AVAL (AVEC FORMAT)
C     ---------------------------------
C     FICAVA,IMPAVA,IFOAVA --> fichier suite de base
C     FICAVX,IMPAVX,IFOAVX --> fichier suite auxiliaire
C     FICVT1,IMPVT1,IFOVT1 --> fichier suite module thermique 1D
C     FICVVO,IMPVVO        --> fichier suite methode des vortex (ASCII obligatoirement,
C                       structure specifique)
C
C
      CHARACTER*13      FICAVA,FICAVX,FICVT1,FICVVO
      COMMON / AFAVAL / FICAVA,FICAVX,FICVT1,FICVVO
C
      INTEGER           IMPAVA, IFOAVA, NTSUIT, IMPAVX, IFOAVX,
     &                  IMPVT1, IFOVT1, IMPVVO
      COMMON / IFAVAL / IMPAVA, IFOAVA, NTSUIT, IMPAVX, IFOAVX,
     &                  IMPVT1, IFOVT1, IMPVVO
C
C --- FICHIER SUITE AMONT RAYONNEMENT
C
      CHARACTER*13      FICAMR
      COMMON / AFAMRD / FICAMR
C
      INTEGER                   IMPAMR
      COMMON / IFAMRD /         IMPAMR
C
C --- FICHIER SUITE AVAL RAYONNEMENT (AVEC FORMAT)
C
      CHARACTER*13      FICAVR
      COMMON / AFAVRD / FICAVR
C
      INTEGER                   IMPAVR, IFOAVR, NTSUIR
      COMMON / IFAVRD /         IMPAVR, IFOAVR, NTSUIR
C
C
C --- FICHIER NSTOP
C
      CHARACTER*6       FICSTP
      COMMON / AFARRE / FICSTP
C
      INTEGER                   IMPSTP
      COMMON / IFARRE /         IMPSTP
C
C --- LECTURE ENVELOPPE
C
      INTEGER           IFOENV
      COMMON / IFENVP / IFOENV
C
C --- SORTIES POST TRAITEMENT (via FVM)
C
C     ICHRVL : Post traitement du domaine fluide
C     ICHRBO : Post traitement du bord du domaine
C     ICHRSY : Post traitement des zones de bord couplees avec Syrthes
C     ICHRMD : Indique si les maillages ecrits seront :
C               0 : fixes,
C               1 : deformables a topologie constante,
C               2 : modifiables (pourront etre completement redefinis
C                   en cours de calcul via le sous-programme USMPST),
C              10 : comme INDMOD = 0, avec champ de déplacement,
C              11 : comme INDMOD = 1, avec champ de déplacement,
C              12 : comme INDMOD = 2, avec champ de déplacement.
C     NTCHR  : frequence de sortie par defaut ( > 0 ou -1 (a la fin) )
C     ICHRVR : on sort la variable (1) ou non (0) ou non initialise
C     FMTCHR : format de sortie ('EnSight Gold', 'MED_fichier', 'CGNS')
C     OPTCHR : options associees au format de sortie
C
      INTEGER           ICHRVL, ICHRBO, ICHRSY,
     &                  ICHRMD, NTCHR , ICHRVR(NVPPMX)
      COMMON / IEPOST / ICHRVL, ICHRBO, ICHRSY,
     &                  ICHRMD, NTCHR, ICHRVR
C
      CHARACTER*32      FMTCHR
      CHARACTER*96      OPTCHR
      COMMON / AEPOST / FMTCHR, OPTCHR
C
C --- FICHIER SPECIFIQUE PHYSIQUE PARTICULIERE
C
C     IMP    --> Unite logique du fichier
C     FPP    --> Fichier utilisateur lorsqu'on utilise Janaf
C     JNF    --> Janaf
C     JON    --> Utilisation de Janaf ou non
C
      CHARACTER*6       FICFPP
      CHARACTER*5       FICJNF
      COMMON / AFCPPP / FICFPP, FICJNF
C
      INTEGER           IMPFPP, IMPJNF, INDJON
      COMMON / IFCPPP / IMPFPP, IMPJNF, INDJON
C
C --- FICHIERS HISTORIQUES
C
C     IMPHIS : fichier stock + unite d'ecriture des variables
C     EMPHIS : Emplacement
C     ENTHIS : En-tete
C     IMPUSH : Unite fichiers specifiques ushist
C     FICUSH : Nom   fichiers specifiques ushist
C
      CHARACTER*80      EMPHIS, EXTHIS
      COMMON / AVHIST / EMPHIS, EXTHIS
C
      CHARACTER*13      FICUSH(NUSHMX)
      COMMON / AFHIST / FICUSH
C
      INTEGER                   IMPHIS(2), IMPUSH(NUSHMX)
      COMMON / IFHIST /         IMPHIS   , IMPUSH
C
C     NCAPT  : nombre de sondes total (limite a NCAPTM)
C     NTHIST : Frequence de sortie
C         ( > 0 ou -1 (jamais) ou non initialise -999)
C     NTHSAV : Frequence de sauvegarde
C         ( > 0 ou -1 (a la fin) ou non initialise -999)
C     IHISVR : nb de sonde et numero par variable
C         (-999 non initialise)
C     NCAPT  : nombre de sondes total (limite a NCAPTM)
C     NODCAP : element correspondant aux sondes
C     NDRCAP : rang processus contenant NODCAP (parallelisme)
C     XYZCAP : position demandee des sondes
C
      INTEGER           NCAPT, NTHIST, NTHSAV,
     &                  IHISVR(NVPPMX,NCAPTM+1),
     &                  NODCAP(NCAPTM), NDRCAP(NCAPTM)
C
      COMMON / IVHIST / NCAPT, NTHIST, NTHSAV,
     &                  IHISVR,
     &                  NODCAP,         NDRCAP
C
      DOUBLE PRECISION  XYZCAP(3,NCAPTM)
      COMMON / RVHIST / XYZCAP
C
C
C --- FICHIERS LAGRANGIENS
C
C   - FICHIER SUITE ET SUITE STATISTISQUE  AMONT LAGRANGIEN
C
      CHARACTER*13      FICAML, FICMLS
      COMMON / AFAMLA / FICAML, FICMLS
C
      INTEGER                   IMPAML, IMPMLS
      COMMON / IFAMLA /         IMPAML, IMPMLS
C
C   - FICHIER SUITE ET SUITE STATISTISQUE AVAL LAGRANGIEN (AVEC FORMAT)
C
      CHARACTER*13      FICAVL, FICVLS
      COMMON / AFAVLA / FICAVL, FICVLS
C
      INTEGER                   IMPAVL, IMPVLS, IFOAVL, IFOVLS
      COMMON / IFAVLA /         IMPAVL, IMPVLS, IFOAVL, IFOVLS
C
C
C   - FICHIER LISTING LAGRANGIEN (AVEC FORMAT)
C
C     FICLAL : Nom du fichier
C     IMPLAL : Unite du fichier
C     NTLAL  : Periode de sortie du listing
      CHARACTER*6       FICLAL
      COMMON / AFALAL / FICLAL
C
      INTEGER                   IMPLAL, NTLAL
      COMMON / IFALAL /         IMPLAL, NTLAL
C
C   - FICHIER HISTORIQUE LAGRANGIEN
C
      INTEGER                   IMPLI1, IMPLI2
      COMMON / IFALAH /         IMPLI1, IMPLI2
C
C   - AUTRES FICHIERS LAGRANGIEN (AVEC FORMAT)
C
      INTEGER           IMPLA1 , IMPLA2 , IMPLA3 , IMPLA4 , IMPLA5(15)
      COMMON / IFALAG / IMPLA1 , IMPLA2 , IMPLA3 , IMPLA4 , IMPLA5
C
C
C --- FICHIERS UTILISATEURS
C
      CHARACTER*13      FICUSR(NUSRMX)
      COMMON / AFUSER / FICUSR
C
      INTEGER           IMPUSR(NUSRMX)
      COMMON / IFUSER / IMPUSR
C
C
C --- SORTIES LISTING
C
C   COMMUNES
C     IPP*   : Pointeurs de reperage des variables pour les sorties
C     NOMVAR : Nom des variables
C     ILISVR : on suit la variable (1) ou non (0) ou non initialise
C     ITRSVR : variable de base (p,u,k...) (1) ou annexe (cp, mut...)(0)
C     NTLIST : periode  ecriture
C       ( -1 : dernier pas de temps : > 0 : periode)
C
      INTEGER           IPPRTP(NVARMX),
     &                  IPPPRO(NPROMX),
     &                  IPPDT         ,
     &                  IPPTX         , IPPTY         , IPPTZ  ,
     &                  IPP2RA(NVPPMX)
      COMMON / IPNTPP / IPPRTP        ,
     &                  IPPPRO        ,
     &                  IPPDT         ,
     &                  IPPTX         , IPPTY         , IPPTZ  ,
     &                  IPP2RA
C
      CHARACTER*80      NOMVAR(NVPPMX)
      COMMON / ANAMPP / NOMVAR
C
      INTEGER           ILISVR(NVPPMX),ITRSVR(NVPPMX)
      COMMON / IPOSTP / ILISVR        ,ITRSVR
C

      INTEGER           NTLIST
      COMMON / ILISTI / NTLIST
C
C   PARAMETRES DE SUIVI DE CALCUL, MIN-MAX, CLIPMIN, CLIPMAX
C
      INTEGER           ICLPMN(NVPPMX) , ICLPMX(NVPPMX)
      COMMON / ISUIVI / ICLPMN         , ICLPMX
C
      DOUBLE PRECISION  VARMIN(NVPPMX) , VARMAX(NVPPMX),
     &                  VARMNA(NVPPMX) , VARMXA(NVPPMX)
      COMMON / RSUIVI / VARMIN ,         VARMAX,
     &                  VARMNA ,         VARMXA
C
C
C   PARAMETRES DE CONVERGENCE, NORME DU SECOND MEMBRE, NOMBRE ITERATIONS
C                                RESIDU NORME, DERIVE
C
      INTEGER           NBIVAR(NVPPMX)
      COMMON / ICONVG / NBIVAR
C
      DOUBLE PRECISION  RNSMBR(NVPPMX) ,
     &                  RESVAR(NVPPMX) , DERVAR(NVPPMX)
      COMMON / RCONVG / RNSMBR ,
     &                  RESVAR         , DERVAR
C
C
C   PARAMETRES DU PAS DE TEMPS LOCAL =
C     NB COURANT, FOURIER ET COMBINE MIN ET MAX + POINTS ASSOCIES
C     PTPLOC(.,1)   = NOMBRE , PTPLOC(.,2 3 et 4) = POINT ASSOCIE
C     PTPLOC(1 2,.) = COURANT MIN/MAX
C     PTPLOC(3 4,.) = FOURIER MIN/MAX
C     PTPLOC(5 6,.) = COU/FOU MIN/MAX
C     PTPLOC(7 8,.) = DT      MIN/MAX
C     NCLPTR        = NB DE CLIPPINGS PAR LE PDT MAX LIE AUX EFFETS DE DENSITE
C     RPDTRO        = RAPPORT MAX ENTRE DT ET DTmax LIE AUX EFFETS DE DENSITE
C                      +LOCALISATION
C
      INTEGER           NCLPTR
      COMMON / IPTLOC /  NCLPTR

      DOUBLE PRECISION  PTPLOC(8,4), RPDTRO(4)
      COMMON / RPTLOC /  PTPLOC, RPDTRO
C
C
C   PARAMETRES DES SORTIES AU BORD =
C
C     IPSTDV = PROPRIETES POST TRAITEES
C        IPSTDV EST LE PRODUIT DES VALEURS ENTIERES SUIVANTES (NOMBRES PREMIERS) :
C          IPSTYP => YPLUS
C          IPSTCL => VARIABLES NON RECONSTRUITES (suffisant pour Dirichlet)
C          IPSTFT => FLUX THERMIQUE RECONSTRUIT
C
C     SI IPSTDV = 1 = PAS DE SORTIE
C
C
      INTEGER            IPSTDV
      COMMON / IIPSTD /  IPSTDV
C
C
C --- TEMPS CPU
C
      DOUBLE PRECISION  TMARUS
      COMMON / TEMCPU / TMARUS
C
C FIN
c@z