Changeset 1124 for branches/sandbox


Ignore:
Timestamp:
Mar 23, 2011 5:25:21 PM (10 years ago)
Author:
toby
Message:

remove debug code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rb.tcl

    r1123 r1124  
    794794    } err
    795795    #puts $err
    796     #file delete geom.inp
     796    file delete geom.inp
    797797    set fp [open geom.out r]
    798798    set origin {}
     
    10731073puts $fraclist
    10741074    set xform [CalcXformMatrix $Euler $cell]
    1075     puts "entering FitBodyOrigin"
     1075    #puts "entering FitBodyOrigin"
    10761076    foreach var {x y z} {set sum($var) 0.0}
    10771077    set i 0
     
    10861086        set dvs 0
    10871087        foreach var {x y z} v1 $frac v2 $coord abc [lrange $cell 0 2] {
    1088 puts "v2 = $v2"
    1089 puts "v1 = $v1"
    1090 puts "abc = $abc"
     1088            #puts "v2 = $v2"
     1089            #puts "v1 = $v1"
     1090            #puts "abc = $abc"
    10911091            set dv [expr {($v2 - $v1)*$abc}]
    10921092            set dvs [expr {$dvs + $dv*$dv}]
    10931093            set sumdvs [expr {$sumdvs + $dv*$dv}]
    10941094            if {$use} {set sum($var) [expr {$sum($var) + $dv/$abc}]}
    1095             puts "round and round"
     1095            #puts "round and round"
    10961096        }
    10971097        lappend rmsout [expr {sqrt($dvs)}]
Note: See TracChangeset for help on using the changeset viewer.