LAPACK  3.6.0
LAPACK: Linear Algebra PACKage

§ snrm2sub()

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