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 PPARAM
  18. -INC CCOPTIO
  19. C
  20. c SEGINI,MLENT2=MLENT1
  21. c JG1=MLENT2.LECT(/1)
  22. c DO 1 IG1=2,JG1
  23. c MLENT2.LECT(IG1)=MLENT2.LECT(IG1-1)+MLENT2.LECT(IG1)
  24. c 1 CONTINUE
  25. c SEGDES MLENT2
  26.  
  27. SEGACT,MLENT1
  28. JG=MLENT1.LECT(/1)
  29. SEGINI,MLENT2
  30. MLENT2.LECT(1)=MLENT1.LECT(1)
  31. DO 1 IG1=2,JG
  32. MLENT2.LECT(IG1)=MLENT2.LECT(IG1-1)+MLENT1.LECT(IG1)
  33. 1 CONTINUE
  34. SEGDES,MLENT1,MLENT2
  35. C
  36. RETURN
  37. END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  

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