| 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 |
|
|
