Changeset 287 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:03:32 PM (13 years ago)
Author:
toby
Message:

# on 2000/10/02 16:50:47, toby did:
* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/readexp.tcl

    • Property rcs:date changed from 2000/08/17 23:44:52 to 2000/10/02 16:50:47
    • Property rcs:lines changed from +1 -1 to +4 -4
    • Property rcs:rev changed from 1.21 to 1.22
    r265 r287  
    252252    # FORTRAN type assumption: blank is 0
    253253    if {$value == ""} {set value 0}
    254     set tmp [expr round($value)]
    255     if {$tmp != $value} {return 0}
    256254    if [catch {
     255        set tmp [expr round($value)]
     256        if {$tmp != $value} {return 0}
    257257        set value [format "%${length}d" $tmp]
    258258    }] {return 0}
Note: See TracChangeset for help on using the changeset viewer.