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* 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:	1628
Committed:	Thu Oct 21 20:15:31 2004 UTC (19 years, 8 months ago) by gezelter
Content type:	text/plain
File size:	983 byte(s)
Log Message:	Breaky Breaky. Fixey Fixey.
#	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* useReactionField,
21	int *isError );
22
23
24	void doForceLoop( double* positionArray,
25	double* rcArray,
26	double* RotationMatrixArray,
27	double* unitVectorArray_l,
28	double* forceArray,
29	double *torqueArray,
30	double* StressTensor,
31	double* potentialEnergy,
32	short int* doPotentialCalc,
33	short int* doStressCalc,
34	int* isError );
35	}
36	#endif