extern fint gds_prime_c(fchar,fint *);