1 |
|
2 |
#include <fortranWrappers.hpp> |
3 |
|
4 |
|
5 |
extern "C" { |
6 |
|
7 |
void wrapforcefield_( void (*wrapFunction)( void (*p1), |
8 |
void (*p2)( int *nLocal, |
9 |
int *identArray, |
10 |
int *isError ), |
11 |
void (*p3)( double* positionArray, |
12 |
double* forceArray, |
13 |
double* potentialEnergy, |
14 |
double* tau, |
15 |
short int* doPotentialCalc, |
16 |
int* isError))); |
17 |
} |
18 |
|
19 |
|
20 |
void functionWrapperFF( void (*p1) newAtypeList, void (*p2) initFortranList, |
21 |
void (*p3) doForceLoopList ); |
22 |
|
23 |
void (*newAtype) newAtypeList; |
24 |
|
25 |
void (*initTPEfortran) initFortranList; |