00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025 #ifndef ATMODATA_FILE_AEROSOL_HXX
00026
00027 #ifdef POLYPHEMUS_SINGLE_UNDERSCORE
00028 #undef POLYPHEMUS_DOUBLE_UNDERSCORE
00029 #elif defined(__GNUG__) && __GNUG__ < 4 && !defined(__INTEL_COMPILER)
00030 #undef POLYPHEMUS_DOUBLE_UNDERSCORE
00031 #define POLYPHEMUS_DOUBLE_UNDERSCORE
00032 #endif
00033
00034 #ifdef POLYPHEMUS_DOUBLE_UNDERSCORE
00035
00036 #define _compute_gas_diffusivity compute_gas_diffusivity__
00037 #define _gerber_wet_diameter gerber_wet_diameter__
00038 #define _compute_collision_integral compute_collision_integral__
00039 #define _compute_condensation_transfer_rate \
00040 compute_condensation_transfer_rate__
00041 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity__
00042 #define _compute_saturation_concentration compute_saturation_concentration__
00043 #define _compute_kelvin_coefficient compute_kelvin_coefficient__
00044
00045 #else
00046
00047 #define _compute_gas_diffusivity compute_gas_diffusivity_
00048 #define _gerber_wet_diameter gerber_wet_diameter_
00049 #define _compute_collision_integral compute_collision_integral_
00050 #define _compute_condensation_transfer_rate \
00051 compute_condensation_transfer_rate_
00052 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity_
00053 #define _compute_saturation_concentration compute_saturation_concentration_
00054 #define _compute_kelvin_coefficient compute_kelvin_coefficient_
00055
00056 #endif
00057
00058 extern "C"
00059 {
00060 void _compute_gas_diffusivity(const double*, const double*, const double*,
00061 const double*, const double*, double*);
00062 void _gerber_wet_diameter(const double*, const double*, const double*,
00063 const double*);
00064 void _compute_collision_integral(const double*, const double*);
00065 void _compute_condensation_transfer_rate(const double*, const double*,
00066 const double*, const double*,
00067 double*);
00068 void _compute_quadratic_mean_velocity(const double*, const double*,
00069 double*);
00070 void _compute_saturation_concentration(const double*, const double*,
00071 const double*, const double*,
00072 double*);
00073 void _compute_kelvin_coefficient(const double*, const double*,
00074 const double*, const double*,
00075 const double*, double*);
00076 }
00077
00078 #define ATMODATA_FILE_AEROSOL_HXX
00079 #endif