ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/calc_gb.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/calc_gb.F90 (file contents):
Revision 459 by mmeineke, Fri Mar 21 17:42:12 2003 UTC vs.
Revision 460 by chuckv, Fri Apr 4 22:22:30 2003 UTC

# Line 1 | Line 1 | module gb_pair
1   module gb_pair
2    use force_globals
3    use definitions
4 +  use simulation
5   #ifdef IS_MPI
6    use mpiSimulation
7   #endif
# Line 53 | Line 54 | contains
54      real (kind=dp), intent(inout) :: r, r2
55      real (kind=dp), dimension(3), intent(in) :: d
56      real (kind=dp) :: pot
57 <    real (kind=dp), dimension(:,:) :: u_l
58 <    real (kind=dp), dimension(:,:) :: f
59 <    real (kind=dp), dimension(:,:) :: t
57 >    real (kind=dp), dimension(3,getNlocal()) :: u_l
58 >    real (kind=dp), dimension(3,getNlocal()) :: f
59 >    real (kind=dp), dimension(3,getNlocal()) :: t
60      logical, intent(in) :: do_pot, do_stress
61      real (kind = dp), dimension(3) :: ul1
62      real (kind = dp), dimension(3) :: ul2

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines