	do j=1,8
	  do i=1,8
	    print 101, 1, i*100., j*100., 0, 0, 0, 0, 0, 1
	  end do
	end do

101	format(i6,2f9.2,3f8.3,f9.1,f9.2,f9.3)

	stop
	end
