implicit none
  integer stp,row
  
  open(10,file='ssc-movie.script')
  write(10,'(A)') "set xr [0:0.3]"
  write(10,'(A)') "set yr [0:20]"
  write(10,'(A)') "set xtics 0.1"
  write(10,'(A)') "set ytics 5"
  write(10,'(A)') "set term jpeg"
  write(10,'(A)') "set terminal jpeg size 480,320"

  do stp=20000,320000,1000
     row=(stp-20000)/1000
     write(10,'(A,I7.7,A)') "set out 'ssc",stp,".jpg'"
     write(10,'(A,I4,A,I4,A)') "p 'stress-recalc.dat' u 2:3 w l noti, 'stress-recalc.dat' u 2:3 &
          every ::",row,":0:",row,":0 pt 7 noti"
     write(10,*)
  end do
end program