Determines whether a transpose must be applied
Source This function is copied from dbcsr_dist_operations for speed reasons.
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 my_checker_tr(row, column) RESULT(transpose) !! Determines whether a transpose must be applied !! !! Source !! This function is copied from dbcsr_dist_operations for speed reasons. 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 my_checker_tr