Télécharger la plaquette Cast3M


fr en

Télécharger strkfs.eso

Retour à la liste

Numérotation des lignes : 

strkfs

  1. C STRKFS    SOURCE    CHAT      05/01/13    03:25:30     5004
  2. C
  3.       INTEGER FUNCTION STRKFS(IDE,I,N,IFAC)
  4. C     ************************************************************
  5. C     OBJET : K FACES AU SOMMET (INDICE RELATIF)
  6. C     EN ENTREE:
  7. C      I      :  L'INDICE DU SOMMET DE L'ELEMENT
  8. C      N      :  (4) NOMBRE DE NOEUD DE L'ELEMENT
  9. C                 TETRA(4),PYRAM(5),PRISME(6),HEXA(8)
  10. C     EN SORTIE:
  11. C      IFAC  :  INDICE DES FACES INCIDENTES AU NOEUD
  12. C     CONDITION D'APPLICATION : TETRAEDRE SEULEMENT
  13. C     ************************************************************
  14.       IMPLICIT INTEGER(I-N)
  15.       INTEGER   IDE, I, N, IFAC(*)
  16. C
  17.       INTEGER  S3SOFA
  18.       EXTERNAL S3SOFA
  19. C
  20.       GOTO (10,20,30 ) IDE
  21. C     ---- CAS 1D --------
  22. C     LA FACE DE L'ELEMENT EST LE SOMMET LUI MEME
  23.    10 IFAC(1) = I
  24.       STRKFS  = 1
  25.       GOTO 999
  26. C     ---- CAS 2D --------
  27.    20 IF(I.EQ.1)THEN
  28.         IFAC(1) = N
  29.       ELSE
  30.         IFAC(1) = I-1
  31.       ENDIF
  32.       IFAC(2) = I
  33.       STRKFS = 2
  34.       GOTO 999
  35. C     ---- CAS 3D --------
  36.    30 STRKFS = S3SOFA(I,N,IFAC)
  37.       GOTO 999
  38. C
  39.   999 END
  40.  
  41.  
  42.  

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