dbcsr_mp_grid_remove Subroutine

public subroutine dbcsr_mp_grid_remove(mp_env)

Removes an MPI cartesian process grid

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(inout) :: mp_env

multiprocessor environment


Contents

Source Code


Source Code

   SUBROUTINE dbcsr_mp_grid_remove(mp_env)
      !! Removes an MPI cartesian process grid

      TYPE(dbcsr_mp_obj), INTENT(INOUT)                  :: mp_env
         !! multiprocessor environment

      IF (mp_env%mp%subgroups_defined) THEN
         CALL mp_comm_free(mp_env%mp%prow_group)
         CALL mp_comm_free(mp_env%mp%pcol_group)
      END IF
   END SUBROUTINE dbcsr_mp_grid_remove