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