extern fint userreal_c(float *,fint *,fint *,fchar,fchar);