Télécharger adlise.eso

Retour à la liste

Numérotation des lignes :

  1. C ADLISE SOURCE CHAT 05/01/12 21:18:26 5004
  2. SUBROUTINE ADLISE (LIST1,LIST2,MPOINT,NADDIT)
  3. C |-------------------------------------------------------------|
  4. C | ROUTINE D'ADDITION DE DEUX LISTES ENTIERES, 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 SMLENTI
  17. MLENTI=LIST1
  18. MLENT1=LIST2
  19. SEGACT MLENTI
  20. SEGACT MLENT1
  21. IF (LECT(/1).EQ.MLENT1.LECT(/1))THEN
  22. JG=LECT(/1)
  23. SEGINI MLENT2
  24. IF (NADDIT.EQ.1) THEN
  25. DO 1 I=1,LECT(/1)
  26. MLENT2.LECT(I)=LECT(I)+MLENT1.LECT(I)
  27. 1 CONTINUE
  28. ELSE
  29. DO 2 I=1,LECT(/1)
  30. MLENT2.LECT(I)=LECT(I)-MLENT1.LECT(I)
  31. 2 CONTINUE
  32. ENDIF
  33. MPOINT=MLENT2
  34. SEGDES MLENT2
  35. ELSE
  36. MPOINT=0
  37. CALL ERREUR(217)
  38. ENDIF
  39. SEGDES MLENTI
  40. SEGDES MLENT1
  41. RETURN
  42. END
  43.  
  44.  

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