double \*work, <- 
