srscl3
Part of srscl.f(3).
Usage
Functions/Subroutines
subroutine srscl (n, sa, sx, incx)
SRSCL multiplies a vector by the reciprocal of a real scalar.
Function/Subroutine Documentation
subroutine srscl (integer n, real sa, real, dimension( * ) sx, integer incx)
SRSCL multiplies a vector by the reciprocal of a real scalar.
Purpose:
!> !> SRSCL multiplies an n-element real vector x by the real scalar 1/a. !> This is done without overflow or underflow as long as !> the final result x/a does not overflow or underflow. !>
Parameters
N
!> N is INTEGER !> The number of components of the vector x. !>
SA
!> SA is REAL !> The scalar a which is used to divide each component of x. !> SA must be >= 0, or the subroutine will divide by zero. !>
SX
!> SX is REAL array, dimension !> (1+(N-1)*abs(INCX)) !> The n-element vector x. !>
INCX
!> INCX is INTEGER !> The increment between successive values of the vector SX. !> > 0: SX(1) = X(1) and SX(1+(i-1)*INCX) = x(i), 1< i<= n !>
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Definition at line 83 of file srscl.f.
Releases
14 releases since Debian 1.3 (Bo); the text changed 10 times.