subroutine nus_read_2d_packed(hshot, m, v, e, z, value, vsize, packinfo, iostat)
  implicit none
  integer, intent(in):: hshot
end subroutine