UseTheForce/DarkSide/sticky_interface.h

/*
 *  sticky_pair_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#ifndef USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
#define USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H

#define __C
#include "config.h"

extern "C"{
  
  void F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)( double* sticky_w0, 
                                                        double* sticky_v0,
                                                        double* sticky_v0p,
                                                        double* sticky_rl,
                                                        double* sticky_ru,
                                                        double* sticky_rlp,
                                                        double* sticky_rup );
  
  void (set_sticky_params)( double* sticky_w0, 
                            double* sticky_v0,
                            double* sticky_v0p,
                            double* sticky_rl,
                            double* sticky_ru,
                            double* sticky_rlp,
                            double* sticky_rup ){
    
    F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)(sticky_v0
                                                    sticky_v0p
                                                    sticky_rl
                                                    sticky_ru
                                                    sticky_rlp
                                                    sticky_rup
                                                    );
  }
}

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