Sources Esope | Cast3M

testnu
C TESTNU    SOURCE    CHAT      05/01/13    03:36:39     5004
      SUBROUTINE TESTNU (MELEME,IMAX,IRET)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------
C
C     CHERCHE SI NUM(I,J).LE.IMAX
C     ENTREE MELEME  LE MELEME DE BASE A ETUDIER
C
C     SORTIE  IRET=0 TOUS LES POINTS SONT INFERIEURS OU EGAL
C             IRET=1 AU MOINS 1 POINT EST GT.IMAX
C     APPELE PAR FILLP1
C-----------------------------------------------------------------
-INC SMELEME
C
      IRET=0
      SEGACT MELEME
      DO 54 I=1,NUM(/1)
      DO 54 J=1,NUM(/2)
      IF(NUM(I,J).LE.IMAX) GOTO 54
      IRET=1
      GOTO 62
 54   CONTINUE
 62   CONTINUE
      SEGDES MELEME
C
      RETURN
      END