mdtools/libmdCode/fortranWrapDefines.hpp

#ifndef __FORTRAN_WRAP_DEFINES_H__
#define __FORTRAN_WRAP_DEFINES_H__

// this defines some function lists, that are too long to keep track
// of everywhere

#define makeAtypeList ( int* ident, double* mass, double* epslon,\
double* sigma, int* isLJ, int* isSSD, int* isDipole, int* isGB,\
double* w0, double* v0, double* dipole, int* status )

#define initFortranFFList ( int *nLocal, int *identArray, int *isError )

#define doForceLoopList ( double* positionArray, double* RotationMatrixArray,\
double *dipoleMomentArray, double unitVectorArray_l, double* forceArray,\
double *torqueArray, double* StressTensor, double* potentialEnergy,\
short int* doPotentialCalc, int* isError )

#define setFortranSimList ( simtype* the_Info, int* isError )

#ifdef IS_MPI

#define setFortanMPIlist (mpiSimData* the_mpiPlug, int *nLocal,\
int* globalIndex, int* isError )

#endif // is_mpi

#endif // frotranWrapDefines.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.)
#	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	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