公共接口 is_symmetric
检查矩阵（秩 2 数组）是否对称 (规范)
模块过程
私有纯函数 is_symmetric_rsp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_rdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_csp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_cdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_iint8(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int8), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_iint16(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int16), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_iint32(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int32), | intent(in) | :: | A(:,:) |
返回值 逻辑
私有纯函数 is_symmetric_iint64(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int64), | intent(in) | :: | A(:,:) |