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
#	User	Rev	Content
1	mmeineke	293
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;