Changeset 1175 for trunk/rb.tcl


Ignore:
Timestamp:
Oct 24, 2011 11:17:42 PM (9 years ago)
Author:
toby
Message:

update stable release to fix bugs & match sandbox: many RB updates; show RB atoms in phase

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/rb.tcl

    r1166 r1175  
    141141    close $fp
    142142    #puts "[file join $expgui(gsasexe) geometry] $expgui(expfile) < geom.inp > geom.out"
     143    # Save any change sin the current exp file
     144    savearchiveexp
    143145    catch {
    144146        exec [file join $expgui(gsasexe) geometry] $expgui(expfile) < geom.inp > geom.out
     
    182184    if {[llength $origin] == 0 || [llength $Euler] == 0 || [llength $coordlist] == 0} {
    183185       puts "Error: run of GEOMETRY failed"
     186       error "Run of Program GEOMETRY failed, cannot continue"
    184187    }
    185188    return [list $origin $Euler $coordlist]
Note: See TracChangeset for help on using the changeset viewer.