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