Changeset 373


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

# on 2001/02/26 19:37:17, toby did:
Change EPHAS (Fobs extraction) to Y/N except on IRIX

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2000/10/02 16:50:47 to 2001/02/26 19:37:17
    • Property rcs:lines changed from +4 -4 to +23 -7
    • Property rcs:rev changed from 1.22 to 1.23
    r287 r373  
    962962                    makeexprec "${key} EPHAS"
    963963                    # expedt defaults this to "F", but I think "T" is better
    964                     setexp "${key} EPHAS" "T" 50 1
     964                    setexp "${key} EPHAS" "Y" 50 1
    965965                    if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
    966966                }
     
    968968                    return 1
    969969                }
     970                # the flag has changed to "Y/N" in the latest versions
     971                # of GSAS
     972                if {[string toupper [string range $line 49 49]] == "Y"} {
     973                    return 1
     974                }
    970975                return 0
    971976            }
    972977            foextract-set {
    973                 if $value {
    974                     setexp "${key} EPHAS" "T" 50 1
     978                global tcl_platform
     979                if {[string match "IRIX*" $tcl_platform(os)]} {
     980                    if $value {
     981                        setexp "${key} EPHAS" "T" 50 1
     982                    } else {
     983                        setexp "${key} EPHAS" "F" 50 1
     984                    }       
    975985                } else {
    976                     setexp "${key} EPHAS" "F" 50 1
    977                 }           
     986                # the flag has changed to "Y/N" in the latest versions
     987                # of GSAS
     988                    if $value {
     989                        setexp "${key} EPHAS" "Y" 50 1
     990                    } else {
     991                        setexp "${key} EPHAS" "N" 50 1
     992                    }
     993                }
    978994            }
    979995            title-get {
Note: See TracChangeset for help on using the changeset viewer.