ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/branches/new_design/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.h
Revision: 1650
Committed: Tue Oct 26 22:24:52 2004 UTC (19 years, 10 months ago) by gezelter
Content type: text/plain
Original Path: trunk/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.h
File size: 1148 byte(s)
Log Message:
forcefield refactoring for shapes

File Contents

# 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 chrisfen 1647 #define completeShapeFF F90_FUNC(completeshapeff, COMPLETESHAPEFF)
17 chuckv 1617
18 gezelter 1650
19 gezelter 1608 #define SH_COS 0
20     #define SH_SIN 1
21    
22     extern "C" {
23    
24     void makeShape(int* nContactFuncs,
25     int* ContactFuncLValue,
26     int* ContactFuncMValue,
27     int* ContactFunctionType,
28     double* ContactFuncCoefficient,
29     int* nRangeFuncs,
30     int* RangeFuncLValue,
31     int* RangeFuncMValue,
32     int* RangeFunctionType,
33     double* RangeFuncCoefficient,
34     int* nStrengthFuncs,
35     int* StrengthFuncLValue,
36     int* StrengthFuncMValue,
37     int* StrengthFunctionType,
38     double* StrengthFuncCoefficient,
39     int* myAtid,
40 chuckv 1617 int* status);
41 chrisfen 1647
42     void completeShapeFF( int* status);
43 gezelter 1608 }
44    
45     #endif