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