Changeset 853


Ignore:
Timestamp:
Dec 4, 2009 5:13:10 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2005/09/12 23:34:05 to 2005/12/16 00:36:40
    • Property rcs:lines changed from +31 -1 to +5 -5
    • Property rcs:rev changed from 1.37 to 1.38
    r849 r853  
    23132313    }
    23142314    while {[gets $fp1 line] >= 0} {
    2315         set key [lindex $line 8]
     2315        set key [string tolower [lindex $line 8]]
    23162316        regsub -all " " $key "" key
    23172317        regsub -- "-3" $key "3" key
    23182318        if {$key != ""} {
    2319         puts "$key -- [lindex $line 1] [lindex $line 8] [lindex $line 9]"
     2319#       puts "$key -- [lindex $line 1] [lindex $line 8] [lindex $line 9]"
    23202320            set ::Origin1list($key) [lindex $line 9]
    23212321        }
     
    23272327proc GetOrigin1Shift {phase} {
    23282328    GetOrigin12List
    2329     set spg [phaseinfo $phase spacegroup]
     2329    set spg [string tolower [phaseinfo $phase spacegroup]]
    23302330    regsub -all " " $spg "" spg
    23312331    regsub -- "-3" $spg "3" spg
     
    23462346                     -type "{Use all} {Use Selection}" -default "use all" \
    23472347                     -title "Shift all" -message $msg]
    2348         puts "$phase $numberList $w1 $shift"
     2348#       puts "$phase $numberList $w1 $shift"
    23492349        if {$val == "use all"} {set numberList $expmap(atomlist_$phase)}
    23502350    }
Note: See TracChangeset for help on using the changeset viewer.