mdtools/libmdCode/fortranWrappers.cpp


#include <fortranWrappers.hpp>


extern "C" {

  void wrapforcefield_( void (*wrapFunction)( void (*p1),
                                              void (*p2)( int *nLocal,
                                                          int *identArray,
                                                          int *isError ),
                                              void (*p3)( double* positionArray,
                                                          double* forceArray,
                                                          double* potentialEnergy,
                                                          double* tau,
                                                          short int* doPotentialCalc,
                                                          int* isError)));
}


void functionWrapperFF( void (*p1) newAtypeList, void (*p2) initFortranList,
                        void (*p3) doForceLoopList );

void (*newAtype) newAtypeList;

void (*initTPEfortran) initFortranList;
Revision:	293
Committed:	Thu Mar 6 16:07:57 2003 UTC (21 years, 6 months ago) by mmeineke
File size:	574 byte(s)
Log Message:	cleaning up all of the function wrapping
#	Content
1
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;