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