AtmoData: Aerosol.hxx Source File

00001 // Copyright (C) 2003-2007, ENPC - INRIA - EDF R&D
00002 // Author(s): Vivien Mallet
00003 //
00004 // This file is part of AtmoData library, a tool for data processing in
00005 // atmospheric sciences.
00006 //
00007 // AtmoData is developed in the INRIA - ENPC joint project-team CLIME and in
00008 // the ENPC - EDF R&D joint laboratory CEREA.
00009 //
00010 // AtmoData is free software; you can redistribute it and/or modify it under
00011 // the terms of the GNU General Public License as published by the Free
00012 // Software Foundation; either version 2 of the License, or (at your option)
00013 // any later version.
00014 //
00015 // AtmoData is distributed in the hope that it will be useful, but WITHOUT ANY
00016 // WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
00017 // FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
00018 // details.
00019 //
00020 // For more information, visit the AtmoData home page:
00021 //      http://cerea.enpc.fr/polyphemus/atmodata.html
00022 
00023 
00024 #ifndef ATMODATA_FILE_AEROSOL_HXX
00025 
00026 #ifdef POLYPHEMUS_SINGLE_UNDERSCORE
00027 #undef POLYPHEMUS_DOUBLE_UNDERSCORE
00028 #elif defined(__GNUG__) && __GNUG__ < 4 && !defined(__INTEL_COMPILER)
00029 #undef POLYPHEMUS_DOUBLE_UNDERSCORE
00030 #define POLYPHEMUS_DOUBLE_UNDERSCORE
00031 #endif
00032 
00033 #ifdef POLYPHEMUS_DOUBLE_UNDERSCORE
00034 
00035 #define _compute_gas_diffusivity compute_gas_diffusivity__
00036 #define _gerber_wet_diameter gerber_wet_diameter__
00037 #define _compute_collision_integral compute_collision_integral__
00038 #define _compute_condensation_transfer_rate     \
00039   compute_condensation_transfer_rate__
00040 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity__
00041 #define _compute_saturation_concentration compute_saturation_concentration__
00042 #define _compute_kelvin_coefficient compute_kelvin_coefficient__
00043 
00044 #else
00045 
00046 #define _compute_gas_diffusivity compute_gas_diffusivity_
00047 #define _gerber_wet_diameter gerber_wet_diameter_
00048 #define _compute_collision_integral compute_collision_integral_
00049 #define _compute_condensation_transfer_rate     \
00050   compute_condensation_transfer_rate_
00051 #define _compute_quadratic_mean_velocity compute_quadratic_mean_velocity_
00052 #define _compute_saturation_concentration compute_saturation_concentration_
00053 #define _compute_kelvin_coefficient compute_kelvin_coefficient_
00054 
00055 #endif
00056 
00057 extern "C"
00058 {
00059   void _compute_gas_diffusivity(const double*, const double*, const double*,
00060                                 const double*, const double*, double*);
00061   void _gerber_wet_diameter(const double*, const double*, const double*,
00062                             const double*);
00063   void _compute_collision_integral(const double*, const double*);
00064   void _compute_condensation_transfer_rate(const double*, const double*,
00065                                            const double*, const double*,
00066                                            double*);
00067   void _compute_quadratic_mean_velocity(const double*, const double*,
00068                                         double*);
00069   void _compute_saturation_concentration(const double*, const double*,
00070                                          const double*, const double*,
00071                                          double*);
00072   void _compute_kelvin_coefficient(const double*, const double*,
00073                                    const double*, const double*,
00074                                    const double*, double*);
00075 }
00076 
00077 #define ATMODATA_FILE_AEROSOL_HXX
00078 #endif