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