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

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/electrostatic.F90 (file contents):
Revision 2124 by gezelter, Tue Mar 15 14:20:50 2005 UTC vs.
Revision 2127 by gezelter, Mon Mar 21 19:23:27 2005 UTC

# Line 555 | Line 555 | contains
555            cy2 = cy_j * cy_j
556            cz2 = cz_j * cz_j
557  
558 <          pref = pre14 * q_i / 6.0_dp
558 >
559 >          pref =  pre14 * q_i / 6.0_dp
560            vterm = pref * ri3 * (qxx_j * (3.0_dp*cx2 - 1.0_dp) + &
561                 qyy_j * (3.0_dp*cy2 - 1.0_dp) + &
562                 qzz_j * (3.0_dp*cz2 - 1.0_dp))

Diff Legend

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