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

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