TABLE OF CONTENTS

::pwtk::ph

SYNOPSIS

proc ::pwtk::ph {ph} {

PURPOSE

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

RETURN VALUE

The value of the ph.

SOURCE

    variable QEprog

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