Sources Esope | Cast3M

hannin
C HANNIN    SOURCE    CHAT      05/01/13    00:23:08     5004
        SUBROUTINE HANNIN(NH,XX,NPOINT,YY)
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)
        DIMENSION XX(*),YY(*)
C
C=======================================================================
C  =    APPLICATION DE HANNINGS                                       =
C  =                                                                  =
C  =      NH ........ NUMERO D'HANNINGS                               =
C  =                                                                  =
C  =      XX ........ VALEURS INITIALES                               =
C  =                                                                  =
C  =      NPOINT ... NUMERO DE POINTS                                =
C  =                                                                  =
C  =      YY ........ VALEURS FINALES                                 =
C  =                                                                  =
C  =    CREACTION      : 90/02/22                                     =
C  =    PROGRAMMEUR    : PEGON, P. et PINTO, A.    CCR/ISPRA          =
C=======================================================================
C
        DO 10 I=1,NH
        YY(1)=0.75D0*XX(1)+0.25D0*XX(2)
        YY(NPOINT)=0.75D0*XX(NPOINT)+0.25D0*XX(NPOINT-1)
        DO 20 J=2,NPOINT-1
        YY(J)=0.25D0*XX(J-1)+0.5D0*XX(J)+0.25D0*XX(J+1)
20      CONTINUE
        DO 30 J=1,NPOINT
        XX(J)=YY(J)
30      CONTINUE
10      CONTINUE
        RETURN
        END