extern fint clspfp_c(float *,fint *);