Transposes a distribution
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_distribution_obj), | intent(out) | :: | dist_tr |
transposed distribution |
||
type(dbcsr_distribution_obj), | intent(in) | :: | dist_normal |
current distribution |
SUBROUTINE dbcsr_transpose_distribution(dist_tr, dist_normal)
!! Transposes a distribution
TYPE(dbcsr_distribution_obj), INTENT(OUT) :: dist_tr
!! transposed distribution
TYPE(dbcsr_distribution_obj), INTENT(IN) :: dist_normal
!! current distribution
TYPE(dbcsr_mp_obj) :: mp_env_tr
! ---------------------------------------------------------------------------
CALL dbcsr_mp_new_transposed(mp_env_tr, dbcsr_distribution_mp( &
dist_normal))
CALL dbcsr_distribution_new(dist_tr, mp_env_tr, &
dist_normal%d%col_dist_block, &
dist_normal%d%row_dist_block, &
dist_normal%d%local_cols, &
dist_normal%d%local_rows)
CALL dbcsr_mp_release(mp_env_tr)
END SUBROUTINE dbcsr_transpose_distribution