Télécharger imax2.eso

Retour à la liste

Numérotation des lignes :

imax2
  1. C IMAX2 SOURCE BP208322 15/12/14 21:15:02 8744
  2. C
  3. SUBROUTINE IMAX2(IINPUT,NI,NJ,MAXVAL)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IMPLICIT INTEGER (I-N)
  6. C*************************************************************************
  7. C
  8. C Maximum de IINPUT selon la 2eme dimension
  9. C ~ proche de MAXVAL(IINPUT,DIM=2)
  10. C
  11. C***********************************************************************
  12. INTEGER NI,NJ
  13. INTEGER IINPUT(NI,NJ),MAXVAL(NI)
  14.  
  15. J=1
  16. DO 10 I=1,NI
  17. MAXVAL(I) = IINPUT(I,J)
  18. 10 CONTINUE
  19.  
  20. DO 20 J=2,NJ
  21. DO 20 I=1,NI
  22. MAXVAL(I) = MAX(MAXVAL(I),IINPUT(I,J))
  23. 20 CONTINUE
  24.  
  25. RETURN
  26. END
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales