ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90 (file contents):
Revision 3129 by chrisfen, Fri Apr 20 18:15:48 2007 UTC vs.
Revision 3397 by chuckv, Tue May 27 16:39:06 2008 UTC

# Line 10 | Line 10 | subroutine doForceloop(q, q_group, A, eFrame, f, t, ta
10  
11   end subroutine initFortranFF
12  
13 < subroutine doForceloop(q, q_group, A, eFrame, f, t, tau, pot, &
13 > subroutine doForceloop(q, q_group, A, eFrame, f, t, tau, pot, particle_pot, &
14       do_pot_c, do_stress_c, error)
15  
16    use definitions, ONLY: dp
# Line 36 | Line 36 | subroutine doForceloop(q, q_group, A, eFrame, f, t, ta
36    !! Stress Tensor
37    real( kind = dp), dimension(9) :: tau  
38    real ( kind = dp ),dimension(LR_POT_TYPES) :: pot
39 +  real( kind = dp ), dimension(nLocal) :: particle_pot
40    logical ( kind = 2) :: do_pot_c, do_stress_c
41    integer :: error
42  
43 <  call do_force_loop(q, q_group, A, eFrame, f, t, tau, pot, &
43 >  call do_force_loop(q, q_group, A, eFrame, f, t, tau, pot, particle_pot, &
44         do_pot_c, do_stress_c, error)
45  
46   end subroutine doForceloop

Diff Legend

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