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.
 *
 */

#define __C
#include "config.h"
extern "C"{
  typedef 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
                                                   );
  }
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	1059 byte(s)
Log Message:	Added new files for fortran interface.
#	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
10	#define __C
11	#include "config.h"
12	extern "C"{
13	typedef void (set_sticky_params)( double* sticky_w0,
14	double* sticky_v0,
15	double* sticky_v0p,
16	double* sticky_rl,
17	double* sticky_ru,
18	double* sticky_rlp,
19	double* sticky_rup ){
20
21	F90_FUNC(set_sticky_params, SET_STICKY_PARAMS)(sticky_v0
22	sticky_v0p
23	sticky_rl
24	sticky_ru
25	sticky_rlp
26	sticky_rup
27	);
28	}
29	}