dnrm2sub.f File Reference

Go to the source code of this file.


subroutine dnrm2sub (n, x, incx, nrm2)

Function/Subroutine Documentation

◆ dnrm2sub()

subroutine dnrm2sub ( integer  n,
double precision, dimension(*)  x,
integer  incx,
double precision  nrm2 

Definition at line 7 of file dnrm2sub.f.

7 c
8  external dnrm2
9  double precision dnrm2,nrm2
10  integer n,incx
11  double precision x(*)
12 c
13  nrm2=dnrm2(n,x,incx)
14  return