公共接口 is_diagonal
检查矩阵（秩 2 数组）是否为对角矩阵（规范）
模块过程
私有纯函数 is_diagonal_rsp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_rdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_csp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_cdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_iint8(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int8), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_iint16(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int16), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_iint32(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int32), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_diagonal_iint64(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int64), | intent(in) | :: | A(:,:) |