bildControl<- function (maxit = 100, abstol = 1e-006, reltol = 1e-006) 
{
    list(maxit =maxit, abstol =abstol , reltol =  reltol)
}