dbcsr_t_pgrid_create_expert Subroutine

public subroutine dbcsr_t_pgrid_create_expert(mp_comm, dims, pgrid, map1_2d, map2_2d, tensor_dims, nsplit, dimsplit)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: mp_comm
integer, intent(inout), DIMENSION(:) :: dims
type(dbcsr_t_pgrid_type), intent(out) :: pgrid
integer, intent(in), DIMENSION(:) :: map1_2d
integer, intent(in), DIMENSION(:) :: map2_2d
integer, intent(in), optional, DIMENSION(:) :: tensor_dims
integer, intent(in), optional :: nsplit
integer, intent(in), optional :: dimsplit

Source Code

   SUBROUTINE dbcsr_t_pgrid_create_expert(mp_comm, dims, pgrid, map1_2d, map2_2d, tensor_dims, nsplit, dimsplit)
      INTEGER, INTENT(IN) :: mp_comm
      INTEGER, DIMENSION(:), INTENT(INOUT) :: dims
      TYPE(dbcsr_t_pgrid_type), INTENT(OUT) :: pgrid
      INTEGER, DIMENSION(:), INTENT(IN) :: map1_2d, map2_2d
      INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: tensor_dims
      INTEGER, INTENT(IN), OPTIONAL :: nsplit, dimsplit

      TYPE(mp_comm_type)                                :: my_mp_comm

      CALL my_mp_comm%set_handle(mp_comm)

      CALL dbcsr_t_pgrid_create_expert_prv(my_mp_comm, dims, pgrid, map1_2d, map2_2d, tensor_dims, nsplit, dimsplit)

   END SUBROUTINE dbcsr_t_pgrid_create_expert