program test
character(len=256) :: line
real :: data

do
   read(*,'(a)') line
   if (index('Printing Grid',line)  /= 0) then
      read(*,*) data
      write(*,*) data
   end if
end do

end program test