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

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