extern fint gdsc_intersect_c(fchar,fint *,fint *,fint *);