public interface rinv
m < n, 行满秩，使用 rinv
Functions
public module function rinv_real_kind(x) result(y)
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=fffc_real_kind),
|
intent(in) |
|
|
:: |
x(:,:) |
|
Return Value
real(kind=fffc_real_kind), (size(x,2),size(x,1))
public module function rinv_complex_kind(x) result(y)
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
complex(kind=fffc_complex_kind),
|
intent(in) |
|
|
:: |
x(:,:) |
|
Return Value
complex(kind=fffc_complex_kind), (size(x,2),size(x,1))