Esope source files

   1 : C IMAX      SOURCE    GOUNAND   05/12/21    21:29:47     5281           
   2 :       FUNCTION IMAX(TABLOI,LONG)
   3 :       IMPLICIT REAL*8 (A-H,O-Z)
   4 :       IMPLICIT INTEGER (I-N)
   5 : C*************************************************************************
   6 : C     
   7 : C Maximum de TABLOI(1..LONG)
   8 : C
   9 : C***********************************************************************
  10 :       INTEGER LONG,ILONG
  11 :       INTEGER TABLOI(LONG)
  12 :       INTEGER ITMP
  13 :       INTEGER IMAX
  14 : *
  15 :       ITMP=TABLOI(1)
  16 :       DO 1 ILONG=2,LONG
  17 :          ITMP=MAX(ITMP,TABLOI(ILONG))
  18 :  1    CONTINUE
  19 :       IMAX=ITMP
  20 :       RETURN
  21 :       END
  22 : 
  23 :  
  24 :  
  25 :