File: apply.f

package info (click to toggle)
x13as 1.1-b59-1
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm
  • size: 9,088 kB
  • sloc: fortran: 114,121; makefile: 14
file content (21 lines) | stat: -rw-r--r-- 531 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
**==apply.f    processed by SPAG 4.03F  at 09:46 on  1 Mar 1994
      DOUBLE PRECISION FUNCTION apply(X,K,W,N)
      IMPLICIT NONE
C*** Start of declarations inserted by SPAG
      DOUBLE PRECISION W,X
      INTEGER i,j,K,l,m,N
C*** End of declarations inserted by SPAG
C
C     THIS FUNCTION APPLIES SYMMETRIC WEIGHTS TO X(K)
C
      DIMENSION X(*),W(*)
      m=(N+1)/2
      apply=W(1)*X(K)
      DO i=2,m
       j=K-i+1
       l=K+i-1
       apply=apply+W(i)*(X(j)+X(l))
      END DO
      RETURN
      END