diff options
Diffstat (limited to 'ml/dlib/dlib/external/cblas/dasumsub.f')
| -rw-r--r-- | ml/dlib/dlib/external/cblas/dasumsub.f | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ml/dlib/dlib/external/cblas/dasumsub.f b/ml/dlib/dlib/external/cblas/dasumsub.f new file mode 100644 index 000000000..3d64d17e6 --- /dev/null +++ b/ml/dlib/dlib/external/cblas/dasumsub.f @@ -0,0 +1,15 @@ +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 |