dbcsr_win_create_any Subroutine

public subroutine dbcsr_win_create_any(base, comm, win)

Window initialization function of encapsulated data.

Arguments

Type IntentOptional Attributes Name
type(dbcsr_data_obj), intent(in) :: base
type(mp_comm_type), intent(in) :: comm
type(mp_win_type), intent(out) :: win

Source Code

   SUBROUTINE dbcsr_win_create_any(base, comm, win)
      !! Window initialization function of encapsulated data.
      TYPE(dbcsr_data_obj), INTENT(IN)                   :: base
      TYPE(mp_comm_type), INTENT(IN)                     :: comm
      TYPE(mp_win_type), INTENT(OUT)                     :: win

      SELECT CASE (dbcsr_data_get_type(base))
      CASE (dbcsr_type_real_4)
         CALL mp_win_create(base%d%r_sp, comm, win)
      CASE (dbcsr_type_real_8)
         CALL mp_win_create(base%d%r_dp, comm, win)
      CASE (dbcsr_type_complex_4)
         CALL mp_win_create(base%d%c_sp, comm, win)
      CASE (dbcsr_type_complex_8)
         CALL mp_win_create(base%d%c_dp, comm, win)
      CASE default
         DBCSR_ABORT("Incorrect data type")
      END SELECT
   END SUBROUTINE dbcsr_win_create_any