Esope source files

   1 : C S3NBAR    SOURCE    CHAT      05/01/13    03:10:52     5004           
   2 :       SUBROUTINE S3NBAR(NBN,NBAR)
   3 : C     *****************************************************************
   4 : C     OBJET S3NBAR : RENVOI LE NOMBRE D'ARETES D'UN ELEMENT
   5 : C     *****************************************************************
   6 :       IMPLICIT INTEGER(I-N)
   7 :       INTEGER NBN,NBAR
   8 : C
   9 :       GOTO(1,1,1,4,5,6,1,8) NBN
  10 :     1 NBAR = -1
  11 :       GOTO 9999
  12 : C     --- TETRAEDRE ---
  13 :     4 NBAR = 6
  14 :       GOTO 9999
  15 : C     --- PYRAMIDE ---
  16 :     5 NBAR = 8
  17 :       GOTO 9999
  18 : C     --- PRISME ---
  19 :     6 NBAR = 9
  20 :       GOTO 9999
  21 : C     --- HEXAEDRE ---
  22 :     8 NBAR = 12
  23 :       GOTO 9999  
  24 : C
  25 :  9999 END
  26 :  
  27 :