UseTheForce/DarkSide/gb_interface.h

/*
 *  gb_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#ifndef USETHEFORCE_DARKSIDE_GB_INTERFACE_H
#define USETHEFORCE_DARKSIDE_GB_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:	1608
Committed:	Wed Oct 20 04:02:48 2004 UTC (19 years, 9 months ago) by gezelter
Content type:	text/plain
File size:	1256 byte(s)
Log Message:	name sanity on the fortran side
#	Content
1	/*
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	#ifndef USETHEFORCE_DARKSIDE_GB_INTERFACE_H
10	#define USETHEFORCE_DARKSIDE_GB_INTERFACE_H
11
12	#define __C
13	#include "config.h"
14	extern "C"{
15	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	double* GB_l2b_ratio,
24	double* GB_eps,
25	double* GB_eps_ratio,
26	double* GB_mu,
27	double* GB_nu ){
28
29	F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS)(GB_sigma,
30	GB_eps,
31	GB_eps_ratio,
32	GB_mu,
33	GB_nu);
34
35	}
36
37	}
38	#endif