ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/fortranWrapDefines.hpp
Revision: 357
Committed: Mon Mar 17 20:54:25 2003 UTC (21 years, 5 months ago) by mmeineke
File size: 1056 byte(s)
Log Message:
working on the fortran init ForceField interface.

File Contents

# User Rev Content
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 355 #define makeAtypeList ( int* unique_ident, \
8     int* isLJ, int* isSticky, int* isDipole, int* isGB, \
9     double* lj_epslon, double* lj_sigma, \
10     double* dipole_moment, double* w0, double* v0,\
11     double* GB_sigma, double* GB_l2b_ratio, double* GB_eps, \
12     double* GB_eps_ratio, double* GB_mu, double* GB_nu, \
13     int* status )
14 mmeineke 293
15 mmeineke 357 #define initFortranFFList ( int* LJ_mix_policy, int* useReactionField,\
16     int *isError )
17 mmeineke 293
18 mmeineke 296 #define doForceLoopList ( double* positionArray, double* RotationMatrixArray,\
19 mmeineke 357 double unitVectorArray_l, double* forceArray,\
20 mmeineke 296 double *torqueArray, double* StressTensor, double* potentialEnergy,\
21 mmeineke 357 short int* doPotentialCalc, short int* doStressCalc, int* isError )
22 mmeineke 293
23 mmeineke 348 #define setFortranSimList ( simtype* the_Info, int* isError )
24 mmeineke 293
25     #ifdef IS_MPI
26    
27     #define setFortanMPIlist (mpiSimData* the_mpiPlug, int *nLocal,\
28 mmeineke 357 int* globalIndexArray, int* isError )
29 mmeineke 293
30     #endif // is_mpi
31    
32     #endif // frotranWrapDefines.hpp