err_tempv = 0. _d 0
err_tempv = MAX( err_tempu,
IF (err_tempv .ge. err_init) THEN
err_init = err_tempv
IF (err_tempv .ge. err_max) THEN
err_max = err_tempv
IF (err_tempv .ge. err_max_fp) err_max_fp = err_tempv
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp