00001 /* 00002 COSTA: Problem solving environment for data assimilation 00003 Copyright (C) 2007 Nils van Velzen 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 library is distributed in the hope that it will be useful, 00011 but WITHOUT ANY WARRANTY; without even the implied warranty of 00012 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00013 Lesser General Public 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 00018 */ 00019 00020 /** 00021 \file cta_system.h 00022 \brief Macros for handing system dependent issues 00023 */ 00024 00025 #ifndef CTA_SYSTEM_H 00026 #define CTA_SYSTEM_H 00027 00028 #ifdef WIN32 00029 #ifdef CTALIB 00030 #define CTAEXPORT __declspec(dllexport) 00031 #else 00032 #define CTAEXPORT __declspec(dllimport) 00033 #endif 00034 00035 #define F77_FUNC(X,Y) X 00036 #define F77_FUNC_NOEXP(X,Y) X 00037 00038 00039 #define F77_CALL(X) __cdecl X 00040 #define CF77_CALL(X) X 00041 00042 00043 #else 00044 #define CTAEXPORT 00045 #define F77_CALL(X) F77_FUNC(X,X) 00046 #define CF77_CALL(X) F77_FUNC(X,X) 00047 #endif 00048 #endif 00049
1.5.2