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