pwo.tcl

::pwtk::pwo::ibrav

SYNOPSIS

proc ::pwtk::pwo::ibrav {pwo {index end}} {

PURPOSE

Get the "ibrav" value from the pw.x output file.

ARGUMENTS

pwo -- pw.x output file
index -- for concatenated pw.x output file, which ibrav to return (first = 0, last = end)

SOURCE

    return [::pwtk::grep_field {bravais-lattice index     =} $pwo end $index]
}