1 |
/* |
2 |
* doForces_interface.h |
3 |
* oopse |
4 |
* |
5 |
* Created by Charles Vardeman II on 10/19/04. |
6 |
* Copyright 2004 __MyCompanyName__. All rights reserved. |
7 |
* |
8 |
*/ |
9 |
#ifndef USETHEFORCE_DOFORCES_INTERFACE_H |
10 |
#define USETHEFORCE_DOFORCES_INTERFACE_H |
11 |
|
12 |
#define __C |
13 |
#include "config.h" |
14 |
extern "C"{ |
15 |
|
16 |
void F90_FUNC(initFortranff,INITFORTRANFF)( int* LJ_mix_policy, |
17 |
int* useReactionField, |
18 |
int *isError ); |
19 |
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 |
} |
27 |
|
28 |
void F90_FUNC(doforceloop,DOFORCELOOP)( double* positionArray, |
29 |
double* rcArray, |
30 |
double* RotationMatrixArray, |
31 |
double* unitVectorArray_l, |
32 |
double* forceArray, |
33 |
double *torqueArray, |
34 |
double* StressTensor, |
35 |
double* potentialEnergy, |
36 |
short int* doPotentialCalc, |
37 |
short int* doStressCalc, |
38 |
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 |
|
65 |
} |
66 |
|
67 |
#endif |