extern fint ftsi_putr_c(fint *,float *,fint *);