*      -INC CCOPTIO
*
*		04/04/14: Modif GF: Declaration explicite des variables
*
*   PLACE LIBRE A RESPECTER
      COMMON/COPTIO/IPLLB
      integer       IPLLB

*    ERREUR       AUTORISEE, MAX    ,EFFECTIVE
      COMMON/COPTIO/IERPER,  IERMAX, IERGLB
      integer       IERPER,  IERMAX, IERGLB
*
*    COMMUNICATION AVEC ERREUR
*  interr est en 11 pour avoir nle bon alignement de reaerr sur 32 bits
      REAL*8 REAERR
      integer       INTERR
      COMMON/COPTHR/REAERR(10),INTERR(11)
*
*  Pour avoir un ierr different par thread
      COMMON /COPTHR/IERR

*    UNITES ENTREE-SORTIE
*                    TERMINAL LECTEUR IMPRESSION LIRE    ACQUERIR
      COMMON /COPTIO/IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
      integer        IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
*                    SORTIR   epsilon   TRAC       SAUVER  RESTITUER
      COMMON /COPTIO/IOPER,   MEPSIL,  IOGRA,     IOSAU,  IORES
      integer        IOPER,   MEPSIL,  IOGRA,     IOSAU,  IORES
*
*                   ECHO     NIVEAU D'IMPRESSION   TRACE DES OP{RATEURS
      COMMON/COPTIO/IECHO,   IIMPI,                IOSPI
      integer       IECHO,   IIMPI,                IOSPI
*
*                   DIMENSION                             
      COMMON/COPTIO/IDIM                             
      integer       IDIM
*
*
*           - 1 PLAN 0 AXIS 1 FOUR 2 TRID
      COMMON/COPTIO/IFOMOD
      integer       IFOMOD
*             HARMONIQUE DE FOURIER
      COMMON/COPTIO/NIFOUR
      integer       NIFOUR
*
*             OPTION DE CALCUL
*  -3 DEFORMATION PLANE GENERALISEE  -2 CONTRAINTES PLANES
*  -1 DEFORMATION PLANE               0 AXISYMETRIQUE
*   1 SERIE DE FOURIER                2 TRIDIMENSIONNEL
      COMMON/COPTIO/IFOUR
      integer       IFOUR
*
*   PLUS GRAND  NOEUD SUPPORT DE LA DEFO PLANE GENE
      COMMON/COPTIO/NSDPGE
      integer       NSDPGE
*
*  TAILLE DU CADRE  (TRACE BENSON)
      REAL*8 DIOCAD
      COMMON/COPTID/DIOCAD
*    ZHORIZ
*     .true.  --> paysage
*     .false. --> portrait
*    ZINIPS
*     .true.  --> la sortie ps pas encore initialisee
*     .false. --> deja initialisee
      LOGICAL ZHORIZ , ZINIPS
      COMMON/COPTIO/ZHORIZ , ZINIPS
*
*  NIVEAU DE SORTIE  2 STANDARD  1 ANCIEN
      COMMON/COPTIO/IONIVE
      INTEGER       IONIVE
*
*  TAILLE DE TRAVAIL ALLOUEE A LA MATRICE POUR L'INVERSION
      COMMON/COPTIO/NGMAXY
      integer       NGMAXY
*
*  NOMBRE DE ZERO CONSECUTIFS A UTILISER DANS LA RESOLUTION
      COMMON/COPTIO/IZROSF
      integer       IZROSF
*
*  TYPE DE TRACE D'ISOVALEURS
      COMMON/COPTIO/ISOTYP
      integer       ISOTYP
*
*  EPAISSEUR DU TRAIT LORS DE L'ECRITURE DANS UN FICHIER POST-SCRIPT
      COMMON/COPTIO/IEPTR
      integer       IEPTR
*
*
*  FULL-SCREEN
      COMMON/COPTIO/IOSCR,LTEXLU
      integer       IOSCR,LTEXLU
*
*  normalisation des variables
      COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
      integer       NORINC,NORVAL,NORIND,NORVAD
*
*  type de renumérotation
      COMMON/COPTIO/NUCROU
      integer       NUCROU
*
*
*  structure de sauvegarde
      COMMON/COPTIO/IPSAUV
      integer       IPSAUV

*
*
*  bande sauve si premiere,restituer si premiere, tailemax,tailreelle
      COMMON/COPTIO/IPREFI,IFICLE
      integer       IPREFI,IFICLE
      COMMON/COPTID/      DIMATT,DIMFIC
      REAL*8 DIMATT,DIMFIC

*     format de la restitution  et de la sauvegarde
*
      COMMON/COPTIO/IREFOR,ISAFOR
      integer       IREFOR,ISAFOR
*  faut-il faire tenter d'utiliser les assistants lecture parallele
      COMMON/COPTIO/LUPARA
      integer       LUPARA
* est-on en option debug pour les procedures
      COMMON/COPTIO/MISAUP
      integer       MISAUP
* conserve-t-on les variables locales creees dans les procedures ?
      LOGICAL ZLOPRO
      COMMON/COPTIO/ZLOPRO
* tableau de logiques pour messages d'erreur. A remettre en tete
      LOGICAL BOOERR
      COMMON/COPTIO/BOOERR(10)
* Valeur de pointeur a surveiller
      COMMON/COPTIO/MSURVE
* Valeur de l'attente declanchant un message ESOPE
      COMMON/COPTIO/MATTEN

      CHARACTER*(LOCHAI) MOTERR
      CHARACTER*(LOCHAI)  TITREE
      CHARACTER*8   LOCERR
      COMMON/COPTHC/LOCERR,MOTERR,TITREE
!$OMP THREADPRIVATE(/COPTHC/)
*  DATE DE LA VERSION
      CHARACTER*72 DATVER
      COMMON/COPTIC/DATVER
      
C     LOCHAI : (Voir PPARAM.INC)
      CHARACTER*(LOCHAI) TEXLU
      COMMON/COPTIC/TEXLU
* bande sauver  son nom
      CHARACTER*(LOCHAI) NOMSAU,NOMRES
      COMMON/COPTIC/NOMSAU,NOMRES
*  segment index des notices
      integer LISNOTI
      integer UTIFI3
      COMMON/COPTIC/LISNOTI
      COMMON/COPTIC/UTIFI3(7)
*  langage de la notice
      integer LISPROC
      COMMON/COPTIC/LISPROC
*  langage de la notice
      CHARACTER*4 LANGUE
      COMMON/COPTIC/LANGUE
!$OMP THREADPRIVATE(/COPTHR/)
      save /coptio/,/coptid/,/coptic/