research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added windows specific definition block

Browse source
This commit is contained in:
Harry Moffat 2004-08-10 00:22:07 +00:00
parent dd1e6aa1db
commit d3386f0eeb
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ext/f2c_libs/f2c.h
View file

@ -7,6 +7,22 @@
#ifndef F2C_INCLUDE #ifndef F2C_INCLUDE
#define F2C_INCLUDE #define F2C_INCLUDE
#ifdef _WIN32
#include <io.h> /* for real isatty() */
/*
* Need the following definition so that MS math.h doesn't redefine the structure
* complex to be two doubles. f2c defines the structure complex to be 2 reals,
* and the structure doublecomplex to be 2 doubles.
*/
#define _COMPLEX_DEFINED
typedef __int64 longint;
typedef __int64 ulongint; /* HACK ALERT */
// warning C4244: 'xoperx' : conversion from 'xxx ' to 'xxx ', possible loss of data
// warning C4101: 'xxx' : unreferenced local variable
#pragma warning(disable:4244)
#pragma warning(disable:4101)
#endif
typedef long int integer; typedef long int integer;
typedef unsigned long int uinteger; typedef unsigned long int uinteger;
typedef char *address; typedef char *address;
@ -156,8 +172,12 @@ typedef struct Namelist Namelist;
#define abs(x) ((x) >= 0 ? (x) : -(x)) #define abs(x) ((x) >= 0 ? (x) : -(x))
#define dabs(x) (doublereal)abs(x) #define dabs(x) (doublereal)abs(x)
#ifndef min
#define min(a,b) ((a) <= (b) ? (a) : (b)) #define min(a,b) ((a) <= (b) ? (a) : (b))
#endif
#ifndef max
#define max(a,b) ((a) >= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b))
#endif
#define dmin(a,b) (doublereal)min(a,b) #define dmin(a,b) (doublereal)min(a,b)
#define dmax(a,b) (doublereal)max(a,b) #define dmax(a,b) (doublereal)max(a,b)
#define bit_test(a,b) ((a) >> (b) & 1) #define bit_test(a,b) ((a) >> (b) & 1)