Ignore:
Timestamp:
Oct 5, 2005, 1:21:24 PM (19 years ago)
Author:
dkearney
Message:
  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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/include/fortran/RpUnitsFInterface.h

    r83 r84  
    1010 */
    1111
    12 #include "RpFortranCommon.h"
    13 
    1412#ifndef _RpUNITS_F_H
    1513#define _RpUNITS_F_H
    1614
    17 #ifdef COMPNAME_ADD1UNDERSCORE
    18 #   define rp_define_unit       rp_define_unit_
    19 #   define rp_find              rp_find_
    20 #   define rp_make_metric       rp_make_metric_
    21 #   define rp_get_units         rp_get_units_
    22 #   define rp_get_units_name    rp_get_units_name_
    23 #   define rp_get_exponent      rp_get_exponent_
    24 #   define rp_get_basis         rp_get_basis_
    25 #   define rp_units_convert_dbl rp_units_convert_dbl_
    26 #   define rp_units_convert_str rp_units_convert_str_
    27 #   define rp_units_add_presets rp_units_add_presets_
    28 #elif defined(COMPNAME_ADD2UNDERSCORE)
    29 #   define rp_define_unit       rp_define_unit__
    30 #   define rp_find              rp_find__
    31 #   define rp_make_metric       rp_make_metric__
    32 #   define rp_get_units         rp_get_units__
    33 #   define rp_get_units_name    rp_get_units_name__
    34 #   define rp_get_exponent      rp_get_exponent__
    35 #   define rp_get_basis         rp_get_basis__
    36 #   define rp_units_convert_dbl rp_units_convert_dbl__
    37 #   define rp_units_convert_str rp_units_convert_str__
    38 #   define rp_units_add_presets rp_units_add_presets__
    39 #elif defined(COMPNAME_NOCHANGE)
    40 #   define rp_define_unit       rp_define_unit
    41 #   define rp_find              rp_find
    42 #   define rp_make_metric       rp_make_metric
    43 #   define rp_get_units         rp_get_units
    44 #   define rp_get_units_name    rp_get_units_name
    45 #   define rp_get_exponent      rp_get_exponent
    46 #   define rp_get_basis         rp_get_basis
    47 #   define rp_units_convert_dbl rp_units_convert_dbl
    48 #   define rp_units_convert_str rp_units_convert_str
    49 #   define rp_units_add_presets rp_units_add_presets
    50 #elif defined(COMPNAME_UPPERCASE)
    51 #   define rp_define_unit       RP_DEFINE_UNIT
    52 #   define rp_find              RP_FIND
    53 #   define rp_make_metric       RP_MAKE_METRIC
    54 #   define rp_get_units         RP_GET_UNITS
    55 #   define rp_get_units_name    RP_GET_UNITS_NAME
    56 #   define rp_get_exponent      RP_GET_EXPONENT
    57 #   define rp_get_basis         RP_GET_BASIS
    58 #   define rp_units_convert_dbl RP_UNITS_CONVERT_DBL
    59 #   define rp_units_convert_str RP_UNITS_CONVERT_STR
    60 #   define rp_units_add_presets RP_UNITS_ADD_PRESETS
    61 #endif
     15#include "RpFortranCommon.h"
     16#include "RpUnitsFStubs.h"
    6217
    63 #ifdef __cplusplus 
     18#ifdef __cplusplus
    6419extern "C" {
    6520#endif
    … …  
    7530int rp_get_units_name(int* unitRefVal, char* retText, int retText_len);
    7631
    77 int rp_get_exponent(int* unitRefVal, double retExponent);
     32int rp_get_exponent(int* unitRefVal, double* retExponent);
    7833
    7934int rp_get_basis(int* unitRefVal);
    8035
    81 int rp_units_convert_dbl (  char* fromVal, 
    82                             char* toUnitsName, 
    83                             double* convResult, 
    84                             int fromVal_len, 
     36int rp_units_convert_dbl (  char* fromVal,
     37                            char* toUnitsName,
     38                            double* convResult,
     39                            int fromVal_len,
    8540                            int toUnitsName_len );
    8641
    87 int rp_units_convert_str (  char* fromVal, 
    88                             char* toUnitsName, 
    89                             char* retText, 
    90                             int fromVal_len, 
     42int rp_units_convert_str (  char* fromVal,
     43                            char* toUnitsName,
     44                            char* retText,
     45                            int fromVal_len,
    9146                            int toUnitsName_len,
    92                             int retText_len     ); 
     47                            int retText_len     );
    9348
    9449int rp_units_add_presets ( char* presetName, int presetName_len);
    9550
    96 #ifdef __cplusplus 
     51#ifdef __cplusplus
    9752}
    9853#endif
    99    
     54
    10055#endif
Note: See TracChangeset for help on using the changeset viewer.