linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid irritating warnings when math functions are used, M.Z.08.2001

Browse Source
This commit is contained in:
cvs
2001-08-16 09:21:36 +00:00
parent 13f01844fc
commit 4c845139a6
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
f2c.h
View File

@ -12,7 +12,9 @@ typedef unsigned long int uinteger;
typedef char *address;
typedef short int shortint;
typedef float real;
typedef double doublereal;
/* avoid irritating warnings when math functions are used, M.Z.08.2001 */
#define doublereal double
/* typedef double doublereal; */
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
typedef long int logical;