Changeset 1215 for branches/sandbox/readexp.tcl
- Timestamp:
- Aug 19, 2012 8:40:46 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/readexp.tcl
r1213 r1215 3738 3738 incr j 3739 3739 set n [expr {($j + 2)/3}] 3740 if {$n > 99} break 3740 3741 validint n 2 3741 3742 foreach {phase atom mult} $term {}
Note: See TracChangeset
for help on using the changeset viewer.