Esope source files

   1 : C TESTNU    SOURCE    CHAT      05/01/13    03:36:39     5004           
   2 :       SUBROUTINE TESTNU (MELEME,IMAX,IRET)                                      
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C-----------------------------------------------------------------              
   6 : C                                                                               
   7 : C     CHERCHE SI NUM(I,J).LE.IMAX                                               
   8 : C     ENTREE MELEME  LE MELEME DE BASE A ETUDIER                                
   9 : C                                                                               
  10 : C     SORTIE  IRET=0 TOUS LES POINTS SONT INFERIEURS OU EGAL                    
  11 : C             IRET=1 AU MOINS 1 POINT EST GT.IMAX                               
  12 : C     APPELE PAR FILLP1                                                         
  13 : C-----------------------------------------------------------------              
  14 : -INC SMELEME                                                                    
  15 : C                                                                               
  16 :       IRET=0                                                                    
  17 :       SEGACT MELEME                                                             
  18 :       DO 54 I=1,NUM(/1)                                                         
  19 :       DO 54 J=1,NUM(/2)                                                         
  20 :       IF(NUM(I,J).LE.IMAX) GOTO 54                                              
  21 :       IRET=1                                                                    
  22 :       GOTO 62                                                                   
  23 :  54   CONTINUE                                                                  
  24 :  62   CONTINUE                                                                  
  25 :       SEGDES MELEME                                                             
  26 : C                                                                               
  27 :       RETURN                                                                    
  28 :       END                                                                       
  29 :