Télécharger adlisr.eso

Retour à la liste

Numérotation des lignes :

  1. C ADLISR SOURCE CHAT 05/01/12 21:18:31 5004
  2. SUBROUTINE ADLISR (LIST1,LIST2,MPOINT,NADDIT)
  3. C |-------------------------------------------------------------|
  4. C | ROUTINE D'ADDITION DE DEUX LISTES REELLES, QUI DOIVENT |
  5. C | ETRE DE MEME LONGUEUR |
  6. C | ENTREE : LIST1----------> POINTEUR DE LA PREMIERE LISTE |
  7. C | LIST2----------> POINTEUR DE LA SECONDE LISTE |
  8. C | NADDIT----------> ENTIER QUI INDIQUE SI L'ON |
  9. C | ADDITIONNE OU SI L'ON SOUSTRAIT|
  10. C | SORTIE |
  11. C | MPOINT---------> POINTEUR DE LA LISTE RESULTAT |
  12. C |-------------------------------------------------------------|
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. -INC CCOPTIO
  16. -INC SMLREEL
  17. MLREEL=LIST1
  18. MLREE1=LIST2
  19. SEGACT MLREEL
  20. SEGACT MLREE1
  21. IF (PROG(/1).EQ.MLREE1.PROG(/1))THEN
  22. JG=PROG(/1)
  23. SEGINI MLREE2
  24. IF (NADDIT.EQ.1) THEN
  25. DO 1 I=1,PROG(/1)
  26. MLREE2.PROG(I)=PROG(I)+MLREE1.PROG(I)
  27. 1 CONTINUE
  28. ELSE
  29. DO 2 I=1,PROG(/1)
  30. MLREE2.PROG(I)=PROG(I)-MLREE1.PROG(I)
  31. 2 CONTINUE
  32. ENDIF
  33. MPOINT=MLREE2
  34. SEGDES MLREE2
  35. ELSE
  36. MPOINT=0
  37. CALL ERREUR(217)
  38. ENDIF
  39. SEGDES MLREEL
  40. SEGDES MLREE1
  41. RETURN
  42. END
  43.  
  44.  

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