C S3NBCO    SOURCE    CHAT      06/03/29    21:32:56     5360           
C
C
      FUNCTION S3NBCO(NBN)
C     *************************************************************
C     OBJET :   RENVOI LE NOMBRE DE COTE D'UN ELEMENT 
C     EN ENTREE:
C       NBN   : NOMBRE DE NOEUDS DE L'ELEMENT
C     EN SORTIE: 
C     CONDITION D'APPLICATION : TETRA, PYRA, PRISME, HEXA
C     ************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER S3NBCO
      INTEGER NBN
C
      INTEGER iarr
C      
      GOTO (1,1,1,100,100,100,1,200) NBN
C        =====================
C     --- ELEMENT NON RECONNU ---
C        =====================
    1 S3NBCO = -1
      iarr = -1
      CALL DSERRE(1,iarr,'S3NBCO',' TYPE D ELEMENT INCONNU')
      GOTO 9999
C        ====================================
C     --- CAS DU TETRAEDRE, PYRAMIDE, PRISME ---
C        ====================================
  100 S3NBCO = NBN
      GOTO 9999
C        ==================
C     --- CAS DE L'HEXAEDRE ---
C        ==================
  200 S3NBCO = 6
      GOTO 9999
C
 9999 END