Changeset 376

Timestamp:

Dec 4, 2009 5:05:08 PM (14 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:

• trunk/readexp.tcl (modified) (1 diff, 3 props)

trunk/readexp.tcl

@@ -962 +962 @@
                     makeexprec "${key} EPHAS"
                     # expedt defaults this to "F", but I think "T" is better
-                    setexp "${key} EPHAS" "Y" 50 1
+                    global tcl_platform
+                    if {[string match "IRIX*" $tcl_platform(os)]} {
+                        setexp "${key} EPHAS" "T" 50 1
+                    } else {
+                        setexp "${key} EPHAS" "Y" 50 1
+                    }
                     if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
                 }