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

Comparing trunk/OOPSE-2.0/src/UseTheForce/DarkSide/calc_shapes.F90 (file contents):
Revision 1520 by gezelter, Mon Oct 4 15:27:35 2004 UTC vs.
Revision 1600 by gezelter, Tue Oct 19 20:40:30 2004 UTC

# Line 23 | Line 23 | module shapes
23    logical, save :: haveShapeMap = .false.
24  
25    public :: do_shape_pair
26 +  public :: newShapeType
27  
28  
29    type, private :: Shape
# Line 1354 | Line 1355 | end module shapes
1355    end subroutine Orthogonal_Polynomial
1356    
1357   end module shapes
1358 +
1359 + subroutine makeShape(nContactFuncs, ContactFuncLValue, &
1360 +     ContactFuncMValue, ContactFunctionType, ContactFuncCoefficient, &
1361 +     nRangeFuncs, RangeFuncLValue, RangeFuncMValue, RangeFunctionType, &
1362 +     RangeFuncCoefficient, nStrengthFuncs, StrengthFuncLValue, &
1363 +     StrengthFuncMValue, StrengthFunctionType, StrengthFuncCoefficient, &
1364 +     myAtid, status)
1365 +
1366 +  use definitions
1367 +  use shapes, only: newShapeType
1368 +  
1369 +  integer :: nContactFuncs
1370 +  integer :: nRangeFuncs
1371 +  integer :: nStrengthFuncs
1372 +  integer :: status
1373 +  integer :: myAtid
1374 +  
1375 +  integer, dimension(nContactFuncs) :: ContactFuncLValue          
1376 +  integer, dimension(nContactFuncs) :: ContactFuncMValue          
1377 +  integer, dimension(nContactFuncs) :: ContactFunctionType        
1378 +  real(kind=dp), dimension(nContactFuncs) :: ContactFuncCoefficient
1379 +  integer, dimension(nRangeFuncs) :: RangeFuncLValue            
1380 +  integer, dimension(nRangeFuncs) :: RangeFuncMValue            
1381 +  integer, dimension(nRangeFuncs) :: RangeFunctionType          
1382 +  real(kind=dp), dimension(nRangeFuncs) :: RangeFuncCoefficient  
1383 +  integer, dimension(nStrengthFuncs) :: StrengthFuncLValue          
1384 +  integer, dimension(nStrengthFuncs) :: StrengthFuncMValue          
1385 +  integer, dimension(nStrengthFuncs) :: StrengthFunctionType        
1386 +  real(kind=dp), dimension(nStrengthFuncs) :: StrengthFuncCoefficient
1387 +  
1388 +  call newShapeType(nContactFuncs, ContactFuncLValue, &
1389 +       ContactFuncMValue, ContactFunctionType, ContactFuncCoefficient, &
1390 +       nRangeFuncs, RangeFuncLValue, RangeFuncMValue, RangeFunctionType, &
1391 +       RangeFuncCoefficient, nStrengthFuncs, StrengthFuncLValue, &
1392 +       StrengthFuncMValue, StrengthFunctionType, StrengthFuncCoefficient, &
1393 +       myAtid, status)
1394 +
1395 +  return
1396 + end subroutine makeShape

Diff Legend

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