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 730 by gezelter, Wed Aug 27 16:25:11 2003 UTC vs.
Revision 898 by chuckv, Mon Jan 5 22:49:14 2004 UTC

# Line 55 | Line 55 | contains
55      real (kind=dp), intent(inout) :: r, r2
56      real (kind=dp), dimension(3), intent(in) :: d
57      real (kind=dp) :: pot
58 <    real (kind=dp), dimension(3,getNlocal()) :: u_l
59 <    real (kind=dp), dimension(3,getNlocal()) :: f
60 <    real (kind=dp), dimension(3,getNlocal()) :: t
58 >    real (kind=dp), dimension(3,nLocal) :: u_l
59 >    real (kind=dp), dimension(3,nLocal) :: f
60 >    real (kind=dp), dimension(3,nLocal) :: t
61      logical, intent(in) :: do_pot, do_stress
62      real (kind = dp), dimension(3) :: ul1
63      real (kind = dp), dimension(3) :: ul2

Diff Legend

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