A script to calculate and apply the datum correction shifts.

Notes:
1)  set 0 .4 to make the data long enough so the input data are
    not shifted off the end of the trace.
2)  Do a 3 trace mix or averaging to smooth the data spatially.
3)  Use ofmt 1 to write IBM floating point for SU
4)  Process header is used to make the rp number the same ast the
    shot number because process wbt expects the data to be sorted
    or gathered.
5)  Process wbt puts the water bottom time into SEG-Y header floating
    point word 50.
6)  Process wbt2 picks the recorded water bottom time and puts it in
    SEG-Y floating point work 60.
7)  Process header2 computes the shift and writes it into SEG-Y
    floating point header word 59.
8)  Process shift shifts the trace in time according to SEG-Y
    floating point header word 59.

sioseis << eof
procs diskin header mix wbt wbt2 header2 shift diskoa end
diskin
  set 0 .4
   ipath line164.segy end
end
mix
    weight 1 1 1 end
end
diskoa
   ofmt 1 opath data end
end
header
   fno 0 lno 99999 ftr 1 ltr 99 l6 = l3 end
end
wbt   ! pick whatever it is
   815802  0.126000
   815901  0.126267
   816010  0.126800
   816139  0.127067
   816238  0.127600
   816325  0.127867
   816419  0.128400
   816550  0.128667
   816690  0.128933
   816836  0.129333
   817019  0.129467
   817164  0.130000
   817288  0.130133
   817390  0.130667
   817497  0.130800
   817629  0.131200
   817717  0.131467
   817836  0.131600
   817933  0.132133
   818019  0.132533
   818127  0.132667
   818246  0.133067
   818328  0.133467
   818470  0.133733
   818591  0.134133
   818722  0.134533
   818857  0.135067
   819101  0.135733
   819230  0.136133
   819379  0.136533
   819495  0.136933
   819695  0.137333
   819809  0.137600
   819922  0.138133
   820017  0.138533
   820121  0.138933
   820242  0.139200
   820330  0.139733
   820414  0.139733
   820503  0.140400
   820611  0.140800
   820740  0.141467
   820869  0.141600
   820956  0.142267
   821079  0.142933
   821188  0.143467
   821263  0.143867
   821364  0.144133
   821469  0.144267
   821606  0.145067
   821744  0.145867
   821849  0.146400
   821936  0.147333
   822020  0.147867
   822091  0.148400
   822150  0.149200
   822198  0.150667
   822238  0.151600
   822265  0.152400
   822296  0.153600
   822323  0.154533
   822354  0.155600
   822388  0.156533
   822417  0.157600
   822451  0.158933
   822492  0.160000
   822528  0.160533
   822550  0.160800
   822579  0.160667
   822606  0.160667
   822629  0.160533
   822656  0.160533
   822676  0.160667
   822701  0.160533
   822745  0.161600
   822768  0.162133
   822803  0.162400
   822829  0.162933
   822851  0.163200
   822879  0.164000
   822910  0.164267
   822946  0.164267
   822972  0.163867
   823000  0.163600
   823026  0.163467
   823050  0.163733
   823080  0.164267
   823109  0.165333
   823303  0.192133
   823333  0.194800
   823357  0.197333
   823376  0.198800
   823396  0.199600
   823413  0.199867
   823436  0.199467
   823456  0.199067
   823482  0.198000
   823515  0.196933
   823546  0.196400
   823571  0.196133
   823599  0.195467
   823629  0.194933
   823655  0.194400
   823685  0.194400
   823728  0.194667
   823761  0.195600
   823785  0.196000
   823822  0.196133
   823846  0.195200
   823864  0.194800
   823893  0.193333
   823923  0.191600
   823949  0.190133
   823975  0.188133
   823999  0.185867
   824018  0.183467
   824036  0.181600
   824065  0.179200
   824090  0.177200
   824115  0.176133
   824143  0.175467
   824165  0.175067
   824194  0.175200
   824221  0.174667
   824240  0.174400
   824267  0.174267
   824287  0.174400
   824312  0.174933
   824342  0.174800
   824374  0.174933
   824402  0.175467
   824422  0.175467
   824447  0.175867
   824470  0.175867
   824497  0.176000
   824527  0.176400
   824556  0.176000
   824582  0.175733
   824602  0.174533
   824632  0.174267
   824650  0.173867
   824677  0.173867
   824698  0.174133
   824724  0.174933
   824746  0.176267
   824768  0.177467
   824786  0.178133
   824809  0.179467
   824829  0.180133
   824847  0.181333
   824879  0.182667
   824909  0.183867
   824936  0.184667
   824971  0.185067
   825009  0.186133
   825035  0.186800
   825074  0.188000
   825109  0.188533
   825142  0.189333
   825188  0.190400
   825221  0.191333
   825251  0.192400
   825309  0.194800
   825790  0.221067
   825821  0.222800
end
wbt2   ! pick the water bottom
   index 60   ! put this pick in real word 60
   thres .2e-07 track .005 end
end
header2
  fno 0 lno 999999
  r59 = r50 - r60   ! subtract the picked time from the theoretical
  end
end
prout
!  indices l3 l16 r50 r59 r60
    fno 0 lno 99999 noinc 100 ftr 0 ltr 999 end
end
shift
  indices r59 end
end
end
eof