proc listFiles {} {
	    puts "\nFiles:"
	    foreach file [lsort [glob -nocomplain *]] {
		if {[catch {file mtime $file} T]} {
		    set T "--- -- --:--:--"
		} else {
		    set T [clock format $T -format "%b %d %T"]
		}
		puts [format "%15d %s %s" [file size $file] $T $file]
	    }
	    puts ""
	}
    	set jobId 1011
	package require BoltzTraP 1.0
	package require JobServer
	::JobServer::getFile 1011 "EIGENVAL" EIGENVAL
	::JobServer::getFile 1011 CONTCAR POSCAR

	if {[catch {
	    listFiles
	    puts "Starting BoltzTraP calculation"
	    ::BoltzTraP::execute -out BoltzTraP.out
	    after 100
	    puts "Finished BoltzTraP!"
	    listFiles
	} msg]} {
		puts "Error executing BoltzTraP: $msg\n\n$::errorInfo"
		global errorInfo
		puts ""
		puts $errorInfo
		return
	}