Télécharger resule.eso

Retour à la liste

Numérotation des lignes :

  1. C RESULE SOURCE CHAT 05/01/13 02:54:45 5004
  2. SUBROUTINE RESULE(MLENT1,LENTI1)
  3. C====================================================================
  4. C
  5. C EFFECTUE LA SOMME DES VALEURS CONTENUES DANS UN LISTENTI
  6. C
  7. C ENTREE : MLENT1 POINTEUR SUR UN LISTENTI
  8. C SORTIE : LENTI1 ENTIER
  9. C
  10. C=====================================================================
  11. C
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8(A-H,O-Z)
  14. C
  15. -INC SMLENTI
  16. -INC CCOPTIO
  17. C
  18. SEGACT MLENT1
  19. LENTI1=0
  20. JG1=MLENT1.LECT(/1)
  21. DO 1 IG1=1,JG1
  22. LENTI1 = LENTI1 + MLENT1.LECT(IG1)
  23. 1 CONTINUE
  24. SEGDES MLENT1
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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