extern fint userint_c(fint *,fint *,fint *,fchar,fchar);