modified artvis.f90