| #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}; |