extern fint gdsc_ndims_c(fchar,fint *);