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:	1683
Committed:	Thu Oct 28 22:34:02 2004 UTC (19 years, 8 months ago)
Content type:	text/plain
File size:	983 byte(s)
Log Message:	This commit was manufactured by cvs2svn to create branch 'new_design'.
#	User	Rev	Content
1	gezelter	1610	/*
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	chuckv	1617
15			#define initFortranFF F90_FUNC(initfortranff, INITFORTRANFF)
16			#define doForceLoop F90_FUNC(doforceloop, DOFORCELOOP)
17
18	gezelter	1610	extern "C"{
19
20	gezelter	1628	void initFortranFF( int* useReactionField,
21	chuckv	1617	int *isError );
22
23	gezelter	1610
24	chuckv	1617	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	gezelter	1610	}
36			#endif