extern void gdsd_rreal_c(fchar,fchar,fint *,float *,fint *);