--- trunk/OOPSE/libmdtools/do_Forces.F90 2003/07/17 19:25:51 631 +++ trunk/OOPSE/libmdtools/do_Forces.F90 2003/07/17 19:38:23 634 @@ -4,7 +4,7 @@ !! @author Charles F. Vardeman II !! @author Matthew Meineke -!! @version $Id: do_Forces.F90,v 1.22 2003-07-17 19:25:51 chuckv Exp $, $Date: 2003-07-17 19:25:51 $, $Name: not supported by cvs2svn $, $Revision: 1.22 $ +!! @version $Id: do_Forces.F90,v 1.23 2003-07-17 19:38:23 mmeineke Exp $, $Date: 2003-07-17 19:38:23 $, $Name: not supported by cvs2svn $, $Revision: 1.23 $ module do_Forces use force_globals @@ -642,8 +642,8 @@ contains call getElementProperty(atypes, me_i, "is_EAM", is_EAM_i) call getElementProperty(atypes, me_j, "is_EAM", is_EAM_j) - if ( is_EAM_i .and. is_EAM_j ) & - call calc_EAM_prepair(i, j, d, r, rijsq ) +!!$ if ( is_EAM_i .and. is_EAM_j ) & +!!$ call calc_EAM_prepair(i, j, d, r, rijsq ) endif end subroutine do_preforce