* -INC CCOPTIO
*
* PLACE LIBRE A RESPECTER
COMMON/COPTIO/IPLLB
*
* ERREUR AUTORISEE, MAX ,EFFECTIVE
COMMON/COPTIO/IERPER, IERMAX, IERR
*
* COMMUNICATION AVEC ERREUR
REAL*8 REAERR
COMMON/COPTIO/INTERR(10),REAERR(10)
CHARACTER*40 MOTERR
CHARACTER*72 TITREE
CHARACTER*4 LOCERR
COMMON/COPTIC/MOTERR,TITREE,LOCERR
*
* UNITES ENTREE-SORTIE
* TERMINAL LECTEUR IMPRESSION LIRE ACQUERIR
COMMON /COPTIO/IOTER, IOLEC, IOIMP, IOCAR, IOACQ
* SORTIR epsilon TRAC SAUVER RESTITUER
COMMON /COPTIO/IOPER, MEPSIL, IOGRA, IOSAU, IORES
*
* ECHO NIVEAU D'IMPRESSION TRACE DES OP{RATEURS
COMMON/COPTIO/IECHO, IIMPI, IOSPI
*
* DIMENSION,COORDONNEES
COMMON/COPTIO/IDIM, MCOORD
*
*
* - 1 PLAN 0 AXIS 1 FOUR 2 TRID
COMMON/COPTIO/IFOMOD
* HARMONIQUE DE FOURIER
COMMON/COPTIO/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
*
* PLUS GRAND NOEUD SUPPORT DE LA DEFO PLANE GENE
COMMON/COPTIO/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
*
* TAILLE DE TRAVAIL ALLOUEE A LA MATRICE POUR L'INVERSION
COMMON/COPTIO/NGMAXY
*
* NOMBRE DE ZERO CONSECUTIFS A UTILISER DANS LA RESOLUTION
COMMON/COPTIO/IZROSF
*
* TYPE DE TRACE D'ISOVALEURS
COMMON/COPTIO/ISOTYP
*
* EPAISSEUR DU TRAIT LORS DE L'ECRITURE DANS UN FICHIER POST-SCRIPT
COMMON/COPTIO/IEPTR
*
* DATE DE LA VERSION
CHARACTER*72 DATVER
COMMON/COPTIC/DATVER
*
* FULL-SCREEN
COMMON/COPTIO/IOSCR,LTEXLU
COMMON/COPTIC/TEXLU
CHARACTER*500 TEXLU
*
* normalisation des variables
COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
*
* type de renumérotation
COMMON/COPTIO/NUCROU
*
* langage de la notice
COMMON/COPTIC/LANGUE
CHARACTER*4 LANGUE
*
* structure de sauvegarde
COMMON/COPTIO/IPSAUV
*
* bande sauver son nom
COMMON/COPTIC/NOMFIC,NOMRES
CHARACTER*72 NOMFIC,NOMRES
*
* bande sauve si premiere,restituer si premiere, tailemax,tailreelle
COMMON/COPTIO/IPREFI,IFICLE
COMMON/COPTID/ DIMATT,DIMFIC
REAL*8 DIMATT,DIMFIC
* format de la restitution et de la sauvegarde
*
COMMON/COPTIO/IREFOR,ISAFOR
* faut-il faire tenter d'utiliser les assistants lecture parallele
COMMON/COPTIO/LUPARA
* est-on en option debug pour les procedures
COMMON/COPTIO/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)
© Cast3M 2003 - All rights reserved.
Disclaimer