Changeset 239 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:02:43 PM (14 years ago)

Author:

toby

Message:

# on 2000/07/20 22:13:40, toby did:
correct use R settings in Profile4Terms & GetLaue?

File:

• trunk/gsascmds.tcl (modified) (2 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1755 +1755 @@
         4/m  {return "S400 S004 S220 S202"}
         4/mmm {return "S400 S004 S220 S202"}
-        3bar     {return "S400 S220 S310 S211"}
-        "3bar m" {return "S400 S220 S310 S211"}
+        3barR     {return "S400 S220 S310 S211"}
+        "3bar mR" {return "S400 S220 S310 S211"}
         3bar    {return "S400 S004 S202 S211"}
         3barm1 {return "S400 S004 S202"}
@@ -1794 +1794 @@
     catch {file delete -force spg.in spg.out}
     set laue [string trim $laue]
+    # add a R suffix for rhombohedral settings
+    if {[string range [string trim $spg] end end] == "R"} {
+        return "${laue}${uniqueaxis}R"
+    }
     return "${laue}$uniqueaxis"
 }