4 |
|
|
5 |
|
!! @author Charles F. Vardeman II |
6 |
|
!! @author Matthew Meineke |
7 |
< |
!! @version $Id: doForces.F90,v 1.5.2.2 2004-12-09 20:42:47 gezelter Exp $, $Date: 2004-12-09 20:42:47 $, $Name: not supported by cvs2svn $, $Revision: 1.5.2.2 $ |
7 |
> |
!! @version $Id: doForces.F90,v 1.5.2.3 2004-12-09 21:15:19 tim Exp $, $Date: 2004-12-09 21:15:19 $, $Name: not supported by cvs2svn $, $Revision: 1.5.2.3 $ |
8 |
|
|
9 |
|
module doForces |
10 |
|
use force_globals |
349 |
|
endif |
350 |
|
endif |
351 |
|
|
352 |
< |
if (FF_uses_sticky) then |
353 |
< |
call check_sticky_FF(my_status) |
354 |
< |
if (my_status /= 0) then |
355 |
< |
thisStat = -1 |
356 |
< |
haveSaneForceField = .false. |
357 |
< |
return |
358 |
< |
end if |
359 |
< |
endif |
352 |
> |
!sticky module does not contain check_sticky_FF anymore |
353 |
> |
!if (FF_uses_sticky) then |
354 |
> |
! call check_sticky_FF(my_status) |
355 |
> |
! if (my_status /= 0) then |
356 |
> |
! thisStat = -1 |
357 |
> |
! haveSaneForceField = .false. |
358 |
> |
! return |
359 |
> |
! end if |
360 |
> |
!endif |
361 |
|
|
362 |
|
if (FF_uses_EAM) then |
363 |
|
call init_EAM_FF(my_status) |