Télécharger inter1.eso

Retour à la liste

Numérotation des lignes :

  1. C INTER1 SOURCE CHAT 05/01/13 00:40:14 5004
  2. SUBROUTINE INTER1(KTE,KTF,T0,FT0)
  3. C
  4. C =========================================================
  5. C = INTERPOLATION LINEAIRE =
  6. C = KTE : POINTEUR SUR OBJET DE TYPE LISTREEL DE T =
  7. C = KTF : POINTEUR SUR OBJET DE TYPE LISTREEL DE F(T)
  8. C dans le cas ou T0 est externe à l'intervale on le prend
  9. C égal à la valeur la plus proche
  10. C KTE est supposé rangé en ordre monotone croissant
  11. C =========================================================
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. -INC SMLREEL
  16. MLREEL=KTE
  17. SEGACT MLREEL
  18. LON=PROG(/1)
  19. MLREE1=KTF
  20. SEGACT MLREE1
  21. C on appele INTER2 qui fait deja la meme chose
  22. CALL INTER2( T0,KTE,KTF,LON,FT0,IRET)
  23. SEGDES MLREE1,MLREEL
  24. RETURN
  25. END
  26.  
  27.  
  28.  

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