Télécharger la plaquette Cast3M


fr en

Télécharger cumule.eso

Retour à la liste

Numérotation des lignes : 

cumule

  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