extern double angle_c(fchar,fint *,fint *,double *,double *,fint *);