setupKMat Subroutine

    subroutine setupKMat(this)
        implicit none
        class(kMat_t) :: this
        character(*), parameter :: t_r = "setupKMat"

        this%kMatSize = determineKMatSize()
        call shared_allocate_mpi(this%shm_win, this%kMat_p, (/this%kMatSize/))
        this%kMat_p = 0.0_dp
    end subroutine setupKMat