53 |
|
|
54 |
|
#include "config.h" |
55 |
|
|
56 |
< |
#define makeShape F90_FUNC(makeshape, MAKESHAPE) |
57 |
< |
#define completeShapeFF F90_FUNC(completeshapeff, COMPLETESHAPEFF) |
58 |
< |
#define destroyShapeTypes F90_FUNC(destroyshapetypes, DESTROYSHAPETYPES) |
56 |
> |
#define makeShape FC_FUNC(makeshape, MAKESHAPE) |
57 |
> |
#define completeShapeFF FC_FUNC(completeshapeff, COMPLETESHAPEFF) |
58 |
> |
#define destroyShapeTypes FC_FUNC(destroyshapetypes, DESTROYSHAPETYPES) |
59 |
|
|
60 |
|
#define SH_COS 0 |
61 |
|
#define SH_SIN 1 |
66 |
|
int* ContactFuncLValue, |
67 |
|
int* ContactFuncMValue, |
68 |
|
int* ContactFunctionType, |
69 |
< |
double* ContactFuncCoefficient, |
69 |
> |
RealType* ContactFuncCoefficient, |
70 |
|
int* nRangeFuncs, |
71 |
|
int* RangeFuncLValue, |
72 |
|
int* RangeFuncMValue, |
73 |
|
int* RangeFunctionType, |
74 |
< |
double* RangeFuncCoefficient, |
74 |
> |
RealType* RangeFuncCoefficient, |
75 |
|
int* nStrengthFuncs, |
76 |
|
int* StrengthFuncLValue, |
77 |
|
int* StrengthFuncMValue, |
78 |
|
int* StrengthFunctionType, |
79 |
< |
double* StrengthFuncCoefficient, |
79 |
> |
RealType* StrengthFuncCoefficient, |
80 |
|
int* c_ident, |
81 |
|
int* status); |
82 |
|
|