Changeset 712 for trunk

Timestamp:

Dec 4, 2009 5:10:45 PM (13 years ago)

Author:

toby

Message:

# on 2003/05/24 20:55:52, toby did:
fix absorption correction bug

File:

• trunk/readexp.tcl (modified) (1 diff, 3 props)

trunk/readexp.tcl

@@ -1703 +1703 @@
             }
             abscor2-set {
-                if ![validreal value 15 7] {return 0}
-                setexp "${key}ABSCOR" $value 16 15
+                # can't use validreal as the decimal must be in col 20
+                if {[catch {
+                    if {abs($value) < 99.99 && abs($value) > 1.e-4} {
+                        set tmp [format "%15.10f" $value]
+                        # make a final check of decimal
+                        if {[string range $tmp 4 4] != "."} {
+                            set tmp [format "%15.6E" $value]
+                        }
+                    } else {
+                        set tmp [format "%15.6E" $value]
+                    }
+                }]} {return 0}
+                setexp "${key}ABSCOR" $tmp 16 15
             }
             abstype-get {