TABLE OF CONTENTS
::pwtk::dryrunFailed
SYNOPSIS
proc ::pwtk::dryrunFailed {outputFile prog} {
PURPOSE
Check if dryrun failed.
ARGUMENTS
- outputFile --- dryrun's output file
- prog --- QE program (pw.x, cp.x, neb.x)
RETURN VALUE
- 1 -- if error is found
- 0 otherwise
SOURCE
variable error checkForError $outputFile $prog 0 1 if { $error(type) eq {} || $error(type) eq "soft exit" } { return 0 } return 1 }