TABLE OF CONTENTS


::pwtk::queue::runPROJWFC

SYNOPSIS

proc ::pwtk::queue::runPROJWFC {queueSystem head} {

PURPOSE

Run the projwfc.x program via queueSystem.

ARGUMENTS

SOURCE

    variable scriptBody

    set head [::pwtk::headname $head {.pr.in .pr.inp .in .inp}]
    set ihandle [::pwtk::input_handle]

    ::pwtk::pri_fprint $head.pr.in
    set script_ {
\$PREFIX \$PROJWFC \$POSTFIX $ihandle $head.pr.in > $head.pr.out
    }
    append scriptBody($queueSystem) "[subst -nocommands $script_]\n"
}