Sources Esope | Cast3M

imax
C IMAX      SOURCE    GOUNAND   05/12/21    21:29:47     5281
      FUNCTION IMAX(TABLOI,LONG)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
C*************************************************************************
C
C Maximum de TABLOI(1..LONG)
C
C***********************************************************************
      INTEGER LONG,ILONG
      INTEGER TABLOI(LONG)
      INTEGER ITMP
      INTEGER IMAX
*
      ITMP=TABLOI(1)
      DO 1 ILONG=2,LONG
         ITMP=MAX(ITMP,TABLOI(ILONG))
 1    CONTINUE
      IMAX=ITMP
      RETURN
      END