extern void irpl_greatxsmall_c(double *,float *,float *,fint *);