pwo.tcl

::pwtk::pwo::sortFiles

SYNOPSIS

proc ::pwtk::pwo::sortFiles {args} {

USAGE

    ::pwtk::pwo::sortFiles [-by energy|force|totmag|press|dipole|COMMAND] [-increasing|-decreasing]  filePattern  ?filePattern ...?

PURPOSE

Return a sorted list of pw.x output files according to the specified criterion.

OPTIONS

-by CRITERIA ... by which criterion to sort (possibilities are energy, force, press, dipole, or user supplied COMMAND; defualt = energy); COMMAND specified with the -by option must be of the form analogous to ::pwtk::pwo::totene
-increasing ... sort in increasing order
-decreasing ... sort in decreasing order

The user COMMAND command specified by the -by option must be of the form analogous to ::pwtk::pwo::totene

ARGUMENTS

filePattern ... a glob-style pattern for pw.x output files; it can also be a list of files

SOURCE

    set result {}
    foreach pwo_value [eval ::pwtk::pwo::listing $args] {
        lappend result [lindex $pwo_value 0]
    }
    return $result
}