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.
 *
 */
#define __C
#include "config.h"
extern "C"{
  typedef 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);
    
  }
  
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	862 byte(s)
Log Message:	Added new files for fortran interface.
#	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	#define __C
10	#include "config.h"
11	extern "C"{
12	typedef void (set_gb_pair_params)( double* GB_sigma,
13	double* GB_l2b_ratio,
14	double* GB_eps,
15	double* GB_eps_ratio,
16	double* GB_mu,
17	double* GB_nu ){
18
19	F90_FUNC(set_gb_pair_params, SET_GB_PAIR_PARAMS)(GB_sigma,
20	GB_eps,
21	GB_eps_ratio,
22	GB_mu,
23	GB_nu);
24
25	}
26
27	}