4 |
|
|
5 |
|
!! @author Charles F. Vardeman II |
6 |
|
!! @author Matthew Meineke |
7 |
< |
!! @version $Id: do_Forces.F90,v 1.25 2003-07-24 19:57:35 chuckv Exp $, $Date: 2003-07-24 19:57:35 $, $Name: not supported by cvs2svn $, $Revision: 1.25 $ |
7 |
> |
!! @version $Id: do_Forces.F90,v 1.26 2003-07-30 21:17:01 chuckv Exp $, $Date: 2003-07-30 21:17:01 $, $Name: not supported by cvs2svn $, $Revision: 1.26 $ |
8 |
|
|
9 |
|
module do_Forces |
10 |
|
use force_globals |
19 |
|
use gb_pair |
20 |
|
use vector_class |
21 |
|
use eam |
22 |
+ |
use status |
23 |
|
#ifdef IS_MPI |
24 |
|
use mpiSimulation |
25 |
|
#endif |
143 |
|
return |
144 |
|
end if |
145 |
|
endif |
146 |
+ |
|
147 |
+ |
|
148 |
+ |
if (FF_uses_EAM) then |
149 |
+ |
call init_EAM_FF(my_status) |
150 |
+ |
if (my_status /= 0) then |
151 |
+ |
thisStat = -1 |
152 |
+ |
return |
153 |
+ |
end if |
154 |
+ |
endif |
155 |
+ |
|
156 |
+ |
|
157 |
|
|
158 |
|
if (FF_uses_GB) then |
159 |
|
call check_gb_pair_FF(my_status) |
174 |
|
return |
175 |
|
endif |
176 |
|
endif |
177 |
+ |
|
178 |
|
|
179 |
|
havePolicies = .true. |
180 |
|
if( haveRlist ) do_forces_initialized = .true. |
181 |
< |
|
181 |
> |
|
182 |
|
end subroutine init_FF |
183 |
|
|
184 |
|
|
235 |
|
nlocal = getNlocal() |
236 |
|
natoms = nlocal |
237 |
|
#endif |
238 |
< |
|
238 |
> |
write(*,*) "Inside do_Force Loop" |
239 |
|
call check_initialization(localError) |
240 |
|
if ( localError .ne. 0 ) then |
241 |
+ |
call handleError("do_force_loop","Not Initialized") |
242 |
|
error = -1 |
243 |
|
return |
244 |
|
end if |
891 |
|
error = 0 |
892 |
|
! Make sure we are properly initialized. |
893 |
|
if (.not. do_forces_initialized) then |
894 |
+ |
write(*,*) "Forces not initialized" |
895 |
|
error = -1 |
896 |
|
return |
897 |
|
endif |