Changeset 559


Ignore:
Timestamp:
Dec 4, 2009 5:08:12 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2002/01/22 23:02:55 to 2002/01/25 21:30:39
    • Property rcs:lines changed from +240 -15 to +39 -3
    • Property rcs:rev changed from 1.34 to 1.35
    r544 r559  
    11871187#     dpoints -- dummy histogram number of points (*)
    11881188#     dtype   -- dummy histogram type (CONST or SLOG)
    1189 #     abscor1 -- 1st absorption correction
    1190 #     abscor2 -- 2nd absorption correction
    1191 #     abstype -- absorption correction type
     1189#     abscor1 -- 1st absorption correction (*)
     1190#     abscor2 -- 2nd absorption correction (*)
     1191#     abstype -- absorption correction type (*)
     1192#     absdamp -- damping for absorption refinement (*)
     1193#     absref -- refinement damping for absorption refinement (*)
    11921194#   parameters transferred from the instrument parameter file:
    11931195#     ITYP    -- returns the contents of the ITYP record
     
    16081610                return [string trim [string range [readexp "${key}ABSCOR"] 0 14]]
    16091611            }
     1612            abscor1-set {
     1613                if ![validreal value 15 8] {return 0}
     1614                setexp "${key}ABSCOR" $value 1 15
     1615            }
    16101616            abscor2-get {
    16111617                return [string trim [string range [readexp "${key}ABSCOR"] 15 29]]
    16121618            }
     1619            abscor2-set {
     1620                if ![validreal value 15 8] {return 0}
     1621                setexp "${key}ABSCOR" $value 16 15
     1622            }
    16131623            abstype-get {
    16141624                return [string trim [string range [readexp "${key}ABSCOR"] 40 44]]
     1625            }
     1626            abstype-set {
     1627                if ![validint value 5] {return 0}
     1628                setexp "${key}ABSCOR" $value 41 5
     1629            }
     1630            absdamp-get {
     1631                set val [string range [readexp "${key}ABSCOR"] 39 39]
     1632                if {$val == " "} {return 0}
     1633                return $val
     1634            }
     1635            absdamp-set {
     1636                setexp "${key}ABSCOR" $value 40 1
     1637            }
     1638            absref-get {
     1639                if {[string toupper \
     1640                        [string range [readexp "${key}ABSCOR"] 34 34]] == "Y"} {
     1641                    return 1
     1642                }
     1643                return 0
     1644            }
     1645            absref-set {
     1646                if $value {
     1647                    setexp "${key}ABSCOR" "Y" 35 1
     1648                } else {
     1649                    setexp "${key}ABSCOR" "N" 35 1
     1650                }
    16151651            }
    16161652            ITYP-get {
Note: See TracChangeset for help on using the changeset viewer.