Changeset 870 for trunk/gsascmds.tcl


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

# on 2006/02/22 01:45:29, toby did:
Recompute Multiplicities prior to Composition computation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2006/02/22 00:28:44 to 2006/02/22 01:45:29
    • Property rcs:lines changed from +2 -2 to +2 -1
    • Property rcs:rev changed from 1.61 to 1.62
    r867 r870  
    11761176    foreach phase $expmap(phaselist) type $expmap(phasetype) {
    11771177        if {$type == 4} continue
     1178        ResetMultiplicities $phase {}
    11781179        catch {unset total}
    11791180        foreach atom $expmap(atomlist_$phase) {
Note: See TracChangeset for help on using the changeset viewer.