Changeset 992 for trunk/readexp.tcl


Ignore:
Timestamp:
Jul 29, 2010 10:07:52 AM (10 years ago)
Author:
toby
Message:

changes for POWGEN: profile #<0; use data limits from prm file for TOF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    r930 r992  
    12691269#     absdamp -- damping for absorption refinement (*)
    12701270#     absref -- refinement damping for absorption refinement (*)
     1271#     proftbl -- returns number of profile table termns
    12711272#   parameters transferred from the instrument parameter file:
    12721273#     ITYP    -- returns the contents of the ITYP record
     
    18361837            ITYP-get {
    18371838                return [string trim [readexp "${key}I ITYP"]]
     1839            }
     1840            proftbl-get {
     1841                set line [readexp "${key}PAB3"]
     1842                if {$line == ""} {return 0}
     1843                set val [string trim [string range $line 0 4]]
     1844                if {$val == ""} {return 0}
     1845                return $val
    18381846            }
    18391847            default {
Note: See TracChangeset for help on using the changeset viewer.