Changeset 853

Timestamp:

Dec 4, 2009 5:13:10 PM (14 years ago)

Author:

toby

Message:

# on 2005/12/16 00:36:40, toby did:
make spacegroup search case insensitive on Origin 1/2
comment out debug puts statements

File:

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

trunk/addcmds.tcl

@@ -2313 +2313 @@
     }
     while {[gets $fp1 line] >= 0} {
-        set key [lindex $line 8]
+        set key [string tolower [lindex $line 8]]
         regsub -all " " $key "" key
         regsub -- "-3" $key "3" key
         if {$key != ""} {
-        puts "$key -- [lindex $line 1] [lindex $line 8] [lindex $line 9]"
+#       puts "$key -- [lindex $line 1] [lindex $line 8] [lindex $line 9]"
             set ::Origin1list($key) [lindex $line 9]
         }
@@ -2327 +2327 @@
 proc GetOrigin1Shift {phase} {
     GetOrigin12List
-    set spg [phaseinfo $phase spacegroup]
+    set spg [string tolower [phaseinfo $phase spacegroup]]
     regsub -all " " $spg "" spg
     regsub -- "-3" $spg "3" spg
@@ -2346 +2346 @@
                      -type "{Use all} {Use Selection}" -default "use all" \
                      -title "Shift all" -message $msg]
-        puts "$phase $numberList $w1 $shift"
+#       puts "$phase $numberList $w1 $shift"
         if {$val == "use all"} {set numberList $expmap(atomlist_$phase)}
     }