source: trunk/src/core/RpUnitsFInterface.h @ 1427

/*
 * ----------------------------------------------------------------------
 *  INTERFACE: Fortran Rappture Units Source
 *
 * ======================================================================
 *  AUTHOR:  Derrick Kearney, Purdue University
 *  Copyright (c) 2004-2005  Purdue Research Foundation
 *
 *  See the file "license.terms" for information on usage and
 *  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 * ======================================================================
 */

#ifndef _RpUNITS_F_H
#define _RpUNITS_F_H

#ifdef __cplusplus
    #include "RpFortranCommon.h"
    #include "RpUnitsFStubs.h"

    extern "C" {
#endif

int rp_define_unit(char* unitName, int* basisName, int unitName_len);

int rp_find(char* searchName, int searchName_len);

int rp_get_units(int* unitRefVal, char* retText, int retText_len);

int rp_get_units_name(int* unitRefVal, char* retText, int retText_len);

int rp_get_exponent(int* unitRefVal, double* retExponent);

int rp_get_basis(int* unitRefVal);

int rp_units_convert_dbl (  char* fromVal,
                            char* toUnitsName,
                            double* convResult,
                            int fromVal_len,
                            int toUnitsName_len );

int rp_units_convert_str (  char* fromVal,
                            char* toUnitsName,
                            char* retText,
                            int fromVal_len,
                            int toUnitsName_len,
                            int retText_len     );

#ifdef __cplusplus
    }
#endif // ifdef __cplusplus

#endif // ifndef _RpUNITS_F_H