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:	115
Committed:	Wed Oct 20 04:02:48 2004 UTC (20 years, 6 months ago) by gezelter
Content type:	text/plain
File size:	2995 byte(s)
Log Message:	name sanity on the fortran side
#	User	Rev	Content
1	gezelter	115	/**
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