00001 /*************************************************************************** 00002 ** 00003 ** This file is part of QGpCoreWave. 00004 ** 00005 ** This library is free software; you can redistribute it and/or 00006 ** modify it under the terms of the GNU Lesser General Public 00007 ** License as published by the Free Software Foundation; either 00008 ** version 2.1 of the License, or (at your option) any later version. 00009 ** 00010 ** This file is distributed in the hope that it will be useful, but WITHOUT 00011 ** ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 00012 ** FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 00013 ** License for more details. 00014 ** 00015 ** You should have received a copy of the GNU Lesser General Public 00016 ** License along with this library; if not, write to the Free Software 00017 ** Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 00018 ** 00019 ** See http://www.geopsy.org for more information. 00020 ** 00021 ** Created : 2005-01-06 00022 ** Authors : 00023 ** Marc Wathelet 00024 ** Marc Wathelet (ULg, Liège, Belgium) 00025 ** Marc Wathelet (LGIT, Grenoble, France) 00026 ** Roger Wisen (RAMBOLL, Copenhagen, Denmark) 00027 ** 00028 ***************************************************************************/ 00029 00030 #ifndef FORTRANINTERFACE_H 00031 #define FORTRANINTERFACE_H 00032 00033 #include "QGpCoreWaveDLLExport.h" 00034 00035 #ifdef __cplusplus 00036 extern "C" 00037 { 00038 #endif 00039 00040 #ifdef WIN32 00041 // Microsoft Visual Studio has special way of naming functions in dll 00042 // Hence here is a compatibility layer 00043 QGPCOREWAVE_EXPORT __stdcall void DISPERSION_CURVE_INIT(int * verbose); 00044 QGPCOREWAVE_EXPORT __stdcall void DISPERSION_CURVE_RAYLEIGH(int * nLayers, double * h, double * vp, double * vs, double * rho, 00045 int * nSamples, double * omega, 00046 int * nModes, double * slowness, int * group); 00047 QGPCOREWAVE_EXPORT __stdcall void DISPERSION_CURVE_LOVE(int * nLayers, double * h, double * vp, double * vs, double * rho, 00048 int * nSamples, double * omega, 00049 int * nModes, double * slowness, int * group); 00050 // Possibly compiling with Intel Fortran compiler under Microsoft Visual Studio 00051 QGPCOREWAVE_EXPORT void DISPERSION_CURVE_INIT_INTEL(int * verbose); 00052 QGPCOREWAVE_EXPORT void DISPERSION_CURVE_RAYLEIGH_INTEL(int * nLayers, double * h, double * vp, double * vs, double * rho, 00053 int * nSamples, double * omega, 00054 int * nModes, double * slowness, int * group); 00055 QGPCOREWAVE_EXPORT void DISPERSION_CURVE_LOVE_INTEL(int * nLayers, double * h, double * vp, double * vs, double * rho, 00056 int * nSamples, double * omega, 00057 int * nModes, double * slowness, int * group); 00058 #endif 00059 00060 QGPCOREWAVE_EXPORT void dispersion_curve_init_(int * verbose); 00061 QGPCOREWAVE_EXPORT void dispersion_curve_rayleigh_(int * nLayers, double * h, double * vp, double * vs, double * rho, 00062 int * nSamples, double * omega, 00063 int * nModes, double * slowness, int * group); 00064 QGPCOREWAVE_EXPORT void dispersion_curve_love_(int * nLayers, double * h, double * vp, double * vs, double * rho, 00065 int * nSamples, double * omega, 00066 int * nModes, double * slowness, int * group); 00067 00068 #ifdef __cplusplus 00069 } 00070 #endif 00071 00072 #endif // FORTRANINTERFACE_H
