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.
#	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
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			}