i = 14
      j = 1
      write(*,*)inot(i)
      write(*,*)ishr(i,j)
      stop
      end