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.
#	User	Rev	Content
1	chuckv	1602	/*
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	chuckv	1604	#ifndef STICKY_PAIR_MODULE_INTERFACE_H
10			#define STICKY_PAIR_MODULE_INTERFACE_H
11	chuckv	1602
12			#define __C
13			#include "config.h"
14			extern "C"{
15	chuckv	1604
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	chuckv	1602	}
40	chuckv	1604	}
41
42			#endif