Sources Esope | Cast3M

dsinit
C DSINIT    SOURCE    CHAT      05/01/12    22:56:30     5004
C     *****************************************************************
C     MODULE  : ES (ENTREES SORTIES)
C     FICHIER : ES_ERREUR.F
C     OBJET   : GESTION DES ERREURS ET AUTRES UTILITAIRES GENERAUX
C
C     FONCT.  :
C
C       DSINITC  : INITIALISATION DES CONSTANTES DE DELOS
C
C       DSERRE   : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
C
C
C     AUTEUR  : O.STAB
C     DATE    : 02.96 / 05.96
C     MODIFICATIONS :
C      AUTEUR, DATE, OBJET :
C
C
C     *****************************************************************
C
      SUBROUTINE DSINIT
C     *****************************************************************
C     OBJET  : INITIALISATION DES CONSTANTES DE DELOS
C
C          INITDS DOIT ETRE APPELE DE LE DEBUT DU PROGRAMME PRINCIPAL
C
C     *****************************************************************
C      CALL ICGEPS
C      CALL STINIT
C     POUR LES TETRA :
C             ITA2F : ARETE PARTAGEE PAR 2 FACES
C                    ITA2F(I,J),ITA2F(J,I) = L'ARETE COMMUNE
C                    AU FACES I ET J ET DIRECTE POUR I
C
C             IT2FA : LES 2 FACES INCIDENTES A UNE ARETE
C                    IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J
C                    IT2FA(J,I) = FACE INDIRECTE
C
C             IT3SF : LES 3 SOMMETS D'UNE FACE
C
      IMPLICIT INTEGER(I-N)
      COMMON /STRTET/ ITA2F(4,4),IT2FA(4,4),IT3SF(3,4)
      INTEGER ITA2F, IT2FA, IT3SF
      COMMON /STRHEX/ IQ4SF(4,6),IQ3FS(3,8)
      INTEGER IQ4SF,IQ3FS
C
C          =================================
C     ----     POUR LES TETRAEDRES          ----
C          =================================
C
C          ===========================================
C     ---- ITA2F(I,J) = ITA2F(J,I) = L'ARETE COMMUNE
C                    AU FACES I ET J ET DIRECTE POUR I
C     A REVOIR
C          ===========================================
      ITA2F(1,1) = 0
      ITA2F(2,1) = 4
      ITA2F(3,1) = 2
      ITA2F(4,1) = 3
C
      ITA2F(1,2) = 3
      ITA2F(2,2) = 0
      ITA2F(3,2) = 4
      ITA2F(4,2) = 1
C
      ITA2F(1,3) = 4
      ITA2F(2,3) = 1
      ITA2F(3,3) = 0
      ITA2F(4,3) = 2
C
      ITA2F(1,4) = 2
      ITA2F(2,4) = 3
      ITA2F(3,4) = 1
      ITA2F(4,4) = 0
C
C
C          ===========================================
C     ---- IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J ----
C                       IT2FA(J,I) = FACE INDIRECTE
C     A REVOIR
C          ===========================================
      IT2FA(1,1) = 0
      IT2FA(2,1) = 4
      IT2FA(3,1) = 2
      IT2FA(4,1) = 3
C
      IT2FA(1,2) = 3
      IT2FA(2,2) = 0
      IT2FA(3,2) = 4
      IT2FA(4,2) = 1
C
      IT2FA(1,3) = 4
      IT2FA(2,3) = 1
      IT2FA(3,3) = 0
      IT2FA(4,3) = 2
C
      IT2FA(1,4) = 2
      IT2FA(2,4) = 3
      IT2FA(3,4) = 1
      IT2FA(4,4) = 0
C
C          =================================
C     ---- IT3SF(I,J) = NOEUD I DE LA FACE J ----
C          =================================
      IT3SF(1,1) = 2
      IT3SF(2,1) = 4
      IT3SF(3,1) = 3
C
      IT3SF(1,2) = 3
      IT3SF(2,2) = 4
      IT3SF(3,2) = 1
C
      IT3SF(1,3) = 4
      IT3SF(2,3) = 2
      IT3SF(3,3) = 1
C
      IT3SF(1,4) = 1
      IT3SF(2,4) = 2
      IT3SF(3,4) = 3
C
C          =================================
C     ----     POUR LES HEXAEDRES          ----
C          =================================
C
C
C          =================================
C     ---- IQ4SF(I,J) = NOEUD I DE LA FACE J ----
C          =================================
C
      IQ4SF(1,1) = 1
      IQ4SF(2,1) = 2
      IQ4SF(3,1) = 3
      IQ4SF(4,1) = 4
C
      IQ4SF(1,2) = 1
      IQ4SF(2,2) = 5
      IQ4SF(3,2) = 6
      IQ4SF(4,2) = 2
C
      IQ4SF(1,3) = 2
      IQ4SF(2,3) = 6
      IQ4SF(3,3) = 7
      IQ4SF(4,3) = 3
C
      IQ4SF(1,4) = 3
      IQ4SF(2,4) = 7
      IQ4SF(3,4) = 8
      IQ4SF(4,4) = 4
C
      IQ4SF(1,5) = 4
      IQ4SF(2,5) = 8
      IQ4SF(3,5) = 5
      IQ4SF(4,5) = 1
C
      IQ4SF(1,6) = 5
      IQ4SF(2,6) = 8
      IQ4SF(3,6) = 7
      IQ4SF(4,6) = 6
C
C          =================================
C     ---- IQ3FS(I,J) = FACE I AU NOEUD J ----
C          =================================
C
      IQ3FS(1,1) = 1
      IQ3FS(2,1) = 2
      IQ3FS(3,1) = 5
C
      IQ3FS(1,2) = 2
      IQ3FS(2,2) = 1
      IQ3FS(3,2) = 3
C
      IQ3FS(1,3) = 3
      IQ3FS(2,3) = 1
      IQ3FS(3,3) = 4
C
      IQ3FS(1,4) = 4
      IQ3FS(2,4) = 1
      IQ3FS(3,4) = 5
C
      IQ3FS(1,5) = 2
      IQ3FS(2,5) = 6
      IQ3FS(3,5) = 5
C
      IQ3FS(1,6) = 3
      IQ3FS(2,6) = 6
      IQ3FS(3,6) = 2
C
      IQ3FS(1,7) = 4
      IQ3FS(2,7) = 6
      IQ3FS(3,7) = 3
C
      IQ3FS(1,8) = 5
      IQ3FS(2,8) = 6
      IQ3FS(3,8) = 4
C
      END