Changeset 1225 for trunk/import_cif.tcl


Ignore:
Timestamp:
Nov 8, 2012 1:42:25 PM (8 years ago)
Author:
toby
Message:

update to latest, with Fourier & f'/f

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/import_cif.tcl

    r935 r1225  
    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.