extern void irshrinktab_c(fint *);