ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/fortranWrapDefines.hpp
Revision: 348
Committed: Fri Mar 14 21:33:10 2003 UTC (21 years, 4 months ago) by mmeineke
File size: 913 byte(s)
Log Message:
mostly compiles. interface twixt c and fortran is broken. (c needs to be brought up to date with fortran.)

File Contents

# Content
1 #ifndef __FORTRAN_WRAP_DEFINES_H__
2 #define __FORTRAN_WRAP_DEFINES_H__
3
4 // this defines some function lists, that are too long to keep track
5 // of everywhere
6
7 #define makeAtypeList ( int* ident, double* mass, double* epslon,\
8 double* sigma, int* isLJ, int* isSSD, int* isDipole, int* isGB,\
9 double* w0, double* v0, double* dipole, int* status )
10
11 #define initFortranFFList ( int *nLocal, int *identArray, int *isError )
12
13 #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
18 #define setFortranSimList ( simtype* the_Info, int* isError )
19
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