sasumsub.f (1281B)
1 !> 2 ! @license Apache-2.0 3 ! 4 ! Copyright (c) 2018 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 `sasum` as a subroutine. 20 ! 21 ! @param {integer} N - number of values to sum 22 ! @param {Array<real>} sx - input array 23 ! @param {integer} stride - stride length 24 ! @param {real} sum - output variable reference 25 !< 26 subroutine sasumsub( N, sx, stride, sum ) 27 implicit none 28 ! .. 29 ! External functions: 30 interface 31 real function sasum( N, sx, stride ) 32 integer :: stride, N 33 real :: sx(*) 34 end function sasum 35 end interface 36 ! .. 37 ! Scalar arguments: 38 integer :: stride, N 39 real :: sum 40 ! .. 41 ! Array arguments: 42 real :: sx(*) 43 ! .. 44 ! Compute the sum of absolute values: 45 sum = sasum( N, sx, stride ) 46 return 47 end subroutine sasumsub