extern fint ftsi_puti_c(fint *,fint *,fint *);