--- trunk/OOPSE/libmdtools/notifyCutoffs.F90	2003/08/07 00:47:33	669
+++ trunk/OOPSE/libmdtools/notifyCutoffs.F90	2003/10/30 18:59:20	845
@@ -20,13 +20,15 @@ module notifyCutoffs
 
       real(kind=dp) :: rtaper, rcut, rlist, ecr
       integer :: localError
-      
-
+     
       rcut   = this_rcut
       rlist  = this_rlist
       ecr    = this_ecr
       rtaper = this_ecr - this_est
 
+      if ((rlist .lt. rcut) .or. (rlist .lt. ecr)) then
+         write(*,*) 'warning, rlist = ', rlist, ' but rcut, ecr = ', rcut, ecr
+      endif
 
       call setRlistDF( rlist )
       call setCutoffsDipole( ecr, rtaper )