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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/suttonchen.F90 (file contents):
Revision 2755 by gezelter, Thu Apr 20 18:24:24 2006 UTC vs.
Revision 2756 by gezelter, Wed May 17 15:37:15 2006 UTC

# Line 44 | Line 44 | module suttonchen
44  
45  
46   module suttonchen
47 +  use definitions
48    use simulation
49    use force_globals
50    use status
# Line 59 | Line 60 | module suttonchen
60   #define __FORTRAN90
61   #include "UseTheForce/DarkSide/fInteractionMap.h"
62  
62 –  INTEGER, PARAMETER :: DP = selected_real_kind(15)
63    !! number of points for the spline approximations
64    INTEGER, PARAMETER :: np = 3000
65  
# Line 254 | Line 254 | contains
254            n = 0.5_dp*(n1+n2)
255  
256            dr = (rCut) / dble(np-1)
257 <          rvals(1) = 0.0d0
258 <          vvals(1) = 0.0d0
259 <          phivals(1) = 0.0d0
257 >          rvals(1) = 0.0_dp
258 >          vvals(1) = 0.0_dp
259 >          phivals(1) = 0.0_dp
260  
261            do k = 2, np
262               r = dble(k-1)*dr

Diff Legend

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