extern fint cftsi_geti_c(fint *,fint *,fint *,fint *);