Esope source files

   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 :