public interface diag
Functions
public pure module function diag_rank1(v) result(a)
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=fffc_real_kind),
|
intent(in) |
|
|
:: |
v(:) |
|
Return Value
real(kind=fffc_real_kind), (size(v),size(v))
public pure module function diag_rank2(a) result(v)
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=fffc_real_kind),
|
intent(in) |
|
|
:: |
a(:,:) |
|
Return Value
real(kind=fffc_real_kind), (min(size(a,1),size(a,2)))