dasumsub.f (flens/lapack/interface/ref

 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