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

Comparing trunk/OOPSE/libmdtools/calc_dipole_dipole.F90 (file contents):
Revision 843 by mmeineke, Wed Oct 29 20:41:39 2003 UTC vs.
Revision 898 by chuckv, Mon Jan 5 22:49:14 2004 UTC

# Line 49 | Line 49 | contains
49  
50      real( kind = dp ) :: pot
51      real( kind = dp ), dimension(3) :: d
52 <    real( kind = dp ), dimension(3,getNlocal()) :: u_l
53 <    real( kind = dp ), dimension(3,getNlocal()) :: f
54 <    real( kind = dp ), dimension(3,getNlocal()) :: t
52 >    real( kind = dp ), dimension(3,nLocal) :: u_l
53 >    real( kind = dp ), dimension(3,nLocal) :: f
54 >    real( kind = dp ), dimension(3,nLocal) :: t
55      
56      real (kind = dp), dimension(3) :: ul1
57      real (kind = dp), dimension(3) :: ul2

Diff Legend

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