LAPACK  3.8.0
LAPACK: Linear Algebra PACKage
dasumsub.f
Go to the documentation of this file.
1 c dasumsun.f
2 c
3 c The program is a fortran wrapper for dasum..
4 c Witten by Keita Teranishi. 2/11/1998
5 c
6  subroutine dasumsub(n,x,incx,asum)
7 c
8  external dasum
9  double precision dasum,asum
10  integer n,incx
11  double precision x(*)
12 c
13  asum=dasum(n,x,incx)
14  return
15  end
double precision function dasum(N, DX, INCX)
DASUM
Definition: dasum.f:73
subroutine dasumsub(n, x, incx, asum)
Definition: dasumsub.f:7