TABLE OF CONTENTS

::pwtk::hp

SYNOPSIS

proc ::pwtk::hp {hp} {

PURPOSE

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

RETURN VALUE

The value of the hp.

SOURCE

    variable QEprog

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