Changeset 56 for trunk/readexp.tcl

Timestamp:

Dec 4, 2009 4:59:40 PM (13 years ago)

Author:

toby

Message:

# on 1999/02/18 22:50:03, toby did:
add space group to phase info

File:

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

trunk/readexp.tcl

@@ -369 +369 @@
 #     cellref -- refinement flag for the unit cell(*)
 #     celldamp  -- damping for the unit cell refinement (*)
+#     spacegroup -- space group symbol
 #  action: get (default) or set
 #  value: used only with set
@@ -377 +378 @@
         name-get {
             return [string trim [readexp "CRS$phase    PNAM"]]
+        }
+
+        spacegroup-get {
+            return [string trim [readexp "CRS$phase  SG SYM"]]
         }