Changeset 1124 for branches

Timestamp:

Mar 23, 2011 5:25:21 PM (10 years ago)

Author:

toby

Message:

remove debug code

File:

• branches/sandbox/rb.tcl (modified) (3 diffs)

branches/sandbox/rb.tcl

@@ -794 +794 @@
     } err
     #puts $err
-    #file delete geom.inp
+    file delete geom.inp
     set fp [open geom.out r]
     set origin {}
@@ -1073 +1073 @@
 puts $fraclist
     set xform [CalcXformMatrix $Euler $cell]
-    puts "entering FitBodyOrigin"
+    #puts "entering FitBodyOrigin"
     foreach var {x y z} {set sum($var) 0.0}
     set i 0
@@ -1086 +1086 @@
         set dvs 0
         foreach var {x y z} v1 $frac v2 $coord abc [lrange $cell 0 2] {
-puts "v2 = $v2"
-puts "v1 = $v1"
-puts "abc = $abc"
+            #puts "v2 = $v2"
+            #puts "v1 = $v1"
+            #puts "abc = $abc"
             set dv [expr {($v2 - $v1)*$abc}]
             set dvs [expr {$dvs + $dv*$dv}]
             set sumdvs [expr {$sumdvs + $dv*$dv}]
             if {$use} {set sum($var) [expr {$sum($var) + $dv/$abc}]}
-            puts "round and round"
+            #puts "round and round"
         }
         lappend rmsout [expr {sqrt($dvs)}]