      j=2147483640
      do i=1,10
         j=j+1
         write(6,*)i,j
      enddo
      end
