SIOSEIS script to collect all the traces closest to the vibrator


sioseis << eof
procs diskin weight diskoa end
diskin
   retrac 1
   ipath tom.segy
    fno 1 lno 1 ftr 60 ltr 60 end
    fno 2 lno 2  ftr 59 ltr 59 end
    fno 3 lno 3 ftr 58 ltr 58 end
    fno 4 lno 4 ftr 57 ltr 57 end
    fno 5 lno 5 ftr 56 ltr 56 end
    fno 6 lno 6 ftr 55 ltr 55 end
    fno 7 lno 7 ftr 54 ltr 54 end
    fno 8 lno 8 ftr 53 ltr 53 end
    fno 9 lno 9 ftr 52 ltr 52 end
    fno 10 lno 10 ftr 51 ltr 51 end
    fno 11 lno 11 ftr 50 ltr 50 end
    fno 12 lno 12 ftr 49 ltr 49 end
    fno 13 lno 13 ftr 48 ltr 48 end
    fno 14 lno 14 ftr 1 ltr 1 end
    fno 15 lno 15 ftr 2 ltr 2 end
    fno 16 lno 16 ftr 3 ltr 3 end
    fno 17 lno 17 ftr 4 ltr 4 end
    fno 18 lno 18 ftr 5 ltr 5 end
    fno 19 lno 19 ftr 6 ltr 6 end
    fno 20 lno 20 ftr 9 ltr 9 end
    fno 21 lno 21 ftr 10 ltr 10 end
    fno 22 lno 22 ftr 11 ltr 11 end
    fno 23 lno 23 ftr 12 ltr 12 end
    fno 24 lno 24 ftr 13 ltr 13 end
    fno 25 lno 25 ftr 14 ltr 14 end
    fno 26 lno 26 ftr 15 ltr 15 end
    fno 27 lno 27 ftr 16 ltr 16 end
    fno 28 lno 28 ftr 17 ltr 17 end
    fno 29 lno 29 ftr 18 ltr 18 end
    fno 30 lno 30 ftr 19 ltr 19 end
    fno 31 lno 31 ftr 20 ltr 20 end
    fno 32 lno 32 ftr 21 ltr 21 end
    fno 33 lno 33 ftr 22 ltr 22 end
    fno 34 lno 34 ftr 23 ltr 23 end
    fno 35 lno 35 ftr 24 ltr 24 end
    fno 36 lno 36 ftr 25 ltr 25 end
    fno 37 lno 37 ftr 26 ltr 26 end
    fno 38 lno 38 ftr 29 ltr 29 end
    fno 39 lno 39 ftr 30 ltr 30 end
    fno 40 lno 40 ftr 31 ltr 31 end
    fno 41 lno 41 ftr 32 ltr 32 end
    fno 42 lno 42 ftr 33 ltr 33 end
    fno 43 lno 43 ftr 34 ltr 34 end
    fno 44 lno 44 ftr 35 ltr 35 end
    fno 45 lno 45 ftr 36 ltr 36 end
    fno 46 lno 46 ftr 37 ltr 37 end
    fno 47 lno 47 ftr 38 ltr 38 end
    fno 48 lno 48 ftr 39 ltr 39 end
    fno 49 lno 49 ftr 40 ltr 40 end
    fno 50 lno 50 ftr 41 ltr 41 end
    fno 51 lno 51 ftr 42 ltr 42 end
    fno 52 lno 52 ftr 43 ltr 43 end
    fno 53 lno 53 ftr 44 ltr 44 end
    fno 54 lno 54 ftr 45 ltr 45 end
    fno 55 lno 55 ftr 46 ltr 46 end
    fno 56 lno 56 ftr 79 ltr 79 end
    fno 57 lno 57 ftr 78 ltr 78 end
    fno 58 lno 58 ftr 77 ltr 77 end
    fno 59 lno 59 ftr 76 ltr 76 end
    fno 60 lno 60 ftr 75 ltr 75 end
    fno 61 lno 61 ftr 74 ltr 74 end
    fno 62 lno 62 ftr 73 ltr 73 end
    fno 63 lno 63 ftr 72 ltr 72 end
    fno 64 lno 64 ftr 71 ltr 71 end
    fno 65 lno 65 ftr 70 ltr 70 end
    fno 66 lno 66 ftr 69 ltr 69 end
    fno 67 lno 67 ftr 68 ltr 68 end
    fno 68 lno 68 ftr 67 ltr 67 end
    fno 69 lno 69 ftr 66 ltr 66 end
    fno 70 lno 70 ftr 65 ltr 65 end
    fno 71 lno 71 ftr 64 ltr 64 end
    fno 72 lno 72 ftr 63 ltr 63 end
end
weight
    fno 0 lno 99999 twp
      1 -1 2 -1 3 -1 4 -1 5 -1 6 -1 7 -1 8 -1 9 -1 10 -1
     11 -1 12 -1 13 -1 14 -1 15 -1 16 -1 17 -1 18 -1 19 -1 20 -1
     21 -1 22 -1 23 -1 24 -1 25 -1 26 -1 27 -1 28 -1 29 -1 30 -1
     31 -1 32 -1 33 -1 34 -1 35 -1 36 -1 37 -1 38 -1 39 -1 40 -1
     41 -1 42 -1 43 -1 44 -1 45 -1 46 -1 47 -1
     end
end
diskoa
   ontrcs 1 fon 1 opath closest.segy end
end
end