| 2 |
|
!! Corresponds to the force field defined in lj_FF.cpp |
| 3 |
|
!! @author Charles F. Vardeman II |
| 4 |
|
!! @author Matthew Meineke |
| 5 |
< |
!! @version $Id: lj_FF.F90,v 1.17 2003-02-03 21:15:59 chuckv Exp $, $Date: 2003-02-03 21:15:59 $, $Name: not supported by cvs2svn $, $Revision: 1.17 $ |
| 5 |
> |
!! @version $Id: lj_FF.F90,v 1.18 2003-02-04 20:16:08 chuckv Exp $, $Date: 2003-02-04 20:16:08 $, $Name: not supported by cvs2svn $, $Revision: 1.18 $ |
| 6 |
|
|
| 7 |
|
|
| 8 |
|
|
| 668 |
|
|
| 669 |
|
|
| 670 |
|
if (do_pot) then |
| 671 |
+ |
|
| 672 |
|
! scatter/gather pot_row into the members of my column |
| 673 |
|
call scatter(eRow,eTemp,plan_row) |
| 674 |
|
|
| 684 |
|
pe_local = pe_local + eTemp(i) |
| 685 |
|
enddo |
| 686 |
|
endif |
| 687 |
+ |
|
| 688 |
+ |
pe = pe_local |
| 689 |
|
endif |
| 687 |
– |
potE = pe_local |
| 690 |
|
#endif |
| 691 |
|
|
| 692 |
|
potE = pe |
