libf2c/libI77/typesize.c

   1 #include "config.h"
   2 #include "f2c.h"
   3
   4 ftnlen f__typesize[] = { 0, 0, sizeof(shortint), sizeof(integer),
   5                         sizeof(real), sizeof(doublereal),
   6                         sizeof(complex), sizeof(doublecomplex),
   7                         sizeof(logical), sizeof(char),
   8                         0, sizeof(integer1),
   9                         sizeof(logical1), sizeof(shortlogical),
  10 #ifdef Allow_TYQUAD
  11                         sizeof(longint),
  12 #endif
  13                         0};