modified rev_artvis.f90