Télécharger isum2.eso

Retour à la liste

Numérotation des lignes :

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

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