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