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 SH_COS 0
#define SH_SIN 1

extern "C" {

  void F90_FUNC(makeshape, 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);

  
  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) {
  
    F90_FUNC(makeshape, MAKESHAPE)( nContactFuncs, 
                                    ContactFuncLValue, 
                                    ContactFuncMValue, 
                                    ContactFunctionType, 
                                    ContactFuncCoefficient, 
                                    nRangeFuncs, 
                                    RangeFuncLValue,
                                    RangeFuncMValue, 
                                    RangeFunctionType, 
                                    RangeFuncCoefficient, 
                                    nStrengthFuncs, 
                                    StrengthFuncLValue, 
                                    StrengthFuncMValue, 
                                    StrengthFunctionType, 
                                    StrengthFuncCoefficient,
                                    myAtid, 
                                    status);
  }
}
    
#endif
Revision:	1608
Committed:	Wed Oct 20 04:02:48 2004 UTC (19 years, 8 months ago) by gezelter
Content type:	text/plain
File size:	2995 byte(s)
Log Message:	name sanity on the fortran side
#	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 SH_COS 0
16	#define SH_SIN 1
17
18	extern "C" {
19
20	void F90_FUNC(makeshape, MAKESHAPE)(int* nContactFuncs,
21	int* ContactFuncLValue,
22	int* ContactFuncMValue,
23	int* ContactFunctionType,
24	double* ContactFuncCoefficient,
25	int* nRangeFuncs,
26	int* RangeFuncLValue,
27	int* RangeFuncMValue,
28	int* RangeFunctionType,
29	double* RangeFuncCoefficient,
30	int* nStrengthFuncs,
31	int* StrengthFuncLValue,
32	int* StrengthFuncMValue,
33	int* StrengthFunctionType,
34	double* StrengthFuncCoefficient,
35	int* myAtid,
36	int* status);
37
38
39	void makeShape(int* nContactFuncs,
40	int* ContactFuncLValue,
41	int* ContactFuncMValue,
42	int* ContactFunctionType,
43	double* ContactFuncCoefficient,
44	int* nRangeFuncs,
45	int* RangeFuncLValue,
46	int* RangeFuncMValue,
47	int* RangeFunctionType,
48	double* RangeFuncCoefficient,
49	int* nStrengthFuncs,
50	int* StrengthFuncLValue,
51	int* StrengthFuncMValue,
52	int* StrengthFunctionType,
53	double* StrengthFuncCoefficient,
54	int* myAtid,
55	int* status) {
56
57	F90_FUNC(makeshape, MAKESHAPE)( nContactFuncs,
58	ContactFuncLValue,
59	ContactFuncMValue,
60	ContactFunctionType,
61	ContactFuncCoefficient,
62	nRangeFuncs,
63	RangeFuncLValue,
64	RangeFuncMValue,
65	RangeFunctionType,
66	RangeFuncCoefficient,
67	nStrengthFuncs,
68	StrengthFuncLValue,
69	StrengthFuncMValue,
70	StrengthFunctionType,
71	StrengthFuncCoefficient,
72	myAtid,
73	status);
74	}
75	}
76
77	#endif