Sources Esope | Cast3M

strksf
C STRKSF    SOURCE    CHAT      05/01/13    03:25:33     5004
      INTEGER FUNCTION STRKSF(IDE,N,IF,IFAC)
C     ************************************************************
C     OBJET : K SOMMET DE  LA FACE(INDICE RELATIF)
C     EN ENTREE:
C      IF     :  L'INDICE DE LA FACE DE L'ELEMENT
C      N      :  (4) NOMBRE DE NOEUDS DE L'ELEMENT
C                 TETRA(4),PYRAM(5),PRISME(6),HEXA(8)
C     EN SORTIE:
C      IFAC  :  INDICE DES SOMMETS DE LA FACE
C     CONDITION D'APPLICATION : TETRAEDRE SEULEMENT
C     ************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER   IDE, IF, N, IFAC(*)
C
       INTEGER NBNF,K
       INTEGER  S3FASO
       EXTERNAL S3FASO
C
      IF( (IDE.EQ.2) .OR. (IDE.EQ.1) )THEN
C     -------------------------------------
C     --- CAS 1D, 2D ----------------------
C     --- NBR DE NOEUDS = NBRE DE COTES ---
C     -------------------------------------
        DO 30 K=1,IDE
         IFAC(K) = MOD(IF+K-2,N)+1
   30   CONTINUE
      STRKSF = IDE
      ELSE
      IF( IDE .EQ. 3 )THEN
C     ----------------------------------------------------
C     --- CAS 3D : NOMBRE DE COTES REELS DE L'ELEMENTS ---
C     ---          NOMBRE DE NOEUDS DE LA FACE J       ---
C     ----------------------------------------------------
        NBNF = S3FASO(IF,N,1,IFAC)
        STRKSF = NBNF
      ELSE
        STRKSF = 0
      ENDIF
      ENDIF
      END