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 2721 by gezelter, Mon Apr 17 21:49:12 2006 UTC vs.
Revision 2722 by gezelter, Thu Apr 20 18:24:24 2006 UTC

# Line 1 | Line 1
1 < !!
1 > !!
2   !! Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
3   !!
4   !! The University of Notre Dame grants you ("Licensee") a
# Line 267 | Line 267 | contains
267  
268            vCut = epsilon*((alpha/rCut)**n)
269  
270 <          call newSpline(MixingMap(i,j)%V, rvals, vvals, &
271 <               0.0d0, 0.0d0, .true.)
272 <          call newSpline(MixingMap(i,j)%phi, rvals, phivals, &
273 <               0.0d0, 0.0d0, .true.)
270 >          call newSpline(MixingMap(i,j)%V, rvals, vvals, .true.)
271 >          call newSpline(MixingMap(i,j)%phi, rvals, phivals, .true.)
272  
273            MixingMap(i,j)%epsilon = epsilon
274            MixingMap(i,j)%m = m

Diff Legend

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