UseTheForce/DarkSide/shapes_interface.h

/**
 * @file shapes_module.h
 * @author Dan Gezelter
 * @date 10/19/2004
 * @version 1.0
 */

#ifndef USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H
#define USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H

#define __C

#include "config.h"

#define makeShape F90_FUNC(makeshape, MAKESHAPE)

#define SH_COS 0
#define SH_SIN 1

extern "C" {

  void makeShape(int* nContactFuncs, 
                 int* ContactFuncLValue, 
                 int* ContactFuncMValue, 
                 int* ContactFunctionType, 
                 double* ContactFuncCoefficient, 
                 int* nRangeFuncs, 
                 int* RangeFuncLValue,
                 int* RangeFuncMValue, 
                 int* RangeFunctionType, 
                 double* RangeFuncCoefficient, 
                 int* nStrengthFuncs, 
                 int* StrengthFuncLValue, 
                 int* StrengthFuncMValue, 
                 int* StrengthFunctionType, 
                 double* StrengthFuncCoefficient,
                 int* myAtid, 
                 int* status);
}
    
#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:	1041 byte(s)
Log Message:	Fortran/C++ interface de-obfuscation project (It is a very long story)
#	Content
1	/**
2	* @file shapes_module.h
3	* @author Dan Gezelter
4	* @date 10/19/2004
5	* @version 1.0
6	*/
7
8	#ifndef USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H
9	#define USETHEFORCE_DARKSIDE_SHAPES_INTERFACE_H
10
11	#define __C
12
13	#include "config.h"
14
15	#define makeShape F90_FUNC(makeshape, MAKESHAPE)
16
17	#define SH_COS 0
18	#define SH_SIN 1
19
20	extern "C" {
21
22	void makeShape(int* nContactFuncs,
23	int* ContactFuncLValue,
24	int* ContactFuncMValue,
25	int* ContactFunctionType,
26	double* ContactFuncCoefficient,
27	int* nRangeFuncs,
28	int* RangeFuncLValue,
29	int* RangeFuncMValue,
30	int* RangeFunctionType,
31	double* RangeFuncCoefficient,
32	int* nStrengthFuncs,
33	int* StrengthFuncLValue,
34	int* StrengthFuncMValue,
35	int* StrengthFunctionType,
36	double* StrengthFuncCoefficient,
37	int* myAtid,
38	int* status);
39	}
40
41	#endif