1 |
mmeineke |
348 |
#ifndef __FORTRAN_WRAP_DEFINES_H__ |
2 |
|
|
#define __FORTRAN_WRAP_DEFINES_H__ |
3 |
mmeineke |
293 |
|
4 |
|
|
// this defines some function lists, that are too long to keep track |
5 |
|
|
// of everywhere |
6 |
|
|
|
7 |
mmeineke |
348 |
#define makeAtypeList ( int* ident, double* mass, double* epslon,\ |
8 |
|
|
double* sigma, int* isLJ, int* isSSD, int* isDipole, int* isGB,\ |
9 |
mmeineke |
296 |
double* w0, double* v0, double* dipole, int* status ) |
10 |
mmeineke |
293 |
|
11 |
|
|
#define initFortranFFList ( int *nLocal, int *identArray, int *isError ) |
12 |
|
|
|
13 |
mmeineke |
296 |
#define doForceLoopList ( double* positionArray, double* RotationMatrixArray,\ |
14 |
|
|
double *dipoleMomentArray, double unitVectorArray_l, double* forceArray,\ |
15 |
|
|
double *torqueArray, double* StressTensor, double* potentialEnergy,\ |
16 |
|
|
short int* doPotentialCalc, int* isError ) |
17 |
mmeineke |
293 |
|
18 |
mmeineke |
348 |
#define setFortranSimList ( simtype* the_Info, int* isError ) |
19 |
mmeineke |
293 |
|
20 |
|
|
#ifdef IS_MPI |
21 |
|
|
|
22 |
|
|
#define setFortanMPIlist (mpiSimData* the_mpiPlug, int *nLocal,\ |
23 |
|
|
int* globalIndex, int* isError ) |
24 |
|
|
|
25 |
|
|
#endif // is_mpi |
26 |
|
|
|
27 |
|
|
#endif // frotranWrapDefines.hpp |