| 12 |
|
|
| 13 |
|
#include "config.h" |
| 14 |
|
|
| 15 |
+ |
#define makeShape F90_FUNC(makeshape, MAKESHAPE) |
| 16 |
+ |
#define completeShapeFF F90_FUNC(completeshapeff, COMPLETESHAPEFF) |
| 17 |
+ |
|
| 18 |
+ |
|
| 19 |
|
#define SH_COS 0 |
| 20 |
|
#define SH_SIN 1 |
| 21 |
|
|
| 22 |
|
extern "C" { |
| 23 |
|
|
| 20 |
– |
void F90_FUNC(makeshape, MAKESHAPE)(int* nContactFuncs, |
| 21 |
– |
int* ContactFuncLValue, |
| 22 |
– |
int* ContactFuncMValue, |
| 23 |
– |
int* ContactFunctionType, |
| 24 |
– |
double* ContactFuncCoefficient, |
| 25 |
– |
int* nRangeFuncs, |
| 26 |
– |
int* RangeFuncLValue, |
| 27 |
– |
int* RangeFuncMValue, |
| 28 |
– |
int* RangeFunctionType, |
| 29 |
– |
double* RangeFuncCoefficient, |
| 30 |
– |
int* nStrengthFuncs, |
| 31 |
– |
int* StrengthFuncLValue, |
| 32 |
– |
int* StrengthFuncMValue, |
| 33 |
– |
int* StrengthFunctionType, |
| 34 |
– |
double* StrengthFuncCoefficient, |
| 35 |
– |
int* myAtid, |
| 36 |
– |
int* status); |
| 37 |
– |
|
| 38 |
– |
|
| 24 |
|
void makeShape(int* nContactFuncs, |
| 25 |
|
int* ContactFuncLValue, |
| 26 |
|
int* ContactFuncMValue, |
| 37 |
|
int* StrengthFunctionType, |
| 38 |
|
double* StrengthFuncCoefficient, |
| 39 |
|
int* myAtid, |
| 40 |
< |
int* status) { |
| 41 |
< |
|
| 42 |
< |
F90_FUNC(makeshape, MAKESHAPE)( nContactFuncs, |
| 58 |
< |
ContactFuncLValue, |
| 59 |
< |
ContactFuncMValue, |
| 60 |
< |
ContactFunctionType, |
| 61 |
< |
ContactFuncCoefficient, |
| 62 |
< |
nRangeFuncs, |
| 63 |
< |
RangeFuncLValue, |
| 64 |
< |
RangeFuncMValue, |
| 65 |
< |
RangeFunctionType, |
| 66 |
< |
RangeFuncCoefficient, |
| 67 |
< |
nStrengthFuncs, |
| 68 |
< |
StrengthFuncLValue, |
| 69 |
< |
StrengthFuncMValue, |
| 70 |
< |
StrengthFunctionType, |
| 71 |
< |
StrengthFuncCoefficient, |
| 72 |
< |
myAtid, |
| 73 |
< |
status); |
| 74 |
< |
} |
| 40 |
> |
int* status); |
| 41 |
> |
|
| 42 |
> |
void completeShapeFF( int* status); |
| 43 |
|
} |
| 44 |
|
|
| 45 |
|
#endif |
