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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC SMLREEL
  19. MLREEL=LIST1
  20. MLREE1=LIST2
  21. SEGACT MLREEL
  22. SEGACT MLREE1
  23. IF (PROG(/1).EQ.MLREE1.PROG(/1))THEN
  24. JG=PROG(/1)
  25. SEGINI MLREE2
  26. IF (NADDIT.EQ.1) THEN
  27. DO 1 I=1,PROG(/1)
  28. MLREE2.PROG(I)=PROG(I)+MLREE1.PROG(I)
  29. 1 CONTINUE
  30. ELSE
  31. DO 2 I=1,PROG(/1)
  32. MLREE2.PROG(I)=PROG(I)-MLREE1.PROG(I)
  33. 2 CONTINUE
  34. ENDIF
  35. MPOINT=MLREE2
  36. SEGDES MLREE2
  37. ELSE
  38. MPOINT=0
  39. CALL ERREUR(217)
  40. ENDIF
  41. SEGDES MLREEL
  42. SEGDES MLREE1
  43. RETURN
  44. END
  45.  
  46.  

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