Changeset 180 for trunk/atomcons.tcl


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

# on 2000/06/01 02:47:26, toby did:
fix XYZU bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/atomcons.tcl

    • Property rcs:date changed from 2000/05/18 15:55:37 to 2000/06/01 02:47:26
    • Property rcs:lines changed from +1 -0 to +2 -2
    • Property rcs:rev changed from 1.3 to 1.4
    r151 r180  
    580580    # then add new constraints
    581581    set varlist {{}}
    582     if {$expcons(var1) == "XYZU"} {set varlist "X Y Z U"}
     582    if {$expcons(var1) == "XYZU"} {set varlist "X Y Z UISO"}
    583583    if {$expcons(var1) == "Uxx"} {set varlist "U11 U22 U33 U12 U23 U13"}
    584584    foreach var $varlist {
Note: See TracChangeset for help on using the changeset viewer.