Transposes a multiprocessor environment
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mp_obj), | intent(out) | :: | mp_t |
transposed multiprocessor environment |
||
type(dbcsr_mp_obj), | intent(in) | :: | mp |
original multiprocessor environment |
SUBROUTINE dbcsr_mp_new_transposed(mp_t, mp)
!! Transposes a multiprocessor environment
TYPE(dbcsr_mp_obj), INTENT(OUT) :: mp_t
!! transposed multiprocessor environment
TYPE(dbcsr_mp_obj), INTENT(IN) :: mp
!! original multiprocessor environment
CALL dbcsr_mp_new(mp_t, dbcsr_mp_group(mp), &
TRANSPOSE(dbcsr_mp_pgrid(mp)), &
dbcsr_mp_mynode(mp), dbcsr_mp_numnodes(mp), &
dbcsr_mp_mypcol(mp), dbcsr_mp_myprow(mp))
END SUBROUTINE dbcsr_mp_new_transposed