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. COMMON/COPTIO/INTERR(10),REAERR(10)
  16. integer INTERR
  17. CHARACTER*40 MOTERR
  18. CHARACTER*72 TITREE
  19. CHARACTER*4 LOCERR
  20. COMMON/COPTIC/MOTERR,TITREE,LOCERR
  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. * DATE DE LA VERSION
  90. CHARACTER*72 DATVER
  91. COMMON/COPTIC/DATVER
  92. *
  93. * FULL-SCREEN
  94. COMMON/COPTIO/IOSCR,LTEXLU
  95. integer IOSCR,LTEXLU
  96. COMMON/COPTIC/TEXLU
  97. CHARACTER*500 TEXLU
  98. *
  99. * normalisation des variables
  100. COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
  101. integer NORINC,NORVAL,NORIND,NORVAD
  102. *
  103. * type de renumérotation
  104. COMMON/COPTIO/NUCROU
  105. integer NUCROU
  106. *
  107. * langage de la notice
  108. COMMON/COPTIC/LANGUE
  109. CHARACTER*4 LANGUE
  110. *
  111. * structure de sauvegarde
  112. COMMON/COPTIO/IPSAUV
  113. integer IPSAUV
  114.  
  115. *
  116. * bande sauver son nom
  117. COMMON/COPTIC/NOMFIC,NOMRES
  118. CHARACTER*72 NOMFIC,NOMRES
  119. *
  120. * bande sauve si premiere,restituer si premiere, tailemax,tailreelle
  121. COMMON/COPTIO/IPREFI,IFICLE
  122. integer IPREFI,IFICLE
  123. COMMON/COPTID/ DIMATT,DIMFIC
  124. REAL*8 DIMATT,DIMFIC
  125.  
  126. * format de la restitution et de la sauvegarde
  127. *
  128. COMMON/COPTIO/IREFOR,ISAFOR
  129. integer IREFOR,ISAFOR
  130. * faut-il faire tenter d'utiliser les assistants lecture parallele
  131. COMMON/COPTIO/LUPARA
  132. integer LUPARA
  133. * est-on en option debug pour les procedures
  134. COMMON/COPTIO/MISAUP
  135. integer MISAUP
  136. * conserve-t-on les variables locales creees dans les procedures ?
  137. LOGICAL ZLOPRO
  138. COMMON/COPTIO/ZLOPRO
  139. * tableau de logiques pour messages d'erreur. A remettre en tete
  140. LOGICAL BOOERR
  141. COMMON/COPTIO/BOOERR(10)
  142.  
  143.  
  144.  
  145.  

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