--- trunk/OOPSE/libmdtools/do_Forces.F90	2004/05/27 15:21:20	1199
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2004/05/27 19:51:18	1206
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.64 2004-05-27 15:21:20 gezelter Exp $, $Date: 2004-05-27 15:21:20 $, $Name: not supported by cvs2svn $, $Revision: 1.64 $
+!! @version $Id: do_Forces.F90,v 1.65 2004-05-27 19:51:18 tim Exp $, $Date: 2004-05-27 19:51:18 $, $Name: not supported by cvs2svn $, $Revision: 1.65 $
 
 module do_Forces
   use force_globals
@@ -1131,8 +1131,8 @@ contains
       endif
    enddo
    
-   do i = 1, nSkipsForAtom(unique_id_1)
-      if (skipsForAtom(unique_id_1, i) .eq. unique_id_2) then
+   do i = 1, nSkipsForAtom(atom1)
+      if (skipsForAtom(atom1, i) .eq. unique_id_2) then
          skip_it = .true.
          return
       endif