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