i = 14
      j = 1
      write(*,*)not(i)
      write(*,*)ishft(i,j)
      stop
      end