Sources Esope | Cast3M

s3nbar
C S3NBAR    SOURCE    CHAT      05/01/13    03:10:52     5004
      SUBROUTINE S3NBAR(NBN,NBAR)
C     *****************************************************************
C     OBJET S3NBAR : RENVOI LE NOMBRE D'ARETES D'UN ELEMENT
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER NBN,NBAR
C
      GOTO(1,1,1,4,5,6,1,8) NBN
    1 NBAR = -1
      GOTO 9999
C     --- TETRAEDRE ---
    4 NBAR = 6
      GOTO 9999
C     --- PYRAMIDE ---
    5 NBAR = 8
      GOTO 9999
C     --- PRISME ---
    6 NBAR = 9
      GOTO 9999
C     --- HEXAEDRE ---
    8 NBAR = 12
      GOTO 9999
C
 9999 END