V3FIT
BOOTSJ
Sources
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
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17