Context Navigation

RpUnitsFInterface.h @ 84

Last change on this file since 84 was 84, checked in by dkearney, 19 years ago

RpLibraryF_test.f compiles, just with warnings, because i'm still working on it.

File size: 1.5 KB

Line
1	/*
2	* ----------------------------------------------------------------------
3	* INTERFACE: Fortran Rappture Units Source
4	*
5	* ======================================================================
6	* AUTHOR: Derrick Kearney, Purdue University
7	* Copyright (c) 2005
8	* Purdue Research Foundation, West Lafayette, IN
9	* ======================================================================
10	*/
11
12	#ifndef _RpUNITS_F_H
13	#define _RpUNITS_F_H
14
15	#include "RpFortranCommon.h"
16	#include "RpUnitsFStubs.h"
17
18	#ifdef __cplusplus
19	extern "C" {
20	#endif
21
22	int rp_define_unit(char* unitName, int* basisName, int unitName_len);
23
24	int rp_find(char* searchName, int searchName_len);
25
26	int rp_make_metric(int* basis);
27
28	int rp_get_units(int* unitRefVal, char* retText, int retText_len);
29
30	int rp_get_units_name(int* unitRefVal, char* retText, int retText_len);
31
32	int rp_get_exponent(int* unitRefVal, double* retExponent);
33
34	int rp_get_basis(int* unitRefVal);
35
36	int rp_units_convert_dbl ( char* fromVal,
37	char* toUnitsName,
38	double* convResult,
39	int fromVal_len,
40	int toUnitsName_len );
41
42	int rp_units_convert_str ( char* fromVal,
43	char* toUnitsName,
44	char* retText,
45	int fromVal_len,
46	int toUnitsName_len,
47	int retText_len );
48
49	int rp_units_add_presets ( char* presetName, int presetName_len);
50
51	#ifdef __cplusplus
52	}
53	#endif
54
55	#endif

Note: See TracBrowser for help on using the repository browser.