ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/calc_dipole_dipole.F90
(Generate patch)

Comparing trunk/OOPSE_old/src/mdtools/libmdCode/calc_dipole_dipole.F90 (file contents):
Revision 360 by gezelter, Tue Mar 18 16:46:47 2003 UTC vs.
Revision 361 by gezelter, Tue Mar 18 19:09:12 2003 UTC

# Line 45 | Line 45 | contains
45  
46      real( kind = dp ) :: pot
47      real( kind = dp ), dimension(3) :: d
48 <    real( kind = dp ), dimension(3,getNlocal()) :: u_l
49 <    real( kind = dp ), dimension(3,getNlocal()) :: f
50 <    real( kind = dp ), dimension(3,getNlocal()) :: t
48 >    real( kind = dp ), dimension(:,:) :: u_l
49 >    real( kind = dp ), dimension(:,:) :: f
50 >    real( kind = dp ), dimension(:,:) :: t
51      
52      real (kind = dp), dimension(3) :: ul1
53      real (kind = dp), dimension(3) :: ul2

Diff Legend

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