TABLE OF CONTENTS

::pwtk::projwfc

SYNOPSIS

proc ::pwtk::projwfc {projwfc} {

PURPOSE

Explicitly set the full pathname/filename for projwfc.x executable (i.e. /full/path/to/projwfc.x).

RETURN VALUE

The value of the projwfc.

SOURCE

    variable QEprog

    if { ! [file executable $projwfc] } {
        ::pwtk::error "specified projwfc.x program \"$projwfc\" is not executable."
    }
    return [set QEprog(PROJWFC) $projwfc]
}