#include "f2c.h"

ftnlen f__typesize[] = { 0, 0, sizeof(shortint), sizeof(integer),
                         sizeof(real), sizeof(doublereal),
                         sizeof(complex), sizeof(doublecomplex),
                         sizeof(logical), sizeof(char)
                       };
