extern void setndblank_c(double *,fint *);