Télécharger d2vint.eso

Retour à la liste

Numérotation des lignes :

  1. C D2VINT SOURCE CHAT 05/01/12 22:35:30 5004
  2. C DEVINT SOURCE PLAF 90/05/03 21:11:36
  3. SUBROUTINE D2VINT(ICHATE,ICHAFO,KTNUM,KTRAV,REPRIS)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. *--------------------------------------------------------------------*
  7. * *
  8. * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
  9. * ________________________________________________ *
  10. * *
  11. * Interpolation d'un liste REEL. *
  12. * Remplissage du segment de travail KTRAV. *
  13. * *
  14. * Param}tres: *
  15. * *
  16. * e ICHATE pointeur sur un LISTREEL, abscisse *
  17. * e ICHAFO pointeur sur un LISTREEL, ordonn{e *
  18. * e KTNUM segment contenant les param}tres num{riques *
  19. * s KTRAV segment de travail *
  20. * e REPRIS logique indiquant si le calcul est en reprise *
  21. * *
  22. * Auteur, date de cr{ation: *
  23. * *
  24. * Lionel VIVAN, le 17 avril 1990 *
  25. * *
  26. *--------------------------------------------------------------------*
  27. *
  28. -INC CCOPTIO
  29. -INC SMLREEL
  30. *
  31. SEGMENT,MTNUM
  32. REAL*8 XDT(NPC1),XTEMPS(NPC1)
  33. ENDSEGMENT
  34. SEGMENT,MTRAV
  35. REAL*8 FTCHG(NPC1)
  36. ENDSEGMENT
  37. LOGICAL REPRIS
  38. *
  39. MTNUM = KTNUM
  40. *
  41. NPC1 = XDT(/1)
  42. PASTEM = XDT(1)
  43. MLREE1 = ICHATE
  44. SEGACT MLREE1
  45. NF = MLREE1.PROG(/1)
  46. MLREE2 = ICHAFO
  47. SEGACT MLREE2
  48. SEGINI MTRAV
  49. KTRAV = MTRAV
  50. *
  51. * interpolation du chargement
  52. *
  53. N1 = 1
  54. N2 = 2
  55.  
  56. DO 10 IT = 1,NPC1
  57. TEMP = XTEMPS(IT)
  58. CALL INTLIN(TEMP,ICHATE,ICHAFO,NF,N1,N2, FTEM,IRET)
  59. IF (IRET.EQ.0) THEN
  60. * temps en dehors de la liste
  61. CALL ERREUR(208)
  62. RETURN
  63. ENDIF
  64.  
  65. FTCHG(IT) = FTEM
  66.  
  67. 10 CONTINUE
  68.  
  69. *
  70. SEGDES,MLREE1,MLREE2
  71. *
  72. END
  73.  
  74.  
  75.  

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