! test_time.f90

program test_time
  use vt_plotd
  implicit none
  integer :: i

  do i=0,60
    if (modulo(i,5)==0) print *,i
    call delay(1.0)
  end do
end program test_time