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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.F90 (file contents):
Revision 2204 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2211 by chrisfen, Thu Apr 21 14:12:19 2005 UTC

# Line 12 | Line 12 | subroutine makeShape(nContactFuncs, ContactFuncLValue,
12    integer :: nRangeFuncs
13    integer :: nStrengthFuncs
14    integer :: status
15 <  integer :: myATID
15 >  integer :: c_ident
16  
17    integer, dimension(nContactFuncs) :: ContactFuncLValue          
18    integer, dimension(nContactFuncs) :: ContactFuncMValue          
# Line 32 | Line 32 | subroutine makeShape(nContactFuncs, ContactFuncLValue,
32         nRangeFuncs, RangeFuncLValue, RangeFuncMValue, RangeFunctionType, &
33         RangeFuncCoefficient, nStrengthFuncs, StrengthFuncLValue, &
34         StrengthFuncMValue, StrengthFunctionType, StrengthFuncCoefficient, &
35 <       myATID, status)
35 >       c_ident, status)
36  
37    return
38   end subroutine makeShape

Diff Legend

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