| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.55 2005-10-12 19:55:26 chuckv Exp $, $Date: 2005-10-12 19:55:26 $, $Name: not supported by cvs2svn $, $Revision: 1.55 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.56 2005-10-12 20:18:01 chuckv Exp $, $Date: 2005-10-12 20:18:01 $, $Name: not supported by cvs2svn $, $Revision: 1.56 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 1094 |
|
! scatter/gather pot_local into all other procs |
| 1095 |
|
! add resultant to get total pot |
| 1096 |
|
do i = 1, nlocal |
| 1097 |
< |
pot_local(1:POT_ARRAY_SIZE) = pot_local(1:POT_ARRAY_SIZE & |
| 1097 |
> |
pot_local(1:POT_ARRAY_SIZE) = pot_local(1:POT_ARRAY_SIZE) & |
| 1098 |
|
+ pot_Temp(1:POT_ARRAY_SIZE,i) |
| 1099 |
|
enddo |
| 1100 |
|
|
| 1157 |
|
#ifdef IS_MPI |
| 1158 |
|
|
| 1159 |
|
if (do_pot) then |
| 1160 |
< |
pot(1:SIZE_POT_ARRAY) = pot(1:SIZE_POT_ARRAY) & |
| 1161 |
< |
+ pot_local(1:SIZE_POT_ARRAY) |
| 1160 |
> |
pot(1:POT_ARRAY_SIZE) = pot(1:POT_ARRAY_SIZE) & |
| 1161 |
> |
+ pot_local(1:POT_ARRAY_SIZE) |
| 1162 |
|
!! we assume the c code will do the allreduce to get the total potential |
| 1163 |
|
!! we could do it right here if we needed to... |
| 1164 |
|
endif |
