Changeset 376


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

# on 2001/04/03 19:10:54, toby did:
TEMPORARY FIX: for SGI use old T/F format for intensity extraction

other use new Y/N flag

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/02/26 19:37:17 to 2001/04/03 19:10:54
    • Property rcs:lines changed from +23 -7 to +8 -3
    • Property rcs:rev changed from 1.23 to 1.24
    r373 r376  
    962962                    makeexprec "${key} EPHAS"
    963963                    # expedt defaults this to "F", but I think "T" is better
    964                     setexp "${key} EPHAS" "Y" 50 1
     964                    global tcl_platform
     965                    if {[string match "IRIX*" $tcl_platform(os)]} {
     966                        setexp "${key} EPHAS" "T" 50 1
     967                    } else {
     968                        setexp "${key} EPHAS" "Y" 50 1
     969                    }
    965970                    if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
    966971                }
Note: See TracChangeset for help on using the changeset viewer.