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