snrm2sub.f (1294B)
1 !> 2 ! @license Apache-2.0 3 ! 4 ! Copyright (c) 2020 The Stdlib Authors. 5 ! 6 ! Licensed under the Apache License, Version 2.0 (the "License"); 7 ! you may not use this file except in compliance with the License. 8 ! You may obtain a copy of the License at 9 ! 10 ! http://www.apache.org/licenses/LICENSE-2.0 11 ! 12 ! Unless required by applicable law or agreed to in writing, software 13 ! distributed under the License is distributed on an "AS IS" BASIS, 14 ! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 15 ! See the License for the specific language governing permissions and 16 ! limitations under the License. 17 !< 18 19 !> Wraps `snrm2` as a subroutine. 20 ! 21 ! @param {integer} N - number of values over which to compute the norm 22 ! @param {Array<real>} sx - input array 23 ! @param {integer} stride - stride length 24 ! @param {real} nrm2 - output variable reference 25 !< 26 subroutine snrm2sub( N, sx, stride, nrm2 ) 27 implicit none 28 ! .. 29 ! External functions: 30 interface 31 real function snrm2( N, sx, stride ) 32 integer :: stride, N 33 real :: sx(*) 34 end function snrm2 35 end interface 36 ! .. 37 ! Scalar arguments: 38 integer :: stride, N 39 real :: nrm2 40 ! .. 41 ! Array arguments: 42 real :: sx(*) 43 ! .. 44 ! Compute the L2-norm: 45 nrm2 = snrm2( N, sx, stride ) 46 return 47 end subroutine snrm2sub