FFaFortran.H

Go to the documentation of this file.

/* SPDX-FileCopyrightText: 2023 SAP SE
 *
 * SPDX-License-Identifier: Apache-2.0
 *
 * This file is part of FEDEM - https://openfedem.org
 */
#ifndef FFA_FORTRAN_H
#define FFA_FORTRAN_H
 
#if defined(win32) || defined(win64)
#if defined(FT_HAS_INT4_ONLY)
#define f90_int8 __int32
#else
#define f90_int8 __int64
#endif
#elif defined(irix)
#define f90_int8 long long
#elif defined(hpux)
#define f90_int8 off64_t
#else
#define f90_int8 long
#endif
 
#if defined(FT_USE_INT8)
#define f90_int f90_int8
#else
#define f90_int int
#endif
 
#if defined(irix64) || defined(hpux64) || defined(aix64) || defined(win64) || defined(linux64)
#define ptr_int f90_int8
#else
#define ptr_int int
#endif
 
#if defined(win32) || defined(win64)
#define F90_NAME(name,NAME) NAME
#elif defined(hpux) || defined(aix) || defined(aix64)
#define F90_NAME(name,NAME) name
#else
#define F90_NAME(name,NAME) name##_
#endif
 
#if _MSC_VER > 1300
#define _CPFX _cdecl
#elif defined(win32)
#define _CPFX _stdcall
#define _NCHAR_AFTER_CHARARG
#else
#define _CPFX
#endif
 
#ifdef __cplusplus
#define F90_FUNCTION(type,name,NAME) extern "C" type _CPFX F90_NAME(name,NAME)
#else
#define F90_FUNCTION(type,name,NAME) type _CPFX F90_NAME(name,NAME)
#endif
 
 
#define       SUBROUTINE(name,NAME) F90_FUNCTION(void,name,NAME)
#define     PTR_FUNCTION(name,NAME) F90_FUNCTION(void*,name,NAME)
#define INTEGER_FUNCTION(name,NAME) F90_FUNCTION(f90_int,name,NAME)
#define    REAL_FUNCTION(name,NAME) F90_FUNCTION(float,name,NAME)
#define  DOUBLE_FUNCTION(name,NAME) F90_FUNCTION(double,name,NAME)
 
#endif