Ignore:
Timestamp:
Sep 21, 2012 5:56:33 PM (9 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/import_cif.tcl

    r935 r1221  
    9898        # remove spaces from space group
    9999        regsub -all " " $sgtmp "" sgtmp
     100        # check for final H
     101        if {[string range $sgtmp end end] == "H"} {
     102            set sgtmp [string range $sgtmp 0 end-1]
     103        }
    100104        # make a copy where we treat bar 3 as the same as 3
    101105        regsub -- "-3" $sgtmp "3" sgtmp3
Note: See TracChangeset for help on using the changeset viewer.