extern void gds___error_c(fint *);