UseTheForce/DarkSide/sticky_interface.h

/*
 *  sticky_pair_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 University of Notre Dame. All rights reserved.
 *
 */
#ifndef USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
#define USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H

#define __C
#include "config.h"

#define makeStickyType F90_FUNC(makestickytype, MAKESTICKYTYPE)

extern "C" {
  
  void makeStickyType( double* sticky_w0, 
                       double* sticky_v0,
                       double* sticky_v0p,
                       double* sticky_rl,
                       double* sticky_ru,
                       double* sticky_rlp,
                       double* sticky_rup );
}

#endif
Revision:	128
Committed:	Wed Oct 20 21:52:20 2004 UTC (20 years, 6 months ago) by gezelter
Content type:	text/plain
File size:	693 byte(s)
Log Message:	fixed a fortran name problem
#	User	Rev	Content
1	gezelter	115	/*
2			* sticky_pair_module_interface.h
3			* oopse
4			*
5			* Created by Charles Vardeman II on 10/19/04.
6	chuckv	124	* Copyright 2004 University of Notre Dame. All rights reserved.
7	gezelter	115	*
8			*/
9			#ifndef USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
10			#define USETHEFORCE_DARKSIDE_STICKY_INTERFACE_H
11
12			#define __C
13			#include "config.h"
14
15	gezelter	128	#define makeStickyType F90_FUNC(makestickytype, MAKESTICKYTYPE)
16
17	chuckv	124	extern "C" {
18	gezelter	115
19	gezelter	128	void makeStickyType( double* sticky_w0,
20			double* sticky_v0,
21			double* sticky_v0p,
22			double* sticky_rl,
23			double* sticky_ru,
24			double* sticky_rlp,
25			double* sticky_rup );
26	gezelter	115	}
27
28			#endif