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)
#	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	chuckv	1617	void initFortranFF( int* LJ_mix_policy,
21			int* useReactionField,
22			int *isError );
23
24	gezelter	1610
25	chuckv	1617	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	gezelter	1610	}
37			#endif