45 |
|
|
46 |
|
!! @author Charles F. Vardeman II |
47 |
|
!! @author Matthew Meineke |
48 |
< |
!! @version $Id: doForces.F90,v 1.89 2007-05-03 15:52:08 chrisfen Exp $, $Date: 2007-05-03 15:52:08 $, $Name: not supported by cvs2svn $, $Revision: 1.89 $ |
48 |
> |
!! @version $Id: doForces.F90,v 1.90 2007-05-22 19:30:27 chuckv Exp $, $Date: 2007-05-22 19:30:27 $, $Name: not supported by cvs2svn $, $Revision: 1.90 $ |
49 |
|
|
50 |
|
|
51 |
|
module doForces |
1205 |
|
endif |
1206 |
|
|
1207 |
|
if (loop .eq. PREPAIR_LOOP) then |
1208 |
+ |
#ifdef IS_MPI |
1209 |
+ |
call do_preforce(nlocal, pot_local) |
1210 |
+ |
#else |
1211 |
|
call do_preforce(nlocal, pot) |
1212 |
+ |
#endif |
1213 |
|
endif |
1214 |
|
|
1215 |
|
enddo |