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