4 |
|
|
5 |
|
!! @author Charles F. Vardeman II |
6 |
|
!! @author Matthew Meineke |
7 |
< |
!! @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 $ |
7 |
> |
!! @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 $ |
8 |
|
|
9 |
|
module do_Forces |
10 |
|
use force_globals |
642 |
|
call getElementProperty(atypes, me_i, "is_EAM", is_EAM_i) |
643 |
|
call getElementProperty(atypes, me_j, "is_EAM", is_EAM_j) |
644 |
|
|
645 |
< |
if ( is_EAM_i .and. is_EAM_j ) & |
646 |
< |
call calc_EAM_prepair(i, j, d, r, rijsq ) |
645 |
> |
!!$ if ( is_EAM_i .and. is_EAM_j ) & |
646 |
> |
!!$ call calc_EAM_prepair(i, j, d, r, rijsq ) |
647 |
|
endif |
648 |
|
end subroutine do_preforce |
649 |
|
|