ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/branches/new_design/OOPSE-4/src/UseTheForce/DarkSide/sticky_interface.h
Revision: 1608
Committed: Wed Oct 20 04:02:48 2004 UTC (19 years, 10 months ago) by gezelter
Content type: text/plain
Original Path: trunk/OOPSE-4/src/UseTheForce/DarkSide/sticky_interface.h
File size: 1628 byte(s)
Log Message:
name sanity on the fortran side

File Contents

# User Rev Content
1 gezelter 1608 /*
2     * sticky_pair_module_interface.h
3     * oopse
4     *
5     * Created by Charles Vardeman II on 10/19/04.
6     * Copyright 2004 __MyCompanyName__. All rights reserved.
7     *
8     */
9     #ifndef USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
10     #define USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
11    
12     #define __C
13     #include "config.h"
14    
15     extern "C"{
16    
17     void F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)( double* sticky_w0,
18     double* sticky_v0,
19     double* sticky_v0p,
20     double* sticky_rl,
21     double* sticky_ru,
22     double* sticky_rlp,
23     double* sticky_rup );
24    
25     void (set_sticky_params)( double* sticky_w0,
26     double* sticky_v0,
27     double* sticky_v0p,
28     double* sticky_rl,
29     double* sticky_ru,
30     double* sticky_rlp,
31     double* sticky_rup ){
32    
33     F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)(sticky_v0
34     sticky_v0p
35     sticky_rl
36     sticky_ru
37     sticky_rlp
38     sticky_rup
39     );
40     }
41     }
42    
43     #endif