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