--- trunk/OOPSE/libmdtools/neighborLists.F90	2003/09/05 21:28:52	747
+++ trunk/OOPSE/libmdtools/neighborLists.F90	2003/10/30 14:11:28	844
@@ -6,7 +6,7 @@
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
 !! @author J. Daniel Gezelter
-!! @version $Id: neighborLists.F90,v 1.6 2003-09-05 21:28:19 gezelter Exp $, 
+!! @version $Id: neighborLists.F90,v 1.7 2003-10-30 14:11:28 gezelter Exp $, 
 
 module neighborLists
   
@@ -168,12 +168,17 @@ contains
     !! calculate the largest displacement of any atom in any direction
     
     !! If we have changed the particle idents, then we need to update    
-    if (.not. allocated(q0) .or. size(q0,2) /= nlocal) then
+    if (.not. allocated(q0)) then       
        update_nlist = .true.
        return
     end if
 
+    if (size(q0,2) /= nlocal) then
+       update_nlist = .true.
+       return
+    end if
 
+
 #ifdef MPI 
     
     dispmx_tmp = 0.0E0_DP