Télécharger imax.eso

Retour à la liste

Numérotation des lignes :

  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.  
  26.  

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