source: trunk/src/fortran/RpUnitsFStubs.c @ 97

Last change on this file since 97 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: 5.6 KB
Line 
1/*
2 * ----------------------------------------------------------------------
3 *  INTERFACE: Fortran Rappture Units Stub Function 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_STUBS_SRC
13#define _RpUNITS_F_STUBS_SRC
14
15#ifdef __cplusplus
16extern "C" {
17#endif
18
19int
20rp_define_unit_ (char* unitName, int* basisName, int unitName_len) {
21    return rp_define_unit(unitName,basisName,unitName_len);
22}
23
24int
25rp_define_unit__ (char* unitName, int* basisName, int unitName_len) {
26    return rp_define_unit(unitName,basisName,unitName_len);
27}
28
29int
30RP_DEFINE_UNIT (char* unitName, int* basisName, int unitName_len) {
31    return rp_define_unit(unitName,basisName,unitName_len);
32}
33
34int
35rp_find_ (char* searchName, int searchName_len) {
36    return rp_find(searchName,searchName_len);
37}
38
39int
40rp_find__ (char* searchName, int searchName_len) {
41    return rp_find(searchName,searchName_len);
42}
43
44int
45RP_FIND (char* searchName, int searchName_len) {
46    return rp_find(searchName,searchName_len);
47}
48
49int
50rp_make_metric_ (int* basis) {
51    return rp_make_metric(basis);
52}
53
54int
55rp_make_metric__ (int* basis) {
56    return rp_make_metric(basis);
57}
58
59int
60RP_MAKE_METRIC (int* basis) {
61    return rp_make_metric(basis);
62}
63
64int
65rp_get_units_ (int* unitRefVal, char* retText, int retText_len) {
66    return rp_get_units(unitRefVal,retText,retText_len);
67}
68
69int
70rp_get_units__ (int* unitRefVal, char* retText, int retText_len) {
71    return rp_get_units(unitRefVal,retText,retText_len);
72}
73
74int
75RP_GET_UNITS (int* unitRefVal, char* retText, int retText_len) {
76    return rp_get_units(unitRefVal,retText,retText_len);
77}
78
79int
80rp_get_units_name_     (int* unitRefVal, char* retText, int retText_len) {
81    return rp_get_units_name(unitRefVal,retText,retText_len);
82}
83
84int
85rp_get_units_name__    (int* unitRefVal, char* retText, int retText_len) {
86    return rp_get_units_name(unitRefVal,retText,retText_len);
87}
88
89int
90RP_GET_UNITS_NAME      (int* unitRefVal, char* retText, int retText_len) {
91    return rp_get_units_name(unitRefVal,retText,retText_len);
92}
93
94int
95rp_get_exponent_       (int* unitRefVal, double* retExponent) {
96    return rp_get_exponent(unitRefVal,retExponent);
97}
98
99int
100rp_get_exponent__      (int* unitRefVal, double* retExponent) {
101    return rp_get_exponent(unitRefVal,retExponent);
102}
103
104int
105RP_GET_EXPONENT        (int* unitRefVal, double* retExponent) {
106    return rp_get_exponent(unitRefVal,retExponent);
107}
108
109int
110rp_get_basis_          (int* unitRefVal) {
111    return rp_get_basis(unitRefVal);
112}
113
114int
115rp_get_basis__         (int* unitRefVal) {
116    return rp_get_basis(unitRefVal);
117}
118
119int
120RP_GET_BASIS           (int* unitRefVal) {
121    return rp_get_basis(unitRefVal);
122}
123
124int
125rp_units_convert_dbl_  (char* fromVal,
126                            char* toUnitsName,
127                            double* convResult,
128                            int fromVal_len,
129                            int toUnitsName_len ) {
130
131    return rp_units_convert_dbl( fromVal, toUnitsName, convResult,
132                                 fromVal_len, toUnitsName_len);
133}
134
135int
136rp_units_convert_dbl__ (char* fromVal,
137                            char* toUnitsName,
138                            double* convResult,
139                            int fromVal_len,
140                            int toUnitsName_len ) {
141
142    return rp_units_convert_dbl( fromVal, toUnitsName, convResult,
143                                 fromVal_len, toUnitsName_len);
144}
145
146int
147RP_UNITS_CONVERT_DBL   (char* fromVal,
148                            char* toUnitsName,
149                            double* convResult,
150                            int fromVal_len,
151                            int toUnitsName_len ) {
152
153    return rp_units_convert_dbl( fromVal, toUnitsName, convResult,
154                                 fromVal_len, toUnitsName_len);
155}
156
157int
158rp_units_convert_str_  (char* fromVal,
159                            char* toUnitsName,
160                            char* retText,
161                            int fromVal_len,
162                            int toUnitsName_len,
163                            int retText_len     ) {
164
165    return rp_units_convert_str( fromVal,toUnitsName, retText, fromVal_len,
166                                 toUnitsName_len, retText_len);
167}
168
169int
170rp_units_convert_str__ (char* fromVal,
171                            char* toUnitsName,
172                            char* retText,
173                            int fromVal_len,
174                            int toUnitsName_len,
175                            int retText_len     ) {
176
177    return rp_units_convert_str( fromVal,toUnitsName, retText, fromVal_len,
178                                 toUnitsName_len, retText_len);
179}
180
181int
182RP_UNITS_CONVERT_STR   (char* fromVal,
183                            char* toUnitsName,
184                            char* retText,
185                            int fromVal_len,
186                            int toUnitsName_len,
187                            int retText_len     ) {
188
189    return rp_units_convert_str( fromVal,toUnitsName, retText, fromVal_len,
190                                 toUnitsName_len, retText_len);
191}
192
193int
194rp_units_add_presets_  (char* presetName, int presetName_len) {
195    return rp_units_add_presets(presetName,presetName_len);
196}
197
198int
199rp_units_add_presets__ (char* presetName, int presetName_len) {
200    return rp_units_add_presets(presetName,presetName_len);
201}
202
203int
204RP_UNITS_ADD_PRESETS   (char* presetName, int presetName_len) {
205    return rp_units_add_presets(presetName,presetName_len);
206}
207
208#ifdef __cplusplus
209}
210#endif
211
212#endif
Note: See TracBrowser for help on using the repository browser.