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]
}