UseTheForce/DarkSide/gb_module_interface.h

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

#define __C
#include "config.h"
extern "C"{
  void F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS)( double* GB_sigma,
                           double* GB_l2b_ratio,
                           double* GB_eps,
                           double* GB_eps_ratio,
                           double* GB_mu,
                           double* GB_nu );
    
void set_gb_pair_params( double* GB_sigma,
                                     double* GB_l2b_ratio,
                                     double* GB_eps,
                                     double* GB_eps_ratio,
                                     double* GB_mu,
                                     double* GB_nu ){
    
    F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS)(GB_sigma,
                                                     GB_eps,
                                                     GB_eps_ratio,
                                                     GB_mu,
                                                     GB_nu);
    
  }
  
}
#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:	1227 byte(s)
Log Message:	Added correct prototypes for C-fortran interface functions.
#	User	Rev	Content
1	chuckv	1602	/*
2			* gb_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 GB_MODULE_INTERFACE_H
10			#define GB_MODULE_INTERFACE_H
11
12	chuckv	1602	#define __C
13			#include "config.h"
14			extern "C"{
15	chuckv	1604	void F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS)( double* GB_sigma,
16			double* GB_l2b_ratio,
17			double* GB_eps,
18			double* GB_eps_ratio,
19			double* GB_mu,
20			double* GB_nu );
21
22			void set_gb_pair_params( double* GB_sigma,
23	chuckv	1602	double* GB_l2b_ratio,
24			double* GB_eps,
25			double* GB_eps_ratio,
26			double* GB_mu,
27			double* GB_nu ){
28
29	chuckv	1604	F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS)(GB_sigma,
30	chuckv	1602	GB_eps,
31			GB_eps_ratio,
32			GB_mu,
33			GB_nu);
34
35			}
36
37	chuckv	1604	}
38			#endif