1 |
mmeineke |
293 |
|
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; |