Esope source files

   1 : C STNBAR    SOURCE    CHAT      05/01/13    03:25:13     5004           
   2 : C
   3 :       SUBROUTINE STNBAR(IDE,NBN,NBAR)
   4 : C     *****************************************************************
   5 : C     OBJET STNBAR : RENVOI LE NOMBRE D'ARETES D'UN ELEMENT
   6 : C     *****************************************************************
   7 :       IMPLICIT INTEGER(I-N)
   8 :       INTEGER IDE,NBN,NBAR
   9 : C     
  10 :       IF(IDE.LT.2)THEN
  11 :         NBAR = 0
  12 :         GOTO 9999
  13 :       ENDIF 
  14 :       IF(IDE.LT.3)THEN
  15 :         NBAR = NBN
  16 :         GOTO 9999
  17 :       ENDIF
  17 :       CALL S3NBAR(NBN,NBAR)
  18 : C
  19 :  9999 END
  20 :  
  21 :