src/UseTheForce/doForces_interface.h

/*
 *  doForces_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#ifndef USETHEFORCE_DOFORCES_INTERFACE_H
#define USETHEFORCE_DOFORCES_INTERFACE_H

#define __C
#include "config.h"

#define initFortranFF F90_FUNC(initfortranff, INITFORTRANFF)
#define doForceLoop F90_FUNC(doforceloop, DOFORCELOOP)

extern "C"{
  
  void initFortranFF( int* LJ_mix_policy, 
                      int* useReactionField,
                      int *isError );        

  
  void doForceLoop( double* positionArray,
                    double* rcArray,
                    double* RotationMatrixArray,
                    double* unitVectorArray_l,
                    double* forceArray,
                    double *torqueArray,
                    double* StressTensor, 
                    double* potentialEnergy, 
                    short int* doPotentialCalc, 
                    short int* doStressCalc,
                    int* isError );
}
#endif
Revision:	1617
Committed:	Wed Oct 20 20:46:20 2004 UTC (19 years, 8 months ago) by chuckv
Content type:	text/plain
File size:	1026 byte(s)
Log Message:	Fortran/C++ interface de-obfuscation project (It is a very long story)
#	Content
1	/*
2	* doForces_interface.h
3	* oopse
4	*
5	* Created by Charles Vardeman II on 10/19/04.
6	* Copyright 2004 __MyCompanyName__. All rights reserved.
7	*
8	*/
9	#ifndef USETHEFORCE_DOFORCES_INTERFACE_H
10	#define USETHEFORCE_DOFORCES_INTERFACE_H
11
12	#define __C
13	#include "config.h"
14
15	#define initFortranFF F90_FUNC(initfortranff, INITFORTRANFF)
16	#define doForceLoop F90_FUNC(doforceloop, DOFORCELOOP)
17
18	extern "C"{
19
20	void initFortranFF( int* LJ_mix_policy,
21	int* useReactionField,
22	int *isError );
23
24
25	void doForceLoop( double* positionArray,
26	double* rcArray,
27	double* RotationMatrixArray,
28	double* unitVectorArray_l,
29	double* forceArray,
30	double *torqueArray,
31	double* StressTensor,
32	double* potentialEnergy,
33	short int* doPotentialCalc,
34	short int* doStressCalc,
35	int* isError );
36	}
37	#endif