Télécharger hannin.eso

Retour à la liste

Numérotation des lignes :

  1. C HANNIN SOURCE CHAT 05/01/13 00:23:08 5004
  2. SUBROUTINE HANNIN(NH,XX,NPOINT,YY)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION XX(*),YY(*)
  6. C
  7. C=======================================================================
  8. C = APPLICATION DE HANNINGS =
  9. C = =
  10. C = NH ........ NUMERO D'HANNINGS =
  11. C = =
  12. C = XX ........ VALEURS INITIALES =
  13. C = =
  14. C = NPOINT ... NUMERO DE POINTS =
  15. C = =
  16. C = YY ........ VALEURS FINALES =
  17. C = =
  18. C = CREACTION : 90/02/22 =
  19. C = PROGRAMMEUR : PEGON, P. et PINTO, A. CCR/ISPRA =
  20. C=======================================================================
  21. C
  22. DO 10 I=1,NH
  23. YY(1)=0.75D0*XX(1)+0.25D0*XX(2)
  24. YY(NPOINT)=0.75D0*XX(NPOINT)+0.25D0*XX(NPOINT-1)
  25. DO 20 J=2,NPOINT-1
  26. YY(J)=0.25D0*XX(J-1)+0.5D0*XX(J)+0.25D0*XX(J+1)
  27. 20 CONTINUE
  28. DO 30 J=1,NPOINT
  29. XX(J)=YY(J)
  30. 30 CONTINUE
  31. 10 CONTINUE
  32. RETURN
  33. END
  34.  
  35.  

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