公共接口 is_square
检查矩阵（秩为 2 的数组）是否为方阵 (规范)
模块过程
私有纯函数 is_square_rsp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_rdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_csp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=sp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_cdp(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| complex(kind=dp), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_iint8(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int8), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_iint16(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int16), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_iint32(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int32), | intent(in) | :: | A(:,:) |
返回值 逻辑型
私有纯函数 is_square_iint64(A) 结果(res)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| integer(kind=int64), | intent(in) | :: | A(:,:) |