Changeset 559

Timestamp:

Dec 4, 2009 5:08:12 PM (13 years ago)

Author:

toby

Message:

# on 2002/01/25 21:30:39, toby did:
more absorption correction terms

File:

• trunk/readexp.tcl (modified) (2 diffs, 3 props)

trunk/readexp.tcl

@@ -1187 +1187 @@
 #     dpoints -- dummy histogram number of points (*)
 #     dtype   -- dummy histogram type (CONST or SLOG)
-#     abscor1 -- 1st absorption correction
-#     abscor2 -- 2nd absorption correction
-#     abstype -- absorption correction type
+#     abscor1 -- 1st absorption correction (*)
+#     abscor2 -- 2nd absorption correction (*)
+#     abstype -- absorption correction type (*)
+#     absdamp -- damping for absorption refinement (*)
+#     absref -- refinement damping for absorption refinement (*)
 #   parameters transferred from the instrument parameter file:
 #     ITYP    -- returns the contents of the ITYP record
@@ -1608 +1610 @@
                 return [string trim [string range [readexp "${key}ABSCOR"] 0 14]]
             }
+            abscor1-set {
+                if ![validreal value 15 8] {return 0}
+                setexp "${key}ABSCOR" $value 1 15
+            }
             abscor2-get {
                 return [string trim [string range [readexp "${key}ABSCOR"] 15 29]]
             }
+            abscor2-set {
+                if ![validreal value 15 8] {return 0}
+                setexp "${key}ABSCOR" $value 16 15
+            }
             abstype-get {
                 return [string trim [string range [readexp "${key}ABSCOR"] 40 44]]
+            }
+            abstype-set {
+                if ![validint value 5] {return 0}
+                setexp "${key}ABSCOR" $value 41 5
+            }
+            absdamp-get {
+                set val [string range [readexp "${key}ABSCOR"] 39 39]
+                if {$val == " "} {return 0}
+                return $val
+            }
+            absdamp-set {
+                setexp "${key}ABSCOR" $value 40 1
+            }
+            absref-get {
+                if {[string toupper \
+                        [string range [readexp "${key}ABSCOR"] 34 34]] == "Y"} {
+                    return 1
+                }
+                return 0
+            }
+            absref-set {
+                if $value {
+                    setexp "${key}ABSCOR" "Y" 35 1
+                } else {
+                    setexp "${key}ABSCOR" "N" 35 1
+                }
             }
             ITYP-get {