extern void arith_c(float *,fchar,float *,float *,fint *);