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
```