extern fint gdi_pgplot_c(fint *,fint *,float *,fint *,fchar,fint *);