UseTheForce/DarkSide/sticky_pair_module_interface.h

/*
 *  sticky_pair_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#ifndef STICKY_PAIR_MODULE_INTERFACE_H
#define STICKY_PAIR_MODULE_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:	1604
Committed:	Tue Oct 19 22:37:55 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	1608 byte(s)
Log Message:	Added correct prototypes for C-fortran interface functions.
#	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 STICKY_PAIR_MODULE_INTERFACE_H
10	#define STICKY_PAIR_MODULE_INTERFACE_H
11
12	#define __C
13	#include "config.h"
14	extern "C"{
15
16	void F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)( double* sticky_w0,
17	double* sticky_v0,
18	double* sticky_v0p,
19	double* sticky_rl,
20	double* sticky_ru,
21	double* sticky_rlp,
22	double* sticky_rup );
23
24	void (set_sticky_params)( double* sticky_w0,
25	double* sticky_v0,
26	double* sticky_v0p,
27	double* sticky_rl,
28	double* sticky_ru,
29	double* sticky_rlp,
30	double* sticky_rup ){
31
32	F90_FUNC_(set_sticky_params, SET_STICKY_PARAMS)(sticky_v0
33	sticky_v0p
34	sticky_rl
35	sticky_ru
36	sticky_rlp
37	sticky_rup
38	);
39	}
40	}
41
42	#endif