public interface larra
Compute the splitting points with threshold SPLTOL.
LARRA sets any "small" off-diagonal elements to zero.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
e(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
e2(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
spltol |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
tnrm |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
nsplit |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
isplit(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
e(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
e2(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
spltol |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
tnrm |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
nsplit |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
isplit(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures
