Determines whether a transpose must be applied
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | row |
The absolute matrix row. The absolute matrix column. |
||
integer, | intent(in) | :: | column |
The absolute matrix row. The absolute matrix column. |
ELEMENTAL FUNCTION checker_tr(row, column) RESULT(transpose)
!! Determines whether a transpose must be applied
INTEGER, INTENT(IN) :: row, column
!! The absolute matrix row.
!! The absolute matrix column.
LOGICAL :: transpose
transpose = BTEST(column + row, 0) .EQV. column .GE. row
END FUNCTION checker_tr