v0.9.0
Functions/Subroutines
snrm2sub.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine snrm2sub (n, x, incx, nrm2)
 

Function/Subroutine Documentation

◆ snrm2sub()

subroutine snrm2sub ( integer  n,
real, dimension(*)  x,
integer  incx,
real  nrm2 
)

Definition at line 7 of file snrm2sub.f.

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