init_basis_vecs Subroutine

    subroutine init_basis_vecs(this)
        class(lattice) :: this
        character(*), parameter :: this_routine = "init_basis_vecs"

        unused_var(this)
        ! K.G. 25.11.2019: Why is this a runtime check? Should be done compile-time
        call stop_all(this_routine, "this routine should always be deferred!")

    end subroutine init_basis_vecs