program modify_kicker_pulse_map
  use precision_def

  implicit none

  integer lunget
  integer i

  real(rp) time(2000), volt(2000), bfield(2000)
  real(rp) scale/0.05/,tr/480./
  integer lun,n/0/
 
lun=lunget() 
open(unit=lun, file='kicker1data.txt')
do while(.true.)
  n=n+1
  read(lun, *, end=99)time(n), volt(n),bfield(n)
end do
99 continue
close(lun)

lun=lunget()
open(unit=lun,file='kicker1data_05_tail.txt')
do i=1,n
  if(time(i) > tr)then
    volt(i) = scale*volt(i)
    bfield(i) = scale*bfield(i)
 endif
 write(lun, '(3es18.10)')time(i),volt(i),bfield(i)
enddo
end