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 |