--- trunk/OOPSE/libmdtools/notifyCutoffs.F90	2004/05/06 19:15:52	1149
+++ trunk/OOPSE/libmdtools/notifyCutoffs.F90	2004/05/07 21:35:05	1150
@@ -7,9 +7,13 @@ module notifyCutoffs
   use reaction_field, only: setCutoffsRF
   use lj, only:             setCutoffLJ
   use eam, only:            setCutoffEAM
+  use switcheroo, only:     set_switch
   implicit none
 
   PRIVATE
+
+#define __FORTRAN90
+#include "fSwitchingFunction.h"
   
   public::cutoffNotify
 
@@ -36,8 +40,14 @@ module notifyCutoffs
       call setCutoffsDipole( ecr, rtaper )
       call setCutoffsRF( ecr, rtaper )
       call setCutoffLJ( rcut, localError )
-      call setCutoffEAM(rcut,localError)
+      call setCutoffEAM(rcut, localError)
 
+      if (ecr.gt.rcut) then
+         call set_switch(GROUP_SWITCH, rtaper, ecr)
+      else
+         call set_switch(GROUP_SWITCH, rcut, rcut)
+      endif
+
     end subroutine cutoffNotify
 
   end module notifyCutoffs