source: trunk/include/fortran/RpUnitsFInterface.h @ 84

Last change on this file since 84 was 84, checked in by dkearney, 17 years ago
  1. added "install" target to make file for copying files over to /opt/rappture
  2. added targets for python to build and install the units module
  3. added fortran stub functions for library and units.

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
19extern "C" {
20#endif
21
22int rp_define_unit(char* unitName, int* basisName, int unitName_len);
23
24int rp_find(char* searchName, int searchName_len);
25
26int rp_make_metric(int* basis);
27
28int rp_get_units(int* unitRefVal, char* retText, int retText_len);
29
30int rp_get_units_name(int* unitRefVal, char* retText, int retText_len);
31
32int rp_get_exponent(int* unitRefVal, double* retExponent);
33
34int rp_get_basis(int* unitRefVal);
35
36int rp_units_convert_dbl (  char* fromVal,
37                            char* toUnitsName,
38                            double* convResult,
39                            int fromVal_len,
40                            int toUnitsName_len );
41
42int 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
49int 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.