V3FIT
sumit.f
1  FUNCTION sumit (f, mbuse, nbuse)
2 C-----------------------------------------------
3 C M o d u l e s
4 C-----------------------------------------------
5  USE stel_kinds
6  IMPLICIT NONE
7 C-----------------------------------------------
8 C D u m m y A r g u m e n t s
9 C-----------------------------------------------
10  INTEGER mbuse, nbuse
11  REAL(rprec), DIMENSION(-mbuse:mbuse,0:nbuse) :: f
12 C-----------------------------------------------
13 C L o c a l V a r i a b l e s
14 C-----------------------------------------------
15  INTEGER :: m
16  REAL(rprec) :: sumit
17 C-----------------------------------------------
18 c-
19 c specific SUM of terms in f(i,j) table
20 c-
21 c
22  sumit = 0
23  DO m = -mbuse, mbuse
24  sumit = sumit + sum(f(m,1:nbuse))
25  END DO
26  sumit = 2*sumit
27  sumit = sumit + sum(f(-mbuse:mbuse,0))
28  sumit = sumit - f(0,0)
29 
30  END FUNCTION sumit