Esope source files

   1 : C DSINIT    SOURCE    CHAT      05/01/12    22:56:30     5004           
   2 : C     *****************************************************************
   3 : C     MODULE  : ES (ENTREES SORTIES)
   4 : C     FICHIER : ES_ERREUR.F
   5 : C     OBJET   : GESTION DES ERREURS ET AUTRES UTILITAIRES GENERAUX
   6 : C
   7 : C     FONCT.  :
   8 : C
   9 : C       DSINITC  : INITIALISATION DES CONSTANTES DE DELOS
  10 : C
  11 : C       DSERRE   : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  12 : C
  13 : C
  14 : C     AUTEUR  : O.STAB
  15 : C     DATE    : 02.96 / 05.96
  16 : C     MODIFICATIONS :
  17 : C      AUTEUR, DATE, OBJET :
  18 : C
  19 : C
  20 : C     *****************************************************************
  21 : C
  22 :       SUBROUTINE DSINIT
  23 : C     *****************************************************************
  24 : C     OBJET  : INITIALISATION DES CONSTANTES DE DELOS
  25 : C
  26 : C          INITDS DOIT ETRE APPELE DE LE DEBUT DU PROGRAMME PRINCIPAL
  27 : C
  28 : C     *****************************************************************      
  28 : C      CALL ICGEPS
  28 : C      CALL STINIT
  29 : C     POUR LES TETRA : 
  30 : C             ITA2F : ARETE PARTAGEE PAR 2 FACES
  31 : C                    ITA2F(I,J),ITA2F(J,I) = L'ARETE COMMUNE
  32 : C                    AU FACES I ET J ET DIRECTE POUR I
  33 : C
  34 : C             IT2FA : LES 2 FACES INCIDENTES A UNE ARETE
  35 : C                    IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J
  36 : C                    IT2FA(J,I) = FACE INDIRECTE
  37 : C
  38 : C             IT3SF : LES 3 SOMMETS D'UNE FACE
  39 : C
  40 :       IMPLICIT INTEGER(I-N)
  41 :       COMMON /STRTET/ ITA2F(4,4),IT2FA(4,4),IT3SF(3,4)
  42 :       INTEGER ITA2F, IT2FA, IT3SF
  43 :       COMMON /STRHEX/ IQ4SF(4,6),IQ3FS(3,8)
  44 :       INTEGER IQ4SF,IQ3FS
  45 : C
  46 : C          =================================
  47 : C     ----     POUR LES TETRAEDRES          ----
  48 : C          =================================
  49 : C
  50 : C          ===========================================
  51 : C     ---- ITA2F(I,J) = ITA2F(J,I) = L'ARETE COMMUNE
  52 : C                    AU FACES I ET J ET DIRECTE POUR I
  53 : C     A REVOIR
  54 : C          ===========================================
  55 :       ITA2F(1,1) = 0
  56 :       ITA2F(2,1) = 4 
  57 :       ITA2F(3,1) = 2
  58 :       ITA2F(4,1) = 3
  59 : C
  60 :       ITA2F(1,2) = 3
  61 :       ITA2F(2,2) = 0
  62 :       ITA2F(3,2) = 4
  63 :       ITA2F(4,2) = 1
  64 : C
  65 :       ITA2F(1,3) = 4
  66 :       ITA2F(2,3) = 1
  67 :       ITA2F(3,3) = 0
  68 :       ITA2F(4,3) = 2
  69 : C
  70 :       ITA2F(1,4) = 2
  71 :       ITA2F(2,4) = 3
  72 :       ITA2F(3,4) = 1
  73 :       ITA2F(4,4) = 0
  74 : C
  75 : C
  76 : C          ===========================================
  77 : C     ---- IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J ----
  78 : C                       IT2FA(J,I) = FACE INDIRECTE
  79 : C     A REVOIR
  80 : C          ===========================================
  81 :       IT2FA(1,1) = 0
  82 :       IT2FA(2,1) = 4 
  83 :       IT2FA(3,1) = 2
  84 :       IT2FA(4,1) = 3
  85 : C
  86 :       IT2FA(1,2) = 3
  87 :       IT2FA(2,2) = 0
  88 :       IT2FA(3,2) = 4
  89 :       IT2FA(4,2) = 1
  90 : C
  91 :       IT2FA(1,3) = 4
  92 :       IT2FA(2,3) = 1
  93 :       IT2FA(3,3) = 0
  94 :       IT2FA(4,3) = 2
  95 : C
  96 :       IT2FA(1,4) = 2
  97 :       IT2FA(2,4) = 3
  98 :       IT2FA(3,4) = 1
  99 :       IT2FA(4,4) = 0
 100 : C
 101 : C          =================================
 102 : C     ---- IT3SF(I,J) = NOEUD I DE LA FACE J ----
 103 : C          =================================
 104 :       IT3SF(1,1) = 2
 105 :       IT3SF(2,1) = 4 
 106 :       IT3SF(3,1) = 3
 107 : C
 108 :       IT3SF(1,2) = 3
 109 :       IT3SF(2,2) = 4
 110 :       IT3SF(3,2) = 1
 111 : C
 112 :       IT3SF(1,3) = 4
 113 :       IT3SF(2,3) = 2
 114 :       IT3SF(3,3) = 1
 115 : C
 116 :       IT3SF(1,4) = 1
 117 :       IT3SF(2,4) = 2
 118 :       IT3SF(3,4) = 3     
 119 : C
 120 : C          =================================
 121 : C     ----     POUR LES HEXAEDRES          ----
 122 : C          =================================
 123 : C
 124 : C
 125 : C          =================================
 126 : C     ---- IQ4SF(I,J) = NOEUD I DE LA FACE J ----
 127 : C          =================================
 128 : C
 129 :       IQ4SF(1,1) = 1
 130 :       IQ4SF(2,1) = 2
 131 :       IQ4SF(3,1) = 3
 132 :       IQ4SF(4,1) = 4
 133 : C
 134 :       IQ4SF(1,2) = 1
 135 :       IQ4SF(2,2) = 5
 136 :       IQ4SF(3,2) = 6
 137 :       IQ4SF(4,2) = 2
 138 : C
 139 :       IQ4SF(1,3) = 2
 140 :       IQ4SF(2,3) = 6
 141 :       IQ4SF(3,3) = 7
 142 :       IQ4SF(4,3) = 3
 143 : C
 144 :       IQ4SF(1,4) = 3
 145 :       IQ4SF(2,4) = 7
 146 :       IQ4SF(3,4) = 8
 147 :       IQ4SF(4,4) = 4
 148 : C
 149 :       IQ4SF(1,5) = 4
 150 :       IQ4SF(2,5) = 8
 151 :       IQ4SF(3,5) = 5
 152 :       IQ4SF(4,5) = 1
 153 : C
 154 :       IQ4SF(1,6) = 5
 155 :       IQ4SF(2,6) = 8
 156 :       IQ4SF(3,6) = 7
 157 :       IQ4SF(4,6) = 6
 158 : C
 159 : C          =================================
 160 : C     ---- IQ3FS(I,J) = FACE I AU NOEUD J ----
 161 : C          =================================
 162 : C
 163 :       IQ3FS(1,1) = 1
 164 :       IQ3FS(2,1) = 2
 165 :       IQ3FS(3,1) = 5
 166 : C
 167 :       IQ3FS(1,2) = 2
 168 :       IQ3FS(2,2) = 1
 169 :       IQ3FS(3,2) = 3
 170 : C
 171 :       IQ3FS(1,3) = 3
 172 :       IQ3FS(2,3) = 1
 173 :       IQ3FS(3,3) = 4
 174 : C
 175 :       IQ3FS(1,4) = 4
 176 :       IQ3FS(2,4) = 1
 177 :       IQ3FS(3,4) = 5
 178 : C
 179 :       IQ3FS(1,5) = 2
 180 :       IQ3FS(2,5) = 6
 181 :       IQ3FS(3,5) = 5
 182 : C
 183 :       IQ3FS(1,6) = 3
 184 :       IQ3FS(2,6) = 6
 185 :       IQ3FS(3,6) = 2
 186 : C
 187 :       IQ3FS(1,7) = 4
 188 :       IQ3FS(2,7) = 6
 189 :       IQ3FS(3,7) = 3
 190 : C
 191 :       IQ3FS(1,8) = 5
 192 :       IQ3FS(2,8) = 6
 193 :       IQ3FS(3,8) = 4
 194 : C
 195 :       END
 196 :  
 197 :