diff options
Diffstat (limited to 'ml/dlib/dlib/external/cblas/dzasumsub.f')
-rw-r--r-- | ml/dlib/dlib/external/cblas/dzasumsub.f | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ml/dlib/dlib/external/cblas/dzasumsub.f b/ml/dlib/dlib/external/cblas/dzasumsub.f new file mode 100644 index 000000000..9aaf16387 --- /dev/null +++ b/ml/dlib/dlib/external/cblas/dzasumsub.f @@ -0,0 +1,15 @@ +c dzasumsub.f +c +c The program is a fortran wrapper for dzasum. +c Witten by Keita Teranishi. 2/11/1998 +c + subroutine dzasumsub(n,x,incx,asum) +c + external dzasum + double precision dzasum,asum + integer n,incx + double complex x(*) +c + asum=dzasum(n,x,incx) + return + end |