const double \*dvr, <- 
dvr\[i\]\* <- 
DEL DVRDEL