Tcl load

From: Saladino, Alex (saladinoac_at_upmc.edu)
Date: Thu Jul 15 2004 - 14:52:25 CDT

NAMDer,
Has anyone had luck with the Tcl commands? I can only get loadcoords to
work. I cannot get loadforces, loadtotalforces or loadmasses to work. Any
Ideas?
 
Here is my script:
 
tclForces on
tclForcesScript {
# The IDs of the three atoms defining the water molecule.
# Groupid will be the center of mass.
  set groupid1 [addgroup { 9989 9990 9991 }]
  set groupid2 [addgroup { 11513 11513 11515 }]
  set groupid3 [addgroup { 11664 11665 11663 }]
  set groupid4 [addgroup { 11082 11083 11081 }]
  set groupid5 [addgroup { 12432 12433 12431 }]

  proc calcforces {} {
  global groupid1 groupid2 groupid3 groupid4 groupid5
  loadforces f
  if { [array exists f] } {
  print $f($groupid1)
  print $f($groupid2)
  print $f($groupid3)
  print $f($groupid4)
  print $f($groupid5)
                } else {
   print "Forces Failure"
        }
  loadtotalforces h
  if { [array exists h] } {
  print $h($groupid1)
  print $h($groupid2)
  print $h($groupid3)
  print $h($groupid4)
  print $h($groupid5)
        } else {
   print "Total Forces Failure"
        }
  }
}

This archive was generated by hypermail 2.1.6 : Wed Feb 29 2012 - 15:37:45 CST