public interface is_triangular
检查矩阵（秩 2 数组）是否为三角形 (规范)
模块过程
private function is_triangular_rsp(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=sp), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_rdp(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_csp(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=sp), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_cdp(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=dp), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_iint8(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int8), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_iint16(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int16), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_iint32(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int32), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |
返回值 逻辑
private function is_triangular_iint64(A, uplo) result(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int64), | intent(in) | :: | A(:,:) | |||
| character(len=1), | intent(in) | :: | uplo |