libf2c/libI77/typesize.c

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