imax2
C IMAX2 SOURCE BP208322 15/12/14 21:15:02 8744 C 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 J=1 MAXVAL(I) = IINPUT(I,J) 10 CONTINUE DO 20 J=2,NJ MAXVAL(I) = MAX(MAXVAL(I),IINPUT(I,J)) 20 CONTINUE RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales