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