Télécharger cumule.eso

Retour à la liste

Numérotation des lignes :

  1. C CUMULE SOURCE JC220346 18/03/07 21:15:01 9773
  2. C
  3. SUBROUTINE CUMULE(MLENT1,MLENT2)
  4. C====================================================================
  5. C
  6. C EFFECTUE LE CUMUL DES VALEURS CONTENUES DANS UN LISTENTI
  7. C
  8. C ENTREE : MLENT1 POINTEUR SUR UN LISTENTI {x1 x2 x3 ... }
  9. C SORTIE : MLENT2 POINTEUR SUR UN LISTENTI {x1 (x1+x2) (x1+x2+x3)...}
  10. C
  11. C=====================================================================
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. C
  16. -INC SMLENTI
  17. -INC CCOPTIO
  18. C
  19. c SEGINI,MLENT2=MLENT1
  20. c JG1=MLENT2.LECT(/1)
  21. c DO 1 IG1=2,JG1
  22. c MLENT2.LECT(IG1)=MLENT2.LECT(IG1-1)+MLENT2.LECT(IG1)
  23. c 1 CONTINUE
  24. c SEGDES MLENT2
  25.  
  26. SEGACT,MLENT1
  27. JG=MLENT1.LECT(/1)
  28. SEGINI,MLENT2
  29. MLENT2.LECT(1)=MLENT1.LECT(1)
  30. DO 1 IG1=2,JG
  31. MLENT2.LECT(IG1)=MLENT2.LECT(IG1-1)+MLENT1.LECT(IG1)
  32. 1 CONTINUE
  33. SEGDES,MLENT1,MLENT2
  34. C
  35. RETURN
  36. END
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  

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