dbcsr_t_nd_mp_comm Function

public function dbcsr_t_nd_mp_comm(comm_2d, map1_2d, map2_2d, dims_nd, dims1_nd, dims2_nd, pdims_2d, tdims, nsplit, dimsplit)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: comm_2d
integer, intent(in), DIMENSION(:) :: map1_2d
integer, intent(in), DIMENSION(:) :: map2_2d
integer, intent(in), optional, DIMENSION(SIZE(map1_2d) + SIZE(map2_2d)) :: dims_nd
integer, intent(in), optional, DIMENSION(SIZE(map1_2d)) :: dims1_nd
integer, intent(in), optional, DIMENSION(SIZE(map2_2d)) :: dims2_nd
integer, intent(in), optional, DIMENSION(2) :: pdims_2d
integer, intent(in), optional, DIMENSION(SIZE(map1_2d) + SIZE(map2_2d)) :: tdims
integer, intent(in), optional :: nsplit
integer, intent(in), optional :: dimsplit

Return Value type(dbcsr_t_pgrid_type)


Source Code

   FUNCTION dbcsr_t_nd_mp_comm(comm_2d, map1_2d, map2_2d, dims_nd, dims1_nd, dims2_nd, pdims_2d, tdims, &
                               nsplit, dimsplit)
      INTEGER, INTENT(IN)                               :: comm_2d
      INTEGER, DIMENSION(:), INTENT(IN)                 :: map1_2d, map2_2d
      INTEGER, DIMENSION(SIZE(map1_2d) + SIZE(map2_2d)), &
         INTENT(IN), OPTIONAL                           :: dims_nd
      INTEGER, DIMENSION(SIZE(map1_2d)), INTENT(IN), OPTIONAL :: dims1_nd
      INTEGER, DIMENSION(SIZE(map2_2d)), INTENT(IN), OPTIONAL :: dims2_nd
      INTEGER, DIMENSION(2), INTENT(IN), OPTIONAL           :: pdims_2d
      INTEGER, DIMENSION(SIZE(map1_2d) + SIZE(map2_2d)), &
         INTENT(IN), OPTIONAL                           :: tdims
      INTEGER, INTENT(IN), OPTIONAL :: nsplit, dimsplit
      TYPE(dbcsr_t_pgrid_type)                          :: dbcsr_t_nd_mp_comm

      TYPE(mp_comm_type)                                :: my_comm_2d

      CALL my_comm_2d%set_handle(comm_2d)

      dbcsr_t_nd_mp_comm = dbcsr_t_nd_mp_comm_prv(my_comm_2d, map1_2d, map2_2d, &
                                                  dims_nd, dims1_nd, dims2_nd, pdims_2d, tdims, &
                                                  nsplit, dimsplit)

   END FUNCTION dbcsr_t_nd_mp_comm