TABLE OF CONTENTS

::pwtk::dynmat

SYNOPSIS

proc ::pwtk::dynmat {dynmat} {

PURPOSE

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

RETURN VALUE

The value of the dynmat.

SOURCE

    variable QEprog

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