Commit a77d16bc authored by sbinnie's avatar sbinnie

Fixed check_pw.tcl for the case of EXX calculations.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent bc4eaade
......@@ -104,6 +104,18 @@ global lc_pos
}
#puts $bands_ref_raw
set lc_pos [regexp -nocase -all -line -inline -indices {End of self-consistent calculation} $bands_ref_raw]
set lc_pos [lindex [lindex $lc_pos end] 1]
set bands_ref_raw [regexp -inline -start $lc_pos {.*} $bands_ref_raw]
#puts $bands_ref_raw
set lc_pos [regexp -nocase -all -line -inline -indices {End of self-consistent calculation} $bands_out_raw]
set lc_pos [lindex [lindex $lc_pos end] 1]
set bands_out_raw [regexp -inline -start $lc_pos {.*} $bands_out_raw]
#puts $bands_out_raw
foreach {lc_pos} [regexp -all -line -inline -indices {k =} $bands_out_raw] {
set lc_pos [lindex [split $lc_pos] 1]
#puts $lc_pos
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment