f2c.h

来自「数学算法的实现库。可以实现常见的线性计算。」· C头文件 代码 · 共 16 行

/* Fortran to C header file */

#ifndef __F2C__
#define __F2C__

#define integer                     int
#define real                        float
#define doubleprecision             double
#define character                   char
#define logical                     int
#define ftnlen                      int
typedef struct { real r, i; } complex;
typedef struct { doubleprecision r, i; } doublecomplex;

#endif /* __F2C__ */