Esope source files

   1 : C S3NBCO    SOURCE    CHAT      06/03/29    21:32:56     5360           
   2 : C
   3 : C
   4 :       FUNCTION S3NBCO(NBN)
   5 : C     *************************************************************
   6 : C     OBJET :   RENVOI LE NOMBRE DE COTE D'UN ELEMENT 
   7 : C     EN ENTREE:
   8 : C       NBN   : NOMBRE DE NOEUDS DE L'ELEMENT
   9 : C     EN SORTIE: 
  10 : C     CONDITION D'APPLICATION : TETRA, PYRA, PRISME, HEXA
  11 : C     ************************************************************
  12 :       IMPLICIT INTEGER(I-N)
  13 :       INTEGER S3NBCO
  14 :       INTEGER NBN
  15 : C
  16 :       INTEGER iarr
  17 : C      
  18 :       GOTO (1,1,1,100,100,100,1,200) NBN
  19 : C        =====================
  20 : C     --- ELEMENT NON RECONNU ---
  21 : C        =====================
  22 :     1 S3NBCO = -1
  23 :       iarr = -1
  23 :       CALL DSERRE(1,iarr,'S3NBCO',' TYPE D ELEMENT INCONNU')
  24 :       GOTO 9999
  25 : C        ====================================
  26 : C     --- CAS DU TETRAEDRE, PYRAMIDE, PRISME ---
  27 : C        ====================================
  28 :   100 S3NBCO = NBN
  29 :       GOTO 9999
  30 : C        ==================
  31 : C     --- CAS DE L'HEXAEDRE ---
  32 : C        ==================
  33 :   200 S3NBCO = 6
  34 :       GOTO 9999
  35 : C
  36 :  9999 END
  37 :  
  38 :  
  39 :