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