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"
extern "C"{
  
  void F90_FUNC(initFortranff,INITFORTRANFF)( int* LJ_mix_policy, 
                                              int* useReactionField,
                                              int *isError );        
  void (initFortranFF)( int* LJ_mix_policy, 
                        int* useReactionField,
                        int *isError ){           
    F90_FUNC(initFortranff,INITFORTRANFF)( LJ_mix_policy, 
                                           useReactionField,
                                           isError 
                                           );
  }
  
  void F90_FUNC(doforceloop,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 );
  
  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 ){
    F90_FUNC(doforceloop,DOFORCELOOP)( positionArray,
                                       rcArray,
                                       RotationMatrixArray,
                                       unitVectorArray_l,
                                       forceArray,
                                       torqueArray,
                                       StressTensor, 
                                       potentialEnergy, 
                                       doPotentialCalc, 
                                       doStressCalc,
                                       isError );
  }
  
  
}

#endif
Revision:	117
Committed:	Wed Oct 20 04:19:55 2004 UTC (21 years ago) by gezelter
Content type:	text/plain
File size:	2692 byte(s)
Log Message:	Fortran name cleanup continues
#	User	Rev	Content
1	gezelter	117	/*
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			extern "C"{
15
16			void F90_FUNC(initFortranff,INITFORTRANFF)( int* LJ_mix_policy,
17			int* useReactionField,
18			int *isError );
19			void (initFortranFF)( int* LJ_mix_policy,
20			int* useReactionField,
21			int *isError ){
22			F90_FUNC(initFortranff,INITFORTRANFF)( LJ_mix_policy,
23			useReactionField,
24			isError
25			);
26			}
27
28			void F90_FUNC(doforceloop,DOFORCELOOP)( double* positionArray,
29			double* rcArray,
30			double* RotationMatrixArray,
31			double* unitVectorArray_l,
32			double* forceArray,
33			double *torqueArray,
34			double* StressTensor,
35			double* potentialEnergy,
36			short int* doPotentialCalc,
37			short int* doStressCalc,
38			int* isError );
39
40			void (doForceLoop)( double* positionArray,
41			double* rcArray,
42			double* RotationMatrixArray,
43			double* unitVectorArray_l,
44			double* forceArray,
45			double *torqueArray,
46			double* StressTensor,
47			double* potentialEnergy,
48			short int* doPotentialCalc,
49			short int* doStressCalc,
50			int* isError ){
51			F90_FUNC(doforceloop,DOFORCELOOP)( positionArray,
52			rcArray,
53			RotationMatrixArray,
54			unitVectorArray_l,
55			forceArray,
56			torqueArray,
57			StressTensor,
58			potentialEnergy,
59			doPotentialCalc,
60			doStressCalc,
61			isError );
62			}
63
64
65			}
66
67			#endif