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