TABLE OF CONTENTS
::pwtk::pwi::getXSFPrimVec
SYNOPSIS
proc ::pwtk::pwi::getXSFPrimVec {} {
DESCRIPTION
Return the XSF's PRIMVEC data from the current pw.x input data, e.g.:
PRIMVEC ax ay az bx by bz cx cy cz
SOURCE
set xsf [split [::pwtk::pwi::getXSF] \n] set ind [lsearch $xsf *PRIMVEC*] return [join [lrange $xsf $ind [expr {$ind + 3}]] \n] }