Télécharger CCOPTIO.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC CCOPTIO
  2. *
  3. * 04/04/14: Modif GF: Declaration explicite des variables
  4. *
  5. * PLACE LIBRE A RESPECTER
  6. COMMON/COPTIO/IPLLB
  7. integer IPLLB
  8. *
  9. * Pour avoir un ierr different par thread
  10. COMMON /COPTHR/IERR
  11. !$OMP THREADPRIVATE(/COPTHR/)
  12.  
  13. * ERREUR AUTORISEE, MAX ,EFFECTIVE
  14. COMMON/COPTIO/IERPER, IERMAX, IERGLB
  15. integer IERPER, IERMAX, IERGLB
  16. *
  17. * COMMUNICATION AVEC ERREUR
  18. * interr est en 11 pour avoir nle bon alignement de reaerr sur 32 bits
  19. REAL*8 REAERR
  20. integer INTERR
  21. COMMON/COPTHR/INTERR(11),REAERR(10)
  22.  
  23. * UNITES ENTREE-SORTIE
  24. * TERMINAL LECTEUR IMPRESSION LIRE ACQUERIR
  25. COMMON /COPTIO/IOTER, IOLEC, IOIMP, IOCAR, IOACQ
  26. integer IOTER, IOLEC, IOIMP, IOCAR, IOACQ
  27. * SORTIR epsilon TRAC SAUVER RESTITUER
  28. COMMON /COPTIO/IOPER, MEPSIL, IOGRA, IOSAU, IORES
  29. integer IOPER, MEPSIL, IOGRA, IOSAU, IORES
  30. *
  31. * ECHO NIVEAU D'IMPRESSION TRACE DES OP{RATEURS
  32. COMMON/COPTIO/IECHO, IIMPI, IOSPI
  33. integer IECHO, IIMPI, IOSPI
  34. *
  35. * DIMENSION,COORDONNEES
  36. COMMON/COPTIO/IDIM, MCOORD
  37. integer IDIM
  38. *
  39. *
  40. * - 1 PLAN 0 AXIS 1 FOUR 2 TRID
  41. COMMON/COPTIO/IFOMOD
  42. integer IFOMOD
  43. * HARMONIQUE DE FOURIER
  44. COMMON/COPTIO/NIFOUR
  45. integer NIFOUR
  46. *
  47. * OPTION DE CALCUL
  48. * -3 DEFORMATION PLANE GENERALISEE -2 CONTRAINTES PLANES
  49. * -1 DEFORMATION PLANE 0 AXISYMETRIQUE
  50. * 1 SERIE DE FOURIER 2 TRIDIMENSIONNEL
  51. COMMON/COPTIO/IFOUR
  52. integer IFOUR
  53. *
  54. * PLUS GRAND NOEUD SUPPORT DE LA DEFO PLANE GENE
  55. COMMON/COPTIO/NSDPGE
  56. integer NSDPGE
  57. *
  58. * TAILLE DU CADRE (TRACE BENSON)
  59. REAL*8 DIOCAD
  60. COMMON/COPTID/DIOCAD
  61. * ZHORIZ
  62. * .true. --> paysage
  63. * .false. --> portrait
  64. * ZINIPS
  65. * .true. --> la sortie ps pas encore initialisee
  66. * .false. --> deja initialisee
  67. LOGICAL ZHORIZ , ZINIPS
  68. COMMON/COPTIO/ZHORIZ , ZINIPS
  69. *
  70. * NIVEAU DE SORTIE 2 STANDARD 1 ANCIEN
  71. COMMON/COPTIO/IONIVE
  72. INTEGER IONIVE
  73. *
  74. * TAILLE DE TRAVAIL ALLOUEE A LA MATRICE POUR L'INVERSION
  75. COMMON/COPTIO/NGMAXY
  76. integer NGMAXY
  77. *
  78. * NOMBRE DE ZERO CONSECUTIFS A UTILISER DANS LA RESOLUTION
  79. COMMON/COPTIO/IZROSF
  80. integer IZROSF
  81. *
  82. * TYPE DE TRACE D'ISOVALEURS
  83. COMMON/COPTIO/ISOTYP
  84. integer ISOTYP
  85. *
  86. * EPAISSEUR DU TRAIT LORS DE L'ECRITURE DANS UN FICHIER POST-SCRIPT
  87. COMMON/COPTIO/IEPTR
  88. integer IEPTR
  89. *
  90. *
  91. * FULL-SCREEN
  92. COMMON/COPTIO/IOSCR,LTEXLU
  93. integer IOSCR,LTEXLU
  94. *
  95. * normalisation des variables
  96. COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
  97. integer NORINC,NORVAL,NORIND,NORVAD
  98. *
  99. * type de renumérotation
  100. COMMON/COPTIO/NUCROU
  101. integer NUCROU
  102. *
  103. *
  104. * structure de sauvegarde
  105. COMMON/COPTIO/IPSAUV
  106. integer IPSAUV
  107.  
  108. *
  109. *
  110. * bande sauve si premiere,restituer si premiere, tailemax,tailreelle
  111. COMMON/COPTIO/IPREFI,IFICLE
  112. integer IPREFI,IFICLE
  113. COMMON/COPTID/ DIMATT,DIMFIC
  114. REAL*8 DIMATT,DIMFIC
  115.  
  116. * format de la restitution et de la sauvegarde
  117. *
  118. COMMON/COPTIO/IREFOR,ISAFOR
  119. integer IREFOR,ISAFOR
  120. * faut-il faire tenter d'utiliser les assistants lecture parallele
  121. COMMON/COPTIO/LUPARA
  122. integer LUPARA
  123. * est-on en option debug pour les procedures
  124. COMMON/COPTIO/MISAUP
  125. integer MISAUP
  126. * conserve-t-on les variables locales creees dans les procedures ?
  127. LOGICAL ZLOPRO
  128. COMMON/COPTIO/ZLOPRO
  129. * tableau de logiques pour messages d'erreur. A remettre en tete
  130. LOGICAL BOOERR
  131. COMMON/COPTIO/BOOERR(10)
  132. * Valeur de pointeur a surveiller
  133. COMMON/COPTIO/MSURVE
  134. * Valeur de l'attente declanchant un message ESOPE
  135. COMMON/COPTIO/MATTEN
  136.  
  137. CHARACTER*128 MOTERR
  138. CHARACTER*72 TITREE
  139. CHARACTER*8 LOCERR
  140. COMMON/COPTHC/MOTERR,TITREE,LOCERR
  141. !$OMP THREADPRIVATE(/COPTHC/)
  142. * DATE DE LA VERSION
  143. CHARACTER*72 DATVER
  144. COMMON/COPTIC/DATVER
  145.  
  146. C LOCHAI : (Voir PPARAM.INC)
  147. CHARACTER*(LOCHAI) TEXLU
  148. COMMON/COPTIC/TEXLU
  149. * bande sauver son nom
  150. CHARACTER*(LOCHAI) NOMFIC,NOMRES
  151. COMMON/COPTIC/NOMFIC,NOMRES
  152. * segment index des notices
  153. integer LISNOTI
  154. integer UTIFI3
  155. COMMON/COPTIC/LISNOTI
  156. COMMON/COPTIC/UTIFI3(7)
  157. * langage de la notice
  158. integer LISPROC
  159. COMMON/COPTIC/LISPROC
  160. * langage de la notice
  161. CHARACTER*4 LANGUE
  162. COMMON/COPTIC/LANGUE
  163.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales