Return to SIOSEIS examples.          Return to Revelle HiRes example.

SIOSEIS script to gather (sort) by rp (cmp)

sioseis << eof
procs diskin header geom gather diskoa end
diskin
  si .0005 sort shot
   ftr 0 ltr 23
    ipath smcs05a.sgy end
end
gather
   end
end
diskoa
    opath 5a.cmp end
end
header
   fno 0 lno 99999  l4 = l4 + 1   l7 = 0 end
end
prout
   end
end
geom
  rpadd 20
  dfls 12.5 gxp 1 -11.63 ggx 3.125 dbrps 1.5625 smear 1.5625  end
end
end
eof