double \*work, <- 
DEL MTSDVLBETADEL