File: sumf.f

package info (click to toggle)
x13as 1.1-B39-2
  • links: PTS, VCS
  • area: non-free
  • in suites: bullseye
  • size: 8,700 kB
  • sloc: fortran: 110,641; makefile: 14
file content (15 lines) | stat: -rw-r--r-- 397 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
**==sumf.f    processed by SPAG 4.03F  at 09:54 on  1 Mar 1994
      DOUBLE PRECISION FUNCTION sumf(X,N1,N2)
      IMPLICIT NONE
C*** Start of declarations inserted by SPAG
      INTEGER i,N1,N2
      DOUBLE PRECISION X
C*** End of declarations inserted by SPAG
C     COMMON SUBROUTINE
      DIMENSION X(*)
      sumf=0D0
      DO i=N1,N2
       sumf=sumf+X(i)
      END DO
      RETURN
      END