pwtk.tcl

::pwtk::prefix

::pwtk::prefix

SYNOPSIS

proc ::pwtk::prefix {args} {

PURPOSE

Set or query the prefix for the parallel execution of programs. In parallel mode programs are run as:

     $prefix program.x $postfix

An example would be: mpirun -n 8 program.x -npool 2

USAGE

   Set mode:

     ::pwtk::prefix value

   Query mode:

     ::pwtk::prefix

RETURN VALUE

The value of the prefix.

SOURCE

    variable RUNopt

    if { [llength $args] == 0 } {
        return [expr { [info exists RUNopt(PREFIX)] ? $RUNopt(PREFIX) : {} }]
    } elseif { [llength $args] == 1 } {
        eval set RUNopt(PREFIX) $args
    } else {
        set RUNopt(PREFIX) $args
    }
    return $RUNopt(PREFIX)
}

TABLE OF CONTENTS

::pwtk::prefix