Changeset 1221 for branches/sandbox/import_cif.tcl

Timestamp:

Sep 21, 2012 5:56:33 PM (11 years ago)

Author:

toby

Message:

more Fourier work; remove warning on R *3* H sg in CIF

File:

• branches/sandbox/import_cif.tcl (modified) (1 diff)

branches/sandbox/import_cif.tcl

@@ -98 +98 @@
         # remove spaces from space group
         regsub -all " " $sgtmp "" sgtmp
+        # check for final H
+        if {[string range $sgtmp end end] == "H"} {
+            set sgtmp [string range $sgtmp 0 end-1]
+        }
         # make a copy where we treat bar 3 as the same as 3 
         regsub -- "-3" $sgtmp "3" sgtmp3