err_lastchange = err_init
IF (err_maxerr_lastchange*1.e-2 .and.
err_lastchange = err_max
_RL max_vel, tempu, tempv, err_lastchange, cgtol