Sources Esope | Cast3M

imax2
C IMAX2     SOURCE    CB215821  26/08/24    21:16:50     12622          
C
      SUBROUTINE IMAX2(IINPUT,NI,NJ,MAXVAL)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
C*************************************************************************
C
C     Maximum de IINPUT selon la 2eme dimension
C     ~ proche de MAXVAL(IINPUT,DIM=2)
C
C***********************************************************************
      INTEGER NI,NJ
      INTEGER IINPUT(NI,NJ),MAXVAL(NI)
 
      J=1
      DO 10 I=1,NI
         MAXVAL(I) = IINPUT(I,J)
 10   CONTINUE
 
      DO 21 J=2,NJ
      DO 20 I=1,NI
         MAXVAL(I) = MAX(MAXVAL(I),IINPUT(I,J))
 20   CONTINUE
   21 CONTINUE
 
      RETURN
      END