ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-2.0/src/UseTheForce/DarkSide/sticky_interface.h
Revision: 1621
Committed: Wed Oct 20 21:52:20 2004 UTC (19 years, 8 months ago) by gezelter
Content type: text/plain
File size: 693 byte(s)
Log Message:
fixed a fortran name problem

File Contents

# Content
1 /*
2 * sticky_pair_module_interface.h
3 * oopse
4 *
5 * Created by Charles Vardeman II on 10/19/04.
6 * Copyright 2004 University of Notre Dame. 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 #define makeStickyType F90_FUNC(makestickytype, MAKESTICKYTYPE)
16
17 extern "C" {
18
19 void makeStickyType( double* sticky_w0,
20 double* sticky_v0,
21 double* sticky_v0p,
22 double* sticky_rl,
23 double* sticky_ru,
24 double* sticky_rlp,
25 double* sticky_rup );
26 }
27
28 #endif