Changeset 6696 for branches/1.7/lang
- Timestamp:
- Apr 30, 2018, 3:00:15 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.7/lang/tcl/scripts/task.tcl
r6685 r6696 767 767 } 768 768 769 # Need to save job info? then invoke the callback 770 771 772 773 774 775 776 777 778 779 769 # job info is not required because jobprotocol = submit 770 # if { [string length $jobstats] > 0} { 771 # lappend args \ 772 # "job" [incr jobnum] \ 773 # "event" $simulation \ 774 # "start" $times(start) \ 775 # "walltime" $times(walltime) \ 776 # "cputime" $times(cputime) \ 777 # "status" $_job(exitcode) 778 # uplevel #0 $jobstats $args 779 # } 780 780 781 781 # … … 822 822 } 823 823 824 825 826 824 # if {[string length $jobstats] > 0} { 825 # uplevel #0 $jobstats $details 826 # } 827 827 828 828 incr subjobs
Note: See TracChangeset
for help on using the changeset viewer.