contrib/libf2c/libI77/typesize.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include "config.h"
#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
};