| 2 |
|
!! Corresponds to the force field defined in lj_FF.cpp |
| 3 |
|
!! @author Charles F. Vardeman II |
| 4 |
|
!! @author Matthew Meineke |
| 5 |
< |
!! @version $Id: calc_LJ_FF.F90,v 1.20 2004-05-24 21:03:24 gezelter Exp $, $Date: 2004-05-24 21:03:24 $, $Name: not supported by cvs2svn $, $Revision: 1.20 $ |
| 5 |
> |
!! @version $Id: calc_LJ_FF.F90,v 1.21 2004-05-27 00:48:12 tim Exp $, $Date: 2004-05-27 00:48:12 $, $Name: not supported by cvs2svn $, $Revision: 1.21 $ |
| 6 |
|
|
| 7 |
|
module lj |
| 8 |
|
use definitions |
| 277 |
|
#endif |
| 278 |
|
|
| 279 |
|
#ifdef IS_MPI |
| 280 |
< |
id1 = tagRow(atom1) |
| 281 |
< |
id2 = tagColumn(atom2) |
| 280 |
> |
id1 = AtomRowToGlobal(atom1) |
| 281 |
> |
id2 = AtomColToGlobal(atom2) |
| 282 |
|
#else |
| 283 |
|
id1 = atom1 |
| 284 |
|
id2 = atom2 |
