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