--- trunk/OOPSE/libmdtools/calc_sticky_pair.F90	2004/05/24 21:03:30	1192
+++ trunk/OOPSE/libmdtools/calc_sticky_pair.F90	2004/05/27 00:48:12	1198
@@ -9,7 +9,7 @@
 !! @author Matthew Meineke
 !! @author Christopher Fennel
 !! @author J. Daniel Gezelter
-!! @version $Id: calc_sticky_pair.F90,v 1.19 2004-05-24 21:03:25 gezelter Exp $, $Date: 2004-05-24 21:03:25 $, $Name: not supported by cvs2svn $, $Revision: 1.19 $
+!! @version $Id: calc_sticky_pair.F90,v 1.20 2004-05-27 00:48:12 tim Exp $, $Date: 2004-05-27 00:48:12 $, $Name: not supported by cvs2svn $, $Revision: 1.20 $
 
 module sticky_pair
 
@@ -349,8 +349,8 @@ contains
 #endif
 
 #ifdef IS_MPI
-       id1 = tagRow(atom1)
-       id2 = tagColumn(atom2)
+       id1 = AtomRowToGlobal(atom1)
+       id2 = AtomColToGlobal(atom2)
 #else
        id1 = atom1
        id2 = atom2