15 lines
345 B
C
15 lines
345 B
C
#include "config.h"
|
|
#include "f2c.h"
|
|
|
|
ftnlen f__typesize[] = { 0, 0, sizeof (shortint), sizeof (integer),
|
|
sizeof (real), sizeof (doublereal),
|
|
sizeof (complex), sizeof (doublecomplex),
|
|
sizeof (logical), sizeof (char),
|
|
0, sizeof (integer1),
|
|
sizeof (logical1), sizeof (shortlogical),
|
|
#ifdef Allow_TYQUAD
|
|
sizeof (longint),
|
|
#endif
|
|
0
|
|
};
|