55 |
|
implicit none |
56 |
|
|
57 |
|
PRIVATE |
58 |
< |
|
58 |
> |
#define __FORTRAN90 |
59 |
> |
#include "UseTheForce/DarkSide/fInteractionMap.h" |
60 |
|
INTEGER, PARAMETER:: CHEBYSHEV_TN = 1 |
61 |
|
INTEGER, PARAMETER:: CHEBYSHEV_UN = 2 |
62 |
|
INTEGER, PARAMETER:: LAGUERRE = 3 |
1152 |
|
vpair = vpair + pot_temp |
1153 |
|
if (do_pot) then |
1154 |
|
#ifdef IS_MPI |
1155 |
< |
pot_row(atom1) = pot_row(atom1) + 0.5d0*pot_temp*sw |
1156 |
< |
pot_col(atom2) = pot_col(atom2) + 0.5d0*pot_temp*sw |
1155 |
> |
pot_row(SHAPE_POT,atom1) = pot_row(SHAPE_POT,atom1) + 0.5d0*pot_temp*sw |
1156 |
> |
pot_col(SHAPE_POT,atom2) = pot_col(SHAPE_POT,atom2) + 0.5d0*pot_temp*sw |
1157 |
|
#else |
1158 |
|
pot = pot + pot_temp*sw |
1159 |
|
#endif |