13 lines
319 B
C
13 lines
319 B
C
|
#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};
|