extern void sortia_c(fint *,fint *);