1 |
/** |
2 |
* @file shapes_module.h |
3 |
* @author Dan Gezelter |
4 |
* @date 10/19/2004 |
5 |
* @version 1.0 |
6 |
*/ |
7 |
|
8 |
#ifndef USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H |
9 |
#define USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H |
10 |
|
11 |
#define __C |
12 |
|
13 |
#include "config.h" |
14 |
|
15 |
#define SH_COS 0 |
16 |
#define SH_SIN 1 |
17 |
|
18 |
extern "C" { |
19 |
|
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 |
|
39 |
void makeShape(int* nContactFuncs, |
40 |
int* ContactFuncLValue, |
41 |
int* ContactFuncMValue, |
42 |
int* ContactFunctionType, |
43 |
double* ContactFuncCoefficient, |
44 |
int* nRangeFuncs, |
45 |
int* RangeFuncLValue, |
46 |
int* RangeFuncMValue, |
47 |
int* RangeFunctionType, |
48 |
double* RangeFuncCoefficient, |
49 |
int* nStrengthFuncs, |
50 |
int* StrengthFuncLValue, |
51 |
int* StrengthFuncMValue, |
52 |
int* StrengthFunctionType, |
53 |
double* StrengthFuncCoefficient, |
54 |
int* myAtid, |
55 |
int* status) { |
56 |
|
57 |
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 |
} |
75 |
} |
76 |
|
77 |
#endif |