freeMemory Subroutine

    subroutine freeMemory(this)
        implicit none
        class(kMat_t) :: this

        if (associated(this%kMat_p)) call shared_deallocate_mpi(this%shm_win, this%kMat_p)
    end subroutine freeMemory