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)
#	User	Rev	Content
1	gezelter	1608	/**
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	chuckv	1617	#define makeShape F90_FUNC(makeshape, MAKESHAPE)
16
17	gezelter	1608	#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	chuckv	1617	int* status);
39	gezelter	1608	}
40
41			#endif