public interface rscl
RSCL 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.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
sa |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
sx(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
incx |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
sa |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
sx(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
incx |
|
Module Procedures