extern void rankrd_c(float *,fint *,fint *);