You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
315 B
16 lines
315 B
2 years ago
|
c dasumsun.f
|
||
|
|
c
|
||
|
|
c The program is a fortran wrapper for dasum..
|
||
|
|
c Witten by Keita Teranishi. 2/11/1998
|
||
|
|
c
|
||
|
|
subroutine dasumsub(n,x,incx,asum)
|
||
|
|
c
|
||
|
|
external dasum
|
||
|
|
double precision dasum,asum
|
||
|
|
integer n,incx
|
||
|
|
double precision x(*)
|
||
|
|
c
|
||
|
|
asum=dasum(n,x,incx)
|
||
|
|
return
|
||
|
|
end
|