Changeset 1237 for trunk/readexp.tcl


Ignore:
Timestamp:
Jul 10, 2013 12:11:08 PM (7 years ago)
Author:
toby
Message:

workaround for GSAS fprime bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    r1227 r1237  
    20302030                        set elem [string trim [string range \
    20312031                                                   [readexp "${key}FFANS$i"] 2 9]]
    2032                         if {[string match -nocase $e $elem]} {
    2033                             if ![validreal fp 10 3] {return 0}
    2034                             setexp "${key}FFANS$i" $fp 11 10
    2035                             if ![validreal fpp 10 3] {return 0}
    2036                             setexp "${key}FFANS$i" $fpp 21 10
     2032                        if {[string match -nocase $e $elem]} {
     2033                            # seems to be a bug in GSAS if anom FF use too many digits,
     2034                            # many digits, or perhaps due to exponential notation. Restricting
     2035                            # the length to use the last 6 digits on output is a work around.
     2036                            if ![validreal fp 6 3] {return 0}
     2037                            setexp "${key}FFANS$i" "    $fp" 11 10
     2038                            if ![validreal fpp 6 3] {return 0}
     2039                            setexp "${key}FFANS$i" "    $fpp" 21 10
    20372040                            set e {}
    20382041                            break
Note: See TracChangeset for help on using the changeset viewer.