Main Page | User's Guide | Namespace List | Class List | File List | Namespace Members | Class Members

Aerosol.hxx

00001 // Copyright (C) 2003-2005 CEREA
00002 //     Author: Vivien Mallet
00003 //
00004 // CEREA (http://www.enpc.fr/cerea) is a joint laboratory of
00005 // ENPC (http://www.enpc.fr) and EDF R&D (http://www.edf.fr).
00006 //
00007 // This file is part of AtmoData library.
00008 // AtmoData library is a tool for data processing in atmospheric
00009 // sciences.
00010 //
00011 // AtmoData is free software; you can redistribute it and/or modify
00012 // it under the terms of the GNU General Public License as published by
00013 // the Free Software Foundation; either version 2 of the License, or
00014 // (at your option) any later version.
00015 //
00016 // AtmoData is distributed in the hope that it will be useful,
00017 // but WITHOUT ANY WARRANTY; without even the implied warranty of
00018 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00019 // GNU General Public License (file "license") for more details.
00020 //
00021 // For more information, please see the AtmoData home page:
00022 //     http://spacetown.free.fr/lib/atmodata
00023 
00024 
00025 #ifndef ATMODATA_FILE_AEROSOL_HXX
00026 
00027 // Fortran functions.
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

Generated on Tue Nov 7 14:58:48 2006 for AtmoData by  doxygen 1.4.2