11 |
|
|
12 |
|
#define __C |
13 |
|
#include "config.h" |
14 |
+ |
|
15 |
+ |
#define initFortranFF F90_FUNC(initfortranff, INITFORTRANFF) |
16 |
+ |
#define doForceLoop F90_FUNC(doforceloop, DOFORCELOOP) |
17 |
+ |
|
18 |
|
extern "C"{ |
19 |
|
|
20 |
< |
void F90_FUNC(initFortranff,INITFORTRANFF)( int* LJ_mix_policy, |
21 |
< |
int* useReactionField, |
22 |
< |
int *isError ); |
23 |
< |
void (initFortranFF)( int* LJ_mix_policy, |
20 |
< |
int* useReactionField, |
21 |
< |
int *isError ){ |
22 |
< |
F90_FUNC(initFortranff,INITFORTRANFF)( LJ_mix_policy, |
23 |
< |
useReactionField, |
24 |
< |
isError |
25 |
< |
); |
26 |
< |
} |
20 |
> |
void initFortranFF( int* LJ_mix_policy, |
21 |
> |
int* useReactionField, |
22 |
> |
int *isError ); |
23 |
> |
|
24 |
|
|
25 |
< |
void F90_FUNC(doforceloop,DOFORCELOOP)( double* positionArray, |
26 |
< |
double* rcArray, |
27 |
< |
double* RotationMatrixArray, |
28 |
< |
double* unitVectorArray_l, |
29 |
< |
double* forceArray, |
30 |
< |
double *torqueArray, |
31 |
< |
double* StressTensor, |
32 |
< |
double* potentialEnergy, |
33 |
< |
short int* doPotentialCalc, |
34 |
< |
short int* doStressCalc, |
35 |
< |
int* isError ); |
39 |
< |
|
40 |
< |
void (doForceLoop)( double* positionArray, |
41 |
< |
double* rcArray, |
42 |
< |
double* RotationMatrixArray, |
43 |
< |
double* unitVectorArray_l, |
44 |
< |
double* forceArray, |
45 |
< |
double *torqueArray, |
46 |
< |
double* StressTensor, |
47 |
< |
double* potentialEnergy, |
48 |
< |
short int* doPotentialCalc, |
49 |
< |
short int* doStressCalc, |
50 |
< |
int* isError ){ |
51 |
< |
F90_FUNC(doforceloop,DOFORCELOOP)( positionArray, |
52 |
< |
rcArray, |
53 |
< |
RotationMatrixArray, |
54 |
< |
unitVectorArray_l, |
55 |
< |
forceArray, |
56 |
< |
torqueArray, |
57 |
< |
StressTensor, |
58 |
< |
potentialEnergy, |
59 |
< |
doPotentialCalc, |
60 |
< |
doStressCalc, |
61 |
< |
isError ); |
62 |
< |
} |
63 |
< |
|
64 |
< |
|
25 |
> |
void doForceLoop( double* positionArray, |
26 |
> |
double* rcArray, |
27 |
> |
double* RotationMatrixArray, |
28 |
> |
double* unitVectorArray_l, |
29 |
> |
double* forceArray, |
30 |
> |
double *torqueArray, |
31 |
> |
double* StressTensor, |
32 |
> |
double* potentialEnergy, |
33 |
> |
short int* doPotentialCalc, |
34 |
> |
short int* doStressCalc, |
35 |
> |
int* isError ); |
36 |
|
} |
66 |
– |
|
37 |
|
#endif |