TABLE OF CONTENTS

::pwtk::q2r

SYNOPSIS

proc ::pwtk::q2r {q2r} {

PURPOSE

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

RETURN VALUE

The value of the q2r.

SOURCE

    variable QEprog

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