subroutine hopping(nyear,month,nday,uth,mygrid,nduration,isun)
character*6 mygrid
call grayline(nyear,month,nday,uth,mygrid,nduration,isun)
return
end subroutine hopping