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