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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/electrostatic.F90 (file contents):
Revision 3012 by chrisfen, Mon Aug 14 20:32:20 2006 UTC vs.
Revision 3013 by chrisfen, Thu Sep 21 18:25:17 2006 UTC

# Line 1301 | Line 1301 | contains
1301            chg1 = getCharge(atid1)
1302            
1303            if (screeningMethod .eq. DAMPED) then
1304 <             mypot = mypot - (c1c * 0.5_dp + &
1305 <                  dampingAlpha*invRootPi) * chg1 * chg1    
1304 >             mypot = mypot - (c1c + alphaPi) * chg1 * chg1    
1305              
1306            else            
1307 <             mypot = mypot - (rcuti * 0.5_dp * chg1 * chg1)
1307 >             mypot = mypot - (rcuti * chg1 * chg1)
1308              
1309            endif
1310         endif

Diff Legend

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