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