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
00028 #if defined(__GNUG__) && __GNUG__ < 4 && !defined (__INTEL_COMPILER)
00029
00030 #define _compute_gas_diffusivity compute_gas_diffusivity__
00031 #define _gerber_wet_diameter gerber_wet_diameter__
00032 #define _compute_collision_integral compute_collision_integral__
00033 #define _compute_condensation_transfer_rate \
00034 compute_condensation_transfer_rate__
00035 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity__
00036 #define _compute_saturation_concentration compute_saturation_concentration__
00037 #define _compute_kelvin_coefficient compute_kelvin_coefficient__
00038
00039 #else
00040
00041 #define _compute_gas_diffusivity compute_gas_diffusivity_
00042 #define _gerber_wet_diameter gerber_wet_diameter_
00043 #define _compute_collision_integral compute_collision_integral_
00044 #define _compute_condensation_transfer_rate \
00045 compute_condensation_transfer_rate_
00046 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity_
00047 #define _compute_saturation_concentration compute_saturation_concentration_
00048 #define _compute_kelvin_coefficient compute_kelvin_coefficient_
00049
00050 #endif
00051
00052 extern "C"
00053 {
00054 void _compute_gas_diffusivity(const double*, const double*, const double*,
00055 const double*, const double*, double*);
00056 void _gerber_wet_diameter(const double*, const double*, const double*,
00057 const double*);
00058 void _compute_collision_integral(const double*, const double*);
00059 void _compute_condensation_transfer_rate(const double*, const double*,
00060 const double*, const double*,
00061 double*);
00062 void _compute_quadratic_mean_velocity(const double*, const double*,
00063 double*);
00064 void _compute_saturation_concentration(const double*, const double*,
00065 const double*, const double*,
00066 double*);
00067 void _compute_kelvin_coefficient(const double*, const double*,
00068 const double*, const double*,
00069 const double*, double*);
00070 }
00071
00072 #define ATMODATA_FILE_AEROSOL_HXX
00073 #endif