extern void gdscpa_c(fchar,fint *,fint *,double *,double *,double *,double *,fchar,fchar,fint *);