Sources Esope | Cast3M

strnbn
C STRNBN    SOURCE    CHAT      05/01/13    03:25:41     5004
C
      INTEGER FUNCTION STRNBN(IT,ITRNOE,NBNMAX)
C     *************************************************************
C     RENVOI LE NOMBRE REEL DE NOEUD DE L'ELEMENT IT
C
C     *************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IT,ITRNOE(*),NBNMAX
C
      STRNBN = 0
   10 IF( ITRNOE((IT-1)*NBNMAX + STRNBN + 1).EQ.0 )GO TO 999
      STRNBN = STRNBN + 1
      IF( (STRNBN+1).GT.NBNMAX )GO TO 999
      GO TO 10
  999 END