Sources Esope | Cast3M

strnbc
C STRNBC    SOURCE    CHAT      05/01/13    03:25:37     5004
      INTEGER FUNCTION STRNBC(N,IDE)
C     *************************************************************
C     RENVOI LE NOMBRE DE COTE DE L'ELEMENT A N NOEUD
C
C     *************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER N,IDE
C
      INTEGER  S3NBCO
      EXTERNAL S3NBCO
C
      IF( IDE .EQ. 3 )THEN
        STRNBC = S3NBCO(N)
      ELSE
        STRNBC = N
      ENDIF
      END