23 |
|
logical, save :: haveShapeMap = .false. |
24 |
|
|
25 |
|
public :: do_shape_pair |
26 |
+ |
public :: newShapeType |
27 |
|
|
28 |
|
|
29 |
|
type, private :: Shape |
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 |