Alistair.html0000644000076500001200000000170007743627073014272 0ustar henkartadmin00000000000000 A comparison of some SIOSEIS filters. Return to SIOSEIS examples.          Go to the list of seismic processes.          Go to SIOSEIS introduction.

A comparison of some SIOSEIS filters.

Alistair Harding found a sioseis bug where the slope of the
minimum phase filters were half of what they should have been.
He compares (264KB pdf) a minimum phase filter with 
a zero phase filter, with and without the factor of two.
Return to SIOSEIS examples.          Go to the list of seismic processes.          Go to SIOSEIS introduction. EW0008.html0000755000076500001200000001442607314173213013343 0ustar henkartadmin00000000000000 EW0008 example Go to the list of seismic processes.      Go to SIOSEIS introduction. 
SIOSEIS was used aboard the R/V Ewing during the EW0008 cruise to
Blake Ridge (September 2, 2000 to October 17, 2000; Newark, N.J)

Step 1:
Reformat SEG-D 3490 to SEG-Y DLT script includes assigning the
streamer geometry (trace ranges and CMP numbers) as well as extracting
the GPS clock, LDEO shot number, and streamer depth.  The script also
writes every 20th shot to a circular disk file of QC plotting.
   This script was run immediately after each 3490 tape was ejected
from the Syntron acquisition system.  Each tape was read another time
after the copy/reformat was completed (see step 2 below).
   This script had to be changed each time the streamer was deployed
since the tow leader and streamer bird locations changed each time
the streamer was deployed.
   During EW0008 a new feature was added to SIOSEIS process GEOM so
that the shot to shot distance can be determined on each shot using
the realtime GPS locations that are in the SEG-D and SEG-Y headers.
EW0008 leased a realtime differential GPS system  (diagram)  from
John E. Chance (written description).   While in Port Newark, this
system performed within our 1 meter specification.


Step 1a:
QC "plot.shot" script was run occassionally to check on the data
quality.  Generally, this plot was used to check on noisy channels.
In one case this plot showed that alternate shots were dead before the
watch recognized the problem.

Step 1b:
The frequency analysis script was run in the early part of the cruise
to show the effect of different tow depths of the streamer and guns
as well as to reassure ourselves that a ,002 seconds (2 mil) sample
interval was sufficient. e.g.
freq_tr.2mil /export/home/EW0008/Realtimestack/latest.shot.segy 301
    This frequency plot shows that the data is dominated by steamer
noise, which can be filtered out using a (sioseis script).
    The frequency plot of the filtered trace shows the predominant
frequency to be around 40Hz.

Step 2:
The brute stack script (version 1) and (version 2) has many unique
features.  The most important objective was to provide a hardcopy
plot for geologic and geophysical purposes as well as another
quality control step.  This script generates a plot file which is
constantly being read by program atlantek that writes to the
Atlantek thermal plotter.  The brute stack plot thus contain data that
were collected around one hour previously.
    All traces are read by SEGDIN, assigned streamer geometry and
gathered according to cmp so that every 50th gather could be written
to a disk file for velocity analysis.  New parameter LIMITS was used
in process TREDIT to exclude all ranges except for the 1000 meters
closest to the ship because the velocities were not known well enough.

     Before starting the velocity analysis, a quick plot was made
of a few cmp gathers.   The script that generated the plot has a
couple of interesting twists.  New plot parameter RECSP YES was used
so we didn't have to worry about the number of traces in each gather.  
Process header was used to convert the Hydrosweep water bottom
time from seconds to milliseconds because process plot can only
annotate integers.
     This vpick script runs on Matlab version 5.3.0 which uses
function ginput rather than getline.  These velocities were checked
by plotting each moved-out cmp gather individually using a C-Shell
script.  These picks weren't satisfactory when used in the stack.
There was only one machine with Matlab on the ship and the license
was for a single user and other users were using Matlab.  So, we used
the constant velocity stack method provided by SIOSEIS (scripts).
     The stack script was short and simple, with only 5 velocities
necessary.  NMO velocity interpolation parameter vintpl 3 should be
used for smooth velocity interpolation.  The mute parameters were
selected to mute out the far half of the streamer down through the
BSR because of NMO stretch.  The velocities generally increase, except
for the BSR.  e.g.
fno 309701 vtp 1510 3.65 1527 3.9 1535 4.15 1515 4.2 1555 4.25 1570 4.5
               1590 4.85 1650 6 end
where the BSR is .55 seconds after the water bottom.
      The stacked data were then FK migrated with a velocity of 1520m/s,
reversed in order (since the line runs from west to east), the water
bottom picked, the muted to water bottom, filtered, and an exponential
gain applied from the water bottom.  The script uses a brand new
parameter in process gains; TADD.  e.g.
gains
  subwb yes tadd 3.  type 3  alpha 4 end end
subtracts the water bottom time of each trace and then adds 3 seconds.
Thus, each trace gets exactly the same gain function, as if each trace
started at 3 seconds.

     A comparision of realtime and post-processed navigation
was performed.  The LDEO post-processed ts.n file was converted to 
SIOSEIS navigation file using PERL script ts2sio.  This comparison
was done on a relatively calm day.  Many factors should be considered
when deciding which method to use for cmp binning:
The realtime nav block is a predicted location.
The realtime location has more ship pitch, roll, yaw in it.
The guns and streamer are somewhat decoupled from ship pitch, roll, yaw.


*******************************************************************
**************        RECOMMENDATION        ***********************
*******************************************************************
TS.N FILES SHOULD BE USED FOR POST-PROCESSING NAVIGATION AND BINNING.
Return to SIOSEIS examples.

Go to the list of seismic processes.      Go to SIOSEIS introduction. EW0008a.html0000755000076500001200000002665707172566013013523 0ustar henkartadmin00000000000000 EW0008 example Go to the list of seismic processes.      Go to SIOSEIS introduction. 


   Paul's definition of "transom":   The aft most part of a boat.
On the Ewing, the transom is the streamer roller.



*******************************************************************
       Deployment 1 - 24 channels, 7 birds
OBS Lines.    JD249-JD251
Distance from booms to 6 air guns array is 115ft or 35m
Distance from booms to transom is                    2m
Distance from transom to 6 air guns =               33m
Distance from connector and deck clamp to section 5 is 150m
Distance from connector to transom is                 1.8m
Distance from transom to section 5 is                148.2
Distance from section 5 connector to center of group 24 is 6.25m
Distance from transom to center of group 24 is       154.45m
Distance from guns to group 24                       121.45
*****   NOTE   The ranges on the tape copy are off by 4m because
*****          I didn't know the 6 air gun array was at 115ft
*****          when shooting started.  The larger air gun arrays
*****          are towed at 130ft.
*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 1 ltr 24  # throw out traces 25-36
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 240 -117.35 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 2 1 3 6 4 12 5 18 6 14 7 30
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
  ontrcs 24 # force 24 traces per shot
   rewind 0   # leave the tape alone!
   ounit 35 # dlt
   end
end
end
eof

*******************************************************************
       Deployment 2 - 480 channels, 23 birds
Lines R0,1   JD 254
Distance from booms to 2 GI guns array is 130ft or 39.6m
Distance from booms to transom is                    2m
Distance from transom to 2 GI guns =               37.6m
Streamer leader (measured from where?) 115m
Two stretch sections                   100m
Center of group 480                      6.25m
Distance transom(?) to group 480                    221.25m
Distance from guns to group 480 (221.25 - 37.6)     183.65m
#  Note BIRD 24 in place of BIRD 14
*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   tr0 yes  # needed for streamer depths and compasses
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 480 -184.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
#  Note BIRD 24 in place of BIRD 14
  bgp 1 6 2 18 3 30 4 42 5 66 6 90 7 114 8 138 9 162 10 186 11 210
     12 234 13 258 24 282 15 306 16 330 17 354 18 378 19 402 20 426
     21 438 22 459 23 462
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   rewind 0   # leave the tape alone!  
#   ounit2 36  # dat
   ounit 35 # dlt
   end
end
end
eof
*******************************************************************
       Deployment 3 - 480 channels, 24 birds
Lines R3-12   JD255 - JD257
Same leader and guns as Deployment 2
NOTE All 24 birds in place
*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   tr0 yes  # needed for streamer depths and compasses
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 480 -184.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 18 3 30 4 42 5 66 6 90 7 114 8 138 9 162 10 186 11 210
     12 234 13 258 14 282 15 306 16 330 17 354 18 378 19 402 20 426
     21 438 22 459 23 462 24 474
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   rewind 0   # leave the tape alone!  
#   ounit2 36  # dat
   ounit 35 # dlt
   end
end
end
eof
*******************************************************************
       Deployment 4 - 324 channels, 24 birds
Lines R14 through 3D-57;  JD258 - JD265
Distance from booms to 2 GI guns array is 130ft or 39.6m
Distance from booms to transom is                    2m
Distance from transom to 2 GI guns =               37.6m
Streamer leader (measured from where?)   85m
Center of group 324                       6.25m
Distance transom(?) to group 324                    91.25m
Distance from guns to group 324 (91.25 - 37.6)      53.65m

*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1
   ftr 1 ltr 324  # recording 325-480, but it's on the reel!
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   tr0 yes  # needed for streamer depths and compasses
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 324 -54.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 7 3 18 4 30 5 42 6 66 7 90 8 102 9 126 10 138
       11 162 12 174 13 186 14 198 15 210 16 222 17 234 18 246
      19 258 20 270 21 282 22 294 23 306 24 318
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   ontrcs 324 # Force the shots to have 324 traces per shot
   rewind 0   # leave the tape alone!  
#   ounit2 36  # dat
   ounit 35 # dlt
   end
end
end
eof
*******************************************************************
       Deployment 5 - 324 channels, 24 birds
   SAME AS Deployment 4.   BIRDS 23/24 are not reversed!
   The copy script used had bgp 306 23 294 24
Lines 3D-15x to end of 3-D.   JD266 - JD283
*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1
   ftr 1 ltr 324  # recording 325-480, but it's on the reel!
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   tr0 yes  # needed for streamer depths and compasses
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 324 -54.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 7 3 18 4 30 5 42 6 66 7 90 8 102 9 126 10 138
       11 162 12 174 13 186 14 198 15 210 16 222 17 234 18 246
      19 258 20 270 21 282 22 294 23 306 24 318
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   ontrcs 324 # Force the shots to have 324 traces per shot
   rewind 0   # leave the tape alone!
#   ounit2 36  # dat
   ounit 35 # dlt
   end
end
end
eof
*******************************************************************
       Deployment 6 - 48 channels, 8 birds
OBS Lines.    Day 282 - Day 283
Distance from booms to 6 air guns array is 115ft or 35m
Distance from booms to transom is                    2m
Distance from transom to 6 air guns =               33m

Group 54 is on the deck
Distance from connector (group 48) and deck clamp
   to next section connector (group 48) is  75m
Distance from connector to transom is        1.8m
Distance from transom to connector at group 42 is 73.2m
Distance from connector to center of group 42 is   6.25m
Distance from transom to center of group 42 is         79.45m
Distance from air guns to group 42     (79.45 - 33)        46
****     10 meter error on tape copy script    *******

Distance from booms to 2 GI guns array is 130ft or 39.6m
Distance from booms to transom is                    2m
Distance from transom to 2 GI guns =               37.6m
Distance from GI guns to group 42    (79.45 - 37.6)     42m
****     6 meter error on tape copy script    *******


*******************************************************************
/home/henkart/bin/sioseis << eof
# Don't use sioseis.fast since it doesn't use IEEE
procs segdin geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 1 ltr 24  # throw out traces 25-36
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 4 end
end
geom
  fs 1 ls 999999 type 2
  gxp 42 -36 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
   bgp 1 1 2 7 3 12 4 18 5 24 6 30 7 36 8 42
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   ontrcs 48 # Force the shots to have 324 traces per shot
   rewind 0   # leave the tape alone!
   ounit 35 # dlt
   end
end
eof

*******************************************************************
       Deployment 7 - 480 channels, 24 birds
Lines R13-   JD284 -
Same streamer geometry as  Deployment 2.  Different bird location.
Different from earlier deployments because:
1)  New geom TYPE 9 using LDEO nav block lat/long rather than assuming
    shot numbers are 37.5m apart.
2)  Save the long/lat in SEG-Y words 59 & 60
3)  Also removed parameter offline so tape is not ejected after copy
*******************************************************************
sioseis << eof
procs segdin header geom diskoa output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1
!   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   tr0 yes  # needed for streamer depths and compasses
   iunit 4 end
end
header   # save long/lat in 59, 60 before geom clobbers it
    fno 0 lno 999999 ftr 0 ltr 999 l59 l19 l60 l20 end
end
geom
  fs 1 ls 999999
   type 9  ! New binning by realtime lat/long
!  type 2 ! each shot number increases dfls
  gxp 480 -184.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 18 3 42 4 54 5 78 6 90 7 114 8 138 9 162 10 186
      11 210 12 234 13 246 14 258 15 282 16 306 17 330 18 354
     19 378 20 402 21 426 22 450 23 462 24 474
   rpadd 1000
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
output
   rewind 0   # leave the tape alone!  
   ounit 35 # dlt
   end
end
end
eof
Return to EW0008 example.      Return to SIOSEIS examples.

Go to the list of seismic processes.      Go to SIOSEIS introduction. EW0008b.html0000755000076500001200000000202507165133007013476 0ustar henkartadmin00000000000000 EW0008 example - QC plot of a shot Go to the list of seismic processes.      Go to SIOSEIS introduction. 

                   EW0008 example - QC plot of a shot

Note that this uses "sioseis-fast" which is fast, but does not
use IEEE floating point.

sioseis-fast << eof
procs diskin filter plot prout end
diskin
  set 2 6
   ipath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
prout
    fno 0 lno 999999 ftr 1 ltr 1 end
end
agc
   winlen .5 end
end
filter
   ftype 0 dbdrop 48 pass 20 220 end
end
plot
   nibs 75 vscale 5 nsecs 3 stime 3
   def .1 trpin 10 clip .1
   ann sh&tr taginc 5
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &
Return to EW0008 example.      Return to SIOSEIS examples.

Go to the list of seismic processes.      Go to SIOSEIS introduction. EW0008bb.html0000644000076500001200000001240307165132720013637 0ustar henkartadmin00000000000000Matlab scripts for frequency analysis 

      This MATLAB script was used to do frequency analysis  on 1 mil
"latest.shot.segy".  The script doesn't care about the shot number.
It simply reads the trace specified. 

#!/bin/csh -f
if( $#argv != 2 ) then
    echo "Usage: fanal filename fno ftr"
    exit 1
endif
set FILE = $1
set FTR = $2

matlab << eof1
a = (0:.9765625:500)';
rdtrsegy $FILE -1 $FTR;
x = fft(ans,1024);
b = abs(x(1:513,1));
plot(a,b,'b');
xlabel ('frequency (Hz.)');
title ('file $FILE    trace $FTR');
pause(120)
print -dpsc plot.ps;
eof1

    A similar script for 2 mil data is:

#!/bin/csh -f
if( $#argv != 2 ) then
    echo "Usage: fanal filename fno ftr"
    exit 1
endif
set FILE = $1
set FTR = $2

matlab << eof1
a = (0:.4882812:250)';
rdtrsegy $FILE -1 $FTR;
x = fft(ans,1024);
b = abs(x(1:513,1));
plot(a,b,'b');
xlabel ('frequency (Hz.)');
title ('file $FILE    trace $FTR');
pause(20)
print -dpsc plot.ps;
eof1

   The MATLAB m file   rdtrcsegy.m is:

function [seis,ntr,fmt,dsrt,dom,x,t0,nsamps,dt,nx,sh, ...
tr,rp,trp,trcid]=readsegy(filenm,a1,a2);
%
% Reads an SEG-Y trace into "ans"
% arguments:
% filename - The name of the SEG-Y file to be read
% a1 - The shot/rp number of the trace to be read
% a2 - The trace number to be read.
%
% Short program-driver for reading SEGY files
%    The SEGY binary tape header parameters passed here are
%    (all of them of 1x1 size, because it is a tape header,
%    so you have to write it out just once):
%    seis(nsamps by nx) Seismogram data
%    ntr   : Number of traces per shot (or record)
%    fmt  : SEGY format type, >4, "host" floating point
%    dsrt  : How is data sorted. 0 or 1 by shots; 2 by CDP gathers
%    dom   : The domain  of the data (0 or 1 - time, 7 - tau-p, etc.)
 
%       Variables are in the two temporary arrays -
%       lbuf holds long integers and ibuf holds short integers
 
%    The header parameters passed here are:
%    x (nx by 1) :  Range in km
%    t0(nx by 1) :  Start time in sec
%%%    id(nx by 1) :  Trace index integer (ie 1 through nx)
%    nsamps(nx by 1) :  Number of samples per trace
%    dt(1  by 1) :  Sample interval in sec/sample
%    nx          :  Number of traces written in
%    sh          :  Shot number
%    tr          :  Trace within the shot
%    rp          :  RP or CDP number
%    trp         :  Trace number within RP or CDP
%    trcfid      :  Trace ID; live = 1


fno = str2num(a1);
ftr = str2num(a2);
%   Open file and read the "tape" header
 
fid = fopen(filenm, 'r');
if fid == -1
    error('error opening SEG-Y file')
end

%   Read the EBCDIC header, putting into temp arrays
%   Useful information for subsequent writing is stored in appropriate variables
 
thbuf1 = fread(fid,3200)';
%disp( 'EBCDIC tape header ')
thbuf1(1,1);
%fseek(fid,3200,0);
thbuf2 = fread(fid,200,'short')';
ntr = thbuf2(7);
fmt = thbuf2(13);
dsrt = thbuf2(15);
dom = thbuf2(31);
tst = thbuf2(200);
 
if (fmt == 1)
  exit('Cannot read IBM floating point format');
end
 
%   Next read the trace headers and data, putting into temp arrays
%   Reads each header twice, first putting into ibuf in short int format
%   then into lbuf in long int format
%   Array ibuf is (nx by 120) and array lbuf is (nx by 60)
 
buftr = 40;   % Size of buffer increments
nx = 0;       % Number of traces read
nread = 0;
 
doit = 1;
while (doit)
%  T1 = fread(fid,120,'short')';
  T1 = fread(fid,120,'int16')';
  if (feof(fid) == 1) break; end
  nread = nread + 1;
 
  if (nread == 1 ) % Preassign Buffer space for trace headers/data
   nsamps = T1(58);
   bibuf = zeros(buftr,120);
   blbuf = zeros(buftr, 60);
   bseis = zeros(buftr,nsamps);
  end
 
  nsamps = T1(58);
%  fseek(fid,-240,0)
  fseek(fid,-240,'cof');
%  T2 = fread(fid,60,'long')';
  T2 = fread(fid,60,'int32')';
  if (feof(fid) == 1)
     fprintf(1,'reread of header failed.\n');
     break;
  end
  if( fmt == 2 ) T3 = fread(fid,nsamps,'long')'; end;
  if( fmt == 3 ) T3 = fread(fid,nsamps,'short')'; end;
  if( fmt > 4 ) T3 = fread(fid,nsamps,'float')'; end;
  if (feof(fid) == 1)
     fprintf(1,'read of data failed.\n');
     break;
  end
 nx = nx + 1;
  bibuf(nx,:) = T1;
  blbuf(nx,:) = T2;
  if( blbuf(nx,7) == 0 )
      no = blbuf(nx,3);
      tr = blbuf(nx,4);
  else
      no = blbuf(nx,6);
      tr = blbuf(nx,7);
  end
  bseis(nx,:) = T3;
      if( tr == ftr )
          doit = 0;
      else
          nx = nx - 1;
      end

                    % Allocate additional storage space for data arrays
  if ( nx > 0 )
     if( rem(nx,buftr) == 0)
       seis = [seis;bseis];
       ibuf = [ibuf;bibuf];
       lbuf = [lbuf;blbuf];
     end
  end
end
 
if ( nx == 0 ) 
   quit
end
seis = bseis(1:nx,:);
ibuf = bibuf(1:nx,:);
lbuf = blbuf(1:nx,:);
 
fclose(fid);

% identify the variables inside the ibuf - the short integers
% or lbuf - the long integers, arrays to pass on
dt = bibuf(:,59) * 0.000001;
nsamps = bibuf(:,58);
x =  blbuf(:,10) * 0.001;
t0 = bibuf(:,55) * 0.001;
sh = blbuf(:,3);
tr = blbuf(:,4);
rp = blbuf(:,6);
trp = blbuf(:,7);
trcid = bibuf(:,15);
%id = [:]'
seis = bseis(:,:)';




Return to EW0008 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW0008bc.html0000644000076500001200000000160507165134217013645 0ustar  henkartadmin00000000000000SIOSEIS script to filter and copy latest.shot.segy

             SIOSEIS script to filter and copy latest.shot.segy


sioseis << eof
procs diskin filter diskoa end
diskin
    ipath /export/home/EW0008/Realtimestack/latest.shot.segy end
end
filter
   ftype 0 dbdrop 48 pass 20 220 end
end
header
   fno 0 lno 99999 lhdr 6 1  lhdr 51 0 end
end
diskoa
   opath data end
end
end
eof

Then:
>lsd data 1 1
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
    117541     1  704919     0  1  -4092     0   4608  2000 2000 273 13  28  22
>mv data shot117541.filt20x220



Return to EW0008 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW0008c.html0000755000076500001200000000570607165132550013512 0ustar  henkartadmin00000000000000 EW0008 example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

          stack.WtoE


#!/bin/csh -f
if( $#argv != 1 ) then
    echo "Usage: stack line-number "
    exit 1
endif
set LINENO = $1

mkdir /export/home/EW0008/Realtimestack/Line$LINENO
chmod a+rw /export/home/EW0008/Realtimestack/Line$LINENO

/home/henkart/bin/sioseis-fast << eof

procs segdin geom prout header gather diskoa tredit nmo stack
      diskoe filter gains plot end

segdin
   ffilen 99999 
   fcset 1 lcset 1
   ftr 1 ltr 324
   stime 3 secs 4
   offline yes  # eject after the rewind after EOT
   iunit 4 end
end

tredit
  limits -1000 0 kill outside lhdr 10    # kill ranges outside 0 - 1000
  fno 0 lno 999999 end
end

prout
  fno 0 lno 99999 ftr 324 ltr 324 noinc 10 end
end

weight
  fno 0 lno 999999 twp 187 0 247 0 295 0 307 0 end
end

geom
  type 2 # increment the shot location based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  ggx -12.5         # Used to extrapolate gxp!
  dfls 37.5 dbrps 6.25 smear 6.25
  gxp 324 -54.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 7 3 18 4 30 5 42 6 66 7 90 8 102 9 126 10 138
       11 162 12 174 13 186 14 198 15 210 16 222 17 234 18 246
      19 258 20 270 21 282 22 294 23 306 24 318
  rpadd 1000 end
end

mute
   fno 1 lno 999999
   addwb yes xtp 200 -.1 1500 -.1 3000 1 6200 2 end
end

plot
   nsecs 4  dir ltr
   scalar 2.E-05
   tlines 0.1 0.5 1 nibs 7224
   def 0.150 clip .2 trpin 75 wiggle -50 vscale 5
   ann gmtint anninc 5
   opath /export/home/EW0008/Realtimestack/Line$LINENO/siopltfil.Line$LINENO
  end
end
  
diskoa
# write every 50th cmp gather into a file for velocity analysis
   opath /export/home/EW0008/Realtimestack/Line$LINENO/line$LINENO.cmp.inc50.segy
   fno 1 lno 9999999 noinc 50 end
end

diskob 
# write every 20th shot to a "circular" file 
    fno 1 lno 999999 noinc 20 rewind 1 
    opath /export/home/EW0008/Realtimestack/latest.shot.segy end 
end

diskoe   # Write out disk file
  opath /export/home/EW0008/Realtimestack/Line$LINENO/stack.line$LINENO end
end

header
   fno 0 lno 9999999 ftr 1 ltr 9999 
   r50 r54 / 750.  # convert water depth to water time
   bhdr 28 1
   end
end

gather
   maxtrs 90 maxrps 500 end
#   maxtrs 60 maxrps 500 end
end

filter
#   ftype 0 dbdrop 48 pass 20 120 end
   ftype 0 dbdrop 48 pass 40 220 end
end

gains
   type 3 alpha 4.2 end
end

agc 
  winlen 1 pctagc 100 end 
end 

nmo
 addwb yes
 stretc 0.7
vtp
1515 0
1502 0.109
1520 0.145
1520 0.188
1520 0.243
1520 0.352
1520 0.407
1540 0.491
1541 0.57
1540 0.726
1559 0.808
1579 0.912
1626 1.927
end

end

end
eof


Return to EW0008 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW0008c1.html0000755000076500001200000000537207170731764013602 0ustar  henkartadmin00000000000000 EW0008 example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

               A later stack script
Changes:
1) stacking 120 of 480 traces (2km of 6km streamer)
2) A new velocity function with a low velocity zone.
3) New geom option type 9 - binning by realtime lat/long
4) New gains parameter tadd used with subwb yes


#!/bin/csh -f
if( $#argv != 2 ) then
    echo "Usage: stack line-number shot_spacing (in meters)"
    exit 1
endif
set LINENO = $1
set DX = $2

mkdir /export/home/EW0008/Realtimestack/Line$LINENO
chmod a+rw /export/home/EW0008/Realtimestack/Line$LINENO

#./sioseis << eof
/home/henkart/bin/sioseis-fast << eof
#./sioseis-fast << eof

procs segdin geom prout gather nmo mute stack
      diskoe filter gains plot end

segdin
   ffilen 99999 
   fcset 1 lcset 1
   ftr 361 ltr 480 ! drop long ranges (1-360 ~= 2km to 4km)
   stime 3 secs 4
   offline yes  # eject after the rewind after EOT
   iunit 4 end
end

tredit
  limits -2000 0 kill outside lhdr 10  # kill 2km to 6km
  fno 0 lno 999999 end
end

prout
  fno 0 lno 999999 ftr 480 ltr 480 noinc 10 end
end

weight
   fno 0 lno 9999999 twp 51 0 end 
end

geom
  type 9  # The new dfls from the realtime nav block
#  type 2 # increment the shot location based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  ggx -12.5         # Used to extrapolate gxp!
# dfls $DX dbrps 6.25 smear 6.25
  dfls 37.5 dbrps 6.25 smear 6.25
  gxp 480 -184.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 18 3 30 4 42 5 66 6 90 7 114 8 138 9 162 10 186 11 210
     12 234 13 258 14 282 15 306 16 330 17 354 18 378 19 402 20 426
     21 438 22 459 23 462 24 474
  rpadd 1000 end
end

mute
   fno 1 lno 999999
     addwb yes xtp 2000 -.03 2500 .6 6000 .7 end
end

plot
   nsecs 4
   scalar 2.E-04
   tlines 0.1 0.5 1 nibs 7224
   def 0.150 clip .1 trpin 75 wiggle -40 vscale 5
   ann gmtint anninc 5
   opath /export/home/EW0008/Realtimestack/Line$LINENO/siopltfil.Line$LINENO
  end
end
  
diskoe   # Write out disk file
  opath /export/home/EW0008/Realtimestack/Line$LINENO/stack.line$LINENO end
end
gather
   maxtrs 90 maxrps 500 end
#   maxtrs 60 maxrps 500 end
end

filter
#   ftype 0 dbdrop 48 pass 20 120 end
   ftype 0 dbdrop 48 pass 40 220 end
end

gains
   type 3 alpha 4 subwb yes tadd 3 end
end

nmo
 addwb yes stretc 1.
  vtp 1510 0 1530 .3 1550 .4 1510 .5 1560 .6 1580 .9 1650 1.5 end
end

end

eof


Return to EW0008 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW0008d1.html0000644000076500001200000000206207165651127013567 0ustar  henkartadmin00000000000000SIOSEIS script to plot some cmp gathers

       SIOSEIS script to plot some cmp gathers


/home/henkart/src/sioseis/sioseis << eof
procs diskin prout header nmo filter plot end
diskin
  fno 308001 lno 314651 noinc 1000 allno no
   ipath /export/home/EW0008/Realtimestack/Line3D-29/line3D-29.cmp.inc50.segy end
end
prout
    fno 0 lno 999999 ftr 1 ltr 1 end
end
agc
   winlen .5 end
end
filter
   ftype 0 dbdrop 48 pass 20 220 end
end
nmo
   vtp 1500 0 end
end
header
   fno 0 lno 9999999 ftr 1 ltr 9999
   l60 = r50 * 1000.
   end
end
plot
   recsp yes
   nibs 75 vscale 6.666667 nsecs 2.6 stime 3.4
   def .2 trpin 10 clip .1
   ann header lhdr 60 taginc 54
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &

Return to EW0008 example.               Go to SIOSEIS examples.
Go to the list of seismic processes.    Go to SIOSEIS introduction.
EW0008e.html0000755000076500001200000001506107166662275013524 0ustar  henkartadmin00000000000000 vpick script and rdsegy.m Matlab function
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

         vpick script and rdsegy.m Matlab function


#! /bin/csh -f
setenv DISPLAY walrus:0.0    # CHANGE THIS FOR YOUR MACHINE!
if( $#argv < 2 ) then
    echo "Usage: vpick filename start_rpnum [ rpnum_inc end_rpnum]"
    exit 1
endif
 
set FILE = $1
set MATFILE = vpick.mat      # must terminate with .mat for Matlab
set VPICKFILE = $FILE.vpick
set START_RPNUM = $2
 
if( $#argv < 3 ) then
    set RPNUM_INC = 1
else
    set RPNUM_INC = $3
endif
 
if( $#argv < 4 ) then
    set END_RPNUM = $START_RPNUM
else
    set END_RPNUM = $4
endif
 
set rpnum = $START_RPNUM
while ( $rpnum <= $END_RPNUM )
sioseis << eof
noecho procs diskin filter agc plot velan prout END
 
diskin
 secs 4 fno $rpnum lno $rpnum 
 ipath $FILE END END

header   # chnage the rp number into the water depth
   fno 0 lno 99999 ftr 0 ltr 9999
   l6 = r54
   end
end
 
filter pass 20 220 dbdrop 48 minpha no end end
agc
   winlen .5 END END
 
prout
    fno 0 lno 99999 ftr 0 ltr 99999 END
END
 
 velan
    vels 1400 10 1800 nrp 1 type spec winlen .048 opath $MATFILE
    END
 END

plot
   nibs 75 stime 3. nsecs 2.5 scalar -1 trpin 10 vscale 5. def 0.06
   srpath sunfil ftag 1 taginc 1000 ann fanno fanno $rpnum END
 END
 
 END
eof
 
xloadimage -r 90 sunfil &
 
#  Use Matlab Version 4.2c (Nov 23 1994) or newer or else change
#  getline to ginput, which does not have a line connecting the picks.

matlab << eof1
load $MATFILE;
n = size(vel);nt = n(1);
nv = n(2);
rpno = vel(1,1);
st = vel(2,1);
dt = vel(3,1);
sv = vel(4,1);
dv = vel(5,1);
vel(1,1) = 0;vel(2,1) = 0;vel(3,1) = 0;vel(4,1) = 0;vel(5,1) = 0;
x = sv:dv:sv+nv*dv-dv;
y = -st:-dt:-(st+nt*dt-dt);
contour(x,y,vel,20)
title 'rp $rpnum';
xx=[];
yy=[];
n = 0;
but = 1;
while but == 1
   [xi,yi,button] = ginput(1);
   n = n + 1;
   xx(n,1) = xi;
   yy(n,1) = yi;
   if button > 1
      but = 0;
   end
end
pause
n = size(xx);
fprintf('$VPICKFILE','  fno %.0f vtp ',$rpnum)
for i = 1:n(1)
   fprintf('$VPICKFILE','%.0f %.3f ',xx(i),-yy(i))
end
fprintf('$VPICKFILE','end\n')
quit
eof1
 
@ rpnum = $rpnum + $RPNUM_INC
end
 
rm $MATFILE




function [seis,ntr,fmt,dsrt,dom,x,t0,nsamps,dt,nx,sh, ...
tr,rp,trp,trcid]=readsegy(filenm,a1,a2);
%
% Reads an SEG-Y trace into "ans"
% arguments:
% filename - The name of the SEG-Y file to be read
% a1 - The shot/rp number of the trace to be read
% a2 - The trace number to be read.
%
% Short program-driver for reading SEGY files
%    The SEGY binary tape header parameters passed here are
%    (all of them of 1x1 size, because it is a tape header,
%    so you have to write it out just once):
%    seis(nsamps by nx) Seismogram data
%    ntr   : Number of traces per shot (or record)
%    fmt  : SEGY format type, >4, "host" floating point
%    dsrt  : How is data sorted. 0 or 1 by shots; 2 by CDP gathers
%    dom   : The domain  of the data (0 or 1 - time, 7 - tau-p, etc.)
 
%       Variables are in the two temporary arrays -
%       lbuf holds long integers and ibuf holds short integers
 
%    The header parameters passed here are:
%    x (nx by 1) :  Range in km
%    t0(nx by 1) :  Start time in sec
%%%    id(nx by 1) :  Trace index integer (ie 1 through nx)
%    nsamps(nx by 1) :  Number of samples per trace
%    dt(1  by 1) :  Sample interval in sec/sample
%    nx          :  Number of traces written in
%    sh          :  Shot number
%    tr          :  Trace within the shot
%    rp          :  RP or CDP number
%    trp         :  Trace number within RP or CDP
%    trcfid      :  Trace ID; live = 1


fno = str2num(a1);
ftr = str2num(a2);
%   Open file and read the "tape" header
 
fid = fopen(filenm, 'r');
if fid == -1
    error('error opening SEG-Y file')
end

%   Read the EBCDIC header, putting into temp arrays
%   Useful information for subsequent writing is stored in appropriate variables
 
thbuf1 = fread(fid,3200)';
%disp( 'EBCDIC tape header ')
thbuf1(1,1);
%fseek(fid,3200,0);
thbuf2 = fread(fid,200,'short')';
ntr = thbuf2(7);
fmt = thbuf2(13);
dsrt = thbuf2(15);
dom = thbuf2(31);
tst = thbuf2(200);
 
if (fmt == 1)
  exit('Cannot read IBM floating point format');
end
 
%   Next read the trace headers and data, putting into temp arrays
%   Reads each header twice, first putting into ibuf in short int format
%   then into lbuf in long int format
%   Array ibuf is (nx by 120) and array lbuf is (nx by 60)
 
buftr = 40;   % Size of buffer increments
nx = 0;       % Number of traces read
nread = 0;
 
doit = 1;
while (doit)
%  T1 = fread(fid,120,'short')';
  T1 = fread(fid,120,'int16')';
  if (feof(fid) == 1) break; end
  nread = nread + 1;
 
  if (nread == 1 ) % Preassign Buffer space for trace headers/data
   nsamps = T1(58);
   bibuf = zeros(buftr,120);
   blbuf = zeros(buftr, 60);
   bseis = zeros(buftr,nsamps);
  end
 
  nsamps = T1(58);
%  fseek(fid,-240,0)
  fseek(fid,-240,'cof');
%  T2 = fread(fid,60,'long')';
  T2 = fread(fid,60,'int32')';
  if (feof(fid) == 1)
     fprintf(1,'reread of header failed.\n');
     break;
  end
  if( fmt == 2 ) T3 = fread(fid,nsamps,'long')'; end;
  if( fmt == 3 ) T3 = fread(fid,nsamps,'short')'; end;
  if( fmt > 4 ) T3 = fread(fid,nsamps,'float')'; end;
  if (feof(fid) == 1)
     fprintf(1,'read of data failed.\n');
     break;
  end
 nx = nx + 1;
  bibuf(nx,:) = T1;
  blbuf(nx,:) = T2;
  if( blbuf(nx,7) == 0 )
      no = blbuf(nx,3);
      tr = blbuf(nx,4);
  else
      no = blbuf(nx,6);
      tr = blbuf(nx,7);
  end
  bseis(nx,:) = T3;
  if( no == fno )
      if( tr == ftr )
          doit = 0;
      else
          nx = nx - 1;
      end
  else
      nx = nx - 1;
  end
                    % Allocate additional storage space for data arrays
  if ( nx > 0 )
     if( rem(nx,buftr) == 0)
       seis = [seis;bseis];
       ibuf = [ibuf;bibuf];
       lbuf = [lbuf;blbuf];
     end
  end
end
 
if ( nx == 0 ) 
   quit
end
seis = bseis(1:nx,:);
ibuf = bibuf(1:nx,:);
lbuf = blbuf(1:nx,:);
 
fclose(fid);

% identify the variables inside the ibuf - the short integers
% or lbuf - the long integers, arrays to pass on
dt = bibuf(:,59) * 0.000001;
nsamps = bibuf(:,58);
x =  blbuf(:,10) * 0.001;
t0 = bibuf(:,55) * 0.001;
sh = blbuf(:,3);
tr = blbuf(:,4);
rp = blbuf(:,6);
trp = blbuf(:,7);
trcid = bibuf(:,15);
%id = [:]'
seis = bseis(:,:)';


Return to EW0008 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW0008f.html0000644000076500001200000000431507167472213013512 0ustar  henkartadmin00000000000000 C-Shell script to plot indicidual moved-out cmp gathers


         C-Shell script to plot indicidual moved-out cmp gathers

#! /bin/csh -f
setenv DISPLAY walrus:0.0    # CHANGE THIS FOR YOUR MACHINE!
if( $#argv < 2 ) then
    echo "Usage: chk.nmo filename start_num [ num_inc END_num]"
    exit 1
endif

set FILE = $1
set START_NUM = $2
if( $#argv < 3 ) then
    set NUM_INC = 1
else
    set NUM_INC = $3
endif

if( $#argv < 4 ) then
    set END_NUM = $START_NUM
else
    set END_NUM = $4
endif

echo $START_NUM $END_NUM $NUM_INC
set num = $START_NUM
while ( $num <= $END_NUM )
/home/henkart/src/sioseis/sioseis << eof
procs diskin nmo mute filter agc plot END
diskin
   ipath $FILE fno $num lno $num allno no END
END
mute
  addwb yes xtp 2000 -.02 2500 .6 4000 .7 end
end
nmo
  ! stretc .6
  fno 306701 vtp 1510 3.481 1500 3.504 1520 3.545 1519 3.661 1540 4.020
1538 4.292 1774 5.984 end
  fno 306901 vtp 1510 3.464 1520 3.608 1540 4.031 1543 4.269 1780 5.845
end
  fno 307101 vtp 1510 3.475 1510 3.614 1538 4.020 1521 4.095 1768 5.967
end
  fno 307301 vtp 1509 3.481 1510 3.591 1530 3.852 1539 4.020 1539 4.153
1546 4.431 1747 5.949 end
  fno 307501 vtp 1510 3.493 1519 3.684 1539 4.055 1542 4.136 1774 5.978
end
  fno 307701 vtp 1509 3.504 1510 3.672 1540 4.055 1773 5.961 end
  fno 307901 vtp 1510 3.504 1509 3.585 1509 3.695 1541 4.055 1569 4.472
1758 6.262 end
  fno 308101 vtp 1510 3.533 1510 3.666 1519 3.811 1540 4.084 1569 4.460
1771 5.978 end
  fno 308301 vtp 1510 3.533 1510 3.585 1519 3.811 1540 4.101 1570 4.443
1762 5.978 end
  fno 308501 vtp 1510 3.562 1519 3.805 1530 3.962 1540 4.101 1570 4.443
1759 5.984 end
  ETC.
end
end
filter
   ftype 0 dbdrop 48 pass 20 220 end
end
agc
   winlen .5 end
end
plot
   nsecs 2 nibs 75 def .06 srpath sunfil.pch ann range taginc 2
   trpin 10 vscale 6.6666 END
END
END
eof
xloadimage -r 90 sunfil.pch
@ num = $num + $NUM_INC
end




Return to EW0008 example.               Go to SIOSEIS examples.


Go to the list of seismic processes.    Go to SIOSEIS introduction.

EW0008g.html0000644000076500001200000000213207167472320013505 0ustar  henkartadmin00000000000000Constant Velocity Stack scripts


            Constant Velocity Stack scripts

sioseis << eof
procs diskin prout velan stack diskoa end
diskin
  fno 312401 lno 312500 allno no set 3 6
  ipath line29.cmps.segy end
end
prout
   fno 0 lno 999999 ftr 1 ltr 1 noinc 10 end
end
velan
   vels 1500 10 1600 nrp 100 type cvel stretc .6 end
end
diskoa
  opath cv.312401 end
end
end


sioseis << eof
procs diskin filter agc plot end
diskin
  ipath  cv.312401  end
end
filter
   ftype 0 pass 20 220 dbdrop 48 end
end
agc
  winlen .5 end
end
plot
  nibs 75 nsecs 3 vscale 5
  ann fanno fanno 1500 ftag 1 taginc 100 anninc 10 fspace 100 spacei 100
   def .04 clip .02 wiggle 0 srpath sunfil end
end
end
eof
suntops -w 8 -h 10.5 < sunfil > psfil
lpr -Pxyz psfil




Return to EW0008 example.               Go to SIOSEIS examples.

Go to the list of seismic processes.    Go to SIOSEIS introduction.
EW0008h.html0000644000076500001200000000222607167472366013524 0ustar  henkartadmin00000000000000 Simple script to Stack the entire line


          Simple script to Stack the entire line

sioseis << eof
procs diskin nmo mute stack diskoa end
diskin
   ipath line29.cmps.segy end
end
diskoa
   opath stack29.segy end
end
mute
  addwb yes xtp 2000 -.03 2500 .6 4000 .7 end
end
nmo
  vintpl 3
  stretc 2.
fno 306701 vtp 1510 3.5 1545 3.95 1525 4.0 1570 4.05 1577 4.85 1650 6 en
d
fno 309701 vtp 1510 3.65 1527 3.9 1535 4.15 1515 4.2 1555 4.25 1570 4.5
               1590 4.85 1650 6 end
fno 312001 vtp 1510 4.2 1527 4.4 1533 4.55 1510 4.6 1550 4.65 1580 5.05
               1650 6.5 end
fno 312401 vtp 1510 4.2 1530 4.5 1550 4.70 1510 4.75 1560 4.8 1580 5.1
               1650 6.5 end
fno 313001 vtp 1510 4.3 1535 4.7 1545 4.8 1510 4.85 1555 4.9
               1575 5.2 1590 5.3 1650 6.5 end
end

end
eof



Return to EW0008 example.               Go to SIOSEIS examples.

Go to the list of seismic processes.    Go to SIOSEIS introduction.
EW0008i.html0000644000076500001200000000315007167472560013516 0ustar  henkartadmin00000000000000 FKMIGR, line reversal, water botom pick, ETC 


   FKMIGR, line reversal, water botom pick, mute, filter gains

sioseis << eof
procs diskin tx2fk fkmigr fk2tx diskoa end
diskin
     fno 306701 lno 313124 allno no
   set 3 6.5
   ipath  stack29.segy end
end
 wbt
    thres 5 end
 end
 mute
   fno 1 lno 99999 ttp 1 -.02 addwb yes end
 end
tx2fk
   nxpad 20  end   # x pad 20 traces plus (2048-(1900+20+20))
end
fkmigr
   vel 1520 deltax 6.25 end
end
fk2tx
      end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
diskoa
   opath fkmigr.line3D-29 end
end
end
eof


/usr/people/henkart/src/sioseis/sioseis << eof
procs sort diskin wbt mute filter gains diskoa end
sort
   rev1 yes lkey1 6 ipath fkmigr.line3D-29 opath s end
end
diskin
   spath s ipath  fkmigr.line3D-29 end
end
wbt
   thres 3 end
end
mute
   fno 1 lno 999999 addwb yes ttp 1 -.004 end
end
filter
  ftype 0 dbdrop 48 pass 20 220 end
end
gains
  subwb yes tadd 3.  type 3  alpha 2 end
end
diskoa
  fon 29001
    opath final.line29 end
end
end
eof




sioseis << eof
procs diskin plot end
diskin
   ipath  final.line29 end
end
plot
  scalar 2.E-03
  wiggle 0 clip .0025 nibs 7224
   srpath sunfil
   opath siofil
   vscale 2.5 nsecs 3.5 trpin 200 def .05  ann rpno taginc 100 end
end
end
eof





Return to EW0008 example.               Go to SIOSEIS examples.

Go to the list of seismic processes.    Go to SIOSEIS introduction.

EW0008j.html0000644000076500001200000000423107314702370013505 0ustar  henkartadmin00000000000000Perl script to convert LDEO ts.n files to SIOSEIS nav files

Version 2 - contributed by Alistair Harding:

# usage:   ts2sio  tsfile
# e.g. ts2sio  /data/processed/0008/ts.n255 > sioseis_nav_file
# 2000+255:01:08:36.112 017382 N 32 13.2870 W 075 29.1645 test
#
while (<>)
{
  my ($timestamp,$shotno,$ns,$latdeg,$latmin,$ew,$longdeg,$longmin) 
                          = split /\s+/;     
  my ($year,$jday,$hour,$minute,$second) = split /\+|-|:/, $timestamp;
  
  $latdeg  = -$latdeg  if ($ns eq "S");
  $longdeg = -$longdeg if ($ew eq "W");

  $, = " ";  # separate output with a space
  $\ = "\n"; # append newline
  print($year,$jday,$hour,$minute,$second,
         $latdeg,$latmin,$longdeg,$longmin,$shotno);
}





Version 1 - contributed by Paul Henkart

#!/usr/bin/perl
# usage:   ts2sio  tsfile
# e.g. ts2sio  /data/processed/0008/ts.n255 > sioseis_nav_file
# 2000+255:01:08:36.112 017382 N 32 13.2870 W 075 29.1645 test
#
@lines = <>;
foreach $_ (@lines) {  # put each line into $_
        split(' ');     # parse into array @_
	$year = substr(@_[0],0,4);
	$jday = substr(@_[0],5,3);
#  A negative day means there's something wrong with the fix
#  Use the following if you want to ignore the LDEO bad quality flag
        $jday = substr(@_[0],5,3);
#  Use the following if you want to flag bad fixes as negative day,
#  which as of 10 October 2000 is not honored by SIOSEIS.
#       $jday = substr(@_[0],4,4);
	$hour = substr(@_[0],9,2);
	$minute = substr(@_[0],12,2);
	$second = substr(@_[0],15,6);
	$latdeg = @_[3];
        $shotno = @_[1];
	if (@_[2] eq "S") { $latdeg = -$latdeg;}
	$latmin = @_[4];
        $longdeg = @_[6];
	if (@_[5] eq "W") { $longdeg = -$longdeg;}
	$longmin = @_[7];
	print $year," ",$jday," ",$hour," ",$minute," ",$second," ",
	$latdeg," ", $latmin," ", $longdeg," ", $longmin," ", $shotno,"\n";
}


Return to EW0008 example.               Go to SIOSEIS examples.

Go to the list of seismic processes.    Go to SIOSEIS introduction.

EW0008k.html0000644000076500001200000002027207171350303013505 0ustar  henkartadmin00000000000000Comparison of realtime nav and post processed nav

       Comparison of realtime nav and post processed nav

    SIOSEIS has a new (October 2000) geometry option, type 9, that
computes the shot to shot distance or DFLS (distance from last shot)
on each shot using the latitude and longitude in the SEG-Y trace
header.  (32 bit integer, words 19 and 20 are the x and y coordinates,
which are also the seconds of arc longitude and latitude scaled by
the scalar in SEG-Y 16 bit integer word 36).
    SIOSEIS process SEGDIN honors the LDEO "nav block" which is
written in the SEG-D extended header. 
    When using the LDEO "shooting by distance" algorithm, the time
and position of the next shot are predicted.  On the Blake Ridge
cruise, the Fugro differential Trimble 4000 was used for the GPS
position.  While the Fugro was sampling every second, the LDEO system
only save every tenth (10th) fix.  Ten GPS samples (or the tenth?)
sample was somehow used to determine the ship's speed and the 
Furuno's course was used to PREDICT when the next shot would be
37.5 meters from the previous.  The predicted time was then used to
issue a command to fire the guns and trigger the Syntron recording
system.
    A new undocumented change was made sometime before the Blake cruise
where a GPS clock was added to the Syntron recording system.  While
this clock is part of the Syntron, it is not used by the Syntron
and is mearly a replacement of "Joe's" true-time clock.  This clock
is the "official shot time".  The Syntron cpu clock is used in the
SEG-D header, but is ignored by SIOSEIS.  SEGDIN uses "Joe's" clock
in the SEG-Y trace header.  The SEG-Y shot time was checked against
the LDEO post processed shot time and is identical.
    SIOSEIS process SEGDIN honors the LDEO "nav block" which is
written in the SEG-D extended header.  The position is converted to
seconds of arc and scaled (multiplied) by 10. to preserve resolution.
Geom type 9 computes the distance from last shot (DFLS) using these
predicted positions.

    LDEO produces a daily file with the shot point number, shot
time, and ship's GPS antenna position for each shot.  The algorithm
 used to compute these locations is documented on the Ewing web page.
A much longer time period is used to calculate the shot point (GPS
antenna) with some "future" positions included.

*******************************************************************
**************        RECOMMENDATION        ***********************
*******************************************************************
TS.N FILES SHOULD BE USED FOR POST-PROCESSING NAVIGATION AND BINNING.



    Both type 6 and type 9 geometry honor the differences of distance
in latitude and longitude according to Nathaniel Bowditch's "American
Practical Navigator", Vol II., 1981, page 5.

    The SIOSEIS DFLS (distance from last shot) variable was computed
and compared on one 3490 tape with 120 shots (~.5 hours).  DFLS is
a 2-D variable.  It is a radius of a circle.


          DFLS = SQRT(delta_lat**2 + delta_long**2) 


                      geom type 6 	geom type 9
                      (ts.n file)	(nav block)
  shot   157247 dfls     37.5265	37.8069
  shot   157248 dfls     37.3292	37.2644
  shot   157249 dfls     37.3292	37.5041
  shot   157250 dfls     37.4823	37.5041
  shot   157251 dfls     37.4823	37.5041
  shot   157252 dfls     37.5265	37.2644
  shot   157253 dfls     37.5501	37.8069
  shot   157254 dfls     37.3966	37.3809
  shot   157255 dfls     37.2431	37.3809
  shot   157256 dfls     37.5924	37.2644
  shot   157257 dfls     37.3966	37.2644
  shot   157258 dfls     37.3550	37.6917
  shot   157259 dfls     37.5501	37.5831
  shot   157260 dfls     37.3966	37.0798
  shot   157261 dfls     37.5087	37.8069
  shot   157262 dfls     37.4285	37.0516
  shot   157263 dfls     37.5826	37.4813
  shot   157264 dfls     37.6221	37.9287
  shot   157265 dfls     37.4285	37.2644
  shot   157266 dfls     37.4682	37.6917
  shot   157267 dfls     37.3550	37.4813
  shot   157268 dfls     37.6624	37.6917
  shot   157269 dfls     37.3143	37.1546
  shot   157270 dfls     37.7037	37.7701
  shot   157271 dfls     37.2857	37.0798
  shot   157272 dfls     37.5924	38.2331
  shot   157273 dfls     37.2857	37.2644
  shot   157274 dfls     37.4390	36.8374
  shot   157275 dfls     37.5924	37.8069
  shot   157276 dfls     37.5924	37.5041
  shot   157277 dfls     37.5924	37.3809
  shot   157278 dfls     37.5501	37.8069
  shot   157279 dfls     37.4823	37.5831
  shot   157280 dfls     37.2857	37.0798
  shot   157281 dfls     37.4823	37.9287
  shot   157282 dfls     37.4390	36.9552
  shot   157283 dfls     37.6355	37.6917
  shot   157284 dfls     37.3735	37.6917
  shot   157285 dfls     37.4823	37.5041
  shot   157286 dfls     37.4823	37.6338
  shot   157287 dfls     37.3292	36.9552
  shot   157288 dfls     37.7458	37.8069
  shot   157289 dfls     37.3966	37.4813
  shot   157290 dfls     37.5924	37.5041
  shot   157291 dfls     37.3966	37.5041
  shot   157292 dfls     37.5265	37.3809
  shot   157293 dfls     37.6795	37.6917
  shot   157294 dfls     37.2660	37.2644
  shot   157295 dfls     37.5265	37.6338
  shot   157296 dfls     37.6174	37.3489
  shot   157297 dfls     37.5117	37.8013
  shot   157298 dfls     37.5595	37.7701
  shot   157299 dfls     37.3593	37.2644
  shot   157300 dfls     37.7117	37.5041
  shot   157301 dfls     37.5265	37.9287
  shot   157302 dfls     37.3735	37.0798
  shot   157303 dfls     37.6795	37.3809
  shot   157304 dfls     37.5715	38.2331
  shot   157305 dfls     37.4187	37.0798
  shot   157306 dfls     37.9122	37.9287
  shot   157307 dfls     37.6641	37.3489
  shot   157308 dfls     37.7117	38.0570
  shot   157309 dfls     37.4073	37.3489
  shot   157310 dfls     37.7079	37.7701
  shot   157311 dfls     37.7079	37.2111
  shot   157312 dfls     37.6576	38.0570
  shot   157313 dfls     37.2024	37.4933
  shot   157314 dfls     37.3541	37.2266
  shot   157315 dfls     37.6576	37.2111
  shot   157316 dfls     38.2083	37.9287
  shot   157317 dfls     37.3541	37.6338
  shot   157318 dfls     38.3781	37.2266
  shot   157319 dfls     37.5563	37.4933
  shot   157320 dfls     37.4048	37.6338
  shot   157321 dfls     37.5058	37.6338
  shot   157322 dfls     37.5563	37.3489
  shot   157323 dfls     37.1019	37.6441
  shot   157324 dfls     37.2533	36.9280
  shot   157325 dfls     37.3051	37.3489
  shot   157326 dfls     37.4563	37.6338
  shot   157327 dfls     37.3051	37.2266
  shot   157328 dfls     37.3577	37.2266
  shot   157329 dfls     37.4111	37.6441
  shot   157330 dfls     37.5619	37.3489
  shot   157331 dfls     37.5619	37.3489
  shot   157332 dfls     37.3702	37.9129
  shot   157333 dfls     37.4263	37.2266
  shot   157334 dfls     37.3702	37.5508
  shot   157335 dfls     37.4263	36.9703
  shot   157336 dfls     37.5058	37.7701
  shot   157337 dfls     37.3042	37.3489
  shot   157338 dfls     37.4073	37.0798
  shot   157339 dfls     37.4561	37.9287
  shot   157340 dfls     37.4561	36.9280
  shot   157341 dfls     37.4561	37.6338
  shot   157342 dfls     37.6081	37.6338
  shot   157343 dfls     37.4561	37.2111
  shot   157344 dfls     37.6081	37.6441
  shot   157345 dfls     37.6081	37.6338
  shot   157346 dfls     37.4561	37.5041
  shot   157347 dfls     37.6576	37.6338
  shot   157348 dfls     37.4561	37.4933
  shot   157349 dfls     37.7079	37.7701
  shot   157350 dfls     37.3541	37.3489
  shot   157351 dfls     37.7079	37.5041
  shot   157352 dfls     37.3541	37.4933
  shot   157353 dfls     37.4073	37.6441
  shot   157354 dfls     37.5117	37.2111
  shot   157355 dfls     37.5117	37.3809
  shot   157356 dfls     37.7117	38.0570
  shot   157357 dfls     37.4648	37.0798
  shot   157358 dfls     37.5715	38.0570
  shot   157359 dfls     37.5715	37.6338
  shot   157360 dfls     37.4648	37.3809
  shot   157361 dfls     37.4187	36.9552
  shot   157362 dfls     37.6641	38.0570
  shot   157363 dfls     37.4648	37.0798
  shot   157364 dfls     37.6641	37.6338
  shot   157365 dfls     37.6641	38.0570



Return to EW0008 example.               Go to SIOSEIS examples.

Go to the list of seismic processes.    Go to SIOSEIS introduction.

EW0207.html0000644000076500001200000001774007526233113013344 0ustar  henkartadmin00000000000000 EW0207 example - realtime processing
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

SIOSEIS was used aboard the R/V Ewing during the EW0207 cruise.
The near realtime tape copying and brute stack with display did
not differ much from previous cruises with the exception of a
catastrophic failure of the processing computer which forced us
to use the old Sparcstation 10 "heezen".  Heezen is unable to
drive the Atlantek plotter, so Sun rasterfile plot files were
generated also in the brute stacks.

This document will describe the efforts to produce the brute stacks
in true realtime - as the seismic data are collected!

LDEO installed a data "splitter" on the Syntron MCS data recorder.
One branch of the spltter goes to the 3490E tape drives and one branch
goes to a PC.  The PC has some software called Seisnet that captures
each shot from the splitter and writes it to various disk drives.
Unfortunately, Seisnet "encapsulates" the SEG-D General Header
by writing it's own header, in PC byte order.  Seisnet also adds
a trailer to each SEG-D trace.

On EW0207, the Seisnet files where written over the net to a small
publically accessible disk directory on the LDEO computer grampus.
grampus:/export/home/public/seisnet_tmp  was used until computer
grampus died and the seisnet operation ceased.
There were several different schemes in keeping the seisnet_tmp
directory with current data without filling the disk.  The most
successful, from sioseis' view, was when several shots were kept
and the oldest deleted.  This scheme enabled sioseis to view the
directory as a push down stack; new shots were added to the top
of the stack and shots at the bottom of the stack were removed.

Sioseis process SEGDDIN was written with parameters FORMAT SEISNET
and STACK FILENAME to account for this situation.  FORMAT SEISNET
strips the Seisnet headers and trailers and STACK NAME is used to
read the SEG-D file stack.  SEGDDIN always uses the second file in
the stack because the write of the first file may not be completed.
A script "set_latest" was built to continuously examine the seisnet
shot directory and list the last two shots in the directory,

#!/bin/csh -f
#  script set_latest lists the last two files in directory
#         /export/home/public/seisnet_tmp
#  The list is written to file "latest" in the current directory
#
set forever = 1
while( $forever )
ls -t /export/home/public/seisnet_tmp | head -n 2 > /tmp/latest
   sed '1,2 s^^/export/home/public/seisnet_tmp/^;w latest' /tmp/latest > /dev/null
   sleep 5
end
end

Script "set_latest" can be running continuously throughout shooting.

The EW0207 test used a directory structure with several directories
for multiple simultaneous sioseis jobs.  (Sioseis creates temporary
files for each job and these can interfere with other so each sioseis
job should run in a different directory).  Directory   "log"  was
used for the "set_latest" script and the realtime file name stack 
"latest".   Directory "brute" contained a script that
continually read and processed the shots through CMP stack and raster
plot.  The Atlantek thermal raster plotter allows the plot of the
stack to be plotted as the data are stacked!

File "in" should be use to stop the stack.

There were a couple of glitches with the data being fed to sioseis.
Over the 3-4 days running realtime, the seisnet computer (a windows
pc) disk filled up and no data were sent out.  Another glitch occurred
when the Spectra operator reset the shots numbers.

The "set_latest" script ran without problems.  Likewise with the
sioseis script just doing segddin prout to make a log file.  The
brute stack script continued to run during these data outages.  The
disk full problem was rectified within 15 minutes so there was only
a small gap in the stack.  The shot number reset did the stack in
though because type 2 geometry was used.  Type 2 assumes that 
shot numbers are strictly monotonically increasing.  One solution
would be to use type 9 geometry that uses the realtime navigation
from the data headers.

Spectra looses communications with Syntron, so the first few shots
don't have the "nav block".  The sioseis copy script will print out
a bunch of messages that can be ignored.  The brute stack needs
some of the information from the nav block, so start the brute
script after the third shot.

If doing brute stack in realtime, start the sioseis script after a
few (say 5) shots have been fired on the new line.  If doing the brute
stack from 3490 tapes, use the segdin parameter nfskip 3.

The Spectra/Syntron communication problem also causes the shot number
of the last line to be the first shot number of the new line when
using seisnet.  This isn't a problem with the sioseis realtime setup
because it ignores the first shot in the seisnet pushdown stack.

Lessons Learned:
1)  Have a single user, with a known passwd, run all jobs including the
screen.  Otherwise permissions becomes tedious.
2)  Use nfskip 3 in segdin on brute stacks from tape.
3)  Do not fill DLT tapes, rather always copy the same number of 3490s.
This simplifies the bookkeeping and the reading back of the DLT tape.


Miscellaneous info:

1)  The old Digicourse streamer string is no longer in the SEG-D
external header which contains the LDEO block.  The information must
be being feed to Spectra however since Spectra is getting compass
and streamer depth.  The only place streamer depth is now available
is in the UKOAA files.

2)  The Gun Depth info in the udp "dg" record is all 0s.  The compasses
appear ok in the udp records.  Streamer depth is not a udp record
(compasses were added by Jeff Turmelle for streamer navigation in ARAD).

3)  The Spectra UKOOA P1/90 files only had 240 channels.  JD used
Sprint to make 480 channel files.  Apparently Sprint is needed anyway
because the Spectra files have too many problems.  

4)  Some navigation analysis (realtime nav block vs ts.n files).

5)  For the Macs:
Date: Tue, 30 Jul 2002 07:23:51 -0400
From: Robert Detrick 
To: henkart@ewing
Subject: Plotting Sun raster sections on Mac
Parts/Attachments:
   1   Shown   ~46 lines  Text
   2.1          75 bytes  Application
   2.2          22 KB     Application
----------------------------------------

Paul,

FYI for Baja:

To set up a PowerBook G4 running OSX for plotting on the Ewing, first 
open the Print Center (in Utilities folder) and choose "Set Up New 
Printer".  Select HP DesignJet 755CM and for a PPD select "Other . . ." 
then locate the attached file HP_Design Jet .  This PPD file has been 
hacked so that if you choose 11x17 in Page Setup you will actually get
a 36"x~24" plot.

Next ftp the *.ras (Sun raster file) to the Mac.  Open with 
GraphicConverter.  Use "zoom" under Picture menu to shrink the plot to 
an appropriate scale (e.g. 12.5-25%) then using "rotate" under Picture 
menu perform a 900 clockwise rotation.  Now open Page Setup and choose 
HP DesignJet 755CM under "format for" option, choose 11x17 for paper 
size, and leave in Portrait mode.

Before printing, select "show information" under Picture menu.  Set 
units for inches.  Now go into "size" under picture menu and set width 
for 36".  The correct dimensions of plot now display in Information box 
(this step may not be required but if works for me).  Now open the print
dialogue box in the File menu and after being sure you have selected HP 
DesignJet 755CM for your printer, print.

It is also possible to print out page-size plots.  Just follow the same 
instructions as above, but in "size" set width to 10.5 in.  Use the  HP 
LaserJet 1200, in this case in portrait mode.

Good luck!

Bob




Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.
EW0207a.html0000644000076500001200000001220207526233115013473 0ustar  henkartadmin00000000000000 EW0207 example - realtime processing
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: stack line-number"
    exit 1
endif
set LINENO = $1

#   This should be run in /export/home2/scratch/ew0207/brute so the
#  sioseis tmp files do not conflict with other sioseis scripts

/export/home2/scratch/ew0207/bin/sioseis << eof
  
procs segddin prout weight geom header gather nmo mute diskod stack diskoe filter agc plot end

segddin
   ftr 241 ltr 480
   fcset 1 lcset 1
   stime 1 secs 6.0
   format seisnet
   stack /export/home2/scratch/ew0207/logs/latest
   end
end
weight
    fno 0 lno 999999 twp 236 0 end
end
geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -180   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
 dfls 37.5 dbrps 6.25 smear 6.25  # use this if using trinc 1
#  dfls 37.5 dbrps 12.5 smear 12.5  # use this if using trinc 2
  rpadd 1000 end
end

mute
   fno 1 lno 999999
!   addwb yes xtp 200 -.1 1500 -.1 3000 1 6200 2 end
   addwb yes xtp 200 -.1 2500 -.1 4000 1 end
end
  
diskoa   # Write out the filtered stack file disk file
  opath /export/home2/scratch/ew0207/line$LINENO.stack-filter end
end
diskob 
# write every 50th shot to a "circular" file 
# remember that segdin limited the traces read (ftr/ltr/trinc)
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /export/home2/scratch/ew0207/shots/latest.shot end 
end
diskod 
# write out the muted gather
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /export/home2/scratch/ew0207/shots/latest.mute1 end 
end
diskoe   # Write out disk file
  opath /export/home2/scratch/ew0207/stacked_lines/line$LINENO.stack end
end

prout
 fno 0 lno 99999 ftr 479 ltr 479 noinc 10 end
end

header
   fno 0 lno 9999999 ftr 1 ltr 9999 
   r50 r54 / 750.  # convert water depth to water time for addwb (mute)
   end
end

gather
#   maxtrs 90 maxrps 500 end
   maxtrs 50 maxrps 250 end   # half the streamer
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 500 m, use previous value. Water-depth
# velocity functions derived from ESP5, interpolation by iso-velocity layering
 vtrkwb 500 stretc 0.50
 fno 1000 lno 1000
 vtp 1500 1.333 
     1557 1.414 
     1607 1.443
     1789 1.492
     2346 1.645
     2638 1.746
     2900 1.846
     2971 1.872
     3150 1.983 
     3141 2.102 
     3264 2.362
     4228 3.742
     4343 3.892 
     4898 4.393 end
 fno 1500 lno 1500
 vtp 1500 2.0 
     1539 2.081 
     1574 2.110 
     1705 2.159
     2137 2.312 
     2379 2.413 
     2603 2.513
     2665 2.539
     2827 2.650
     2834 2.769 
     2967 3.029
     3939 4.409
     4053 4.559 
     4596 5.060 end
 fno 2000 lno 2000 
 vtp 1500 2.667
     1529 2.748 
     1557 2.777 
     1659 2.826
     2012 2.979 
     2218 3.080 
     2414 3.180
     2468 3.206
     2614 3.317 
     2629 3.436
     2761 3.696
     3711 5.076
     3823 5.226
     4351 5.727 end
 fno 2500 lno 2500 
 vtp 1500 3.333 
     1524 3.414
     1546 3.443
     1629 3.492
     1928 3.645
     2108 3.746
     2282 3.846
     2330 3.872
     2463 3.983
     2481 4.102
     2608 4.362
     3526 5.742
     3636 5.892
     4146 6.393 end
 fno 3000 lno 3000
 vtp 1500 4.0 
     1520 4.080
     1538 4.110
     1609 4.159
     1868 4.312
     2028 4.413
     2184 4.513
     2228 4.539
     2350 4.650
     2368 4.769 
     2489 5.029
     3373 6.409
     3479 6.559
     3972 7.060 end
 fno 3500 lno 3500
 vtp 1500 4.667 
     1517 4.748
     1533 4.777
     1595 4.826
     1823 4.979
     1967 5.080
     2108 5.180
     2148 5.206
     2260 5.317
     2279 5.436
     2395 5.696
     3243 7.076
     3346 7.226
     3822 7.727 end
 fno 4000 lno 4000
 vtp 1500 5.333 
     1515 5.414 
     1529 5.443 
     1583 5.492
     1788 5.645
     1919 5.746
     2048 5.846 
     2085 5.872
     2189 5.983 
     2208 6.102 
     2317 6.362
     3131 7.742
     3231 7.892 
     3692 8.393 end
 fno 4500 lno 4500
 vtp 1500 6.0 
     1513 6.081
     1526 6.110
     1574 6.159
     1760 6.312 
     1879 6.413
     1999 6.513
     2033 6.539
     2130 6.650 
     2148 6.769
     2252 7.029
     3034 8.409
     3131 8.559
     3577 9.060 end
 fno 5000 lno 5000
 vtp 1500 6.667 
     1512 6.748 
     1523 6.777
     1567 6.826
     1737 6.979
     1847 7.080
     1958 7.180
     1990 7.206
     2080 7.317
     2098 7.436 
     2197 7.696
     2948 9.076
     3042 9.226
     3474 9.727 end
end

filter
    pass 5 40 ftype 0 dbdrop 48 end
end

 agc 
   winlen .5 center .1 end 
 end 

 plot 
  scalar 1.e-07 
  tlines 0.5 1 nibs 7224 ann gmtint anninc 5 
  def 0.01 trpin 80 wiggle 0 
  stime 3.0 nsecs 4 vscale 5 
  opath /export/home2/scratch/ew0207/stack_plots/line$LINENO.atlantek
  srpath /export/home2/scratch/ew0207/stack_plots/line$LINENO.ras end 
 end 

end
eof


 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW0207b.html0000644000076500001200000001154307526233117013505 0ustar  henkartadmin00000000000000 EW0207 example - realtime processing
 Return to EW0207 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    Analysis of the "realtime nav block" versus "TS files".  In this analysis, the
nav block came from the LDEO section of the SEG-D external header from three
different tapes.  The lat/long in the nav block comes from the Spectra system,
which controls the firing, and is referenced to "ref" on the ship diagram (the 
Tasman is a feed to the POS/MV, which feeds Spectra, which generates UKOAA
P1/90 files, which are post processed by Sprint).
    TS files are post processed using "GP01" logged data where GP01 is the Tasman
receiver (Trimble Tasman Y-code).
    The diagram shows the ship reference point 33.3m forward of the Tasman antenna.
    
-------------    3490 tape 500
rt 004770 2002+201:20:58:28.283 2002+201:20:58:29.833 N 46 58.9989 W 129 37.4935 2783.2
ts        2002+201:20:58:28.283 004770                N 46 58.9916 W 129 37.4664 BOL34
  The distance between the two points is  36.9288042 meters.
gp01: 2002+201:20:58:28.827 $GPGGA,205827.876,4658.9903,N,12937.4661,W,3,06,1.3,004.9,M,022.3,M,,*72
  
rt 004771 2002+201:20:58:43.010 2002+201:20:58:44.576 N 46 59.0061 W 129 37.5212 2785.2
ts        2002+201:20:58:43.010 004771                N 46 58.9990 W 129 37.4942 BOL34
  The distance between the two points is  36.6762321 meters.
gp01: 2002+201:20:58:41.825 $GPGGA,205840.876,4658.9966,N,12937.4908,W,3,06,1.3,006.6,M,022.3,M,,*7D
gp01: 2002+201:20:58:43.825 $GPGGA,205842.876,4658.9980,N,12937.4945,W,3,06,1.3,006.3,M,022.3,M,,*7B

rt 004772 2002+201:20:58:57.594 2002+201:20:58:59.119 N 46 59.0137 W 129 37.5483 2783.2
ts        2002+201:20:58:57.594 004772                N 46 59.0064 W 129 37.5217 BOL34
  The distance between the two points is  36.3394616 meters.
gp01: 2002+201:20:58:57.828 $GPGGA,205856.876,4659.0058,N,12937.5205,W,3,06,1.3,007.6,M,022.3,M,,*70
  
-------------    3490 tape 784
rt 000437 2002+208:05:01:10.017 2002+208:05:01:11.863 N 46 00.1113 W 130 02.1600 1598.3
ts        2002+208:05:01:10.017 000437                N 46 00.1279 W 130 02.1772 BOL51
  The distance between the two points is  37.9309477 meters.
gp01: 2002+208:05:01:09.894 $GPGGA,050108.734,4600.1295,N,13002.1783,W,3,06,1.5,007.7,M,024.3,M,,*77
  
rt 000438 2002+208:05:01:25.884 2002+208:05:01:27.706 N 46 00.0929 W 130 02.1477 1599.3
ts        2002+208:05:01:25.884 000438                N 46 00.1092 W 130 02.1649 BOL51
  The distance between the two points is  37.481861 meters.
  The distance between rt shots is  37.6037181 meters.
  The distance between ts shots is  38.1081825 meters
gp01: 2002+208:05:01:23.897 $GPGGA,050122.734,4600.1131,N,13002.1667,W,3,06,1.5,007.3,M,024.3,M,,*7D
  
rt 000439 2002+208:05:01:41.465 2002+208:05:01:43.429 N 46 00.0748 W 130 02.1355 1590.3
ts        2002+208:05:01:41.465 000439                N 46 00.0907 W 130 02.1527 BOL51
  The distance between the two points is  36.8875739 meters.
  The distance between rt shots is  37.3813659 meters.
  The distance between ts shots is  37.7176345 meters.
gp01: 2002+208:05:01:40.901 $GPGGA,050139.734,4600.0930,N,13002.1542,W,3,06,1.5,006.6,M,024.3,M,,*7F
 
-------------    3490 tape 900
rt 000569 2002+211:12:14:56.415 2002+211:12:14:58.158 N 45 24.2278 W 130 04.7754 2277.3
ts        2002+211:12:14:56.415 000569                N 45 24.2189 W 130 04.7490 BOL68
  The distance between the two points is  38.1896179 meters
gp01: 2002+211:12:14:56.140 $GPGGA,121455.183,4524.2181,N,13004.7474,W,3,06,1.8,014.2,M,025.6,M,,*72
  
rt 000570 2002+211:12:15:12.076 2002+211:12:15:13.601 N 45 24.2358 W 130 04.8017 2291.3
ts        2002+211:12:15:12.076 000570                N 45 24.2270 W 130 04.7745 BOL68
  The distance between the two points is  39.0560737 meters.
  The distance between rt shots is  37.380299 meters.
  The distance between ts shots is  36.5001295 meters
gp01: 2002+211:12:15:13.143 $GPGGA,121512.183,4524.2273,N,13004.7753,W,3,06,1.8,012.9,M,025.6,M,,*75

rt 000571 2002+211:12:15:28.203 2002+211:12:15:29.724 N 45 24.2438 W 130 04.8289 2300.3
ts        2002+211:12:15:28.203 000571                N 45 24.2355 W 130 04.8008 BOL68
  The distance between the two points is  39.7589519 meters.
  The distance between rt shots is  38.4611842 meters.
  The distance between ts shots is  37.7570393 meters.
gp01: 2002+211:12:15:28.146 $GPGGA,121527.183,4524.2358,N,13004.7998,W,3,06,1.8,010.8,M,025.6,M,,*71


 Return to EW0207 example.
    
 Return to SIOSEIS examples.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9607.html0000655000076500001200000002526306701470564013371 0ustar  henkartadmin00000000000000 EW9607 example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

SIOSEIS was used aboard the R/V Ewing during the SIGMA experiment
from 25 August 1996 to 10 October 1996, Steve Holbrook, Chief Scientist.

My favorite pictures:
Brash ice       Iceberg      Iceberg        Greenland
David Reid's photo album
All digital pictures courtesy of David Reid, R/V Ewing 2nd Engineer

          photos of R/V Maurice Ewing
          Seismic Source Signature

The SIOSEIS onboard processing had several objectives:
1)  Provide quality control so that acquisition errors could
    be corrected as soon as possible.
2)  Provide a stacked section that could be used for geologic
    interpretation so the shooting program could be modified
    if something "cool" turned up.
3)  Provide a copy of the data on DAT tape to take home to SIO.
    The 3480s would go to WHOI, the DLC (Danish Lithosphere
    Center) would read and reformat the 3480s aboard the Ewing
    using ProMAX.
4)  Steps 1 and 2 should be done as quickly as possible (at least
    as fast as the data was collected by the DMS-2000).

Dr. Graham Kent had made his HP 9000/715 available for the
"realtime" processing along with an 3480 tape drive with stack
loader and a DDS-2 format DAT tape drive.  The stack loader was not
used because the HP was able to keep up with the brute stack
processing and inserting a new tape into the drive is faster
without the stack loader.

It was also decided that each 3480 should be in a unique file on
the DATs so that later extraction for the SIO mass store would be
simplified.  The SEG-Y files on DAT were written with the SEG-Y 
standard violated by using IEEE floating point rather than IBM 
floating point.  It was also decided that decimating the data from 
2ms to 4ms without anti-alias filter was acceptable.
 
Unfortunately, the DLC's 3480 tape drive was damaged during
shipment and ProMAX was unable to read a test tape using the
3480 attached to the shipboard Sun computer.  The shipboard
3480 could not be attached to the DLC Sun because of differences
in computer buses.  It was decided that the DLC would read the
DAT tapes written by SIOSEIS.

The first line shot turned out to have a miriad of problems,
one of which was an unbalanced streamer.  It was deemed that
a static correction for the streamer depth would help the
stack since part of the streamer was floating and part of it
was 20m deep.  The streamer depth is available in the trace 0
of each shot, but neither ProMAX nor SIOSEIS extracted it.  To
further complicate the problem, ProMAX ignores trace 0 totally.
Some mechanism for getting depth into a ProMAX and SIOSEIS
form had to be established before tape copying could commence.

To accomplish these goals, modifications were made to SIOSEIS:
1) Parameter OFFLINE was added to SEGDIN to automatically
   eject the 3480 after it has been read.
2) Parameter REWIND was added to DISKOA to make "circular"
   disk files (useful for realtime QC).
3) Had SEGDIN set a signal on each new tape so that process
   OUTPUT would start a new SEG-Y file on every new 3480 tape.
4) Modified the tape change routine to write only 1 EOF when
   OUTPUT parameter REWIND is used.
5) Parameter TR0 was added to SEGDIN to write the LDGO/DIGICON
   trace 0 to disk since ProMAX ignores the SEG-Y trace 0.
   This disk write was removed after 7 and 8 below were completed.
6) Made OUTPUT write trace 0 before each trace 1 when SEGDIN
   parameter TR0 is used.  
7) Add parameters BGP and CGP (bird-group pairs and compass-
   group pairs) to GEOM to define where the birds are on the
   streamer (varies on each streamer deployment).
8) Write the "receiver elevation" in the SEG-Y trace header
   when BGP is used.

The extraction of the streamer depth uses a subroutine by John
Hopper that extracts the bird ids and depths and then given the 
ranges, interpolates and/or extrapolates to the other groups
of the streamer.  SIOSEIS uses the SEG-Y trace header location
"receiver elevation" for the streamer depth.

Program list.ewing was modified to dump ALL the different 
"sections" of trace 0.

Process SEGDIN was modified to recover from various acquistion
failures:

1)  Shots with a zero shot time are dropped.  These shots 
   have a shot number of 0 and are not in the navigation file.
2)  SQTP errors cause a shot to be terminated early and do not
   have a terminating filemark.  SEGDIN previously did not
   honor the early traces of the following shot.  SEGDIN now
   recognizes a new shot without the filemark.
3)  A "streamer rebuild" error causes traces 2-12 to have
   large crazy trace numbers.  SEGDIN previously would skip
   to the next shot when this ocurred.  SEGDIN was modified
   to detect this situation and ignore only the bad traces.
4)  SLIC errors cause the LDGO "trace 0 section 11"
   not to be updated, resulting in the shot number and shot
   times to remain the same until the system is restarted.
   This usually results in more than 20 shots with the same
   shot number and shot times.  The data are fine, as is the
   navigation file.  SEGDIN was modified to detect this 
   situation and increment the shot number, though the header
   shot time remains constant.

The "opcode error" does not appear to have an effect on the data.

SIOSEIS processing was divided into parts:
1)  The brute stack with SEG-Y DAT tape output immediatedly
    after reading the SEG-D 3480 tapes.  Every 15th shot is
    written to a"circular" file.
2)  A plot of the current shot in the circular file.
3)  A plot of the stacked data every two hours on 8.5x11 paper and
    taped to the previous 2 hour plot.
4)  An fk migration and plot of the stacked data every four hours.
5)  Final plot on the NovaJet.


The brute stack runs on the HP 715 in 15 minutes and is designed to:




A subtle processing trick was used in the NMO process in order to
laterally vary the NMO velocity function.  Earlier work in the area
showed that a velocity function could be designed for the area.
The velocity varied with water depth.  Graham Kent had modified NMO
such that the parameter vtrkwb (velocity track water bottom) modifies
the normal SIOSEIS spatial interpolation by changing the RP number
into the water depth determined by Hydrosweep.  The velocity function
was described by water depth so that the spatial interpolation is
done by water depth.  SEGDIN has always put the Hydrosweep depth in
the SEG-Y trace header.

The shot plot script generates a Sun rasterfile with the latest shot
from the "circular" shot file.  The raster file is displayed on the
screen using xloadimage and is converted to PostScipt so it can be sent
to a printer.  With filter and gain, this script runs quickly on
the HP without a noticable impact on the stack script.

The stack plot script generates a Sun rasterfile of 2 hours of data and
sends it to the screen using xloadimage.  The rasterfile is also
converted to PostScript and can be sent to a printer.  These 8.5x11 plots
were then taped together for a fast permanent display.  With filter and
gain, this script runs quickly on the HP without a noticable impact on
the stack script.

The fk script performs FK filtering and migration of 2048 traces
(2000 stacked traces and 48 pad traces), each trace having 2048 samples
(8 seconds).  Successive FK segments overlapped by 50 traces so that
the segments would appear seamless when spliced together.  The
2048x2048 FK processing took 3-4 minutes on the HP 715 and could be 
done on the same computer as the stack while the stack is waiting for 
a new input tape from the acquisition system.
 
The final plot script generates a plot of several FK migrated segments
for the NovaJet plotter.  The NovaJet plotter is similar to to HP 
DesignJet plotters, so the PLOT parameter nibs 2859 can be used.  The 
resulting SIOSEIS rasterfile can be translated to an HP-RTL file by using
program SIO2HP.  The RTL file is then sent to the Ewing Sun computer
(hess) with the NovaJet plotter using the binary mode of ftp.  On hess,
the plot is sent to to NovaJet using the Unix cat command:
cat RTL-file > /dev/bpp0.

Miscellaneous stuff:

OUTPUT:
1)  I did not use the auto tape change feature of OUTPUT because:
    a) A SEG-Y file will be split, causing the 3480 to be in
       two pieces.
    b) It's slow because SIOSEIS does not allow the shot to be 
       broken, so it has to reread the traces written on the current
       tape, then backup again before writing the file mark.
    c)  I found the end of the DAT tapes seem to have lots of write
       errors before finding the EOT marker.  Rewrites appear to be
       VERY slow.
    d) There are 5 minutes or more between the end of input tape
       and when the DMS-2000 has another 3480 ready, doing a manual
       rewind and load of the new DAT tape is efficient.  The down
       side is that OUTPUT doesn't close the tape with a file mark,
       which some systems/programs may choke on.  ( I think sioseis
       now treats any tape error as an EOF - the "new" SCSI tape
       drivers return a -1 for ALL errors, so I can't distinquish
       between them anyway!)

Shallow water tricks:
1)  Do an "inner" mute (a tail mute of the inside or close traces)
   to get rid of the deeper portion of the record that is overwhelmed
   by ship noise.  SMUTE has ADDWB YES, use it.  SEGDIN now converts
   the Hydrosweep water bottom depth to water bottom time.

2)  Use a VERY severe "outer" mute.  For "reatime" purposes, in 400m
   water, I used the NMO stretc parameter of .06.  That means any 
   sample with nmo greater than 60 mils will be muted out.



Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9607a.html0000655000076500001200000001753406355762315013537 0ustar  henkartadmin00000000000000Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

sioseis << !
procs segdin prout geom header output diskob gather nmo gains smute stack despike diskoa end

segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 1 ltr 160  # skip the auxiliary channels - 161-172 and 161-180
   secs 16.0    # DMS-2000 has garbage from the even second to the end
   decimf 2     # decimate from 2 to 4 ms.  Little energy above Nyquist!
   offline yes  # eject after the rewind after EOT
   tr0 yes      # write trace 0 to tape
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 3 end
end

geom
# shot spacing of 50 m (dfls), 12.5 m cdp bins, 25 group spacing
# range to closest trace varies.
# bird/depth sensors change on every deployment
  bgp 1 5 3 9 4 17 5 25 6 33 7 41 9 45 10 53 11 65 12 73
      13 85 14 98 15 106 16 118 17 125 18 133 8 141 2 149
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 160 -138    # RESET the closest group only.  
  ggx -25         # Used to extrapolate gxp!
  dfls 50.0 dbrps 12.5 smear 12.5 end
end

despike
    fac 5 end    # Sutton/Trehu far-close average
end

output
   ontrcs 160 # reinforce that only 160 traces are to be written
   rewind 0   # leave the tape alone!  
   ounit 4 end
end

header 
#  geom started the line with negative rp numbers which some processes
#    don't like, so make them positive right away!
   l6 l6 + 200 fno 1 lno 9999999 end
end

smute          # "inner" mute
  addwb yes    # add in the water bottom time
  fno 1 lno 999999 xsets 163 1 16 2163 16 16 interp on end
end

diskob
# write every 15th shot to a "circular" file
   fno 1 lno 999999 noinc 15 rewind 1 opath shot.file end
 end

gather
# Scratch file parameters, really 2250 4 byte wrds, maxtrcs of 40, pad to be safe
# Roughly 150 MB scratch file
 maxrps 170 nwrds 4400 maxtrs 50 end
end

gains
#  Do spherical divergence.  
#  alpha .4 means range 263 is multiplied by 9, range 4263 by 30
#   type 8 alpha .4 end
#  alpha .5 means range 263 is multiplied by 15.7, range 4263 by 68.4
    type 8 alpha .5 end
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 100 m, use previous value. Water-depth
# velocity functions supplied by Trine, interpolation by iso-velocity layering
 vtrkwb 1000 stretc 0.06
 fno  387 lno  387   vtp  1475 0.516
                           1623 0.867
                           1716 0.961
                           2022 1.272
                           2149 1.523
                           4029 3.007
                           4536 3.446
                           5375 4.385
                           6652 10.01 end                        
                                               
 fno  542 lno  542 stretc .06  vtp   1475 0.722
                           1912 1.423
                           2039 1.689
                           5537 3.935
                           6795 10.01 end                                             
                        
                        
 fno 1021 lno 1021 stretc .065   vtp 1475 1.361
                           1926 1.967
                           2074 2.201
                           2195 2.340
                           5537 4.352
                           6716 10.01 end
 
 fno 1475 lno 1475  stretc .07 vtp   1475 1.967
                           1761 2.373
                           1797 2.506
                           1878 2.640
                           2018 3.101
                           2047 3.340
                           2334 3.501
                           2880 3.646
                           5156 4.191
                           5715 5.325
                           6609 10.01 end
 
 fno 1688 lno 1688 stretc .075 vtp   1475 2.251
                           1696 2.862
                           1789 3.123
                           1912 3.301
                           2273 3.568
                           2736 3.846
                           3322 4.118
                           5024 5.441
                           6275 10.01 end
 
 fno 1721 lno 1721  vtp   1475 2.295
                           1535 2.612
                           1598 2.784
                           1659 3.018
                           1687 3.085
                           1772 3.318
                           1828 3.459
                           2014 3.635
                           2648 4.046
                           2822 4.135
                           4962 6.008
                           5537 6.725
                           6248 10.01 end
 
 fno 1817 lno 1817 stretc .08   vtp  1475 2.423
                           1561 2.990
                           1634 3.163
                           1659 3.296
                           1721 3.401
                           1792 3.596
                           2065 3.879
                           2621 4.352
                           2892 4.635
                           5156 5.975
                           6207 10.01 end
 
 fno 1871 lno 1871   vtp  1475 2.495
                           1584 2.918
                           1617 3.035
                           1636 3.212
                           1677 3.451
                           1721 3.596
                           1836 3.663
                           1895 3.718
                           1990 3.796
                           2321 4.141
                           2845 4.250
                           3686 4.597
                           5299 6.681
                           6118 10.01 end
                           
 fno 1995 lno 1995  stretc .09 vtp  1475 2.660
                           1555 3.193
                           1591 3.346
                           1708 3.760
                           1792 4.020
                           1989 4.392
                           2131 4.633
                           2309 4.879
                           2784 5.126
                           3718 6.513
                           4139 7.279
                           4472 8.526
                           5845 10.01 end                          
                           
 fno 2239 lno 2239  stretc .1  vtp  1475 2.986
                           1551 3.626
                           1618 3.866
                           1708 4.212
                           1776 4.366
                           1845 4.559
                           1940 4.719
                           2043 4.886
                           2243 5.079
                           2744 5.392
                           2794 5.492
                           6138 10.01 end
                                                                                                      
 fno 2434 lno 2434  vtp   1475 3.246
                           1533 3.792
                           1571 3.959
                           1585 4.132
                           1624 4.259
                           1734 4.479
                           1766 4.606
                           1842 4.746
                           1882 5.052
                           1950 5.306
                           2320 5.412
                           2764 5.759
                           3954 8.999
                           5545 10.01 end
                   
 fno 2574 lno 2574    vtp 1475 3.433
                           1672 4.572
                           1743 4.786
                           2096 5.452
                           2338 5.692
                           3204 6.559
                           5933 10.01 end
end

prout
# print the stacked trace number just so the light blink!
 fno 0 lno 99999 ftr 1 ltr 1 end
end

diskoa
# Write out disk file
  opath stacked/stack.line4 end
end

end
!


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9607b.html0000655000076500001200000000276206677137600013535 0ustar  henkartadmin00000000000000plot two hours of stack on the PostScript printer
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


sioseis << eof
procs diskin prout filter agc plot end
diskin
    fday 274 fgmt 0800 lgmt 1000 ftr 1 ltr 1 set 4 9  ! 5 seconds only
    ipath /orizaba1/mcs.dir/stacked/stack.line4 end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
agc
    winlen .5 end
end
filter
      pass 5 40 ftype 0 dbdrop 24 end
end
plot
  dir ltr
    scalar 5.e-07
      srpath sunfil wiggle 0
     nibs 75 trpin 75 def .04 clip .02 nsecs 5 ann gmtint anninc
 5 vscale 3.3333 end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -r 270 sunfil &




#      relative amplitude here
sioseis << eof
procs diskin prout filter gains plot end
diskin
    fday 274 fgmt 0800 lgmt 1000 ftr 1 ltr 1 set 3 8  ! 5 seconds only
    ipath /orizaba1/mcs.dir/stacked/stack.line4 end
end
prout
     fno 0 lno 9999999  noinc 20 ftr 0 ltr 9999 end
end
gains
      type 5 alpha 2.5 rscale 1 end
end
filter
      pass 5 40 ftype 0 dbdrop 24 end
end
plot
   dir ltr
   scalar 7.e-07
      srpath sunfil wiggle 0
     nibs 75 trpin 75 def .04 clip .02 nsecs 4 ann gmtint anninc
 5 vscale 3.3333 end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -r 270 sunfil &


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9607c.html0000755000076500001200000000141006352603150013510 0ustar  henkartadmin00000000000000EW9607 FK processing
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

sioseis << eof
procs diskin despike prout tx2fk fkfilt fkmigr fk2tx diskoa prout end
diskin
  fno 21700 lno 23600  # read 1900 traces
  ipath /orizaba1/mcs.dir/stacked/stack.line3 end
end
diskoa
    opath line3.fkmigr.1 end
end
fkfilt
    dipcut -6 6 dippas -5 5 end
end
filter 
    pass 5 50 ftype 0 dbdrop 24 end 
end
tx2fk
   nxpad 20  end   # x pad 20 traces plus (2048-(1900+20+20))
end
despike
    fac 5 end
end
fkmigr
   vel 1500 deltax 12.5 end
end
fk2tx
      end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
end


plot after FK
EW9607d.html0000655000076500001200000000142306352603162013517 0ustar  henkartadmin00000000000000plot the current shot in the circular shot file
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

#
sioseis << eof
procs diskin prout filter agc plot end
diskin
   ftr 1 ltr 160 set 4 9
  ipath shot.file  end
end
filter
   pass 5 50 ftype 0 dbdrop 24 end
   end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
   end
gains
   type 5 alpha .8 rscale 1 end
   end
agc
   winlen .5 end
   end
plot
!  scalar 3.e-05
   srpath sunfil nsecs 5
   nibs 75 trpin 10 taginc 20 ann gmt vscale 3.33333 def .05 ! clip .1
   end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -rotate 90 sunfil &

large plot
small plot


EW9607e.html0000655000076500001200000000165006352603173013524 0ustar  henkartadmin00000000000000 NovaJet Final Plot 
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

#  read and plot the FK on the NovaJet
sioseis << eof
procs diskin prout filter agc plot end
diskin
  fno  25450 lno 27375 ipath line4a.fkmigr.4 end
  fno  27376 lno 29250 ipath line4a.fkmigr.5 end
  fno  29251 lno 31150 ipath line4a.fkmigr.6 end
  fno  31151 lno 33075 ipath line4a.fkmigr.7 end
  fno  33076 lno 36506 ipath line4a.fkmigr.8 end
end
agc
  winlen 1 end
end
prout
  fno 0 lno 9999999 noinc 20 ftr 0 ltr 9999 end
end
filter
  pass 5 40 ftype 0 dbdrop 24 end
end
plot
  dir ltr
  scalar 8.1e-08 nsecs 8 ann gmtint anninc 30 tlines .5 1
  nibs 2859 trpin 300 vscale 1.6667 def .008 wiggle 0 clip .008
  opath siofil end
end
end
eof

#    convert the sio rasterfile to an HP-RTL file
sio2hp << eof2
ipath siofil opath hpfil end
eof2


EW9903.html0000755000076500001200000001516207025502707013361 0ustar  henkartadmin00000000000000
 EW9903 example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


Photographs from the cruise.
R/V Ewing photographs.
Photographs of seismic equipment.


     The EW9903 ODP site survey cruise aboard the R/V Ewing, Doug Wilson
and Alistair Harding Chief Scientists, used SIOSEIS in a similar manner
to that described on the EW9807 web example.  The main difference was use
of a new Syntron recording system with 480 channels and a 6km streamer.
     There were three onboard processing objectives:
1)  Quality control.
2)  Near realtime brute stack.
3)  Tape copy and reformat.
     
    The Syntron recording system wrote the MCS data onto IBM 3490E tapes.
With a 12 second recording length, a 2 millisecond sample interval, 480 
recording channels and a 37.5 meter shooting interval, tapes were filled in
less than 25 minutes.
    Unfortunately, the "offline" 3490E tape drive could not be attached to
the Ewing Sun Ultra Enterprise servers because they don't accept the 3490E
drive's fast wide differential interface.  Neither HP computers brought from
Scripps could accept this interface either.  The only machine with fast
wide differential was a Sun SparcStation 10, which also had a DLT, HP Dat,
Exabyte, 4GB disk, and was on the network.
    The SparcStation 10 could not process the large quantity of data 
efficiently, so the quality control and brute stack were limited to 
using 1/4 of the traces and decimating to 4 mils.  Another problem with
the SparcStation 10 was that it only had 32MB of memory and could not
run two SIOSEIS jobs at the same time.   The SparcStation 10 is called
heezen.
     Consequently, we had the 4GB disk on the SparcStation exported, so
that other machines could NFS mount it.  All tape reading and writing
had to be done on the SparcStation since it had the tape drives.
     Several subdirectories were created on the 4GB disk under the
/ldata/realtime.  Subdirectory stack was used to read and stack the 3490Es.
The stack job also wrote every 50th shot into a circular disk file in
/ldata/realtime/shots.  The stack job wrote the brute stack in a file in a
 subdirectory of /ldata/realtime/stacked.  Subdirectory /ldata/realtime/plots
had scripts to plot the shots and the the stacks.  Another subdirectory,
/ldata/realtime/copy contained a sioseis script to reformat the SEG-D
3490Es to a DLT tape in SEG-Y format.  
     I added the following lines to my .cshrc to simplify processing:
set path=($path /export/sioseis/bin )
alias xl "xloadimage -r 90 sunfil &"
alias sd "/export/sioseis/doc/siodoc"
alias s "suntops < sunfil > psfil"
     The tape reformat step was done after all the MCS data were collected.
While the reformat step theoretically takes the same length of time as the
collection step, it took much longer because manual intervention was required
for every tape.

     The brute stack script has several features:

    

  • The script was executed with the line name on it so the output
    filename was unique.

  • Read SEG-D tapes, discarding data before 4 seconds and after 8 seconds.
    Only alternate traces between traces 1 and 479 were used and the data
    were decimated to 4 mils.  (A SparcStation 10 is not very fast!)

  • Write every 50th shot to a "circular" file for QC (quality control)

  • Assign streamer geometry

  • Trace gather according to common midpoint

  • NMO and MUTE based on Hydrosweep water depth

  • Stack

  • Disk output for other use


     A subtle processing trick was used in the NMO process in order to
laterally vary the NMO velocity function.  Earlier work in the area
showed that a velocity function could be designed for the area.
The velocity varied with water depth.  Graham Kent had modified NMO
such that the parameter vtrkwb (velocity track water bottom) modifies
the normal SIOSEIS spatial interpolation by changing the RP number
into the water depth determined by Hydrosweep.  The velocity function
was described by water depth so that the spatial interpolation is
done by water depth.  SEGDIN has always put the Hydrosweep depth in
the SEG-Y trace header.
    A simple brute stack script without spatially varying
the velocities converts the water depth to the water bottom time and
then "hangs" the NMO velocity function and mute from the water bottom
time.
    The brute stack takes 15 minutes on the SparcStation 10, the same amount
of time as to collect it.
     The stack plot script filters, gains, and creates 
a SIOSEIS raster plot that is converted to an HP RTL file by 
program SIO2HP and sent to the Ewing's HP DesignJet 755.  It was
determined that the HP lp command did not work correctly with the
Ewing's plotter spooler by adding a character.  The lpr command:
lpr -Pplotter hpfil
from the Ewing's Sun server (grampus) worked correctly though.

     The shot plot script creates a Sun rasterfile and displays it
on the screen with xloadimage.  A PostScript plot was made with:
suntops -w 8 -h 10.5 < sunfil > psfil
however 480 traces is quite dense.  Running the plot script on some
other computer other than the SparcStation 10 worked well.

     The copy script reformats the SEG-D 3490E tapes onto
SEG-Y DLT tapes.  Each 3490E tapes is written as a SEG-Y file (process
output parameter newfile), even though the SEG-Y standard does not allow
multiple files on a tape.  The output tape further violates the SEG-Y
standard by writing in IEEE format.  

     Both the brute stack and copy scripts utilize segdin parameter
OFFLINE, which rewinds and ejects the input SEG-D tape after it has
been read.  This enables the "operator" to know that a new tape should
be "mounted".  After the new tape is entered, a file named "in" is
created with the tape unit number int it.  SEGDIN waits for the 
creation of this file and starts reading the new tape.  SEGDIN
then deletes the file "in" so that it waits at the end of tape for
yet another tape.

     RP sorted gathers were written to a DAT tape using the gather script.
This script uses several convenient parameters.  NFSKIP 41 was used in
process INPUT because there are 70 SEG-Y files on each DLT tape.  
INPUT and OUTPUT parameter DEVICE was used because neither tape
drive was /dev/nrst devives.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9903a.html0000755000076500001200000000455706677135420013536 0ustar  henkartadmin00000000000000Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: stack line-number"
    exit 1
endif
set LINENO = $1

sioseis << eof
procs segdin geom prout gather smute nmo stack diskoa end

segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 121 ltr 480 trinc 2 fcset 1 lcset 1
   stime 4 secs 4.0 
   decimf 2
   offline yes  # eject after the rewind after EOT
   iunit 11 end
end

diskob 
 # write every 50th shot to a "circular" file 
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /ldata/realtime/shots/latest.shot end 
  end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -181.65   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
!  dfls 37.5 dbrps 6.25 smear 6.25
  dfls 37.5 dbrps 12.5 smear 12.5
  rpadd 1000
  end
end

gather
   maxtrs 90 maxrps 500 end
end

smute 
 fno 1 lno 999999
 interp on
 xsets 
   81.5 4.0 4.1
  181.5 4.0 4.1
 1181.5 4.0 4.1
 2181.5 4.0 5.3
 4181.5 4.0 5.50
 6181.5 4.0 5.75 end
end 
 
gains
#  Do spherical divergence.  
#  alpha .4 means range 263 is multiplied by 9, range 4263 by 30
#   type 8 alpha .4 end
#  alpha .5 means range 263 is multiplied by 15.7, range 4263 by 68.4
    type 8 alpha .5 end
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 100 m, use previous value. Water-depth
# velocity functions supplied by Graham, interpolation by iso-velocity layering
 vtrkwb 250 stretc 0.06
  fno 3300 lno 3300 vtp 1500 4.400
			1525 4.70
			1525 4.8
			2100 5.2
			3500 6.3 end
  fno 3500 lno 3500 vtp 1500 4.667
			1525 4.967
			1525 5.067
			2100 5.467
			3500 6.567 vintpl 2 end
  fno 3700 lno 3700 vtp 1500 4.9333
			1525 5.2333
			1525 5.3333
			2100 5.7333
			3500 6.8333 vintpl 2 end
  fno 3900 lno 3900 vtp 1500 5.2
			1525 5.5
			1525 5.6
			2100 6.0
			3500 7.1 vintpl 2 end
			
			
end

prout
# print the stacked trace number just so the light blink!
 fno 0 lno 99999 ftr 479 ltr 480 end
end

diskoa
    opath /ldata/realtime/stacked/line.$LINENO end
end

end
eof


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9903aa.html0000755000076500001200000000262206704372503013662 0ustar  henkartadmin00000000000000Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: stack line-number"
    exit 1
endif
set LINENO = $1

sioseis << eof
procs segdin geom header prout gather nmo stack diskoa end

segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 121 ltr 480 trinc 2 fcset 1 lcset 1
   stime 4 secs 4.0 
   decimf 2
   offline yes  # eject after the rewind after EOT
   iunit 11 end
end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -181.65   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
!  dfls 37.5 dbrps 6.25 smear 6.25
  dfls 37.5 dbrps 12.5 smear 12.5
  rpadd 1000
  end
end

gather
   maxtrs 90 maxrps 500 end
end

nmo
  addwb yes vtp 1500 0 1510 .21 1520 .45 15
end
header 
  fno 0 lno 999999 ftr 0 ltr 99999 
   r50 = l16 / 750. 
   end 
end 
mute 
   addwb yes xtp 2000 -.1 4000 .4 6000 .9   end 
end 

prout
# print the stacked trace number just so the light blink!
 fno 0 lno 99999 ftr 479 ltr 480 end
end

diskoa
    opath /ldata/realtime/stacked/line.$LINENO end
end

end
eof


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9903b.html0000755000076500001200000000174606677150067013540 0ustar  henkartadmin00000000000000
SIOSEIS script to plot a stacked line on the HP DesignJet
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


      SIOSEIS script to plot a stacked line on the HP DesignJet



sioseis << eof1

procs diskin gains filter agc prout plot end

diskin
! ipath line.2 fno 8310 lno 11315 end
  ipath line.3 end
end

prout
 fno 0 lno 99999 ftr 1 ltr  1 trinc 1 end
end

gains
 type 3 alpha 1.75 end
end

filter 
 ftype 0 pass 5 60 dbdrop 60 end
end

agc 
 winlen .5 center .1 end
end

plot
! dir ltr 
  tlines 0.5 1 nibs 2859 ann rpno taginc 25
 scalar 2.0E-07 def 0.02 trpin 40
 nsecs 4 vscale 5
 opath siofil1 bcolor white end
end

end

eof1

sio2hp << eof2
ipath siofil opath hpfil.line3 end
eof2

lpr -Pplotter hpfil.line3


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9903c.html0000755000076500001200000000132206701654503013517 0ustar  henkartadmin00000000000000
SIOSEIS script to plot a shot on the screen
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


         SIOSEIS script to plot a shot on the screen

sioseis << eof
procs diskin agc plot end
diskin
   set 4 7
    ipath /net/heezen/ldata/realtime/shots/latest.shot end
end
agc
    winlen .5 end
end
plot
   nibs 75 vscale 6.66667 nsecs 2.5 trpin 10 ann sh&tr
   def .02 scalar 9.0E-07
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9903d.html0000755000076500001200000000273306701467614013534 0ustar  henkartadmin00000000000000
SIOSEIS script to copy and reformat from SEG-D to SEG-Y
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    SIOSEIS script to copy and reformat from SEG-D to SEG-Y



sioseis << eof
procs segdin geom output end
segdin
   stime 3 secs 12
   ffilen 99999   # take all shots (this is the preset!)
#   ftr 1 ltr 480  # skip the auxiliary channels - 161-172 and 161-180
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 11 end
end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -181.65
  ggx -12.5         # Used to extrapolate gxp!
  dfls 37.0 dbrps 6.25 smear 6.25 rpadd 1000
  bgp 1 1 2 7 3 19 4 43 5 67 6 91 7 115 8 139 9 163 10 187 11 211
      12 235 13 259 14 283 15 307 16 331 17 355 18 379 19 403
      20 427 21 451 21 451 22 463 23 475 24 480
  end
end

output
   ontrcs 480 # reinforce that only 160 traces are to be written
   rewind 0   # leave the tape alone!  
   device /dev/rmt/0cn
   ounit 2 end
end

prout
# print the stacked trace number just so the light blink!
 fno 0 lno 99999 ftr 1 ltr 1 end
end

end

eof





Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9903e.html0000755000076500001200000000176306704373312013531 0ustar  henkartadmin00000000000000
SIOSEIS script to GATHER all traces by common Reflection Point
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    SIOSEIS script to GATHER all traces by common Reflection Point



sioseis << eof
procs input geom gather output end

input
#   nfskip 41
   rewind no
   iunit 0 device /dev/rmt/0cn nfiles 222
   fno 12887 lno 14100
   set 4 9
   end
end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -181.65   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
  dfls 37.5 dbrps 6.25 smear 6.25
  end
end

gather
   maxtrs 90 maxrps 500 end
end

output
   ounit 1 device /dev/rmt/1cn end
end

end
eof





Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9914.html0000755000076500001200000002116207072452412013357 0ustar  henkartadmin00000000000000
 EW9914 example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



EW9914 example



     Cruise EW9914 aboard the R/V Maurice Ewing was in the Lau Basin
with Chief Scientists Alistair Harding, Graham Kent, and John Collins.


     Brute stacks were displayed on the Atlantek plotter immediately
(minutes) after EACH 3490E tape was ejected by the Syntron recording
system.  This rapid processing scheme allowed the scientists to find
magma chambers beneath the ridges and modify the cruise plan accordingly.

    
     There were three onboard processing objectives:

  1.   Near real-time brute stack.

  2.   Tape copy and reformat.

  3.   Quality control.


     


    The Syntron recording system wrote 145 shots onto IBM 3490E tapes.
With a 10 second recording length, a 4 millisecond sample interval, 480 
recording channels and a 37.5 meter shooting interval, tapes were filled in
45 minutes.  The tape copy and reformat took 13 minutes and the brute
stack took 22 minutes, leaving 10 minutes left over.


    Immediately after completion on the Syntron, each 3490E tape was taken
(sneakernet) to the Sun SparcStation 10, "heezen", that has a 3490E tape
drive.  Each tape was read twice; once for the brute stack and once to
copy and reformat to SEG-Y onto DLT tapes.  Doing the tape copy and stack
in separate scripts allows greater flexibility in changing stack parameters
and restarting the stack script.


    The stack script ultimately generates a plotfile that can be plotted
on the Atlantek plotter while the stack script is still running.  Thus, 
the stacked seismic line can be viewed while it is being collected.  No 
need to wait until the end of the line!


    The brute stack script does not use all 480 traces (6 km) because
the SparcStation 10 is not fast enough to perform both tasks (reformat and
stack) before the next tape comes from the Syntron system.  Initially we used
alternate traces from each shot as if the hydrophone spacing was 25m rather
than 12.5m.  While we used all 6km of the streamer, the far range traces 
contributed to excessive "stretch" due to out-of-plane scatterers and
incorrect velocities.  (Process segdin parameters ftr 2 ltr 480 trinc 2).
It was decided to use every trace of the near 3km of the streamer in the 
stack (process segdin parameters ftr 241 ltr 480 trinc 1 (remember 480 is
closest to the ship)).  This also changed the subsurface spacing to 6.25m.


     Program atlantek was run on the Sun
Enterprise Server (named "grampus") that has the Atlantek thermal printer
attached as:  /dev/ihcp0.    The sioseis plot file generated by the stack
script on SparcStation "heezen" is written to a disk that is NFS mounted by
"grampus".  Program "Atlantek" continuously checks for the plotfile
being appended and plots the new information as soon as it is written on
"heezen".  The program doesn't know when the plotfile is really complete,
so it must be terminated with a control-c.  The program should be restarted
everytime a new line is started by the stack script because the plot filename
changes.


    The stack script also writes every 50th shot into a circular disk file in
/ldata/real-time/shots.  It also writes every 50th cmp gather and every 50th
moved-out/muted gather to disk so they may be quality control checked.


    One of the keys to doing "real-time" stacks is having a velocity function
ahead of time and using the nmo parameter "vtrkwb" which allows the velocity
function to vary based on the water depth inserted by the Hydrosweep system.
Without "vtrkwb", the velocity function is spatially varied according to the
SEG-Y shot/rp number; with the "vtrkwb" parameter, "fno" refers to the water bottom 
depth.


    The mute, after nmo, always starts from the Hydrosweep water bottom also.


    The very low filter passband of 5x40 caused some wrap around effects in
the plot, so the fft length was increased by processing more data.  Initially
process segdin used parameters:  stime 2 secs 4.  This made the filter fft
1024 points long with only 24 points padded.  The segdin parameters were
changed to:  stime 1 secs 5, so that the fft was 2048 points long with a
778 point pad.


    The brute stack script has several features:


     The copy script reformats the SEG-D 3490E tapes onto
SEG-Y DLT tapes.  Each 3490E tape is written as an SEG-Y file (process
output parameter newfile), even though the SEG-Y standard does not allow
multiple files on a tape.  The output tape further violates the SEG-Y
standard by writing in IEEE format.  


     Both the brute stack and copy scripts utilize segdin parameter
OFFLINE, which rewinds and ejects the input SEG-D tape after it has
been read.  This enables the "operator" to know that a new tape should
be "mounted".  After the new tape is entered, a file named "in" is
created with the tape unit number in it.  SEGDIN waits for the 
creation of this file and starts reading the new tape.  SEGDIN
then deletes the file "in" so that it waits at the end of tape for
yet another tape.


     The shot plot script displays the "latest"
shot from the circular shot file written by the stack script.


     Using the Sun CDE environment on "heezen" simplified switching between 
the processing tasks.
One CDE screen was set up for the tape copy/reformat, one for the stack,
one for the QC plots, and one for my personal stuff (e-mail and 
/opt/NSCPcom46/netscape).


     The reformat screen had two windows; one running the script and one
for controlling the tape ready file "in".  Both windows belonged to
"heezen" and were in directory /ldata/realtime/reformat.

  The stack screen had three windows; one running the script, one
for controlling the tape ready file "in", and one for running the Atlantek
plotter program.


     I added two files to the stack and reformat directories for
controlling the input tape file "in" so that the watch standers
did not have to know how to use an editor.  File "go"
had the input tape unit "43" in it.  File "stop" had a "-1" in it.
When a new tape was ready the watch could simply type: cp go in
The "in" file with a -1 is the normal sioseis termination flag and
processes gather and stack flush all buffers.


     The reformat script was not terminated with the "-1", rather
it was control-c ed when sioseis asked for a new output tape.


     I added the following lines to my .cshrc to simplify processing:

set path=($path /export/sioseis/bin )
alias xl "xloadimage -r 90 sunfil &"
alias sd "/export/sioseis/doc/siodoc"
alias s "suntops < sunfil > psfil"



  The streamer depths were not placed into the SEG-Y headers during the
reformat step because the streamer was towed at a very uniform depth.
Processes SEGDIN automatically converts the SEG-D extended trace header
into a SEG-Y trace 0 with trace id 28.


User discussion.





Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9914a.html0000755000076500001200000001123107025767400013520 0ustar  henkartadmin00000000000000EW9914 SIOSEIS "realtime" stack script
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                EW9914 SIOSEIS "realtime" stack script

run on "heezen" in directory:    /ldata/realtime/brute_stack

#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: stack line-number"
    exit 1
endif
set LINENO = $1

sioseis << eof

procs segdin prout geom header diskob gather nmo mute diskod stack diskoe filter diskoa agc plot end

segdin
# take all shots 
   ffilen 99999   
#   ftr 1 ltr 480 trinc 2 fcset 1 lcset 1
   ftr 241 ltr 480 fcset 1 lcset 1
   stime 1 secs 5.0 
   offline yes  # eject after the rewind after EOT
   iunit 43 end
end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -196.6   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
 dfls 37.5 dbrps 6.25 smear 6.25
#  dfls 37.5 dbrps 12.5 smear 12.5
  rpadd 1000 end
end

mute
   fno 1 lno 999999
   addwb yes xtp 200 -.1 1500 -.1 3000 1 6200 2 end
end
  
diskoa   # Write out disk file
  opath LAUBASIN.$LINENO end
end
diskob 
# write every 50th shot to a "circular" file 
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /ldata/realtime/shots/latest.shot end 
end
diskoc 
    set 3 6 opath /ldata/realtime/cmps/cmps.$LINENO end 
end
diskod 
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /ldata/realtime/shots/latest.mute end 
end
diskoe   # Write out disk file
  opath stack.$LINENO end
end

prout
 fno 0 lno 99999 ftr 479 ltr 479 noinc 10 end
end

header
   fno 0 lno 9999999 ftr 1 ltr 9999 
   r50 r54 / 750.  # convert water depth to water time
   end
end

gather
#   maxtrs 90 maxrps 500 end
   maxtrs 50 maxrps 250 end
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 500 m, use previous value. Water-depth
# velocity functions derived from ESP5, interpolation by iso-velocity layering
 vtrkwb 500 stretc 0.50
 fno 1000 lno 1000
 vtp 1500 1.333 
     1557 1.414 
     1607 1.443
     1789 1.492
     2346 1.645
     2638 1.746
     2900 1.846
     2971 1.872
     3150 1.983 
     3141 2.102 
     3264 2.362
     4228 3.742
     4343 3.892 
     4898 4.393 end
 fno 1500 lno 1500
 vtp 1500 2.0 
     1539 2.081 
     1574 2.110 
     1705 2.159
     2137 2.312 
     2379 2.413 
     2603 2.513
     2665 2.539
     2827 2.650
     2834 2.769 
     2967 3.029
     3939 4.409
     4053 4.559 
     4596 5.060 end
 fno 2000 lno 2000 
 vtp 1500 2.667
     1529 2.748 
     1557 2.777 
     1659 2.826
     2012 2.979 
     2218 3.080 
     2414 3.180
     2468 3.206
     2614 3.317 
     2629 3.436
     2761 3.696
     3711 5.076
     3823 5.226
     4351 5.727 end
 fno 2500 lno 2500 
 vtp 1500 3.333 
     1524 3.414
     1546 3.443
     1629 3.492
     1928 3.645
     2108 3.746
     2282 3.846
     2330 3.872
     2463 3.983
     2481 4.102
     2608 4.362
     3526 5.742
     3636 5.892
     4146 6.393 end
 fno 3000 lno 3000
 vtp 1500 4.0 
     1520 4.080
     1538 4.110
     1609 4.159
     1868 4.312
     2028 4.413
     2184 4.513
     2228 4.539
     2350 4.650
     2368 4.769 
     2489 5.029
     3373 6.409
     3479 6.559
     3972 7.060 end
 fno 3500 lno 3500
 vtp 1500 4.667 
     1517 4.748
     1533 4.777
     1595 4.826
     1823 4.979
     1967 5.080
     2108 5.180
     2148 5.206
     2260 5.317
     2279 5.436
     2395 5.696
     3243 7.076
     3346 7.226
     3822 7.727 end
 fno 4000 lno 4000
 vtp 1500 5.333 
     1515 5.414 
     1529 5.443 
     1583 5.492
     1788 5.645
     1919 5.746
     2048 5.846 
     2085 5.872
     2189 5.983 
     2208 6.102 
     2317 6.362
     3131 7.742
     3231 7.892 
     3692 8.393 end
 fno 4500 lno 4500
 vtp 1500 6.0 
     1513 6.081
     1526 6.110
     1574 6.159
     1760 6.312 
     1879 6.413
     1999 6.513
     2033 6.539
     2130 6.650 
     2148 6.769
     2252 7.029
     3034 8.409
     3131 8.559
     3577 9.060 end
 fno 5000 lno 5000
 vtp 1500 6.667 
     1512 6.748 
     1523 6.777
     1567 6.826
     1737 6.979
     1847 7.080
     1958 7.180
     1990 7.206
     2080 7.317
     2098 7.436 
     2197 7.696
     2948 9.076
     3042 9.226
     3474 9.727 end
end

filter
    pass 5 40 ftype 0 dbdrop 48 end
end

 agc 
   winlen .5 center .1 end 
 end 

 plot 
  scalar 1.e-07 
  tlines 0.5 1 nibs 7224 ann gmtint anninc 30 
  def 0.01 trpin 80 wiggle 0 
  stime 2 nsecs 4 vscale 5 
  opath siopltfil.$LINENO end 
 end 


end
eof



Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
EW9914b.html0000755000076500001200000000161307026021313013507 0ustar  henkartadmin00000000000000EW9914 SIOSEIS tape copy/reformat script
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


             EW9914 SIOSEIS tape copy/reformat script

run on "grampus" in directory:    /net/heezen/ldata/realtime/reformat


sioseis << eof
procs segdin output end
segdin
   secs 10
   ffilen 99999   # take all shots (this is the preset!)
   ftr 1 ltr 480  # skip the auxiliary channels - 161-172 and 161-180
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 43 end
end
output
   ontrcs 480
   rewind 0   # leave the tape alone!  
   ounit 66 end
end
eof



Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9914c.html0000755000076500001200000000162607026021557013526 0ustar  henkartadmin00000000000000EW9914 SIOSEIS script for screen display of the "latest" shot
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

             EW9914 Script for screen display of the "latest" shot

run on "grampus" in directory:   /net/heezen/ldata/realtime/plots

sioseis << eof
procs diskin agc plot end
diskin
   ipath /net/heezen/ldata/realtime/shots/latest.shot end
end
agc
    winlen .1 end
end
plot
  wiggle 0 tlines .5 1.
 stime 2 nsecs 4
   nibs 7224 vscale 1.25 trpin 40 ann sh&tr
   def .03 clip .03
!   scalar 5.e-03
!   scalar 7.0E-04 
   opath siofil
   srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
xloadimage -r 90 sunfil &


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

EW9914d.html0000644000076500001200000002467407074664035013543 0ustar  henkartadmin00000000000000User Discussion
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.




QUESTION:
(1) The documentation on "segdin" states that the command
looks for a file called "in" (or "IN", does case matter?)
from which it reads a "tape unit number" after a tape is
done to change tapes.  Since there is only one tape drive
then this number could always be "43" (for high density).
Correct?  Therefore, after sioseis reads the tape it will
eject it (an option I think I will turn on).  The user 
should then put in a new tape and then create a file called
"in" with "9" in it.  This is true for both of the directories,
e.g. "/ldata/realtime/brute_stack" and "/ldata/realtime/reformat".


(2) The scripts "/reformat/copy" and "/brute_stack/bstack" will be
running at the same time and each running separate segdin commands.
How is this done with only one tape drive?  I assume that the first
job to see the tape or the file "in" (e.g. copy) will snatch the
tape drive and the other job (e.g. bstack) will sit and wait in back
ground. Then when tapecopy is done then the tape will go "OFFLINE"
and be ejected.  The user should then put the tape back in 
(without creating "in" in /reformat), at which point the other script
will run (e.g. bstack).  When bstack is done it will eject the
tape and the user puts in a new data tape.  Which ever directory
has the "in" first will determine the job that starts up first.
Thus the presents or absense of "in" controls when each actually
starts working.

    Is this correct?


ANSWER:

1)  The filename can be "in" or "IN".  Don't use "In" or "iN" though.
2)  The contents of "in" should be 43.  (FYI the tape drive senses
the tape density on reads.  e.g. The density setting is only used
when writing a tape.)

   "43". not "9" (unless 9 and 43 are the same drive and the density
setting is ignored)

3)  Make sure the reformat/copy is running in a different directory
from the brute stack.  Then the file "in" doesn't conflict.  Each
job then waits for it's own file "in".
   Pretty cute huh.  Unix/Sioseis allow the tape drive to be shared!



    So the procedure goes something like:
    

  1. Insert tape 1

  2. Start copy, which ejects the tape when done.

  3. 	Insert tape 1 again.
	Change windows or directories to the brute stack window.

  4. 	Start brute stack

  5. 	Go to another window on grampus and start the Atlantek.
	You now have 3 windows and 3 processes going.  The
	copy window and stack window have active sioseis jobs, so
	you need 2 more windows; one for controling file in for
	the copy job and one for controlling file "in" for the
	stack job.

  6. Put tape 1 away in box to send home.
    Insert tape 2.
    Change directories to the copy directory.
    Create file "in" with a "43"

  7. When 3490 is ejected, reinsert.
    Change directories/windows to the stack directory.
    Create file "in" with a "43" in it.

  8. When 3490 is ejected, put it in box to send home.

  9. Insert tape 3.
    Change directories to the copy directory.
    Create file "in" with a "43"

  10. When tape 3 is ejected, reinsert it.
    Change directories to the stack directory.
    Create file "in" with a "43"

  11. When 3490 is ejected, put it in box to send home.

  12. Insert tape 4.

        etc. etc.






   When a seismic line ends, terminate the stack job only with a "-1"
in file in.  Then control-c the plot job on grampus.
   Then you can continue to copy without doing a stack.
   Stack and copy are independent this way.
   Sometimes the stack may be screwed up and you want to start it
again - you don't want to copy the tape again.
   Also, you want to copy all traces and not decimate in the
copy, but you may want to use the short end of the streamer
and decimate when doing the stack.


   I set heezen so that there were 5 windows.  Using CDE,
you could put one CDE layer for the copy and one for the
stack.  The copy layer would have two windows; one for the
copy job and one that controls file "in".
   The stack CDE layer has 3 windows; 1 running the job,
another controlling file "in", and another on grampus
for the plot.
   I had a file called "inn" that had "43" in it in each
the copy directory and the stack directory.  Then the
watch could just     cp inn in
or even    !!

   The key is using different directories for the stack and the copy.



QUESTION:
Makes good sense to me.  Is each shot, one file on tape?


ANSWER:
In SEG-D, each shot is terminated with a file mark.
   In the SIOSEIS parameters you use in the copy script, each 3490 tape
is
terminated by a file mark.

   As an aside, I think the file marks in the SEG-D format also cause
the Sun utility "tcopy" to be VERY slow on Heezen.  I heard that someone
tcopy on heezen and each tape took the same amount of time to copy as it
did to collect.  SIOSEIS does the reformat in about 1/3 that time.
   I heard third hand that the person insisted on SEG-D because
"SEG-Y drops some information contained in SEG-D".  That's not true for
the SIOSEIS script you are using because sioseis copies the SEG-D external
header into a SEG-Y "trace 0", which is a concept Digicon and LDGO used
on the Ewing back in the early '90s.  Quite cute.  
   SIOSEIS uses the LDEO clock for the shot time rather than the Syntron
PC clock.  The LDEO clock (known as Joe's clock), is the same clock that
the navigation system uses and is a GPS clock.
   The streamer depth and compasses and gun information are in trace 0
for future use. but can be put into the SEG-Y header during the copy
stage if you can describe the special bird locations in process geom.
Turns out nobody really uses that information anyway, but you are retaining
it in trace 0 just in case you every do need something. 

    As another aside, there's talk of a national seismic data archive.
This issue comes into play.  You see where I stand.  SEG-D and those
file marks really are nasty especially for a disk file.



QUESTION:
 One thing I'd like to clarify is that the only time I need
to stop the tape copy job is when I am changing DLT tapes.  Correct?
Is there any need to stop the tape copy job between survey lines, other
than to keep separate lines on different DLT tapes (which will be 
impractical because we are gonna have lots of lines?



QUESTION:
 Here's another question.  If/when I do try to copy
more 3490's than the DLT tape can hold, sioseis
will prompt me to change DLT tapes by asking me to
create a file "out" that contains the output tape
unit number.  correct?  If this happens is it better
to: a) Ctrl-C and re-start the tape copy script with
 the same 3490 after I change DLT's  or
    b) create the file "out" and let the tapecopy script
       do its thing or
    c) something else..

It seems like (a) would require me to always start with the
first DLT tape if I want to extract data from the second tape,
using "input".  (b) would simply mean that I would have to
specify the last complete shot to read in on the first tape.
Yes?


ANSWER:
 I find it much simpler to control-c the copy script at the
end of a 3480 tape and restart the script with a fresh DLT tape.
It's no big deal if the last DLT file is a partial SEG-Y file because
I won't use the file anyway.  Start the new DLT with the 3490 tape
that didn't make it.  SIOSEIS process INPUT has a file NFILES that
allows you to specify the number of files on the DLT tape.


QUESTION:
 How did you come up with the offset to the closest group?


ANSWER:
 This takes a great deal of effort because everybody wants to get
the first shot off after 6 hours of streamer deployment.  You
have to watch closely AND DO THE LEADER MEASUREMENT YOURSELF.
Here's my calculation for EW9914:

147.5  fantail to center of dead section
-37.5  fantail to center of guns
-----
110.0
100.  stretch section
-----
210.0
 +6.25 center of dead section to end of dead section
 +6.25 end of live section to center of group
------
222.5

"shortened leader by 31.9 for lines 2-61"
222.5 - 31.9 = 190.6




QUESTION
 I also found that "anntyp" works better than "ann" (which didn't allow
me to control annotation increments). 

ANSWER
  I don't understand the anntyp vs ann problem.  I thought/think
ann converts the symbolic to a numeric for anntyp - therefore they're the
same to the plot routine.


QUESTION
I tried the "ann header" with "hdr 19" or "lhdr 19" and got all zeros.

ANSWER
SEGDIN puts the EWING lat/long in header words 19 and 20, but process
GEOM writes over the latitude with the X-coordinate.  Then STACK zeroes word 19.
There's a comment in stack's source code tha says:
"THE SHOT X COORDINATE DOESN'T EXIST ON A STACKED TRACE". 
I don't recall my exact thinking.


QUESTION
Is there a way to annotate according to navigation?

ANSWER
 No.  The only way I can think of is annotate the stack section
with the RP number and do some math.  Or, since the stack section trace
spacing is even,  you could use fanno and ftag along with anning and taginc.
      I use GMT, because the watch writes lat/long down every .5 hours and
I can go to the watch log to find the location.  Graham likes to use
the RP number.  Each to his own.


QUESTION
The brute stack script is bombing with the error message
"Not enough AP to perform filter".

QUESTION
Is there away to get annotations to print out on "atlantek" plots?

ANSWER
Thanks for attaching your script.  I think both of these problems are
due to your using the plot scalar from EW9914.  I suspect the plot is writing
outside it's program area and overwriting other program variables.  
    You MUST use a new plot SCALAR.  Remove the plot parameter from your script
and plot will determmine a new one based on parameter def.  PLOT will print the
new scalar it calculates and you can use it on subsequent plot jobs if you want
every plot to have the relative amplitudes.


QUESTION
How do I make sioseis tell me the scalar it determines?

ANSWER
Plot calculates the scalar when paramater scalar is less than zero.
Plot uses the value given when paramater scalar is greater than zero.
So, plot job 1 has scalar not given and the scalar is printed out.  Cut and
paste (or round a little) and use it as the value for parameter scalar in
subsequent plot jobs.


QUESTION


ANSWER


QUESTION


ANSWER


QUESTION


ANSWER


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
FAQ.html0000755000076500001200000000757706352274547013155 0ustar  henkartadmin00000000000000 FAQ - Frequently Asked Questions


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

September03.html0000644000076500001200000001102607732200526014601 0ustar  henkartadmin00000000000000

September 2003 test of the SIO Geometrics

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.



September 2003 test of the SIO Geometrics


    Make sure the Sun executables are in a "nice" place.  sioseis, lsd, 
sio2hp, and xloadimage are used in this example.  You may have to set
shell parameter DISPLAY.  e.g.  setenv DISPLAY your_machine:0.0
Don't forget xhost +.

    The Geometrics tape output is SEG-D, not SEG-Y.  SEG-D is not for
the faint of heart;  dd'ing a SEG-D tape is not a good idea since
every shot is a file.
    Convert the SEG-D tape to a SEG-Y disk file.  The Geometrics records
24 channels, but the first use will have a four channel streamer.  
Only save traces 1-4 when converting to SEG-Y.

e.g.
sioseis << eof
procs segdin diskoa prout end
segdin
   ftr 1 ltr 4
   device /dev/rmt/0bn end
end
diskoa
   opath file1.segy end
end
prout
   fno 0 lno 999999 noinc 100 ftr 1 ltr 1 end
end
end
eof


     Following the AVON04 example:
>lsd file1.segy 1 10
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
         1     1       0     0  1      0     0   7000  1000 2003 253 16  31  34
         1     2       0     0  1      0     0   7000  1000 2003 253 16  31  34
         1     3       0     0  1      0     0   7000  1000 2003 253 16  31  34
         1     4       0     0  1      0     0   7000  1000 2003 253 16  31  34
         2     1       0     0  1      0     0   7000  1000 2003 253 16  31  44
         2     2       0     0  1      0     0   7000  1000 2003 253 16  31  44
         2     3       0     0  1      0     0   7000  1000 2003 253 16  31  44
         2     4       0     0  1      0     0   7000  1000 2003 253 16  31  44
         3     1       0     0  1      0     0   7000  1000 2003 253 16  31  54
         3     2       0     0  1      0     0   7000  1000 2003 253 16  31  54


Do a QC check to make sure all 4 traces look good.  e.g.
sioseis << eof
procs diskin plot end
diskin
   ipath file1.segy ntodo 96 end
end
plot
   def .02 vscale 1.25 srpath sunfil.ras nsecs 7
   nibs 2859 recsp yes ann sh&tr taginc 1
   end
end
end
eof
xloadimage -r 90 sunfil.ras

(test data plot.)


   All four traces look okay, so "vertically stack" them by using
ntrgat 4 in diskin and adding stack in the procs.  Remember that
filter should be done after stack for speed.  Finding the right plot
"def" was hard because of the noise at the beginning of the data.
Avon04 plot
sioseis << eof
procs diskin stack filter plot end
diskin
   ntrgat 4
   ipath file1.segy ntodo 2000 end
end
filter
   ftype 0 pass 20 150 dbdrop 48 end
end
agc
   winlen .5 end
end
plot
   vscale 1.25 srpath sunfil.ras nsecs 7
   nibs 2859 ann gmtint anninc 5
   trpin 200 def .02 wiggle 0
   end
end
end
eof
xloadimage -r 90 sunfil.ras &


    A 3 trace mix does wonders for reducing the noise in the
water column.   Try it!  (see the Avon example for other things to try).
sioseis << eof
procs diskin stack mix filter plot end
diskin
   ntrgat 4
   ipath file1.segy ntodo 2000 end
end
filter
   ftype 0 pass 20 150 dbdrop 48 end
end
mix
   weight 1 2 1 end
end
agc
   winlen .5 end
end
plot
   vscale 1.25 srpath sunfil.ras nsecs 7
   nibs 2859 ann gmtint anninc 5
   trpin 200 def .02 wiggle 0
   end
end
end
eof
xloadimage -r 90 sunfil.ras &


    You may want to extract smaller portions of the data by
using diskin parameters    fgmt, lgmt, fday, lday
e.g.
 diskin 
    ntrgat 4 fday 253 lday 253 fgmt 1645 lgmt 1715 
    ipath file1.segy end 
 end 

    There are several programs that convert Sun rasterfiles
to PostScript, though I don't like any on the Sun (suntops and
ras2ps), so I use GraphicConverter on the Mac.  ImageMagik might
work.  Some people are using sioseis' process grdout and GMT.

    You may want to create wallpaper on the HP plotter.  You must
generate a SIOSEIS plot file (plot parameter opath) and then convert
it into an HP rasterfile using program sio2hp.  Then lpr it.

    Have fun guys!


Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


WSD81-748__30842.html0000644000076500001200000010064510725614273014547 0ustar  henkartadmin00000000000000
WSD81-748__30842.prt<title>
</head><P>
<pre>
SIOSEIS ver 2007.10 (5 Dec. 2007)  (C) Regents of U.C.                         
 procs diskin prout end 
 diskin 
   ipath WSD81-748__30842.sgy 
   end 
 end 
 prout 
    fno 0 lno 999999 ftr 0 ltr 999 trlist espn rpno end 
 end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
  1061      1 
  1061      2 
  1061      3 
  1061      4 
  1061      5 
  1061      6 
  1061      7 
  1061      8 
  1061      9 
  1061     10 
  1061     11 
  1061     12 
  1061     13 
  1061     14 
  1061     15 
  1061     16 
  1061     17 
  1061     18 
  1061     19 
  1061     20 
  1061     21 
  1061     22 
  1061     23 
  1061     24 
  1061     25 
  1061     26 
  1061     27 
  1061     28 
  1061     29 
  1061     30 
  1061     31 
  1061     32 
  1061     33 
  1061     34 
  1061     35 
  1061     36 
  1061     37 
  1061     38 
  1061     39 
  1061     40 
  1061     41 
  1061     42 
  1061     43 
  1061     44 
  1061     45 
  1061     46 
  1061     47 
  1061     48 
  1061     49 
  1061     50 
  1060     51 
  1060     52 
  1060     53 
  1060     54 
  1060     55 
  1060     56 
  1060     57 
  1060     58 
  1060     59 
  1060     60 
  1060     61 
  1060     62 
  1060     63 
  1060     64 
  1060     65 
  1060     66 
  1060     67 
  1060     68 
  1060     69 
  1060     70 
  1060     71 
  1060     72 
  1060     73 
  1060     74 
  1060     75 
  1060     76 
  1060     77 
  1060     78 
  1060     79 
  1060     80 
  1060     81 
  1060     82 
  1060     83 
  1060     84 
  1060     85 
  1060     86 
  1060     87 
  1060     88 
  1060     89 
  1060     90 
  1060     91 
  1060     92 
  1060     93 
  1060     94 
  1060     95 
  1060     96 
  1060     97 
  1060     98 
  1060     99 
  1060    100 
  1060    101 
  1060    102 
  1060    103 
  1060    104 
  1060    105 
  1060    106 
  1060    107 
  1060    108 
  1060    109 
  1060    110 
  1060    111 
  1060    112 
  1060    113 
  1060    114 
  1060    115 
  1060    116 
  1060    117 
  1060    118 
  1060    119 
  1060    120 
  1060    121 
  1060    122 
  1060    123 
  1060    124 
  1060    125 
  1060    126 
  1060    127 
  1060    128 
  1060    129 
  1060    130 
  1060    131 
  1060    132 
  1060    133 
  1060    134 
  1059    135 
  1059    136 
  1058    137 
  1058    138 
  1057    139 
  1057    140 
  1056    141 
  1056    142 
  1055    143 
  1055    144 
  1054    145 
  1054    146 
  1053    147 
  1053    148 
  1052    149 
  1052    150 
  1051    151 
  1051    152 
  1050    153 
  1050    154 
  1049    155 
  1049    156 
  1048    157 
  1048    158 
  1047    159 
  1047    160 
  1046    161 
  1046    162 
  1045    163 
  1045    164 
  1044    165 
  1044    166 
  1043    167 
  1043    168 
  1042    169 
  1042    170 
  1041    171 
  1041    172 
  1040    173 
  1040    174 
  1039    175 
  1039    176 
  1038    177 
  1038    178 
  1037    179 
  1037    180 
  1036    181 
  1036    182 
  1035    183 
  1035    184 
  1034    185 
  1034    186 
  1033    187 
  1033    188 
  1032    189 
  1032    190 
  1031    191 
  1031    192 
  1030    193 
  1030    194 
  1029    195 
  1029    196 
  1028    197 
  1028    198 
  1027    199 
  1027    200 
  1026    201 
  1026    202 
  1025    203 
  1025    204 
  1024    205 
  1024    206 
  1023    207 
  1023    208 
  1022    209 
  1022    210 
  1021    211 
  1021    212 
  1020    213 
  1020    214 
  1019    215 
  1019    216 
  1018    217 
  1018    218 
  1017    219 
  1017    220 
  1016    221 
  1016    222 
  1015    223 
  1015    224 
  1014    225 
  1014    226 
  1013    227 
  1013    228 
  1012    229 
  1012    230 
  1011    231 
  1011    232 
  1010    233 
  1010    234 
  1009    235 
  1009    236 
  1008    237 
  1008    238 
  1007    239 
  1007    240 
  1006    241 
  1006    242 
  1005    243 
  1005    244 
  1004    245 
  1004    246 
  1003    247 
  1003    248 
  1002    249 
  1002    250 
  1001    251 
  1001    252 
  1000    253 
  1000    254 
   999    255 
   999    256 
   998    257 
   998    258 
   997    259 
   997    260 
   996    261 
   996    262 
   995    263 
   995    264 
   994    265 
   994    266 
   993    267 
   993    268 
   992    269 
   992    270 
   991    271 
   991    272 
   990    273 
   990    274 
   989    275 
   989    276 
   988    277 
   988    278 
   987    279 
   987    280 
   986    281 
   986    282 
   985    283 
   985    284 
   984    285 
   984    286 
   983    287 
   983    288 
   982    289 
   982    290 
   981    291 
   981    292 
   980    293 
   980    294 
   979    295 
   979    296 
   978    297 
   978    298 
   977    299 
   977    300 
   976    301 
   976    302 
   975    303 
   975    304 
   974    305 
   974    306 
   973    307 
   973    308 
   972    309 
   972    310 
   971    311 
   971    312 
   970    313 
   970    314 
   969    315 
   969    316 
   968    317 
   968    318 
   967    319 
   967    320 
   966    321 
   966    322 
   965    323 
   965    324 
   964    325 
   964    326 
   963    327 
   963    328 
   962    329 
   962    330 
   961    331 
   961    332 
   960    333 
   960    334 
   959    335 
   959    336 
   958    337 
   958    338 
   957    339 
   957    340 
   956    341 
   956    342 
   955    343 
   955    344 
   954    345 
   954    346 
   953    347 
   953    348 
   952    349 
   952    350 
   951    351 
   951    352 
   950    353 
   950    354 
   949    355 
   949    356 
   948    357 
   948    358 
   947    359 
   947    360 
   946    361 
   946    362 
   945    363 
   945    364 
   944    365 
   944    366 
   943    367 
   943    368 
   942    369 
   942    370 
   941    371 
   941    372 
   940    373 
   940    374 
   939    375 
   939    376 
   938    377 
   938    378 
   937    379 
   937    380 
   936    381 
   936    382 
   935    383 
   935    384 
   934    385 
   934    386 
   933    387 
   933    388 
   932    389 
   932    390 
   931    391 
   931    392 
   930    393 
   930    394 
   929    395 
   929    396 
   928    397 
   928    398 
   927    399 
   927    400 
   926    401 
   926    402 
   925    403 
   925    404 
   924    405 
   924    406 
   923    407 
   923    408 
   922    409 
   922    410 
   921    411 
   921    412 
   920    413 
   920    414 
   919    415 
   919    416 
   918    417 
   918    418 
   917    419 
   917    420 
   916    421 
   916    422 
   915    423 
   915    424 
   914    425 
   914    426 
   913    427 
   913    428 
   912    429 
   912    430 
   911    431 
   911    432 
   910    433 
   910    434 
   909    435 
   909    436 
   908    437 
   908    438 
   907    439 
   907    440 
   906    441 
   906    442 
   905    443 
   905    444 
   904    445 
   904    446 
   903    447 
   903    448 
   902    449 
   902    450 
   901    451 
   901    452 
   900    453 
   900    454 
   899    455 
   899    456 
   898    457 
   898    458 
   897    459 
   897    460 
   896    461 
   896    462 
   895    463 
   895    464 
   894    465 
   894    466 
   893    467 
   893    468 
   892    469 
   892    470 
   891    471 
   891    472 
   890    473 
   890    474 
   889    475 
   889    476 
   888    477 
   888    478 
   887    479 
   887    480 
   886    481 
   886    482 
   885    483 
   885    484 
   884    485 
   884    486 
   883    487 
   883    488 
   882    489 
   882    490 
   881    491 
   881    492 
   880    493 
   880    494 
   879    495 
   879    496 
   878    497 
   878    498 
   877    499 
   877    500 
   876    501 
   876    502 
   875    503 
   875    504 
   874    505 
   874    506 
   873    507 
   873    508 
   872    509 
   872    510 
   871    511 
   871    512 
   870    513 
   870    514 
   869    515 
   869    516 
   868    517 
   868    518 
   867    519 
   867    520 
   866    521 
   866    522 
   865    523 
   865    524 
   864    525 
   864    526 
   863    527 
   863    528 
   862    529 
   862    530 
   861    531 
   861    532 
   860    533 
   860    534 
   859    535 
   859    536 
   858    537 
   858    538 
   857    539 
   857    540 
   856    541 
   856    542 
   855    543 
   855    544 
   854    545 
   854    546 
   853    547 
   853    548 
   852    549 
   852    550 
   851    551 
   851    552 
   850    553 
   850    554 
   849    555 
   849    556 
   848    557 
   848    558 
   847    559 
   847    560 
   846    561 
   846    562 
   845    563 
   845    564 
   844    565 
   844    566 
   843    567 
   843    568 
   842    569 
   842    570 
   841    571 
   841    572 
   840    573 
   840    574 
   839    575 
   839    576 
   838    577 
   838    578 
   837    579 
   837    580 
   836    581 
   836    582 
   835    583 
   835    584 
   834    585 
   834    586 
   833    587 
   833    588 
   832    589 
   832    590 
   831    591 
   831    592 
   830    593 
   830    594 
   829    595 
   829    596 
   828    597 
   828    598 
   827    599 
   827    600 
   826    601 
   826    602 
   825    603 
   825    604 
   824    605 
   824    606 
   823    607 
   823    608 
   822    609 
   822    610 
   821    611 
   821    612 
   820    613 
   820    614 
   819    615 
   819    616 
   818    617 
   818    618 
   817    619 
   817    620 
   816    621 
   816    622 
   815    623 
   815    624 
   814    625 
   814    626 
   813    627 
   813    628 
   812    629 
   812    630 
   811    631 
   811    632 
   810    633 
   810    634 
   809    635 
   809    636 
   808    637 
   808    638 
   807    639 
   807    640 
   806    641 
   806    642 
   805    643 
   805    644 
   804    645 
   804    646 
   803    647 
   803    648 
   802    649 
   802    650 
   801    651 
   801    652 
   800    653 
   800    654 
   799    655 
   799    656 
   798    657 
   798    658 
   797    659 
   797    660 
   796    661 
   796    662 
   795    663 
   795    664 
   794    665 
   794    666 
   793    667 
   793    668 
   792    669 
   792    670 
   791    671 
   791    672 
   790    673 
   790    674 
   789    675 
   789    676 
   788    677 
   788    678 
   787    679 
   787    680 
   786    681 
   786    682 
   785    683 
   785    684 
   784    685 
   784    686 
   783    687 
   783    688 
   782    689 
   782    690 
   781    691 
   781    692 
   780    693 
   780    694 
   779    695 
   779    696 
   778    697 
   778    698 
   777    699 
   777    700 
   776    701 
   776    702 
   775    703 
   775    704 
   774    705 
   774    706 
   773    707 
   773    708 
   772    709 
   772    710 
   771    711 
   771    712 
   770    713 
   770    714 
   769    715 
   769    716 
   768    717 
   768    718 
   767    719 
   767    720 
   766    721 
   766    722 
   765    723 
   765    724 
   764    725 
   764    726 
   763    727 
   763    728 
   762    729 
   762    730 
   761    731 
   761    732 
   760    733 
   760    734 
   759    735 
   759    736 
   758    737 
   758    738 
   757    739 
   757    740 
   756    741 
   756    742 
   755    743 
   755    744 
   754    745 
   754    746 
   753    747 
   753    748 
   752    749 
   752    750 
   751    751 
   751    752 
   750    753 
   750    754 
   749    755 
   749    756 
   748    757 
   748    758 
   747    759 
   747    760 
   746    761 
   746    762 
   745    763 
   745    764 
   744    765 
   744    766 
   743    767 
   743    768 
   742    769 
   742    770 
   741    771 
   741    772 
   740    773 
   740    774 
   739    775 
   739    776 
   738    777 
   738    778 
   737    779 
   737    780 
   736    781 
   736    782 
   735    783 
   735    784 
   734    785 
   734    786 
   733    787 
   733    788 
   732    789 
   732    790 
   731    791 
   731    792 
   730    793 
   730    794 
   729    795 
   729    796 
   728    797 
   728    798 
   727    799 
   727    800 
   726    801 
   726    802 
   725    803 
   725    804 
   724    805 
   724    806 
   723    807 
   723    808 
   722    809 
   722    810 
   721    811 
   721    812 
   720    813 
   720    814 
   719    815 
   719    816 
   718    817 
   718    818 
   717    819 
   717    820 
   716    821 
   716    822 
   715    823 
   715    824 
   714    825 
   714    826 
   713    827 
   713    828 
   712    829 
   712    830 
   711    831 
   711    832 
   710    833 
   710    834 
   709    835 
   709    836 
   708    837 
   708    838 
   707    839 
   707    840 
   706    841 
   706    842 
   705    843 
   705    844 
   704    845 
   704    846 
   703    847 
   703    848 
   702    849 
   702    850 
   701    851 
   701    852 
   700    853 
   700    854 
   699    855 
   699    856 
   698    857 
   698    858 
   697    859 
   697    860 
   696    861 
   696    862 
   695    863 
   695    864 
   694    865 
   694    866 
   693    867 
   693    868 
   692    869 
   692    870 
   691    871 
   691    872 
   690    873 
   690    874 
   689    875 
   689    876 
   688    877 
   688    878 
   687    879 
   687    880 
   686    881 
   686    882 
   685    883 
   685    884 
   684    885 
   684    886 
   683    887 
   683    888 
   682    889 
   682    890 
   681    891 
   681    892 
   680    893 
   680    894 
   679    895 
   679    896 
   678    897 
   678    898 
   677    899 
   677    900 
   676    901 
   676    902 
   675    903 
   675    904 
   674    905 
   674    906 
   673    907 
   673    908 
   672    909 
   672    910 
   671    911 
   671    912 
   670    913 
   670    914 
   669    915 
   669    916 
   668    917 
   668    918 
   667    919 
   667    920 
   666    921 
   666    922 
   665    923 
   665    924 
   664    925 
   664    926 
   663    927 
   663    928 
   662    929 
   662    930 
   661    931 
   661    932 
   660    933 
   660    934 
   659    935 
   659    936 
   658    937 
   658    938 
   657    939 
   657    940 
   656    941 
   656    942 
   655    943 
   655    944 
   654    945 
   654    946 
   653    947 
   653    948 
   652    949 
   652    950 
   651    951 
   651    952 
   650    953 
   650    954 
   649    955 
   649    956 
   648    957 
   648    958 
   647    959 
   647    960 
   646    961 
   646    962 
   645    963 
   645    964 
   644    965 
   644    966 
   643    967 
   643    968 
   642    969 
   642    970 
   641    971 
   641    972 
   640    973 
   640    974 
   639    975 
   639    976 
   638    977 
   638    978 
   637    979 
   637    980 
   636    981 
   636    982 
   635    983 
   635    984 
   634    985 
   634    986 
   633    987 
   633    988 
   632    989 
   632    990 
   631    991 
   631    992 
   630    993 
   630    994 
   629    995 
   629    996 
   628    997 
   628    998 
   627    999 
   627   1000 
   626   1001 
   626   1002 
   625   1003 
   625   1004 
   624   1005 
   624   1006 
   623   1007 
   623   1008 
   622   1009 
   622   1010 
   621   1011 
   621   1012 
   620   1013 
   620   1014 
   619   1015 
   619   1016 
   618   1017 
   618   1018 
   617   1019 
   617   1020 
   616   1021 
   616   1022 
   615   1023 
   615   1024 
   614   1025 
   614   1026 
   613   1027 
   613   1028 
   612   1029 
   612   1030 
   611   1031 
   611   1032 
   610   1033 
   610   1034 
   609   1035 
   609   1036 
   608   1037 
   608   1038 
   607   1039 
   607   1040 
   606   1041 
   606   1042 
   605   1043 
   605   1044 
   604   1045 
   604   1046 
   603   1047 
   603   1048 
   602   1049 
   602   1050 
   601   1051 
   601   1052 
   600   1053 
   600   1054 
   599   1055 
   599   1056 
   598   1057 
   598   1058 
   597   1059 
   597   1060 
   596   1061 
   596   1062 
   595   1063 
   595   1064 
   594   1065 
   594   1066 
   593   1067 
   593   1068 
   592   1069 
   592   1070 
   591   1071 
   591   1072 
   590   1073 
   590   1074 
   589   1075 
   589   1076 
   588   1077 
   588   1078 
   587   1079 
   587   1080 
   586   1081 
   586   1082 
   585   1083 
   585   1084 
   584   1085 
   584   1086 
   583   1087 
   583   1088 
   582   1089 
   582   1090 
   581   1091 
   581   1092 
   580   1093 
   580   1094 
   579   1095 
   579   1096 
   578   1097 
   578   1098 
   577   1099 
   577   1100 
   576   1101 
   576   1102 
   575   1103 
   575   1104 
   574   1105 
   574   1106 
   573   1107 
   573   1108 
   572   1109 
   572   1110 
   571   1111 
   571   1112 
   570   1113 
   570   1114 
   569   1115 
   569   1116 
   568   1117 
   568   1118 
   567   1119 
   567   1120 
   566   1121 
   566   1122 
   565   1123 
   565   1124 
   564   1125 
   564   1126 
   563   1127 
   563   1128 
   562   1129 
   562   1130 
   561   1131 
   561   1132 
   560   1133 
   560   1134 
   559   1135 
   559   1136 
   558   1137 
   558   1138 
   557   1139 
   557   1140 
   556   1141 
   556   1142 
   555   1143 
   555   1144 
   554   1145 
   554   1146 
   553   1147 
   553   1148 
   552   1149 
   552   1150 
   551   1151 
   551   1152 
   550   1153 
   550   1154 
   549   1155 
   549   1156 
   548   1157 
   548   1158 
   547   1159 
   547   1160 
   546   1161 
   546   1162 
   545   1163 
   545   1164 
   544   1165 
   544   1166 
   543   1167 
   543   1168 
   542   1169 
   542   1170 
   541   1171 
   541   1172 
   540   1173 
   540   1174 
   539   1175 
   539   1176 
   538   1177 
   538   1178 
   537   1179 
   537   1180 
   536   1181 
   536   1182 
   535   1183 
   535   1184 
   534   1185 
   534   1186 
   533   1187 
   533   1188 
   532   1189 
   532   1190 
   531   1191 
   531   1192 
   530   1193 
   530   1194 
   529   1195 
   529   1196 
   528   1197 
   528   1198 
   527   1199 
   527   1200 
   526   1201 
   526   1202 
   525   1203 
   525   1204 
   524   1205 
   524   1206 
   523   1207 
   523   1208 
   522   1209 
   522   1210 
   521   1211 
   521   1212 
   520   1213 
   520   1214 
   519   1215 
   519   1216 
   518   1217 
   518   1218 
   517   1219 
   517   1220 
   516   1221 
   516   1222 
   515   1223 
   515   1224 
   514   1225 
   514   1226 
   513   1227 
   513   1228 
   512   1229 
   512   1230 
   511   1231 
   511   1232 
   510   1233 
   510   1234 
   509   1235 
   509   1236 
   508   1237 
   508   1238 
   507   1239 
   507   1240 
   506   1241 
   506   1242 
   505   1243 
   505   1244 
   504   1245 
   504   1246 
   503   1247 
   503   1248 
   502   1249 
   502   1250 
   501   1251 
   501   1252 
   500   1253 
   500   1254 
   499   1255 
   499   1256 
   498   1257 
   498   1258 
   497   1259 
   497   1260 
   496   1261 
   496   1262 
   495   1263 
   495   1264 
   494   1265 
   494   1266 
   493   1267 
   493   1268 
   492   1269 
   492   1270 
   491   1271 
   491   1272 
   490   1273 
   490   1274 
   489   1275 
   489   1276 
   488   1277 
   488   1278 
   487   1279 
   487   1280 
   486   1281 
   486   1282 
   485   1283 
   485   1284 
   484   1285 
   484   1286 
   483   1287 
   483   1288 
   482   1289 
   482   1290 
   481   1291 
   481   1292 
   480   1293 
   480   1294 
   479   1295 
   479   1296 
   478   1297 
   478   1298 
   477   1299 
   477   1300 
   476   1301 
   476   1302 
   475   1303 
   475   1304 
   474   1305 
   474   1306 
   473   1307 
   473   1308 
   472   1309 
   472   1310 
   471   1311 
   471   1312 
   470   1313 
   470   1314 
   469   1315 
   469   1316 
   468   1317 
   468   1318 
   467   1319 
   467   1320 
   466   1321 
   466   1322 
   465   1323 
   465   1324 
   464   1325 
   464   1326 
   463   1327 
   463   1328 
   462   1329 
   462   1330 
   461   1331 
   461   1332 
   460   1333 
   460   1334 
   459   1335 
   459   1336 
   458   1337 
   458   1338 
   457   1339 
   457   1340 
   456   1341 
   456   1342 
   455   1343 
   455   1344 
   454   1345 
   454   1346 
   453   1347 
   453   1348 
   452   1349 
   452   1350 
   451   1351 
   451   1352 
   450   1353 
   450   1354 
   449   1355 
   449   1356 
   448   1357 
   448   1358 
   447   1359 
   447   1360 
   446   1361 
   446   1362 
   445   1363 
   445   1364 
   444   1365 
   444   1366 
   443   1367 
   443   1368 
   442   1369 
   442   1370 
   441   1371 
   441   1372 
   440   1373 
   440   1374 
   439   1375 
   439   1376 
   438   1377 
   438   1378 
   437   1379 
   437   1380 
   436   1381 
   436   1382 
   435   1383 
   435   1384 
   434   1385 
   434   1386 
   433   1387 
   433   1388 
   432   1389 
   432   1390 
   431   1391 
   431   1392 
   430   1393 
   430   1394 
   429   1395 
   429   1396 
   428   1397 
   428   1398 
   427   1399 
   427   1400 
   426   1401 
   426   1402 
   425   1403 
   425   1404 
   424   1405 
   424   1406 
   423   1407 
   423   1408 
   422   1409 
   422   1410 
   421   1411 
   421   1412 
   420   1413 
   420   1414 
   419   1415 
   419   1416 
   418   1417 
   418   1418 
   417   1419 
   417   1420 
   416   1421 
   416   1422 
   415   1423 
   415   1424 
   414   1425 
   414   1426 
   413   1427 
   413   1428 
   412   1429 
   412   1430 
   411   1431 
   411   1432 
   410   1433 
   410   1434 
   409   1435 
   409   1436 
   408   1437 
   408   1438 
   407   1439 
   407   1440 
   406   1441 
   406   1442 
   405   1443 
   405   1444 
   404   1445 
   404   1446 
   403   1447 
   403   1448 
   402   1449 
   402   1450 
   401   1451 
   401   1452 
   400   1453 
   400   1454 
   399   1455 
   399   1456 
   398   1457 
   398   1458 
   397   1459 
   397   1460 
   396   1461 
   396   1462 
   395   1463 
   395   1464 
   394   1465 
   394   1466 
   393   1467 
   393   1468 
   392   1469 
   392   1470 
   391   1471 
   391   1472 
   390   1473 
   390   1474 
   389   1475 
   389   1476 
   388   1477 
   388   1478 
   387   1479 
   387   1480 
   386   1481 
   386   1482 
   385   1483 
   385   1484 
   384   1485 
   384   1486 
   383   1487 
   383   1488 
   382   1489 
   382   1490 
   381   1491 
   381   1492 
   380   1493 
   380   1494 
   379   1495 
   379   1496 
   378   1497 
   378   1498 
   377   1499 
   377   1500 
   376   1501 
   376   1502 
   375   1503 
   375   1504 
   374   1505 
   374   1506 
   373   1507 
   373   1508 
   372   1509 
   372   1510 
   371   1511 
   371   1512 
   370   1513 
   370   1514 
   369   1515 
   369   1516 
   368   1517 
   368   1518 
   367   1519 
   367   1520 
   366   1521 
   366   1522 
   365   1523 
   365   1524 
   364   1525 
   364   1526 
   363   1527 
   363   1528 
   362   1529 
   362   1530 
   361   1531 
   361   1532 
   360   1533 
   360   1534 
   359   1535 
   359   1536 
   358   1537 
   358   1538 
   357   1539 
   357   1540 
   356   1541 
   356   1542 
   355   1543 
   355   1544 
   354   1545 
   354   1546 
   353   1547 
   353   1548 
   352   1549 
   352   1550 
   351   1551 
   351   1552 
   350   1553 
   350   1554 
   349   1555 
   349   1556 
   348   1557 
   348   1558 
   347   1559 
   347   1560 
   346   1561 
   346   1562 
   345   1563 
   345   1564 
   344   1565 
   344   1566 
   343   1567 
   343   1568 
   342   1569 
   342   1570 
   341   1571 
   341   1572 
   340   1573 
   340   1574 
   339   1575 
   339   1576 
   338   1577 
   338   1578 
   337   1579 
   337   1580 
   336   1581 
   336   1582 
   335   1583 
   335   1584 
   334   1585 
   334   1586 
   333   1587 
   333   1588 
   332   1589 
   332   1590 
   331   1591 
   331   1592 
   330   1593 
   330   1594 
   329   1595 
   329   1596 
   328   1597 
   328   1598 
   327   1599 
   327   1600 
   326   1601 
   326   1602 
   325   1603 
   325   1604 
   324   1605 
   324   1606 
   323   1607 
   323   1608 
   322   1609 
   322   1610 
   321   1611 
   321   1612 
   320   1613 
   320   1614 
   319   1615 
   319   1616 
   318   1617 
   318   1618 
   317   1619 
   317   1620 
   316   1621 
   316   1622 
   315   1623 
   315   1624 
   314   1625 
   314   1626 
   313   1627 
   313   1628 
   312   1629 
   312   1630 
   311   1631 
   311   1632 
   310   1633 
   310   1634 
   309   1635 
   309   1636 
   308   1637 
   308   1638 
   307   1639 
   307   1640 
   306   1641 
   306   1642 
   305   1643 
   305   1644 
   304   1645 
   304   1646 
   303   1647 
   303   1648 
   302   1649 
   302   1650 
   301   1651 
   301   1652 
   300   1653 
   300   1654 
   299   1655 
   299   1656 
   298   1657 
   298   1658 
   297   1659 
   297   1660 
   296   1661 
   296   1662 
   295   1663 
   295   1664 
   294   1665 
   294   1666 
   293   1667 
   293   1668 
   292   1669 
   292   1670 
   291   1671 
   291   1672 
   290   1673 
   290   1674 
   289   1675 
   289   1676 
   288   1677 
   288   1678 
   287   1679 
   287   1680 
   286   1681 
   286   1682 
   285   1683 
   285   1684 
   284   1685 
   284   1686 
   283   1687 
   283   1688 
   282   1689 
   282   1690 
   281   1691 
   281   1692 
   280   1693 
   280   1694 
   279   1695 
   279   1696 
   278   1697 
   278   1698 
   277   1699 
   277   1700 
   276   1701 
   276   1702 
   275   1703 
   275   1704 
   274   1705 
   274   1706 
   273   1707 
   273   1708 
   272   1709 
   272   1710 
   271   1711 
   271   1712 
   270   1713 
   270   1714 
   269   1715 
   269   1716 
   268   1717 
   268   1718 
   267   1719 
   267   1720 
   266   1721 
   266   1722 
   265   1723 
   265   1724 
   264   1725 
   264   1726 
   263   1727 
   263   1728 
   262   1729 
   262   1730 
   261   1731 
   261   1732 
   260   1733 
   260   1734 
   259   1735 
   259   1736 
   258   1737 
   258   1738 
   257   1739 
   257   1740 
   256   1741 
   256   1742 
   255   1743 
   255   1744 
   254   1745 
   254   1746 
   253   1747 
   253   1748 
   252   1749 
   252   1750 
   251   1751 
   251   1752 
   250   1753 
   250   1754 
   249   1755 
   249   1756 
   248   1757 
   248   1758 
   247   1759 
   247   1760 
   246   1761 
   246   1762 
   245   1763 
   245   1764 
   244   1765 
   244   1766 
   243   1767 
   243   1768 
   242   1769 
   242   1770 
   241   1771 
   241   1772 
   240   1773 
   240   1774 
   239   1775 
   239   1776 
   238   1777 
   238   1778 
   237   1779 
   237   1780 
   236   1781 
   236   1782 
   235   1783 
   235   1784 
   234   1785 
   234   1786 
   233   1787 
   233   1788 
   232   1789 
   232   1790 
   231   1791 
   231   1792 
   230   1793 
   230   1794 
   229   1795 
   229   1796 
   228   1797 
   228   1798 
   227   1799 
   227   1800 
   226   1801 
   226   1802 
   225   1803 
   225   1804 
   224   1805 
   224   1806 
   223   1807 
   223   1808 
   222   1809 
   222   1810 
   221   1811 
   221   1812 
   220   1813 
   220   1814 
   219   1815 
   219   1816 
   218   1817 
   218   1818 
   217   1819 
   217   1820 
   216   1821 
   216   1822 
   215   1823 
   215   1824 
   214   1825 
   214   1826 
   213   1827 
   213   1828 
   212   1829 
   212   1830 
   211   1831 
   211   1832 
   210   1833 
   210   1834 
   209   1835 
   209   1836 
   208   1837 
   208   1838 
   207   1839 
   207   1840 
   206   1841 
   206   1842 
   205   1843 
   205   1844 
   204   1845 
   204   1846 
   203   1847 
   203   1848 
   202   1849 
   202   1850 
   201   1851 
   201   1852 
   200   1853 
   200   1854 
   199   1855 
   199   1856 
   198   1857 
   198   1858 
   197   1859 
   197   1860 
   196   1861 
   196   1862 
   195   1863 
   195   1864 
   194   1865 
   194   1866 
   193   1867 
   193   1868 
   192   1869 
   192   1870 
   191   1871 
   191   1872 
   190   1873 
   190   1874 
   189   1875 
   189   1876 
   188   1877 
   188   1878 
   187   1879 
   187   1880 
   186   1881 
   186   1882 
   185   1883 
   185   1884 
   184   1885 
   184   1886 
   183   1887 
   183   1888 
   182   1889 
   182   1890 
   181   1891 
   181   1892 
   180   1893 
   180   1894 
   179   1895 
   179   1896 
   178   1897 
   178   1898 
   177   1899 
   177   1900 
   176   1901 
   176   1902 
   175   1903 
   175   1904 
   174   1905 
   174   1906 
   173   1907 
   173   1908 
   172   1909 
   172   1910 
   171   1911 
   171   1912 
   170   1913 
   170   1914 
   169   1915 
   169   1916 
   168   1917 
   168   1918 
   167   1919 
   167   1920 
   166   1921 
   166   1922 
   165   1923 
   165   1924 
   164   1925 
   164   1926 
   163   1927 
   163   1928 
   162   1929 
   162   1930 
   161   1931 
   161   1932 
   160   1933 
   160   1934 
   159   1935 
   159   1936 
   158   1937 
   158   1938 
   157   1939 
   157   1940 
   156   1941 
   156   1942 
   155   1943 
   155   1944 
   154   1945 
   154   1946 
   153   1947 
   153   1948 
   152   1949 
   152   1950 
   151   1951 
   151   1952 
   150   1953 
   150   1954 
   149   1955 
   149   1956 
   148   1957 
   148   1958 
   147   1959 
   147   1960 
   146   1961 
   146   1962 
   145   1963 
   145   1964 
   144   1965 
   144   1966 
   143   1967 
   143   1968 
   142   1969 
   142   1970 
   141   1971 
   141   1972 
   140   1973 
   140   1974 
   139   1975 
   139   1976 
   138   1977 
   138   1978 
   137   1979 
   137   1980 
   136   1981 
   136   1982 
   135   1983 
   135   1984 
   134   1985 
   134   1986 
   133   1987 
   133   1988 
   132   1989 
   132   1990 
   131   1991 
   131   1992 
   130   1993 
   130   1994 
   129   1995 
   129   1996 
   128   1997 
   128   1998 
   127   1999 
   127   2000 
   126   2001 
   126   2002 
   125   2003 
   125   2004 
   124   2005 
   124   2006 
   123   2007 
   123   2008 
   122   2009 
   122   2010 
   121   2011 
   121   2012 
   120   2013 
   120   2014 
   119   2015 
   119   2016 
   118   2017 
   118   2018 
   117   2019 
   117   2020 
   116   2021 
   116   2022 
   115   2023 
   115   2024 
   114   2025 
   114   2026 
   113   2027 
   113   2028 
   112   2029 
   112   2030 
   111   2031 
   111   2032 
   110   2033 
   110   2034 
   109   2035 
   109   2036 
   108   2037 
   108   2038 
   107   2039 
   107   2040 
   106   2041 
   106   2042 
   105   2043 
   105   2044 
   104   2045 
   104   2046 
   103   2047 
   103   2048 
   102   2049 
   102   2050 
   101   2051 
   101   2052 
   100   2053 
   100   2054 
   100   2055 
   100   2056 
   100   2057 
   100   2058 
   100   2059 
   100   2060 
   100   2061 
   101   2062 
   101   2063 
   101   2064 
   101   2065 
   101   2066 
   101   2067 
   101   2068 
   101   2069 
   102   2070 
   102   2071 
   102   2072 
   102   2073 
   102   2074 
   102   2075 
   102   2076 
   102   2077 
   103   2078 
   103   2079 
   103   2080 
   103   2081 
   103   2082 
   103   2083 
   103   2084 
   103   2085 
   104   2086 
   104   2087 
   104   2088 
   104   2089 
   104   2090 
   104   2091 
   104   2092 
   105   2093 
   105   2094 
   105   2095 
   105   2096 
   105   2097 
   105   2098 
   105   2099 
   105   2100 
   106   2101 
   106   2102 
   106   2103 
   106   2104 
   106   2105 
   106   2106 
   106   2107 
   106   2108 
   107   2109 
   107   2110 
   107   2111 
   107   2112 
   107   2113 
   107   2114 
   107   2115 
   107   2116 
   108   2117 
   108   2118 
   108   2119 
   108   2120 
   108   2121 
   108   2122 
   108   2123 
   109   2124 
   109   2125 
   109   2126 
   109   2127 
   109   2128 
   109   2129 
   109   2130 
   109   2131 
   110   2132 
   110   2133 
   110   2134 
   110   2135 
   110   2136 
   110   2137 
   110   2138 
   110   2139 
   111   2140 
   111   2141 
   111   2142 
   111   2143 
   111   2144 
   111   2145 
   111   2146 
   111   2147 
   112   2148 
   112   2149 
   112   2150 
   112   2151 
   112   2152 
   112   2153 
   112   2154 
   113   2155 
   113   2156 
   113   2157 
   113   2158 
   113   2159 
   113   2160 
   113   2161 
   113   2162 
   114   2163 
   114   2164 
   114   2165 
   114   2166 
   114   2167 
   114   2168 
   114   2169 
   114   2170 
   115   2171 
   115   2172 
   115   2173 
   115   2174 
   115   2175 
   115   2176 
   115   2177 
   115   2178 
   116   2179 
   116   2180 
   116   2181 
   116   2182 
   116   2183 
   116   2184 
   116   2185 
   117   2186 
   117   2187 
   117   2188 
   117   2189 
   117   2190 
</pre>
�������������������������������������������������������������������������������������������acorr.html������������������������������������������������������������������������������������������0000755�0000765�0000120�00000004753�06356042731�013635� 0����������������������������������������������������������������������������������������������������ustar  �henkart�������������������������admin���������������������������0000000�0000000������������������������������������������������������������������������������������������������������������������������������������������������������������������������<title>PROCESS ACORR (AUTOCORRELATION)
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


Document Date: 6 July 1981 

	Process ACORR computes the one-sided autocorrelation function of
a trace.  Only positive lags of the autocorrelation are computed and
output.  If more than one autocorrelation window is specified on each
trace, each output trace is the concatenation of all the autocor-
relations for that  trace.  Thus, the output length is the sum of the
lengths of the individual windows.

More than one autocorrelation window may be given for each trace. The
windows may be spatially varied by shot or rp or by hanging the windows
on the water bottom.  

All parameters that remain constant for a set of shots (rps) may be 
described in a parameter set FNO to LNO.  Windows between two parameter 
sets are calculated by linearly interpolating between LNO of one set 
and FNO of the next set.

Each parameter list must be terminated with the word END.  The entire 
set of ACORR parameters must be terminated by the word END.

THE PARAMETER DICTIONARY
--- --------- ----------
  
SETS  - Start-end time pairs defining the autocorrelation windows.
        Times are in seconds and may be negative when hanging the
        windows from the water bottom.  A maximum of 5 windows 
        may be given.
        Required.    e.g. sets 0 1 

OLENS - The output autocorrelation lengths in seconds.  This 
        corresponds to  the normal use of the number of lags to 
        compute, but is in units of seconds.  Each autocorrelation
        has it's own length.  A maximum of 5 lengths may be given.
        required.    e.g. olens .5

ADDWB - When given a value of yes, the windows given via sets will
        be added to the water bottom time of the trace.  
        (Water bottom times may be entered via process wbt).
        preset=no     e.g. addwb yes

FNO   - The first shot (or rp) to autocorrelate.  Shot (rp) numbers must
        increase monotonically.
        preset=1

LNO   - The last shot (rp) number to autocorrelate.  LNO must be larger
        than FNO in each list and must increase from list to list.
        default=fno

END   - Terminates each parameter list.

Written and copyrighted (c) by:
Paul Henkart, Scripps Institution of Oceanography, July 1981


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

agc.html0000755000076500001200000000502310046000631013230 0ustar  henkartadmin00000000000000
SIOSEIS process AGC

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                   PROCESS AGC (AUTOMATIC GAIN CONTROL)

Parameters, alphabetically:
center   fno      lno      pctagc   winlen

Document Date: 4 May 2004

PROCESS AGC applies automatic gain control to every trace. AGC is a type
of amplitude normalization (modification) that results in the amplitudes
being more uniform, especially when the window length decreases. AGC
starts by finding the first non-zero sample and then calculates the 
average absolute value of the window.  Successive windows are calculated
by shifting the window down one sample.  Each average absolute value is
then turned into a multiplier by dividing the average by an output level.

All parameters that remain constant for a set of shots (rps) may be 
described in a parameter set FNO to LNO.  Windows between two parameter 
sets are calculated by linearly interpolating between LNO of one set and
FNO of the next set.  Each parameter list must be terminated with the 
word END.  The entire set of AGC parameters must be terminated by the 
word END.

A null set of AGC parameters must be given even if all the parameters
are the presets.  e.g.  agc end end

AGC honors the mute time in the SEG-Y header by starting the first
AGC window at the mute time rather than the first sample.

THE PARAMETER DICTIONARY
--- --------- ----------
  
FNO    - The first shot (or rp) to apply the agc to.  Shot (rp) 
         numbers must increase monotonically.
         preset=1

LNO    - The last shot (rp) number to apply the agc to.  LNO must
         be larger than FNO in each list and must increase list 
         to list.
         default=fno

WINLEN - The agc window length in seconds.
         preset=.100

PCTAGC - Percent AGC.  The percentage of the computed multiplier 
         to use in each AGC window. e.g. PCTAGC < 100."softens" 
         the effect the AGC.
         Preset = 100.        e.g.    pctagc 50

CENTER - The center point, in seconds, of the AGC window that 
         receives the multiplier of the window.
         Preset = winlen / 2

END    - Terminates each parameter list.

Written by:  Paul Henkart, Scripps Institution of Oceanography, January 1981
Copyright (C) The Regents of The University of California
All Rights Reserved.


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
amoco.html0000644000076500001200000000175410261275146013616 0ustar  henkartadmin00000000000000
Amoco's 2 mil watergun source signature
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.



circa 1982 watergun signature from Amoco




counts = 
0 0 0 0 0 0 0 0 0 0
0 .014 -.003 .03 -.099 -.118 .006 -.03 -.192 -.044
.111 -.019 .177 .518 .116 -.452 -.533 .155 3.067 8.001
10.127 5.011 -6.988 -22.149 -33.845 -34.006 -20 1.9 25.7 43.9
48.8 42.9 39.05 38.08 22.149 -18.348 -68.4 -100 -92.9 -49.4
4.167 37.061 43.041 35.804 25.906 16.886 12.368 11.564 8.231 1.974
-3.1 -6.9 -10.887 -12.29 -9.327 -4.89 -.882 2.684 4.6 4.3
3.0 1.2 -1.029 -2.42 -2.38 -2. -1.6 -.45 .603 .745
.514 .149 -.4 -.5 -.15 .227 .378 .521 .548 .519
.677 .684 .142 -.583 -.9 -.89 -.5 .006 .362 .362 


PLOT

arch.html0000755000076500001200000000532206242141650013427 0ustar  henkartadmin00000000000000 IGPP Data Archive


IGPP Data Archive

132.239.152.145   arch arch.ucsd.edu

Silicon Graphics Challenge DM	running	IRIX 5.2 operating
system.  64MB	memory,	1 100Mhz R4400 cpu, 2GB	system disk.
4 x 1.7GB Barracuda disk drives.

arch:/archive	- 2 TB Metrum online storage (2 Metrum RSS-48
   robots with 4 Metrum 2150 tape drives, with 97 VHS tapes,
   20.2GB per tape)

arch:/data/vol2 - A 1.8GB scratch data disk usable by all users
   by creating a subdirectory.  (df reports in 512 byte blocks)

arch:/data/vol3 - A 1.8GB scratch data disk usable by all users
   by creating a subdirectory.  (df reports in 512 byte blocks)

arch:/data/vol4 - A 1.8GB scratch data disk usable by all users
   by creating a subdirectory.  (df reports in 512 byte blocks)

arch:/archive/temporary - A "short" term scratch area on the
   Metrum archive.  This	is for storing large temporary files
   that are not needed daily, but are not really	archival.
   This area has not been flushed in the three years of
   operation and advance warnings will be issued	if it does get
   flushed.

   arch:/CDROM			 # CD-ROM
   arch:/dev/mt/tps0d1nrnsv.8200	 # Exabyte 8500 in 8200	mode
   arch:/dev/mt/tps0d1nrnsv.8500	 # Exabyte 8500
   arch:/dev/mt/tps0d3nrnsv.8500c # compress Exabyte 8500
   arch:/dev/mt/tps0d4nrnsv	 # HP 35480 DAT, compressed.
   arch:/dev/mt/tps0d5nrnsv	 # 9 track (not	functioning)
   arch:/dev/mt/tps0d6nrns	 # Metrum 2150 (20.7 GB)
 	tps means tape
 	0 means	controller 0
 	d3 means drive 3
 	nr means no-rewind
 	ns means no byte swap
 	v means	variable blocking  (not	available on Metrum)
   (man tps for more detailed information)

   tar tapes from Sun machines should use:
   dd if=/dev/mt/tps0d1nrnsv.8200 bs=20b | tar -xvBf -

arch	Operating Philosophies:   This system is designed to be
   an I/O server.  Users	have read permission on	all files.

   Write	permission is denied; if you want to store data	on
   /archive, please discuss it with phenkart@ucsd.edu

   Neither the user disk	nor the	data disks are backed up, so
   you are on your own.

   This archive excells with LARGE (several megabytes) and does
   very poorly when accessing large numbers of small files.
   Since	this is	a tape based system, file search times are
   high compared	to the actual transfer rates.  Search times
   can be minimized by accessing	files in the same order	they
   are on tape.	Please contact the system administrator
   (phenkart@ucsd.edu) for information about small archive
   files.


   Initial Login Environment: New users are given	the following
   environment files:
    .login      minimal
    .cshrc      minimal
    .plan       your postal address and voice telephone number
    .forward    forwards	mail to	your home computer
 /pre>
atlantek.html0000644000076500001200000000142410757112471014316 0ustar  henkartadmin00000000000000
 Program  atlantek
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



Document Date:  15 December 1999

     Program ATLANTEK 
usage:   atlantek plot-filename


     Program ATLANTEK reads an SIOSEIS plot file generated with parameter
nibs 7224 and writes it to the Atlantek plotter attached to device /dev/ihcp0
on the R/V Ewing computer "grampus".
     The program continuously checks for the plotfile being appended and 
terminates only with the unix kill command or a control-c.




Written by:  Paul Henkart, Scripps Institution of Oceanography, December 1999
Copyright (C) The Regents of The University of California
All Rights Reserved.



avenor.html0000755000076500001200000000765410466476234014032 0ustar  henkartadmin00000000000000PROCESS AVENOR  (AVERAGE AMPLITUDE NORMALIZE)
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                        PROCESS AVENOR
                        ------- ------

Parameters, alphabetically:
addwb     fno       hold      levs      lno       lprint
sets      vel

Document Date: 12 October 2002

     Process AVENOR normalizes every trace window to a user described
window level by calculating and appling a multiplier so that the average
amplitude within the window is at a certain level.  The resulting traces
will be more uniform in amplitude.

      AVENOR finds a window multiplier by dividing the user's window 
level by the average absolute value of the window.  The multiplier is 
held constant for all data before the center of the first window, is 
linearly interpolated between window centers and held constant for all
data after the center of the last window.  Thus, defining only one
window results in a constant multiplier for each trace.

     Up to 4 windows may be given, each with a different window level,
and may be  spatially varied by shot or rp or by hanging the windows on
the water bottom.

     All parameters that remain constant for a set of shots (rps) may be
described in a parameter set FNO to LNO.  Windows between two parameter
sets are calculated by linearly interpolating between lno of one set and
FNO of the next set.

     Each parameter list must be terminated with the word END.  The
entire set of normalize parameters must be terminated by the word END.

     A null set of AVENOR parameters must be given if all parameters to
be used are the presets.  e.g. avenor
                                      end
                                end

THE PARAMETER DICTIONARY
--- --------- ----------

SETS   - Start-end time pairs defining the windows.  Times are in
         seconds and may be negative when hanging the windows from the
         water bottom.  A maximum of 4 windows may be given.  The
         windows may not overlap.
         Preset= delay to last time.   sets 0 3 3 6

LEVS   - The amplitude level of each window described by the sets.  Each
         window may have a different level.  A negative level reverses
         the polarity.   Up to 4 levels may be given.
         Preset= 10000. 10000. 10000. 10000.

FNO    - The first shot (or rp) to apply normalization to.  Shot (rp)
         numbers must increase monotonically.
         Preset=1

LNO    - The last shot (rp) number to apply normalization to.  LNO must
         be larger than FNO in each list and must increase from list to
         list.
         Default=fno

VEL    - The velocity to use to 'move-in' each window time.  Move-in is
         useful for describing window times that need to vary according
         to the shot-receiver distance, as in following a reflector on
         a record before nmo.  Each window time is determined from the
         equation:
         t=sqrt(t0*t0+x*x/(vel*vel)), where t0 is the two way travel
         time, and x is the shot to receiver distance of the trace
         described via PROCESS GEOM.
         Preset=0.

ADDWB  - When given a value of YES, the water bottom time will be
         added to all window times.  (Water bottom times may be
         entered via PROCESS WBT).
         Preset=no

HOLD   - New multipliers are calculated on the first HOLD traces.
         The multiplier from the last of these traces in then
         used on all successive traces.
         Preset = 0

LPRINT - The normal debug parameter for values of 1 and 2.
       =4, The average absolute value for each window is printed.

END    - Terminates each parameter list.


Written and copyrighted by:
Paul Henkart, Scripps Institution of Oceanography, May 1980
ALL RIGHTS RESERVED


Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
avon.html0000644000076500001200000001146507701070520013455 0ustar  henkartadmin00000000000000

AVON seismics

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.




Rebecca was told to process some 1999 seismic data.  She nor
I where part of the data acquisition and there are no recorder's
logs.  She had several Exabyte tapes.  Here's how "we" proceeded:

1)  Ron Moe created a CD from one tape.  He used dd, so the tape
was in SEG-Y.  Ron had to use a CD because Rebecca's computer
doesn't have sftp.


To download the SEG-Y file (17.7MB):
    Mac users: OPTION-click on the filename below (right button if
               multibutton mouse).
    PC users: SHIFT-left-click on the filename below.


          yr99jd85-0616z.segy



2)  What's in the file?
>lsd seisdata.1 1 5
SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
 1     1       0     0  1      0  4000   6000  1000   99  85  6  16  48
 1     2       0     0  1      0  4000   6000  1000   99  85  6  16  48
 1     3       0     0  1      0  4000   6000  1000   99  85  6  16  48
 2     1       0     0  1      0  4000   6000  1000   99  85  6  16  59
 2     2       0     0  1      0  4000   6000  1000   99  85  6  16  59

Rename the file so it's more meaningful:
>mv seisdata.1 yr99jd85-0616z.segy

3)  The plot (script) has a space between every shot (3 traces)
and uses a generic .5 sec agc window.

4)  Adjust the parameters:
  a)  Use stime 6 and nsecs 2 to plot only the data of interest.
  b)  Use ann shotno taginc 3 to annotate the shot number on every
      third trace.

5)  Adding N traces together will reduce the random noise by SQRT(N).
While this reduces the horizontal resolution, I suspect the trace
spacing is small compared to the shot spacing.  A mix might not be 
good on data with steeply dipping events.
    Fake sioseis into thinking the data are cmp gathers rather
than shot gathers by using parameter ntrgat 3 in process diskin.
Sum the traces within the gather by using process stack.  Change
the plot parameters for displaying continuous subsurface (remove
fspace, spacei, nspace and change taginc).
    New script.

6)  I suspect these data were collected using GI guns as a source,
so try a filter passband of 20 250.  Adjust the plot horizontal
scale (parameter trpin) and reduce the trace amplitude (def).  Get
rid of plotting the trace wiggle (wiggle 0).  Overdrive and clip
the amplitudes (make def too big while limiting the deflection
by clipping it).
    Increase the agc window.
    New script.

7)  Too much clipping.  Decrease def and get rid of clip.  Also
note the trace blanking just prior to the water bottom, which
is caused by agc trying to make the noise in the water column
the same size as the water bottom.  Use agc parameter
center .1 to minimize that.  
    Adding a 3 trace mix will further reduce random noise by
SQRT(3).  Mix is a running average of adjacent traces.  It good
when there's not much dip but will "smear" whe dip is present.
    Script for new plot.

8)  On a different seismic line (over a seamount), the discussion
went:
    This mornings parameter changes for seisdata.2 are in plot.
Use stime 0 and nsecs 8.
    explanation:  sioseis plots a 3(?) trace gap whenever the
deep water delay changes (the time of the first sample in
the trace - why record the water column?).  By using stime 0,
sioseis forces every trace to the actual time by adding
zeroes.   

9)  Time to step back from the processing and think about the
geophysics and geology.   The extremely steep walls of the
seamount will not have sediment nor will there be any reflections
because the seismic energy wavepath is past the critical angle.
    The litle hyberbola (or frowns as we call them) are caused
by point sources - diffractors - faults and other discontinuities.
    Also, remember that seismics are omni-directional; what 
comes in first is not necessarily what's directly under the
ship.  It might be off to the side or in front or behind.
I filtered with pass 40 150 and noticed diffractors in the middle
of the seamount! 
    Hyberbolas can be collapsed with migration, but we'll need to
know the shot spacing.  The higher frequency of the diffractors
indicates that these are from the surface, so an fk migration
with water velocity might work great.
    The next step is to pick the water bottom with program sioplt 
so we can mute (zero) the water column and make prettier pictures 
for publication.


avon1.html0000755000076500001200000000133007700671643013543 0ustar  henkartadmin00000000000000
Project Avon 3 trace recording

Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


Return to the Avon example.
        
Return to SIOSEIS examples.

SIOSEIS script to plot shots 1-10


sioseis << eof
procs diskin agc plot end
diskin
   fno 1 lno 10 allno no
   ipath yr99jd85-0616z.segy end
end
agc
   winlen .5 end
end
plot
   def .02 vscale 1.25 nsecs 6
   nibs 2859 srpath sunfil.ras fspace 3 nspace 2 spacei 3
   end
end
end
eof
xloadimage -r 90 sunfil.ras &


avon2.html0000755000076500001200000000146007700671525013547 0ustar  henkartadmin00000000000000
Project Avon 3 trace recording

Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


Return to the Avon example.
        
Return to SIOSEIS examples.

SIOSEIS script to "vertically stack" and plot shots 1-100


sioseis << eof
procs diskin stack agc plot end
diskin
   fno 1 lno 100 ntrgat 3 allno no
   ipath yr99jd85-0616z.segy end
end
agc
   winlen .5 end
end
plot
   def .02 vscale 1.25 nsecs 3 stime 7 ann shotno taginc 10
   nibs 2859 srpath sunfil.ras 
   end
end
end
eof
open -a /Applications/GraphicConverter\ US/GraphicConverter.app sunfil.ras


avon3.html0000755000076500001200000000160607700671563013554 0ustar  henkartadmin00000000000000
Project Avon 3 trace recording

Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


Return to the Avon example.
        
Return to SIOSEIS examples.

SIOSEIS script to stack, filter, agc and plot shots 1-100


sioseis << eof
procs diskin stack filter agc plot end
diskin
   fno 1 lno 100 ntrgat 3 allno no
   ipath yr99jd85-0616z.segy end
end
agc
   winlen 1 end
end
filter
   pass 20 250 ftype 0 dbdrop 48 end
end
plot
   def .01 clip .005 trpin 100 wiggle 0
   vscale 1.25 nsecs 3 stime 7 ann shotno taginc 10
   nibs 2859 srpath sunfil.ras 
   end
end
end
eof
open -a /Applications/GraphicConverter\ US/GraphicConverter.app sunfil.ras


avon4.html0000755000076500001200000000165407700671615013556 0ustar  henkartadmin00000000000000
Project Avon 3 trace recording

Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


Return to the Avon example.
        
Return to SIOSEIS examples.

SIOSEIS script to stack, mix, filter, agc and plot shots 1-100


sioseis << eof
procs diskin stack mix filter agc plot end
diskin
   fno 1 lno 500 ntrgat 3 allno no
   ipath yr99jd85-0616z.segy end
end
mix
   weight 1 1 1 end
end
agc
   center .1 winlen 1 end
end
filter
   pass 20 250 ftype 0 dbdrop 48 end
end
plot
   def .003  trpin 200 wiggle 0
   vscale 1.25 nsecs 3 stime 7 ann gmtint anninc 5
   nibs 2859 srpath sunfil.ras 
   end
end
end
eof
open -a /Applications/GraphicConverter\ US/GraphicConverter.app sunfil.ras


bgs.html0000655000076500001200000000250006345651737013277 0ustar  henkartadmin00000000000000Watergun Example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

This example was shot by Sherm Bloomer (OSU), Chief Scientist, Dawn
Wright (OSU), and  Dave Tappin (BGS) during BOOMERANG Expedition 
Leg 8 aboard the R/V Melville in May/Jun 1996.  Seth Mogk (SIO) was
the Geophysical Engineer.

A single SSI 80 cubic inch watergun was used for the source.  Only one
channel of a two channel "high speed" streamer is used in the plots 
below.  The data were recorded with the HIG Sun A/D at 1kHz (1 mil).
No recording filters were used.  The shot interval was 10 seconds 
while the ship progressed at 6 knots.





The plot was produced by the following SIOSEIS script:
sioseis << eof 
procs diskin debias prout despike filter gains plot end 
diskin
  set 6 7.5 fday 150 lday 150 fgmt 0845 lgmt 0945 ftr 1 ltr 1
  ipath /archive/mcs/SGG/1996/boomerang08/line10 end
end
despike
   fac 5 end
end
gains
   type 1 alpha 2 end
end
filter
   fno 1 lno 99999 pass 30 250 ftype 0 dbdrop 48 end 
end
prout
   fno 0 lno 99999 noinc 20 ftr 0 ltr 99999 end
end
plot
   srpath sunfil wiggle 0
   trpin 50 def .025 clip .025 ann gmtinc anninc 5 
    nibs 2848 vscale 5 stime 6 nsecs 1.5 end
end
end

end
eof
bugs.html0000755000076500001200000000273107403462233013456 0ustar  henkartadmin00000000000000Known SIOSEIS bugs

Known SIOSEIS bugs:

0)  SORT doesn't work on 16 bit integer files with odd number of samples
1)  Long prediction distance decon.
2)  Process output parameter posaft doesn't work on SGI (an SGI bug, not mine!)
3)  The rewind parameter in input/output is inconsistant.  Need rewind
    parameters for before first read, tape change, and after last read.
4)  Tape change with tapes of multiple files is confusing, especially
    is the last file on tape doesn't have a terminating file mark
    and/or two file marks.
5)  Input nfiles seems to be 1 too big.
6)  Input nfiles when eot is detected.
    Input nfiles is not reset on new tape when new list is given.
7)  Inconsistent parameters:
    intrcs in process input but ntrcs in process diskin
    secs vs nsecs
8)  Diskin doesn't renumber stacked/gathered files when renum used.
    Must use ntrgat 1 to make it work.
9)  Diskox doesn't honor end of gather when using fon on stacked files.
    Must use ntrgat 1 to make it work.
9)  Diskin forgat should be yes/no
11) The binary header of the second file is not modified by the BHDR
    parameter when using process header and multiple input file
12) SIO2SUN writes a colormap that xloadimage and xv seem to compress
    incorrectly sometimes.
13) Reported problem using diskin noinc 3 fno/lno on stacked file.
14) Potential psmigr buffer overflows.
15) Diskin fno doesn't work when also sorting (spath).
16) SEG2IN has a byte swap problem on PC.


c.html0000655000076500001200000000555506441103746012750 0ustar  henkartadmin00000000000000SIOSEIS examples
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    This is the story of how I processed some data
from Antarctica.  It shows most of the techniques
and reasoning for determining the processing steps
and parameters.

Step 1:  Read a line from tape to disk.  The data were
recorded in SEG-D and were converted to SEG-Y with SIOSEIS
on the R/V Palmer.




  • script #1  - Read a tape to disk

    

Step 2:  Look at the first shot:
1) Determine if the channel numbers are really backwards.
2) See what traces are bad.

    


  • script #2  - Create a plot of the first shot


  • plot #2 - plot of shot 1.

    

Step 3: Determine a working filter
1) First try was just pass 20 80, but it passed the
"low" frequency ringing trace.  The default is a "gentle"
short time domain filter.
2) Second try was ftype 0 pass 20 80 dbdrop 48, but 
we noticed that the dipping event between 8 and 9
seconds was missing.  ftype 0 means that the filtering
is done in the frequency domain.
3) The third filter was ftype 0 pass 10 80 dbdrop 48.

    


  • script #3  - The script to filter and plot the first shot.


  • plot #3  - The plot of the first shot, filtered.

    

Step 4:  Look at a single channel plot of the entire line

    


  • script #4


  • Plot #4  - Plot of trace 1 of every shot

    
Step 5:  Check the geometry

    


  • script #5


  • plot #5  - Plot of shot 1 with nmo

    

Step 6:  Gather the data by rp.
This example throws out the bad data before gather
so that less disk space is needed.  It may be advantagous
to include the bad traces in the gathers, then kill
them using XWP (range-weight-pairs) of process weight.

    


  • gather script


    Step 7:  Check the mute.

    


  • script #7


  • plot #7  - Plot of shot 1 with nmo and mute.

    • 


    Step 8:  Constant velocity stack

    


  • script #8 - Constant velocity stack


  • spectra - Uncontoured semblance spectra


    Step 9:  Stack the line

    


  • script #9


  • plot #9  - The stack with agc.

    • 


    Step 10:  FK migration

    


  • script #10


  • plot #10  - FK migration

    • 


    Step 11:  gain and display

    


  • script #11


  • plot #11  - root gain and display

    • 
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
c1.html0000755000076500001200000000070606402613005013012 0ustar  henkartadmin00000000000000SIOSEIS example - tape to disk
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    # read the SEG-Y tape and put in disk file test.line.1
sioseis << eof
procs input diskoa prout end
input
    fis 1 lis 214
    iunit 1 set 5 9 decimf 2 end
end
prout
   fno 0 lno 999999 ftr 1 ltr 1 end
end
diskoa
    opath test.line.1 end
end
end
eof

    
c10.html0000755000076500001200000000125406403566333013105 0ustar  henkartadmin00000000000000SIOSEIS MCS example - FK migration
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    # FK migration
sioseis << eof
procs diskin tx2fk fkmigr fk2tx diskoa filter agc plot end
diskin
   fno 994 lno 1973   # < 1024
   ipath stack.line.1 end
end
diskoa
   opath fkmigr.line.1 end
end
tx2fk
   nxpad 20  end
end
fkmigr
   vel 1500 deltax 12.5 end
end
fk2tx
      end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
agc
   winlen .5 end
end
plot
  wiggle 0
   srpath sunfil
   nsecs 4  ann gmtint anninc 5
   nibs 2847 trpin 300 vscale 2.5 def .003 end
end
end
eof

    
c11.html0000755000076500001200000000130406403630245013074 0ustar  henkartadmin00000000000000title>SIOSEIS MCS example - gains = SQRT
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    #   display using SQRT(a(i))  rather than AGC.
sioseis << eof
procs diskin filter wbt mute gains plot end
diskin
   ipath fkmigr.line.1 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
wbt
   solrat 1.5 sel 6 7 ses 0 .1 end end
 mute
   ttp 1 0.02 addwb yes end end
gains
       type 4 alpha .5  end
end
plot
  wiggle 0
   srpath sunfil opath siofil
   nsecs 4  ann gmtint anninc 5
   nibs 2847 trpin 300 vscale 2.5 def .002 end
#   nibs 75 trpin 20 vscale 3.333 def .04 clip .04 end
end
end
eof

    
c2.html0000755000076500001200000000074606402613131013017 0ustar  henkartadmin00000000000000SIOSEIS MCS example - plot shot 1
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    # plot the first shot to the screen
sioseis << eof
procs diskin plot end
diskin
   set 5 9 fno 1 lno 1 ipath test.line.1 end end
plot
   srpath sunfil nsecs 4  ann shottr ftag 1 taginc 10
   nibs 75 trpin 10 vscale 3.333 def .08 clip .08 end
end
end
eof
xloadimage -r 90 sunfil &

    
c3.html0000755000076500001200000000116506402613313013016 0ustar  henkartadmin00000000000000SIOSEIS MCS example - weight, filter, display shot 1
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin weight filter plot end
diskin
   set 5 9 fno 1 lno 1 ipath test.line.1 end
end
gather
   end
end
weight
  fno 0 lno 99999 twp 4 0 21 0 22 0 23 0 24 0 30 0 31 0 34 0 48 0 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
plot
   srpath sunfil nsecs 4  ann shottr ftag 1 taginc 10
   nibs 75 trpin 10 vscale 3.333 def .08 clip .08 end
end
end
eof
xloadimage -r 90 sunfil &

    
c4.html0000755000076500001200000000100606441351373013021 0ustar  henkartadmin00000000000000SIOSEIS MCS example - Short trace section 
Go to the list of seismic processes.  
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter plot end
diskin
   set 5 9 ftr 1 ltr 1 ipath rps.line.1 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
plot
   wiggle 0
   srpath sunfil nsecs 4  ann gmtint anninc 5
   nibs 75 trpin 40 vscale 3.333 def .04 clip .04 end
end
end
eof
xloadimage -r 90 sunfil &

    
c5.html0000755000076500001200000000127106403370636013027 0ustar  henkartadmin00000000000000SIOSEIS MCS example - check the geometry
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin weight geom nmo filter plot end
diskin
   set 5 9 fno 1 lno 1 ipath test.line.1 end
end
geom
   gxp 1 -265 48 -1440 dfls 58 dbrps 50 end
end
nmo
   fno 1 lno 1 vtp 1500 6 end
end
weight
  fno 0 lno 99999 twp 4 0 21 0 22 0 23 0 24 0 30 0 31 0 34 0 48 0 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
plot
   srpath sunfil nsecs 3  ann range ftag 1 taginc 10
   nibs 75 trpin 5 vscale 3.333 def .14 clip .14 end
end
end
eof
xloadimage -r 90 sunfil &

    
c6.html0000755000076500001200000000110206403370765013024 0ustar  henkartadmin00000000000000SIOSEIS MCS example - Gather (sort) by rp (cmp)
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin weight geom gather diskoa prout end
diskin
   ipath test.line.1 end
end
prout
   fno 0 lno 999999 ftr 1 ltr 1 end
end
weight
  fno 0 lno 99999 twp 4 0 21 0 22 0 23 0 24 0 30
0 31 0 34 0 48 0 end
end
gather
   end
end
geom
   rpadd 1000
   gxp 1 -265 48 -1440 dfls 58 dbrps 12.5 end
end
diskoa
    opath rps.line.1 end
end
end
eof

    
c7.html0000755000076500001200000000146106403133223013017 0ustar  henkartadmin00000000000000SIOSEIS MCS example - check the mute pattern.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin weight geom nmo wbt mute filter plot end
diskin
   set 5 9 fno 1 lno 1 ipath test.line.1 end
end
weight
  fno 0 lno 99999 twp 4 0 21 0 22 0 23 0 24 0 30 0 31 0 34
0 48 0 end
end
geom
   rpadd 1000
   gxp 1 -265 48 -1440 dfls 58 dbrps 50 end
end
wbt
  day 54 2320 5.3
  day 55 0015 5.35
end
mute
   xtp  1000 0 1440 1 addwb yes end
end
nmo
   fno 1 lno 1 vtp 1500 6 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
plot
   srpath sunfil nsecs 4  ann shottr ftag 1 taginc 10
   nibs 75 trpin 10 vscale 3.333 def .09 clip .09 end
end
end
eof
xloadimage -r 90 sunfil &

    
c8.html0000755000076500001200000000112706403134411013017 0ustar  henkartadmin00000000000000SIOSEIS MCS example - Constant veolcity stacks
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    # Constant velocity stacks of 50 rps, velocities 1450 to 2100 by 50
sioseis << eof
procs diskin velan stack filter diskoa end
diskin
   fno 1051 lno 1100 set 5 8
   ipath rps.line.1 end
end
prout
   fno 0 lno 9999 ftr 0 ltr 999 end
end
velan
   type cvel nrp 50 vels 1450 50 2100 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
diskoa
   opath cvstk.line.1 end
end
end
eof

    
c8a.html0000655000076500001200000003173406403570700013173 0ustar  henkartadmin00000000000000
      SIOSEIS ver 97.8 (25 July 1997)  (C) Regents of U.C.                           
 procs diskin velan end 
 diskin 
    fno 1001 lno 1002 set 5 8 
    ipath rps.line.1 end 
 end 
 velan 
     vels 1400 20 1800 40 3000 nrp 2 type spec winlen .048 
     vtuple 1400 3000 81 end 
  end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
1
  
  
  
  
 RP 1001 WAS RECORDED ON 23  FEB 1997 AT 2321:27
 TRACE 1 OF THE RP CAME FROM SHOT         3 TRACE   3 RANGE       -315
  
 SEMBLANCE VALUES ARE SCALED SO THAT 9 IS THE LARGEST POSSIBLE VALUE.
  
                                        VELOCITY
        1400      1600      1800      2000      2200      2400      2600      2800      3000
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
  5.0240  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.0480  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.0720  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.0960  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.1201  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.1441  100000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.1681  100000000000000000001 0 0+0 0 1 1 0+1 1 0 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.1921  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.2161  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.2401  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.2641  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.2882  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.3122  010011100000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.3362  334444454444332222111 1 1+1 1 1 1 1+1 2 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  5.3602  344455555544433222111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  5.3842  122233344443322221111 1 1+1 1 0 1 1+1 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.4082  122222222221111111111 1 1+1 1 1 1 1+1 1 1 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.4323  111121211121111111100 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 1 1 1 1+1 1 1 1 1+1 0 1
  5.4563  111111111111111111000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 1 1 1 1+1 1 1 1 1+1 1 1
  5.4803  111211111222211000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 1 1 1 1+1 1 0
  5.5043  111221112221111110000 0 0+0 0 0 0 0+1 1 1 1 0+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 1 1
  5.5283  212233333332222221100 0 1+0 0 0 1 1+1 1 1 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.5523  222333344433333221111 1 1+0 0 0 1 1+1 1 0 0 0+0 0 0 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.5763  122222333433332221100 1 1+1 0 0 0 1+1 1 1 1 0+0 0 1 1 1+1 1 0 0 0+0 0 0 0 0+0 0 0
  5.6004  122322233433222221100 0 1+0 0 1 1 1+1 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.6244  112222222321111222111 0 0+0 0 0 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.6484  111000111110011212111 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.6724  111111122221111211110 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.6964  001111221221111111000 0 0+0 0 0 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.7204  011111111221110010110 0 0+0 0 0 1 1+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.7444  111111222221111111111 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.7685  000111122111111111111 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.7925  000000011100000001111 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  5.8165  000000001111100000010 0 0+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 0 0 0 0+0 0 0 0 0+0 1 1
  5.8405  111111112222222111111 1 0+0 0 1 1 0+0 0 0 0 0+0 0 0 0 1+1 0 0 0 0+0 0 0 1 1+0 0 0
  5.8645  123334444554444332222 1 1+0 1 1 1 1+1 1 0 0 0+0 0 0 0 1+1 1 1 1 0+0 0 1 1 1+1 1 1
  5.8885  123334555555544332222 1 1+0 1 1 1 1+1 1 0 0 0+0 0 0 0 1+1 1 1 1 0+0 0 0 0 1+1 1 1
  5.9126  133333344454443322211 1 1+0 0 1 1 1+0 0 0 0 0+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  5.9366  233334334445554333322 1 1+1 1 1 1 1+1 1 0 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  5.9606  232333444444443332222 1 1+0 0 1 1 0+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 1 1 0 1+1 1 1
  5.9846  111123344343322222222 1 0+0 0 0 1 0+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 1 1 0 0+1 1 1
  6.0086  122222233333222211111 0 0+0 0 0 0 1+0 0 0 0 0+0 1 0 0 0+0 1 1 1 1+1 1 0 0 0+0 0 0
  6.0326  112233344444433221110 0 0+0 0 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 0 0 0+0 0 0
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
        1400      1600      1800      2000      2200      2400      2600      2800      3000
        1400      1600      1800      2000      2200      2400      2600      2800      3000
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
  6.0566  122343455554443222221 1 0+0 0 1 1 1+1 1 1 1 2+2 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 0
  6.0807  222344444444433222221 0 0+0 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.1047  111122222222222111111 0 0+0 0 0 0 0+0 0 0 0 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.1287  000010000001100000110 1 0+0 0 0 0 0+0 0 0 0 1+1 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.1527  111122222222221111111 1 0+0 0 0 0 0+0 0 0 0 0+1 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.1767  122223445544444333322 1 1+0 0 0 0 0+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.2007  112223444444443332212 1 1+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.2247  111211221112111111101 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.2488  111111111222222222222 2 1+1 1 1 1 1+1 1 1 1 1+1 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.2728  000111111111111112122 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.2968  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 1 1
  6.3208  000000000000010000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.3448  000000000000101111111 1 1+1 1 1 0 1+0 0 0 0 0+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.3688  000000000000000000000 0 0+0 0 0 0 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.3929  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.4169  000000010000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.4409  111111111110000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.4649  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.4889  000111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.5129  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.5369  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.5610  000000110000010000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.5850  000011111111111122211 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.6090  000000111122222233333 3 2+2 2 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+0 0 0
  6.6330  011111223333444444434 3 2+2 2 2 1 1+1 1 1 2 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+0 0 0
  6.6570  001111222233333333333 2 2+2 2 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 0 0 0+0 0 0
  6.6810  000011112222222222222 2 2+2 2 2 1 2+2 2 1 1 1+1 1 1 1 1+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.7050  111111122222222222222 2 2+2 2 2 1 2+2 2 1 1 1+1 1 1 1 1+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.7291  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 1 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.7531  000000000000000111110 0 0+0 0 0 0 0+1 0 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.7771  000000000110000000000 0 0+0 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.8011  111111111111111111111 1 0+0 0 0 0 0+0 0 0 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  6.8251  111111111111111111111 1 1+1 1 1 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.8491  000000000000000000111 1 1+1 0 1 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.8732  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.8972  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.9212  000000000000001000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.9452  100000010000011100000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  6.9692  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 0+0 0 0 1 0+0 1 1 1 1+1 0 0 0 0+0 0 0
  6.9932  000000001111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.0172  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.0413  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.0653  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.0893  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.1133  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.1373  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.1613  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.1853  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.2094  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.2334  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.2574  111111111111111111111 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.2814  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.3054  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.3294  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
        1400      1600      1800      2000      2200      2400      2600      2800      3000
        1400      1600      1800      2000      2200      2400      2600      2800      3000
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
  7.3535  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.3775  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.4015  111111111010000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.4255  111111111111111111111 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.4495  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.4735  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.4975  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.5216  000010011111100111111 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.5456  000000000000000111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.5696  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.5936  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.6176  000000000000000000000 0 0+0 0 0 0 0+0 0 1 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.6416  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.6656  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.6897  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.7137  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.7377  000000000000001111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.7617  000000000000000000000 0 0+0 0 0 0 0+0 0 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.7857  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.8097  111111111111111111111 1 1+1 1 1 1 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.8337  111111111111111111111 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1 1 1+1 1 1
  7.8578  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.8818  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.9058  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.9298  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.9538  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  7.9778  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
  8.0019  000000000000000000000 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0 0 0+0 0 0
          +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +    +
        1400      1600      1800      2000      2200      2400      2600      2800      3000
 THERE WERE   16 LIVE TRACES IN THE ANALYSIS.
  END OF SIOSEIS RUN

    
c9.html0000755000076500001200000000152706403371733013036 0ustar  henkartadmin00000000000000SIOSEIS MCS example - Stack the line
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    # Stack the line
sioseis << eof
procs diskin nmo avenor wbt mute stack diskoa filter agc plot end
diskin
   ipath rps.line.1 end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
wbt
  day 54 2320 5.3
  day 55 0015 5.35
end
nmo
   fno 1 vtp 1450 5.35 1550 5.6 1650 5.9 2050 6.7
2200 7 end
end
avenor
   sets 5 7 end
end
mute
   xtp  1000 0 1440 1 addwb yes end
end
diskoa
   opath stack.line.1 end
end
filter 
    ftype 0 dbdrop 48 pass 10 80 end 
 end 
 agc 
    winlen .5 end 
 end 
 plot 
    wiggle 0 
    srpath sunfil nsecs 4  ann gmtint anninc 5 
    nibs 75 trpin 40 vscale 3.333 def .02 clip .02 end 

end
eof
xloadimage -r 90 sunfil &

    
cat.html0000755000076500001200000000411306356043025013261 0ustar  henkartadmin00000000000000cat
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                           PROCESS CAT
                       ------- ---

Document date: 29 September 1992

Process CAT concatenates consecutive traces or shots.  The concatenation
is done without regard for the deep water delay.  i.e. The last sample
of the trace being appended is always adjacent to the first sample the
next trace.

The output SEGY header is the header of the first trace of
the series being concatenated.
Shot/rp concatenation means that like traces are concatenated.
e.g.  shot 2 trace 1 is appended to shot 1 trace 1 and
      shot 2 trace 2 is appended to shot 1 trace 2.

There is no spatial interpolation.

Each parameter list must be terminated with the word END.

A null set of parameters must be given if all the parameters are
presets.  e.g.    cat end end

PARAMETER DICTIONARY
--------- ----------

TYPE   - The type of concatenation.
       = TRACE,
       = SHOT,
         Preset = shot         e.g. type trace

N      - The number of consecutive traces or shots to concatenate
         in each output record.  A value of 0 or 1 means that no
         concatenation should take place.
         Preset = 2            e.g. n 3

FNO    - The first shot/rp number the parameter list applies to.
         Preset = the first shot/rp received.    e.g.   fno 101

LNO    - The last shot/rp number the parameter list applies to.
         Preset = the last shot/rp received.    e.g.   lno 101

FTR    - The first trace number the parameter list applies to.
         Preset = the first trace of each shot/rp.    e.g.   ftr 10

LTR    - The last trace number the parameter list applies to.
         Preset = the last trace of each shot/rp.    e.g.   ltr 10

END    - Terminates the parameter list.


Copyright (C) 1992 The Regents of the University of California
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
cats.html0000655000076500001200000002552511110360624013444 0ustar  henkartadmin00000000000000
Example CATS
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


             CATS: Controlled Archeology Test Site

     The objective of this project is to image and locate buried
objects 1 to 2 meters deep.  Three Geometrics Strataviews were used
to record several different seismic experiments with several different
seismic sources.

photographs of the data acquistion


               The Reflection Survey
               --- ---------- ------

     The three Geometrics had a total of 108 recording channels which
in turn had three different type of Mark Product geophones;
48 40Hz. phones, 48 12Hz. phones, and 12 horizontal phones.
     The 48 trace Stratview (the unit was rented from Geometrics, so the
log book calls it the "Geometrics") was set with recording parameters of
-10 mil delay, 3200 samples per secord sample rate (the highest since
the vibrator would sweep from 20Hz. to 1600Hz.). It was also set to
record 4096 samples per trace ( from -10mils to .127 seconds)

     The first round of data collection was a combined reflection,
refraction, surface wave experiment.  The first 48 channels, with the
40Hz. geophones, were a conventional split spread reflection survey.
The phones were spaced 5cm apart (yes, .05m) with a 5cm offset from
the shot to phones 24 and 25.  i.e. phones 1-24, shot, 25-48.
     Each shot location had three "shots" of different sources.  A
sledge hammer was used to drive a 1in. diameter pipe into the ground.
Typically, 4 sledge pounders were stacked and recorded.  A small hand
hammer was then used to create a higher frequency source.  Nine small
hammer taps were stacked.  A small vibrator was then attached to the
pipe and driven by a non-linear sweep of frequencies.
     The shot location and geophones were then advanced 20cm in order
to obtain 6 CMP (Common Mid Point) coverage.

     After examining a few shots  with all the geophones and source
types for quality control, it was decided to concentrate on the
small hammer reflection data first.

     I thought the bookkeeping and data management would be simpler
if all the small hammer SEG2 shots were in a single SEG-Y file and
the shots were renumbered.

    

  •  script #1  - Create a SEG-Y file.

        Files 1102, 1106, 1110, 1114, 1118, 1122, 1126, 1130, 1134, 1138
had errors while reading.  Upon examination (hex dump), the Geometrics
appears to have dropped a single byte on several traces of each shot.
SIOSEIS was changed to recover from the error.

    Since there are only 38 shots, I decided to plot every shot on the
laser printer.  I plotted the first shot by itself and tried various
parameters until I found what I wanted.  AGC is needed to examine the
whole trace.  I also decided to plot all shots and all traces with the
same scalar, but this wouldn't really show the amplitude variation
from shot to shot or trace to trace because of the agc.
    The Geometrics was set to start recording slightly before the
actual trigger, so the plot parameter stime 0. is used.  The time of
the first sample is -.020 seconds

     Yikes, there are bad traces scattered throughout the line.  Some
traces are bad probably due to a bad connection between the geophone
on the cable.  All the shots with read errors have multiple bad traces.

    

  • Script to plot every shot to the laser printer.

  • plot of shot 29

         Before applying the geometry and doing CMP gathers, I'll kill the
bad traces by either weighting the whole trace to zero using PROCESS 
WEIGHT or by muting the back end of the trace using PROCESS SMUTE.

    

  • Script to weight smute plot shot 29.

  • plot of shot 29 after weight and smute

         The above C shell script is executed by using the first shot
number at the first argument and the last shot number to plot as
the second argument.  e.g.  plt 29 29  plots just shot 29.

     I plotted each shot on the screen, one at a time,  to check that
I got all the bad traces.  Good thing too, because I'd missed a few.

    

  • Script to weight smute plot all shots.

         Note that xloadimage is terminated by typing the letter q
in the plot window.  Also note that the pause between plots is
caused by xloadimage being in the foreground.  Continuous plots
(without a pause between shots) may be obtained by doing xloadimage
in background (by placing the ampersand sign (&) on the xloadimage
command line.

     Each SEG2 shot is a separate file, so I callected them all
together into one SEG-Y file using this script.

     The next step shown in script is to:
1) edit the data (kill bad traces, invert traces with reverse polarity
   and surgically mute noise bursts).
2) Assign the shooting and geophone geometry as well as assigning
   the topographic corrections.
3) Do a CMP gather (collect traces according to common mid points)

     The final script is short, but took a great deal of analysis to derive.
1)  Only the traces near the shot were retained.  Traces further than
40cm from the shot don't appear to have reflections and have some
other mode (surface waves or shear waves or ???); so ranges 45cm and
greater are eliminated from the stack by weighting them to zero.
2)  Filter was applied before NMO because the low frequencies didn't
move-out correctly.  I never determined why.
3)  The datum or topographic corrections are applied via process SHIFT.
4) A 100x800 Hz bandpass filter was applied.  
5)  The plot is done in reverse direction since the first shot was on
the southe end of the line.  The plot annotation is by meters with
the top of the mound being zero.

    
      final plot

    
      User Discussion

    
               New (2001) Analysis
               --- ------ --------

     The recording unit clipped some of the traces on some of the shots,
so it was decided to mute the clipped data first thing.  Script is
the sioplt script used to pick the mutes.  The tsets were then used to
create a new set of cmp gathers using (script).
The cmp gathers can be plotted with script.
The cmp gathers were moved out and stacked with script.
The stack was fk migrated with script.
The final plot was generated with script.
The plot of the filtered agced shot directly over the mound was generated
by script.



               Tomography Survey
               ---------- ------

    The tomography survey geophone layout has "Geometrics" channel 2-48,
LeRoy channel 1-32, Alistair channels 1-34.

1)  Create a SEGY file of all 72 shots

    

  • Script to combine all three Geometrics recorders

    2)  Create a file with the "closest" trace to the vibrator.
    Note: There is confusion about the polarity between the two series
of Geometrics.  After step 1 above, traces 1-47 are from the rental
Geometrics and traces 48-105 are from LeRoy and Alistair.  The polarity
of the pilot traces of all "closest" traces of the Geometrics are 
reversed in this script.

    

  • Script to collect the trace "closest" to each vibrator point.

    3)  Pick and print the time of the largest positive amplitude after
correlating with the trace closest to the vibrator.  SIOSEIS does not
permit specifying a different pilot trace on every shot when the pilot
is in a different file, so each shot is correlated in a new sioseis
job.  The first sioseis job created the output file and subsequent
jobs positioned after the last shot in the output file.
    The special lprint value of 4 was created in process WBT to print
the picks and a perl script was run to write the pick in the "Cornuelle"
format and to only print if the time of the pick was greater than .05
seconds.

    

  • Script to correlate and pick.

  • Perl script to reformat the picks

  • Plot of the first shot after correlation. (62KB)

    

        GPR (Ground Penetrating Radar) Survey
        ---                            ------
    Larry Conyers of the University of Denver collected and processed
a bunch of GPR data.  I will try some seismic processing techniques on
these data.  The digital data were recorded in the GSSI DZT format.
GPR uses nanosecond sampling and SEG-Y can do no better than micro-
seconds, so all processing units have been scaled by 10**3.  Individual
GPR traces are displayed here.  A typical GPR line is displayed here
       GPR line 59, meters 26 to 33 corresponds to the location
of the seismic reflection line.  A simple plot doesn't reveal
anything useful. (plot script).
       A common GPR processing technique is to use a "background"
filter, which subtracting the average trace from all the
traces.  SIOSEIS found the average trace through process STACK
and process UADD then subtracted it (script).  
The plot does help!
       A plot with a bandpass filter of 500 2000.
       A plot with a bandpass filter of 500 1000.
       A plot with the background filter and 500x1000 bandpass.
       A plot and script for filter and migration.
       A plot with background filter, filter and migration.
       A plot with filter, migration and topography corrections.
       A plot with background filter, filter, migration and topography corrections.

      The units used in GPR processing in SIOSEIS are confusing:
1)  DZT2SEGY uses a sample interval in microseconds rather than nanoseconds
    since the SEG-Y standard (and SIOSEIS) expect it that way.  DZT2SEGY
    sets the sample interval to 59, where it should be .059.
2)  The elevations in SEG-Y are also integers, but they need to be in
    millimeters, so the elevations are multiplied by 1000.  Thus GEOM
    parameters datume 600 datumv 200000 are in millimeters and mm/sec.
3)  The FK migration was done using a sample interval of .001 so the
    program wouldn't bomb.  The migration velocity was 2500.  The
    distance between traces in migration was set to 16 rather than the
    .016m actually recorded.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
cats1.html0000755000076500001200000000300106634017307013523 0ustar  henkartadmin00000000000000
SIOSEIS script to reformat SEG2 to SEG-Y
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs seg2in diskoa prout end
seg2in
   ipath 1014.DAT end
   ipath 1018.DAT end
   ipath 1022.DAT end
   ipath 1025.DAT end
   ipath 1029.DAT end
   ipath 1033.DAT end
   ipath 1037.DAT end
   ipath 1041.DAT end
   ipath 1045.DAT end
   ipath 1048.DAT end
   ipath 1051.DAT end
   ipath 1054.DAT end
   ipath 1057.DAT end
   ipath 1060.DAT end
   ipath 1063.DAT end
   ipath 1066.DAT end
   ipath 1069.DAT end
   ipath 1072.DAT end
   ipath 1077.DAT end
   ipath 1081.DAT end
   ipath 1085.DAT end
   ipath 1089.DAT end
   ipath 1093.DAT end
   ipath 1098.DAT end
   ipath /archive/mcs/1998/cats/1102.DAT end
   ipath /archive/mcs/1998/cats/1106.DAT end
   ipath /archive/mcs/1998/cats/1110.DAT end
   ipath /archive/mcs/1998/cats/1114.DAT end
   ipath /archive/mcs/1998/cats/1118.DAT end
   ipath /archive/mcs/1998/cats/1122.DAT end
   ipath /archive/mcs/1998/cats/1126.DAT end
   ipath /archive/mcs/1998/cats/1130.DAT end
   ipath /archive/mcs/1998/cats/1134.DAT end
   ipath /archive/mcs/1998/cats/1138.DAT end
   ipath /archive/mcs/1998/cats/1142.DAT end
   ipath /archive/mcs/1998/cats/1146.DAT end
   ipath /archive/mcs/1998/cats/1150.DAT end
   ipath /archive/mcs/1998/cats/1154.DAT end
end
diskoa
   fon 1 opath little.segy end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof

    
cats10.html0000755000076500001200000017242406666624573013641 0ustar  henkartadmin00000000000000
SIOSEIS script to combine SEG2 from three SEG2 recorders
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


        SIOSEIS script to combine SEG2 from three SEG2 recorders



sioseis << eof
procs seg2in diskoa end
seg2in
     ipath /archive/mcs/1998/cats/1176.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3176.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2176.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1177.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3177.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2177.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1178.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3178.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2178.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1179.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3179.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2179.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1180.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3180.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2180.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1181.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3181.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2181.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1182.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3182.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2182.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1183.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3183.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2183.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1184.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3184.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2184.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1185.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3185.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2185.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1186.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3186.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2186.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1187.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3187.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2187.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1188.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3188.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2188.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1189.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3189.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2189.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1190.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3190.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2190.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1191.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3191.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2191.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1192.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3192.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2192.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1193.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3193.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2193.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1194.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3194.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2194.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1195.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3195.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2195.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1196.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3196.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2196.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1197.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3197.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2197.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1198.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3198.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2198.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1199.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3199.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2199.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1200.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3200.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2200.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1201.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3201.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2201.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1202.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3202.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2202.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1203.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3203.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2203.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1204.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3204.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2204.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1205.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3205.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2205.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1206.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3206.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2206.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1207.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3207.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2207.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1208.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3208.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2208.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1209.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3209.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2209.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1210.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3210.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2210.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1211.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3211.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2211.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1212.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3212.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2212.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1213.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3213.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2213.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1214.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3214.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2214.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1215.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3215.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2215.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1216.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3216.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2216.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1217.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3217.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2217.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1218.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3218.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2218.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1219.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3219.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2219.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1220.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3220.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2220.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1221.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3221.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2221.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1222.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3222.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2222.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1223.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3223.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2223.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1224.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3224.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2224.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1225.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3225.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2225.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1226.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3226.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2226.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1227.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3227.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2227.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1228.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3228.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2228.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1229.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3229.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2229.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1230.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3230.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2230.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1231.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3231.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2231.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1232.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3232.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2232.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1233.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3233.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2233.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1234.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3234.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2234.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1235.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3235.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2235.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1236.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3236.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2236.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1237.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3237.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2237.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1238.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3238.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2238.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1239.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3239.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2239.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1240.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3240.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2240.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1241.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3241.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2241.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1242.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3242.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2242.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1243.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3243.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2243.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1244.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3244.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2244.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1245.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3245.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2245.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1246.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3246.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2246.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1247.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3247.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2247.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1248.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3248.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2248.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1249.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3249.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2249.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1240.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3240.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2240.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1241.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3241.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2241.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1242.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3242.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2242.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1243.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3253.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2253.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1254.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3254.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2254.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1255.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3255.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2255.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1256.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3256.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2256.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1257.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3257.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2257.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1258.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3258.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2258.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1259.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3259.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2259.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1260.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3260.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2260.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1261.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3261.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2261.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1262.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3262.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2262.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1263.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3263.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2263.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1264.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3264.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2264.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1265.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3265.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2265.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1266.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3266.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2266.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1267.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3267.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2267.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1268.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3268.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2268.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1269.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3269.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2269.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1270.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3270.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2270.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1271.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3271.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2271.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1272.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3272.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2272.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1273.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3273.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2273.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1274.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3274.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2274.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1275.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3275.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2275.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1276.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3276.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2276.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1277.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3277.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2277.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1278.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3278.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2278.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1279.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3279.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2279.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1280.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3280.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2280.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1281.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3281.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2281.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1282.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3282.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2282.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1283.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3283.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2283.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1284.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3284.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2284.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1285.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3285.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2285.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1286.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3286.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2286.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1287.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3287.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2287.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1288.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3288.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2288.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1289.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3289.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2289.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1290.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3290.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2290.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1291.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3291.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2291.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1292.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3292.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2292.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1293.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3293.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2293.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1294.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3294.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2294.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1295.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3295.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2295.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1296.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3296.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2296.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1297.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3297.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2297.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1298.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3298.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2298.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1299.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3299.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2299.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1300.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3300.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2300.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1301.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3301.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2301.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1302.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3302.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2302.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1303.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3303.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2303.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1304.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3304.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2304.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1305.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3305.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2305.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1306.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3306.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2306.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1307.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3307.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2307.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1308.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3308.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2308.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1309.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3309.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2309.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1310.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3310.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2310.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1311.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3311.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2311.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1312.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3312.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2312.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1313.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3313.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2313.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1314.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3314.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2314.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1315.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3315.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2315.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1316.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3316.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2316.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1317.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3317.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2317.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1318.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3318.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2318.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1319.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3319.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2319.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1320.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3320.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2320.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1321.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3321.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2321.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1322.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3322.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2322.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1323.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3323.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2323.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1324.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3324.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2324.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1325.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3325.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2325.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1326.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3326.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2326.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1327.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3327.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2327.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1328.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3328.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2328.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1329.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3329.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2329.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1330.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3330.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2330.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1331.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3331.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2331.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1332.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3332.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2332.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1333.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3333.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2333.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1334.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3334.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2334.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1335.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3335.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2335.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1336.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3336.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2336.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1337.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3337.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2337.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1338.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3338.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2338.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1339.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3339.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2339.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1340.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3340.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2340.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1341.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3341.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2341.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1342.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3342.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2342.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1343.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3343.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2343.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1344.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3344.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2344.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1345.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3345.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2345.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1346.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3346.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2346.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1347.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3347.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2347.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1348.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3348.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2348.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1349.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3349.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2349.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1340.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3340.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2340.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1341.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3341.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2341.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1342.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3342.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2342.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1343.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3353.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2353.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1354.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3354.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2354.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1355.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3355.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2355.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1356.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3356.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2356.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1357.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3357.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2357.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1358.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3358.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2358.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1359.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3359.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2359.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1360.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3360.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2360.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1361.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3361.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2361.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1362.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3362.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2362.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1363.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3363.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2363.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1364.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3364.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2364.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1365.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3365.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2365.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1366.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3366.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2366.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1367.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3367.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2367.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1368.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3368.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2368.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1369.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3369.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2369.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1370.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3370.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2370.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1371.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3371.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2371.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1372.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3372.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2372.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1373.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3373.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2373.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1374.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3374.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2374.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1375.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3375.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2375.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1376.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3376.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2376.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1377.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3377.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2377.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1378.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3378.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2378.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1379.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3379.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2379.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1380.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3380.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2380.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1381.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3381.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2381.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1382.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3382.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2382.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1383.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3383.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2383.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1384.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3384.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2384.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1385.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3385.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2385.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1386.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3386.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2386.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1387.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3387.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2387.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1388.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3388.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2388.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1389.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3389.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2389.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1390.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3390.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2390.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1391.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3391.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2391.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1392.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3392.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2392.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1393.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3393.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2393.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1394.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3394.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2394.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1395.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3395.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2395.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1396.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3396.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2396.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1397.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3397.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2397.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1398.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3398.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2398.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1399.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3399.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2399.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1400.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3400.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2400.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1401.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3401.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2401.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1402.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3402.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2402.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1403.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3403.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2403.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1404.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3404.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2404.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1405.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3405.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2405.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1406.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3406.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2406.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1407.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3407.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2407.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1408.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3408.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2408.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1409.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3409.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2409.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1410.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3410.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2410.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1411.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3411.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2411.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1412.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3412.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2412.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1413.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3413.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2413.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1414.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3414.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2414.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1415.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3415.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2415.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1416.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3416.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2416.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1417.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3417.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2417.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1418.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3418.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2418.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1419.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3419.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2419.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1420.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3420.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2420.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1421.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3421.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2421.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1422.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3422.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2422.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1423.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3423.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2423.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1424.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3424.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2424.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1425.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3425.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2425.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1426.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3426.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2426.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1427.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3427.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2427.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1428.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3428.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2428.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1429.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3429.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2429.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1430.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3430.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2430.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1431.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3431.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2431.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1432.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3432.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2432.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1433.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3433.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2433.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1434.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3434.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2434.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1435.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3435.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2435.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1436.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3436.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2436.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1437.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3437.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2437.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1438.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3438.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2438.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1439.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3439.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2439.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1440.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3440.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2440.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1441.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3441.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2441.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1442.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3442.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2442.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1443.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3443.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2443.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1444.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3444.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2444.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1445.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3445.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2445.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1446.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3446.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2446.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1447.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3447.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2447.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1448.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3448.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2448.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1449.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3449.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2449.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1440.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3440.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2440.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1441.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3441.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2441.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1442.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3442.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2442.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1443.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3453.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2453.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1454.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3454.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2454.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1455.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3455.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2455.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1456.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3456.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2456.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1457.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3457.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2457.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1458.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3458.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2458.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1459.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3459.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2459.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1460.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3460.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2460.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1461.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3461.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2461.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1462.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3462.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2462.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1463.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3463.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2463.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1464.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3464.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2464.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1465.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3465.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2465.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1466.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3466.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2466.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1467.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3467.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2467.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1468.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3468.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2468.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1469.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3469.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2469.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1470.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3470.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2470.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1471.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3471.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2471.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1472.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3472.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2472.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1473.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3473.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2473.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1474.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3474.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2474.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1475.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3475.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2475.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1476.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3476.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2476.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1477.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3477.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2477.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1478.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3478.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2478.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1479.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3479.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2479.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1480.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3480.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2480.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1481.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3481.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2481.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1482.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3482.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2482.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1483.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3483.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2483.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1484.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3484.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2484.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1485.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3485.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2485.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1486.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3486.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2486.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1487.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3487.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2487.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1488.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3488.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2488.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1489.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3489.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2489.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1490.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3490.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2490.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1491.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3491.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2491.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1492.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3492.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2492.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1493.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3493.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2493.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1494.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3494.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2494.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1495.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3495.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2495.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1496.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3496.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2496.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1497.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3497.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2497.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1498.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3498.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2498.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1499.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3499.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2499.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1500.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3500.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2500.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1501.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3501.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2501.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1502.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3502.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2502.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1503.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3503.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2503.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1504.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3504.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2504.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1505.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3505.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2505.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1506.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3506.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2506.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1507.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3507.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2507.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1508.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3508.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2508.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1509.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3509.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2509.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1510.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3510.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2510.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1511.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3511.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2511.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1512.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3512.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2512.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1513.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3513.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2513.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1514.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3514.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2514.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1515.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3515.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2515.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1516.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3516.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2516.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1517.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3517.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2517.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1518.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3518.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2518.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1519.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3519.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2519.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1520.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3520.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2520.DAT ftr 1 ltr 24 end
     ipath /archive/mcs/1998/cats/1521.DAT ftr 2 ltr 48 end
     ipath /archive/mcs/1998/cats/3521.DAT ftr 1 ltr 34 end
     ipath /archive/mcs/1998/cats/2521.DAT ftr 1 ltr 24 end
en5
prout
   fno 0 lno 9999 ftr 0 ltr 99999 end
end
diskoa
   fon 1 ontrcs 105 opath test end
end
end
eof

    
cats11.html0000655000076500001200000000644606666624631013634 0ustar  henkartadmin00000000000000
SIOSEIS script to collect all the traces closest to the vibrator
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    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

    
cats12.html0000655000076500001200000000174206666624755013636 0ustar  henkartadmin00000000000000
SIOSEIS script to cross-correlate and pick.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


       SIOSEIS script to cross-correlate and pick.



#!/bin/csh
@ shotno = 2
while( $shotno <= 72 )
sioseis << eof
procs diskin weight xcorr wbt diskoa end
diskin
   fno $shotno lno $shotno
   ipath tom.segy end
end
weight
    fno 0 lno 99999 twp
      1 -2 2 -2 3 -2 4 -2 5 -2 6 -2 7 -2 8 -2 9 -2 10 -2
     11 -2 12 -2 13 -2 14 -2 15 -2 16 -2 17 -2 18 -2 19 -2 20 -2
     21 -2 22 -2 23 -2 24 -2 25 -2 26 -2 27 -2 28 -2 29 -2 30 -2
     31 -2 32 -2 33 -2 34 -2 35 -2 36 -2 37 -2 38 -2 39 -2 40 -2
     41 -2 42 -2 43 -2 44 -2 45 -2 46 -2 47 -2
     end
end
xcorr
  setp .6 1.9 setd .5 2.5 nlags 1500 
  psno $shotno ppath  closest.segy ptr 1 end
end
wbt
    peak pos lprint 4 end
end
diskoa 
   posaft -1
   opath xcorr.closest.segy end
end
end
eof
@ shotno++
end

    
cats13.html0000655000076500001200000000106006667030177013616 0ustar  henkartadmin00000000000000
Perl script to reformat the picks
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


              Perl script to reformat the picks




#!/usr/sbin/perl
while () {
        chop;
        @a = split;
                if( @a[3] > .05 ) {
                        print @a[1],"\t",@a[2],"\t", @a[3],"\t";
                        if( @a[3] > .1 ) { print "\t"; }
                        print @a[4],"\t",@a[5],"\n";
        }
}

    
cats2.html0000755000076500001200000000135006634037420013527 0ustar  henkartadmin00000000000000
Script to plot and print every shot.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    

#! /bin/csh -f
set SHOTNO = 1
while ( $SHOTNO <= 38 )
sioseis << eof
procs diskin agc plot end
agc
   winlen .02 end
end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
plot
   scalar 3.E-06   # little hammer
   nsecs .12 tlines .01 .05 .1 stime 0
   nibs 75 trpin 3 vscale 53.3333 def .15
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
suntops -w 8 -h 10.5 < sunfil > psfil
lpr -Pmumbo psfil
#xloadimage -r 90 sunfil
@ SHOTNO = $SHOTNO + 1
end

    
cats21.html0000755000076500001200000000450307303253733013614 0ustar  henkartadmin00000000000000Plot some shots 
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    #! /bin/csh -f
if( $#argv < 1 ) then
     echo "need the start and end shot numbers"
     exit 1
endif
set NO = $1
set LNO = $2
while ( $NO <= $LNO )
sioseis << eof
procs diskin weight filter agc plot end
diskin
   set 0 .11 allno no
   ipath little.segy fno $NO lno $NO end
end
gains
   alpha 2.5 end
end
filter 
  ftype 0 pass 100 800 end
end
agc
   winlen .01 end
end
weight
    fno 6 lno 6 twp 24 0  end
    fno 7 lno 7 twp 24 0 26 0 end
    fno 8 lno 9 twp 24 0  end
    fno 10 lno 10 twp 24 0  end
    fno 11 lno 11 twp 24 0 26 0  end
    fno 12 lno 12 twp 24 0  end
    fno 13 lno 13 twp 24 0  end
    fno 14 lno 14 twp 24 0  end
    fno 15 lno 15 twp 12 0 26 0  end
    fno 16 lno 16 twp 12 0  end
    fno 17 lno 17 twp 20 -1 end
    fno 18 lno 18 twp 24 0 35 0 end
    fno 19 lno 19 twp 35 0  end
    fno 21 lno 21 twp 24 0 35 0 end
    fno 23 lno 23 twp 12 0 19 0 35 0  end
    fno 24 lno 24 twp 35 0 end
    fno 26 lno 26 twp 7 0  end
    fno 29 lno 29 twp 11 0 end
    fno 30 lno 30 twp 2 0 3 0 4 0 9 0 18 0 27 0 33 0 34 0 48 0 end
    fno 31 lno 31 twp 4 0 7 0 8 0 13 0 16 0 20 0 21 0 41 0  end
    fno 32 lno 32 twp 2 0 5 0 9 0 11 0 14 0 15 0 16 0 17 0 18 0 
       21 0 22 0 25 0 26 0 29 0 34 0 40 0  end
    fno 33 lno 33 twp 11 0 16 0 17 0 18 0 19 0 21 0 25 0 26 0 31 0 
       32 0  end
    fno 34 lno 34 twp 7 0 19 0 27 0 39 0 43 0  end
    fno 35 lno 35 twp 3 0 8 0 20 0 21 0 32 0 36 0 48 0  end
    fno 36 lno 36 twp 1 0 12 0 24 0 25 0 29 0 41 0  end
    fno 37 lno 37 twp 5 0 7 0 16 0 17 0 26 0 28 0 32 0 37 0 38 0 
       39 0 42 0 43 0  end
    fno 38 lno 38 twp 14 0 19 0 22 0 27 0 30 0 34 0 38 0 43 0  end
    fno 39 lno 39 twp 35 0  end
    fno 40 lno 40 twp 34 0  end
    fno 42 lno 42 twp 26 0 35 0  end
    fno 43 lno 43 twp 22 0  end
end
plot
   scalar 0
   nsecs .07 tlines .002 .01 .05 stime 0
   nibs 75 trpin 3 vscale 150 def .08 clip 1
!   nsecs .07 nibs 75 trpin 3 vscale 150 def .1 clip 1
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil
  hpath headers
  opath siofil
   end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
#xloadimage -r 90 sunfil &
sioplt -if siofil -hf headers -tsets tsets
@ NO = $NO + 1
end

    
cats22.html0000755000076500001200000004050307303253721013612 0ustar  henkartadmin00000000000000 create cmp gathers
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs diskin weight smute geom gather diskoa end
diskin
#  shots 1-5 did not have the little hammer
  set 0 .11 ipath little.segy end
end
smute
  interp no
    fno 6 tsets  17 0.009244 0.018578
 18 0.007467 0.018489
 19 0.003378 0.011022
 20 0.003022 0.009689
 21 0.002400 0.016889
 22 0.002578 0.024178
 23 0.002044 0.024178
 25 0.001867 0.031022
 26 0.001422 0.031111
 27 0.002311 0.032889
 28 0.003289 0.033244
 29 0.004356 0.034400
 30 0.005956 0.040622
 31 0.005333 0.028533
 32 0.009956 0.020800 end
    fno 7 tsets  17 0.008978 0.018222
 18 0.009244 0.019200
 19 0.003911 0.012000
 20 0.003911 0.018311
 21 0.003644 0.017689
 22 0.003067 0.026267
 23 0.002400 0.024622
 25 0.001422 0.029956
 27 0.003289 0.032978
 28 0.003556 0.038933
 29 0.007556 0.023822
 30 0.008133 0.024267
 31 0.008089 0.025156 end
    fno 8 tsets  17 0.008444 0.018933
 18 0.004178 0.018756
 19 0.003822 0.018222
 20 0.003822 0.024178
 21 0.003289 0.017867
 22 0.002667 0.023911
 23 0.001778 0.023733
 25 0.001600 0.027822
 26 0.001956 0.034933
 27 0.002933 0.024133
 28 0.003467 0.023378
 31 0.013467 0.019333 end
    fno 9 tsets  18 0.008889 0.013867
 19 0.008667 0.019733
 20 0.004000 0.024533
 21 0.003467 0.032800
 22 0.003111 0.032533
 23 0.002489 0.032978
 25 0.001689 0.034133
 26 0.002489 0.032444
 27 0.002844 0.025600
 28 0.006756 0.024267
 31 0.008933 0.026267
 32 0.009333 0.026400 
 34 0.016133 0.027467 end
    fno 10 tsets  17 0.010311 0.015022
 18 0.009422 0.020000
 19 0.009689 0.024889
 20 0.003378 0.030578
 21 0.003200 0.030311
 22 0.002578 0.030133
 23 0.002044 0.030400
 25 0.001778 0.024711
 26 0.002400 0.024444
 27 0.002933 0.026133
 28 0.003733 0.025511
 29 0.014044 0.025867
 31 0.016978 0.027644
 32 0.015911 0.026756 end
    fno 11 tsets 17 0.015200 0.021467
 18 0.007822 0.021067
 19 0.004267 0.027022
 20 0.004000 0.026311
 21 0.003822 0.026133
 22 0.003644 0.032444
 23 0.002844 0.032978
 25 0.002133 0.036178
 27 0.003911 0.036622
 28 0.008089 0.035822
 29 0.017244 0.028889
 31 0.008089 0.015733 end
    fno 12 tsets  20 0.005333 0.028089
 21 0.005067 0.028889
 22 0.004444 0.036800
 23 0.003911 0.039200
 25 0.002756 0.026844
 26 0.002844 0.027556
 27 0.002756 0.029689
 28 0.007378 0.019378 
 31 0.015067 0.021600 
 32 0.014933 0.021467 end
    fno 13 tsets  16 0.015733 0.022133
 17 0.009067 0.022222
 18 0.005600 0.035022
 19 0.004533 0.034222
 20 0.004444 0.034044
 21 0.003911 0.034311
 22 0.003644 0.034400
 23 0.003289 0.034489
 25 0.001956 0.026756
 26 0.002489 0.027733
 27 0.003378 0.029156
 28 0.004000 0.035822
 31 0.017333 0.024933
 32 0.010933 0.031067 end
    fno 14 tsets  22 0.003200 0.027289
 23 0.002400 0.027378
 25 0.006222 0.028178
 26 0.002667 0.028889
 27 0.008178 0.030133
 28 0.008978 0.029956 end
    fno 15 tsets  22 0.005511 0.043822
 23 0.003467 0.043556
 24 0.001867 0.043556
 25 0.001600 0.042578
 27 0.005422 0.035733
 28 0.005956 0.034133 
 31 0.015333 0.036400
 32 0.014667 0.036000 end
    fno 16 tsets  20 0.001689 0.025156
 21 0.001689 0.017333
 22 0.000889 0.031200
 23 0.004000 0.047911
 24 0.001422 0.047289
 25 0.001600 0.032711
 26 0.002844 0.033244
 27 0.004000 0.033867
 28 0.005333 0.032800 
 31 0.010667 0.027467
 32 0.010667 0.026400 end
    fno 17 tsets  21 0.011200 0.024533
 22 0.005333 0.035200
 23 0.000356 0.034667
 24 0.001689 0.043822
 25 0.001511 0.034133
 26 0.003733 0.034311
 27 0.003822 0.035200
 28 0.005156 0.034667
 31 0.014400 0.038844
 32 0.013067 0.037733
 34 0.022267 0.030133
 35 0.023067 0.039867 end
    fno 18 tsets  20 0.006667 0.026133
 21 0.000800 0.035467
 22 0.004889 0.035644
 23 0.004800 0.048533
 25 0.001867 0.044800
 26 0.003556 0.046222
 27 0.006000 0.059067
 28 0.007378 0.037778
 29 0.008533 0.038489
 30 0.010311 0.039378
 31 0.013467 0.058533
 32 0.012133 0.058533
 34 0.033733 0.041733 end
    fno 19 tsets  19 0.022000 0.038133
 20 0.008000 0.038267
 21 0.006844 0.038311
 22 0.005422 0.039111
 23 0.003467 0.050489
 24 0.001956 0.050044
 25 0.002133 0.050311
 26 0.000356 0.050578
 27 0.005244 0.062400
 28 0.006133 0.050578
 29 0.007644 0.050400
 30 0.009067 0.040178
 31 0.012000 0.033778
 32 0.010667 0.042133 end
    fno 20 tsets  17 0.017333 0.031733
 18 0.016533 0.031600
 19 0.017067 0.040800
20 0.007467 0.040800
 21 0.006667 0.060933
 22 0.006533 0.063333
 23 0.000400 0.061200
 24 0.002667 0.061244
 25 0.001689 0.051022
 26 0.003911 0.052000
 27 0.005467 0.063467
 28 0.006756 0.037156
 29 0.007822 0.019644
 30 0.009067 0.020800
 31 0.011911 0.022311
 32 0.010311 0.021956 end
    fno 21 tsets  16 0.019200 0.033600
 17 0.017867 0.032000
 18 0.016933 0.038667
 19 0.016622 0.037778
 20 0.007733 0.036533
 21 0.006222 0.036178
 22 0.005244 0.034756
 23 0.004000 0.044889
 25 0.002400 0.032533
 26 0.003644 0.032711
 27 0.004178 0.034489
 28 0.006400 0.033600
 29 0.011067 0.025200
 31 0.013778 0.027644
 32 0.013244 0.026933 end
    fno 22 tsets  10 0.028400 0.042133
 12 0.026000 0.048400
 16 0.016267 0.036622
 17 0.008978 0.035378
 18 0.008178 0.033956
 19 0.007378 0.032889
 20 0.007111 0.032089
 21 0.005156 0.031111
 22 0.004267 0.031111
 23 0.002756 0.030933
 24 0.001867 0.031644
 25 0.001689 0.029600
 26 0.003200 0.030222
 27 0.004267 0.032089
 28 0.006133 0.038044
 29 0.010222 0.031111
 30 0.010844 0.025244
 31 0.012800 0.034044
 32 0.012178 0.033422 end
    fno 23 tsets  10 0.032800 0.041200
 16 0.019600 0.027200
 17 0.006533 0.026267
 18 0.006400 0.025422
 20 0.004800 0.023200
 21 0.004711 0.030489
 22 0.003822 0.030133
 23 0.002667 0.030400
 24 0.001956 0.030844
 25 0.002222 0.030756
 26 0.002578 0.039022
 27 0.003911 0.041333
 28 0.005333 0.032000
 29 0.006400 0.024533
 30 0.007378 0.025422
 31 0.009422 0.027378
 32 0.008622 0.026578 end
    fno 24 tsets  16 0.011911 0.017511
 17 0.011200 0.024444
 18 0.010756 0.030044
 19 0.005867 0.030578
 20 0.005067 0.030400
 21 0.004711 0.031289
 22 0.004178 0.031200
 23 0.003022 0.038933
 24 0.002133 0.045333
 25 0.001956 0.030311
 26 0.002667 0.030578
 27 0.002844 0.032444
 28 0.003733 0.030133
 29 0.004089 0.022844
 30 0.004800 0.022133
 31 0.006667 0.026311
 32 0.005867 0.024800
 33 0.011911 0.018044
 34 0.007289 0.026933
 36 0.013956 0.028444
 37 0.015022 0.028978
 38 0.016356 0.038844
 39 0.016444 0.029867
 41 0.017333 0.032000
 42 0.025067 0.031822 end
    fno 25 tsets   12 0.019733 0.035867
 15 0.019733 0.033200
 16 0.008889 0.033333
 17 0.007556 0.032978
 18 0.007111 0.032533
 19 0.006400 0.038800
 20 0.004711 0.038400
 21 0.004000 0.038578
 22 0.002756 0.038222
 23 0.002044 0.038222
 24 0.001600 0.038222
 25 0.001156 0.028444
 26 0.001778 0.037867
 27 0.002756 0.031289
 28 0.003822 0.029067
 29 0.003911 0.029244
 30 0.004178 0.029689
 31 0.005778 0.034756
 32 0.011378 0.034133
 33 0.012978 0.032711
 34 0.013778 0.034489
 35 0.014489 0.044267
 36 0.014756 0.043022
 37 0.021689 0.043289
 38 0.022578 0.044889
 39 0.022311 0.036800 end
    fno 26 tsets  10 0.022533 0.030000
 12 0.021733 0.035200
 15 0.013333 0.032089
 16 0.005067 0.032178
 17 0.004978 0.032267
 18 0.004889 0.031822
 19 0.004622 0.031022
 20 0.003911 0.030044
 21 0.003467 0.030133
 22 0.002667 0.029511
 23 0.002222 0.029244
 24 0.001600 0.029156
 25 0.002400 0.028978
 26 0.002222 0.030133
 27 0.002756 0.032000
 28 0.003600 0.041733
 29 0.004178 0.031289
 30 0.010400 0.032089
 31 0.006756 0.043111
 32 0.005956 0.043200
 33 0.013511 0.034222
 34 0.020356 0.035289
 35 0.021244 0.036533
 36 0.022044 0.036267
 38 0.031200 0.038267 end
    fno 27 tsets  10 0.022133 0.036800
 12 0.021200 0.035333
 16 0.018667 0.025867
 17 0.017600 0.025467
 18 0.010667 0.030667
 19 0.009867 0.030044
 20 0.008000 0.029867
 21 0.003467 0.030044
 22 0.003111 0.029956
 23 0.002756 0.030044
 24 0.000000 0.029956
 25 -0.000356 0.030311
 26 0.002844 0.039022
 27 0.003644 0.042044
 28 0.004889 0.039467
 29 0.011022 0.032089
30 0.011600 0.032133
 31 0.012178 0.034400
 32 0.012356 0.033867 end
    fno 28 tsets  12 0.022133 0.039200
 16 0.020133 0.036533
 17 0.012667 0.035333
 18 0.012533 0.034933
 19 0.011467 0.034311
 20 0.010400 0.042844
 21 0.009600 0.043200
 22 0.003378 0.042489
 23 0.003378 0.042844
24 0.001467 0.051200
 25 0.002133 0.042311
 26 0.002933 0.042756
 27 0.003289 0.045689
 28 0.004000 0.042756
 29 0.010400 0.032444
 30 0.011067 0.025333
 31 0.013067 0.027467
 32 0.011911 0.026756 end
    fno 29 tsets  12 0.019733 0.036933
 16 0.020089 0.035378
 17 0.011911 0.034667
 18 0.012000 0.033600
 19 0.005600 0.032667
 20 0.004356 0.032444
 21 0.003911 0.031911
 22 0.003733 0.031111
 23 0.002933 0.030311
 24 0.001778 0.029600
 25 0.002489 0.029156
 26 0.002844 0.029867
 27 0.003200 0.030667
 28 0.008400 0.030133
 31 0.006400 0.025511
 32 0.005956 0.024711 end
    fno 30 tsets  10 0.017600 0.039200
 11 0.023467 0.029467
 12 0.015644 0.045156
 13 0.016356 0.028089
 14 0.015022 0.028356
 15 0.014844 0.027200
 16 0.008978 0.034933
 17 0.007911 0.033244
 19 0.006133 0.031911
 20 0.005689 0.030844
 21 0.002844 0.030756
 22 0.001778 0.037244
 23 0.001511 0.038311
 24 0.000800 0.037733
 25 -0.000267 0.028622
 26 -0.000267 0.029689
 28 0.003556 0.027022
 29 0.007733 0.019022
 30 0.008978 0.014133
 31 0.005244 0.014844
 32 0.009333 0.015289 end
    fno 31 tsets  22 0.005689 0.021600
 23 0.001333 0.021244
 24 0.000267 0.020356
 25 0.000089 0.011467
 26 0.000800 0.012000
 27 0.001511 0.022756 end
    fno 32 tsets  10 0.015911 0.021422
 12 0.013867 0.026400
 19 0.007911 0.019556
 20 0.006311 0.016978
 23 0.000444 0.021689
 24 0.000178 0.016444
 27 0.000978 0.018311
 28 0.000800 0.016800
 30 0.002133 0.008889
 31 0.006222 0.017511
 32 0.004800 0.017511
 33 0.008000 0.016978
 35 0.009333 0.019644
 36 0.009956 0.020178
 38 0.010400 0.015111 end
    fno 33 tsets  12 0.010756 0.023822
 20 0.001600 0.016622
 22 0.001422 0.018400
23 0.000933 0.022933
24 0.000667 0.023467
 27 0.001333 0.015467
 28 0.007111 0.015644
 29 0.004978 0.015467
 30 0.007911 0.016533 end
    fno 34 tsets  16 0.008800 0.018267
 17 0.007822 0.018667
 18 0.008178 0.019378
 20 0.006400 0.018133
 21 0.002311 0.018489
 22 0.001956 0.016889
 23 0.001422 0.021867
 24 0.001244 0.025067
 25 0.001067 0.015289
 26 0.001422 0.015822
 28 0.002044 0.022400
 29 0.011644 0.016356
 30 0.011556 0.017244
 31 0.002667 0.018044
 32 0.006933 0.018400
 34 0.007467 0.018311
 35 0.008978 0.013778
 36 0.009244 0.014133 end
    fno 35 tsets  10 0.017333 0.023067
 12 0.009956 0.022311
 16 0.009067 0.014311
 17 0.008267 0.019467
 18 0.007378 0.012889
 19 0.006844 0.019022
 22 0.001689 0.024178
 23 0.001511 0.023733
 24 0.000889 0.024444
 25 0.000889 0.015644
 26 0.001067 0.024800
 27 0.000978 0.032800
 28 0.001244 0.017778
 29 0.001778 0.014844
 30 0.002133 0.015111
 31 0.002756 0.017067
 33 0.008533 0.017067
 34 0.006133 0.017778
 35 0.006667 0.019644
 37 0.010400 0.014933
 38 0.010933 0.015467 end
    fno 36 tsets  16 0.013333 0.018000
 17 0.007200 0.022933
 18 0.006400 0.022311
 19 0.005511 0.022489
 20 0.005733 0.015733
 21 0.001511 0.015378
 22 0.000889 0.014844
 23 0.000533 0.014667
 26 0.001244 0.029867
 27 -0.000267 0.021600
 28 0.003467 0.021511
 30 0.005511 0.017422
 31 0.005956 0.019911
 32 0.006133 0.019644 end
    fno 37 tsets  18 0.007733 0.012533
 19 0.007556 0.018667
 20 0.002311 0.019022
 21 0.002044 0.019644
 22 0.002222 0.018044
 23 0.001333 0.025867
 24 0.000533 0.023733
 25 0.000356 0.024356
 27 0.002311 0.025067
 29 0.003644 0.017422
 30 0.004444 0.017600
 31 0.004356 0.019200
 33 0.008533 0.019111
 34 0.009156 0.013333 end
    fno 38 tsets  20 0.008267 0.017600
 21 0.007200 0.017333
 23 0.005333 0.016267
 24 0.004889 0.016089
 25 0.004622 0.015556
 26 0.005156 0.016267
 28 0.002222 0.016978
 29 0.003289 0.016622
 31 0.004356 0.018667
 32 0.004889 0.019911 end
    fno 39 tsets  
 15 0.014000 0.019733
 16 0.008533 0.024533
 17 0.008667 0.025200
 18 0.007644 0.024711
 19 0.002578 0.024533
 20 0.002311 0.022933
 21 0.002044 0.023022
 22 0.001778 0.026133
 23 -0.000089 0.025867
 24 -0.000178 0.024800
 25 -0.000267 0.024178
 26 0.001422 0.025333
 27 0.002400 0.028000
 28 0.003289 0.026311
 29 0.004356 0.017156
 30 0.004800 0.017867
31 0.005333 0.024400
32 0.005733 0.025067
 33 0.010489 0.019378
 34 0.010667 0.020089 end
    fno 40 tsets  12 0.010844 0.020178
 15 0.009600 0.014133
 16 0.008978 0.018400
 17 0.004533 0.018044
 18 0.004267 0.017511
 19 0.003733 0.017156
 20 0.003289 0.016444
 21 0.001956 0.015911
 22 0.001333 0.015644
 23 0.001067 0.025244
 24 -0.000089 0.024622
 25 -0.000267 0.024000
 26 0.000978 0.023378
 27 0.001422 0.024089
 28 0.002400 0.028089
 29 0.002933 0.023111
 30 0.007556 0.023200
 31 0.003333 0.024667
 32 0.006756 0.020711
 33 0.007111 0.012711
 35 0.008622 0.013956 end
    fno 41 tsets  11 0.012000 0.015600
 12 0.011200 0.022400
 16 0.008711 0.020000
 17 0.008711 0.019467
 18 0.003733 0.018756
 19 0.002844 0.023289
 20 0.003022 0.028267
 21 0.002133 0.028089
 22 0.001867 0.027467
 23 0.001600 0.027200
 24 -0.000089 0.026044
 25 0.000533 0.025333
 26 0.001244 0.025867
 27 0.001778 0.031822
 28 0.002756 0.026044
 29 0.002578 0.024800
 30 0.003733 0.023111
 31 0.003289 0.019022
 32 0.004444 0.021956
 34 0.009956 0.014844
 35 0.011022 0.016178
 36 0.011467 0.016133
 37 0.011822 0.017067
 38 0.012000 0.016800 end
    fno 42 tsets  7 0.013067 0.016667
 12 0.010400 0.021867
 15 0.013600 0.018533
 16 0.008178 0.019822
 17 0.008356 0.018311
 18 0.003378 0.018400
 19 0.003200 0.024444
 20 0.002756 0.023911
 21 0.002578 0.025422
 22 0.001867 0.025333
 23 0.000889 0.025511
 24 0.000000 0.025600
 25 0.000089 0.026044
 27 0.001778 0.029422
 28 0.002311 0.027911
 29 0.003022 0.016800
 30 0.003733 0.011556
 31 0.004444 0.021867
 32 0.004889 0.022222
 33 0.009511 0.013956
 34 0.005689 0.021600
 36 0.012178 0.023467
 37 0.012178 0.016089
 38 0.009333 0.016267
 39 0.012444 0.016711 end
    fno 43 tsets  12 0.010311 0.015733
 13 0.010844 0.015467
 14 0.010044 0.014933
 15 0.010400 0.020267
 16 0.004889 0.020622
 17 0.004178 0.020000
 18 0.003822 0.017778
 19 0.003556 0.022133
 20 0.002844 0.021156
 21 0.001778 0.026489
 23 0.000978 0.025156
 24 0.000711 0.024800
 25 0.000356 0.012711
 26 -0.000444 0.017156
 27 0.000000 0.018133
 28 -0.000356 0.010044
 29 0.003378 0.017422
 30 0.003644 0.016978
 31 0.003556 0.020089
 32 0.003733 0.020889
 33 0.005156 0.018844
 34 0.006133 0.020622
 35 0.010400 0.015289
 36 0.008089 0.020711
 37 0.008533 0.020622
 38 0.007733 0.017067
 39 0.012444 0.017600 end
end
weight
    fno 6 lno 6 twp 24 0  end
    fno 7 lno 7 twp 24 0 26 0 end
    fno 8 lno 9 twp 24 0  end
    fno 10 lno 10 twp 24 0  end
    fno 11 lno 11 twp 24 0 26 0  end
    fno 12 lno 12 twp 24 0  end
    fno 13 lno 13 twp 24 0  end
    fno 14 lno 14 twp 24 0  end
    fno 15 lno 15 twp 12 0 26 0  end
    fno 16 lno 16 twp 12 0  end
    fno 17 lno 17 twp 20 -1 end
    fno 18 lno 18 twp 24 0 35 0 end
    fno 19 lno 19 twp 35 0  end
    fno 21 lno 21 twp 24 0 35 0 end
    fno 23 lno 23 twp 12 0 19 0 35 0  end
    fno 24 lno 24 twp 35 0 end
    fno 26 lno 26 twp 7 0  end
    fno 29 lno 29 twp 11 0 end
    fno 30 lno 30 twp 2 0 3 0 4 0 9 0 18 0 27 0 33 0 34 0 48 0 end
    fno 31 lno 31 twp 4 0 7 0 8 0 13 0 16 0 20 0 21 0 41 0  end
    fno 32 lno 32 twp 2 0 5 0 9 0 11 0 14 0 15 0 16 0 17 0 18 0 
       21 0 22 0 25 0 26 0 29 0 34 0 40 0  end
    fno 33 lno 33 twp 11 0 16 0 17 0 18 0 19 0 21 0 25 0 26 0 31 0 
       32 0  end
    fno 34 lno 34 twp 7 0 19 0 27 0 39 0 43 0  end
    fno 35 lno 35 twp 3 0 8 0 20 0 21 0 32 0 36 0 48 0  end
    fno 36 lno 36 twp 1 0 12 0 24 0 25 0 29 0 41 0  end
    fno 37 lno 37 twp 5 0 7 0 16 0 17 0 26 0 28 0 32 0 37 0 38 0 
       39 0 42 0 43 0  end
    fno 38 lno 38 twp 14 0 19 0 22 0 27 0 30 0 34 0 38 0 43 0  end
    fno 39 lno 39 twp 35 0  end
    fno 40 lno 40 twp 34 0  end
    fno 42 lno 42 twp 26 0 35 0  end
    fno 43 lno 43 twp 22 0  end
end
gather
    mintrs 1 maxtrs 13 end
end
geom
   type 1
   epath elevations
#  DO IT EXACTLY THIS WAY SO THE SURFACE LOCATIONS FOR ELEVATIONS WORK!
   fs 1 ls 1
   gxp 1 -120 24 -5 25 5 48 120 rpadd 25 dfls 0
   dbrps 2.5 smear 2.5 end
   fs 2 ls 8 gxp 1 -120 24 -5 25 5 48 120 rpadd 25 dfls 10 end
#  traces 31 and 32 are swapped
   fs 9 ls 9 dfls 10 gxp 1 -120 24 -5 25 5 30 30 31 40 32 35 33 45 48 120 end
#  Changed from 10 cm shot spacing to 20 cm
   fs 10 ls 29 dfls 20 gxp 1 -120 24 -5 25 5 30 30 31 40 32 35 33 45 48 120 end
   fs 30 ls 43 gxp 1 -120 24 -5 25 5 48 120 end
end
diskoa
   fon 21  # gather threw out the dead traces, so the first live is really rp 21
   opath little.rps.new end
end
prout
   fno 0 lno 99999 ftr 0 ltr 9999 end
end
end

    
cats23.html0000755000076500001200000000157507303254030013613 0ustar  henkartadmin00000000000000plot some cmp gathers (rps)
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    #! /bin/csh -f
if( $#argv < 2 ) then
     echo "need the start and stop rps numbers"
     exit 1
endif
set FNO = $1
set LNO = $2
sioseis << eof
procs diskin filter shift nmo plot end
diskin
   set 0 .11 allno no
   ipath little.rps.new fno $FNO lno $LNO end
end
filter 
  ftype 0 pass 100 800 dbdrop 48 end
end
 shift
    datume 600 datumv 60000 end # elevation is in mm
 end
 nmo
    fno 111 vtp 6000 0  end
 end
agc
   winlen .01 end
end
plot
   scalar 0 recsp yes
   nsecs .1 tlines .002 .01 .05 stime 0
   nibs 75 trpin 4 vscale 100 def .08 clip 1
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil
   end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
xloadimage -r 90 sunfil 

    
cats24.html0000755000076500001200000000212407303254170013610 0ustar  henkartadmin00000000000000 stack the cmp gathers
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs diskin filter mute nmo shift avenor stack diskoa agc plot end 
 diskin 
   set 0 .12 ipath little.rps.new  end 
 end 
mute
    ttp 1 .01 end
end
avenor
   sets .05 .1 end
end
 nmo 
    fno 111 vtp 6000 0  end
!    fno 111 vtp 10000 0 10000 .03 end
!    fno 175 vtp 5000 0 10000 .03 end
!    fno 240 vtp 10000 0 10000 .03 end
 end 
 prout 
    fno 0 lno 9999 ftr 0 ltr 999 end 
 end 
 filter 
    ftype 0 pass 100 800 dbdrop 48 end 
 end 
 shift 
    datume 600 datumv 60000 end # elevation is in mm 
 end 
 diskoa 
    opath little.stack.new end 
 end 
 agc 
    winlen .01 end 
 end 
 plot 
  wiggle 0
    nsecs .10 tlines .01 .05 .1 stime 0 
    nibs 300 trpin 20 vscale 26.6666 def .04 clip .05 
!    ftag 1 taginc 10 ann rpno 
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1 
   srpath sunfil end 
 end 
 end 
eof
xloadimage -r 90 sunfil &
#suntops -w 8 -h 10.5 < sunfil > psfil

    
cats25.html0000755000076500001200000000174307303254372013623 0ustar  henkartadmin00000000000000fkmigr
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs diskin tx2fk fkmigr fk2tx filter mute diskoa agc plot end
diskin
   ipath little.stack.new end
end
tx2fk
   nxpad 50  end
end
diskoa
   opath little.fkmigr.new end
end
mute
 fno 21 ttp 1 .021 end
 fno 81 ttp 1 .025 end
 fno 121 ttp 1 .011 end
 fno 141 ttp 1 0 end
 fno 231 ttp 1 0 end
 fno 271 ttp 1 .01 end
 fno 291 ttp 1 .015 end
 fno 321 ttp 1 .02 end
end
fkmigr
   vel 60 deltax 2.5 end
end
 agc 
    winlen .01 end 
 end 
filter
   pass 100 800 ftype 0 dbdrop 48 end
end
 plot 
  wiggle 0
    nsecs .12 tlines .01 .05 .1  stime 0 
    nibs 300 trpin 20 vscale 26.6666 def .12 clip .12 
!    ftag 1 taginc 10 ann rpno 
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1 
   srpath sunfil.jah end 
 end 
 end 
eof
xloadimage -r 90 sunfil.jah &
suntops -w 8 -h 10.5 < sunfil.jah > psfil

    
cats26.html0000755000076500001200000000136107303254452013617 0ustar  henkartadmin00000000000000Final plot
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs sort diskin agc plot end
diskin
   spath sfile
    ipath little.fkmigr.new end
end
prout
    fno 0 lno 999999 ftr 0 ltr 9999 end
end
sort
  ipath little.fkmigr.new opath sfile
  lkey1 6 rev1 yes end
end
agc 
    winlen .01 end 
 end 
filter
   pass 100 800 ftype 0 dbdrop 48 end
end
 plot 
  wiggle 0
    nsecs .12 tlines .01 .05 .1 stime 0 
    nibs 300 trpin 20 vscale 26.6666 def .14 clip .14
!    ftag 1 taginc 10 ann rpno 
    ftag 5 taginc 40 ann fanno fanno 4 anninc -1 
   srpath sunfil end 
 end 
 end 
eof
xloadimage -r 90 sunfil &

    
cats27.html0000755000076500001200000000232007303254757013624 0ustar  henkartadmin00000000000000 plot shot 29
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    sioseis << eof
procs sort diskin weight filter smute agc plot end
diskin
   spath sfile
   ipath shot29.segy end
end
sort
  ipath shot29.segy opath sfile
  lkey1 4 rev1 yes end
end
prout
    fno 0 lno 99999 ftr 1 ltr 999 end
end
agc
   winlen .01 end
end
weight
      fno 29 lno 29 twp 11 0 end
end
smute
   interp no
    fno 29 tsets  12 -0.000178 0.037244
 16 -0.000089 0.03507
 17 -0.000267 0.034400
 18 -0.000089 0.03352
 19 -0.000356 0.033422
 20 -0.000089 0.03216
 21 -0.000089 0.03167
 22 -0.000178 0.03069
 23 -0.000267 0.030133
 24 -0.000444 0.02931
 25 -0.000444 0.02905
 26 -0.000267 0.029422
 27 -0.000267 0.04504
 28 0.000000 0.044801
 31 -0.000356 0.042844
 32 -0.000089 0.04255 end
end
filter
!  ftype 0 pass 100 800  dbdrop 48 end
  ftype 0 pass 100 800  end
end
plot
   scalar 0
   nsecs .1 tlines .01 .05 stime 0
   nibs 75 trpin 6 vscale 150 def .1 clip 1
!   nsecs .07 nibs 75 trpin 3 vscale 150 def .1 clip 1
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil
   end
end
end
eof
xloadimage -r 90 sunfil &

    
cats3.html0000755000076500001200000000442606776503052013545 0ustar  henkartadmin00000000000000
Script to weight smute agc plot selected shots.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    

#! /bin/csh -f
if( $#argv < 1 ) then
     echo "need the shot number"
     exit 1
endif
set SHOTNO = $1
sioseis << eof
procs diskin weight smute agc plot end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
agc
   winlen .01 end
end
weight
   fno 6 lno 14 twp 24 0 end
   fno 15 lno 15 twp 26 0 end
   fno 16 lno 16 twp 12 0 end
   fno 17 lno 17 twp 20 -1 end
   fno 18 lno 19 twp 35 0 end
   fno 21 lno 21 twp 35 0 end
   fno 23 lno 24 twp 35 0 end
   fno 26 lno 26 twp 7 0 end
   fno 29 lno 29 twp 11 0 end
   fno 30 lno 30 twp 27 0 end
   fno 31 lno 31 twp 13 0 20 0 21 0 end
   fno 32 lno 32 twp 2 0 5 0 21 0 25 0 end
   fno 33 lno 33 twp 16 0 17 0 31 0 end
   fno 34 lno 34 twp 39 0 end
   fno 36 lno 36 twp 24 0 41 0 end
   fno 37 lno 37 twp 16 0 17 0 37 0 39 0 end
   fno 38 lno 38 twp 14 0 30 0 34 0 end
   fno 39 lno 39 twp 35 0 end
   fno 42 lno 42 twp 35 0 end
   fno 43 lno 43 twp 24 0 end
end
smute
   fno 30 lno 30 ttp 2 .072 3 .076 4 .042 9 .031 18 .076 33 .05 34 .05 48 .043 end
   fno 31 lno 31 ttp 4 .034 7 .062 8 .05 16 .067 41 .055 end
   fno 32 lno 32 ttp 9 .042 11 .032 14 .043 15 .02 16 .065
    17 .043 18 .055 22 .06 26 .05 29 .06 34 .057 40 .026 end
   fno 33 lno 33 ttp 11 .05 18 .044 19 .082 21 .066 25 .049 26 .06 32 .053 end
   fno 34 lno 34 ttp 7 .075 19 .024 27 .017 43 .035 end
   fno 35 lno 35 ttp 3 .04 8 .04 20 .053 21 .058 32 .03 36 .03 48 .086 end
   fno 36 lno 36 ttp 1 .029 12 .052 25 .048 29 .046 end
   fno 37 lno 37 ttp 5 .038 7 .042 20 .092 26 .03 28 .03 32 .02
      38 .043 42 .026 43 .052 end
   fno 38 lno 38 ttp 19 .035 22 .045 27 .035 38 .045 43 .018 end end

plot
   scalar 0
   nsecs .11 tlines .01 .05 .1 stime 0
   nibs 75 trpin 5 vscale 53.3333 def .08 clip .6
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
xloadimage -r 90 sunfil &
suntops -w 8 -h 10.5 < sunfil > psfil
##lpr -Pmumbo psfil

    

    

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

cats4.html0000755000076500001200000000400006634273544013535 0ustar  henkartadmin00000000000000
Script to plot every shot on the screen.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    
#! /bin/csh -f
#  Script to plot every shot on the screen with a wait
set SHOTNO = $1
while ( $SHOTNO <= $2 )
sioseis << eof
procs diskin weight smute agc plot end
agc
   winlen .02 end
end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
weight
   fno 1 lno 9 twp 24 0 end
   fno 10 lno 10 twp 26 0 end
   fno 12 lno 12 twp 20 -1 end
   fno 13 lno 14 twp 35 0 end
   fno 16 lno 16 twp 35 0 end
   fno 18 lno 19 twp 35 0 end
   fno 24 lno 24 twp 11 0 end
   fno 25 lno 25 twp 27 0 end
   fno 26 lno 26 twp 13 0 20 0 21 0 end
   fno 27 lno 27 twp 2 0 5 0 21 0 25 0 end
   fno 28 lno 28 twp 16 0 17 0 31 0 end
   fno 29 lno 29 twp 39 0 end
   fno 31 lno 31 twp 24 0 41 0 end
   fno 32 lno 32 twp 16 0 17 0 37 0 39 0 end
   fno 33 lno 33 twp 14 0 30 0 34 0 end
   fno 34 lno 34 twp 35 0 end
   fno 37 lno 37 twp 35 0 end
end
smute
   fno 25 lno 25 ttp 2 .072 3 .076 4 .042 9 .031 18 .076 33 .05 34 .05 
48 .043 end
   fno 26 lno 26 ttp 4 .034 7 .062 8 .05 16 .067 41 .055 end
   fno 27 lno 27 ttp 9 .042 11 .032 14 .043 15 .02 16 .065 
    17 .043 18 .055 22 .06 26 .05 29 .06 34 .057 40 .026 end
   fno 28 lno 28 ttp 11 .05 18 .044 19 .082 21 .066 25 .049 26 .06 32 .053 end
   fno 29 lno 29 ttp 7 .075 19 .024 27 .017 43 .035 end
   fno 30 lno 30 ttp 3 .04 8 .04 20 .053 21 .058 32 .03 36 .03 48 .086 
end
   fno 31 lno 31 ttp 1 .029 12 .052 25 .048 29 .046 end
   fno 32 lno 32 ttp 5 .038 7 .042 20 .092 26 .03 28 .03 32 .02
      38 .043 42 .026 43 .052 end
   fno 33 lno 33 ttp 19 .035 22 .045 27 .035 38 .045 43 .018 end
end
plot
   scalar 3.E-06   # little hammer
   nsecs .12 tlines .01 .05 .1 stime 0
   nibs 75 trpin 3 vscale 53.3333 def .15
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
xloadimage -r 90 sunfil
@ SHOTNO = $SHOTNO + 1
end

    
cats5.html0000755000076500001200000000307606670040552013541 0ustar  henkartadmin00000000000000
Script to collect all the little hammer shots.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    
     Script to collect all the little hammer shots.


sioseis << eof
procs seg2in diskoa prout end
seg2in
   ipath 1014.DAT end
   ipath 1018.DAT end
   ipath 1022.DAT end
   ipath 1025.DAT end
   ipath 1029.DAT end
   ipath 1033.DAT end
   ipath 1037.DAT end
   ipath 1041.DAT end
   ipath 1045.DAT end
   ipath 1048.DAT end
   ipath 1051.DAT end
   ipath 1054.DAT end
   ipath 1057.DAT end
   ipath 1060.DAT end
   ipath 1063.DAT end
   ipath 1066.DAT end
   ipath 1069.DAT end
   ipath 1072.DAT end
   ipath 1077.DAT end
   ipath 1081.DAT end
   ipath 1085.DAT end
   ipath 1089.DAT end
   ipath 1093.DAT end
   ipath 1098.DAT end
   ipath /archive/mcs/1998/cats/1102.DAT end
   ipath /archive/mcs/1998/cats/1106.DAT end
   ipath /archive/mcs/1998/cats/1110.DAT end
   ipath /archive/mcs/1998/cats/1114.DAT end
   ipath /archive/mcs/1998/cats/1118.DAT end
   ipath /archive/mcs/1998/cats/1122.DAT end
   ipath /archive/mcs/1998/cats/1126.DAT end
   ipath /archive/mcs/1998/cats/1130.DAT end
   ipath /archive/mcs/1998/cats/1134.DAT end
   ipath /archive/mcs/1998/cats/1138.DAT end
   ipath /archive/mcs/1998/cats/1142.DAT end
   ipath /archive/mcs/1998/cats/1146.DAT end
   ipath /archive/mcs/1998/cats/1150.DAT end
   ipath /archive/mcs/1998/cats/1154.DAT end
end
diskoa
   fon 1 opath little.segy end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof

    
cats6.html0000644000076500001200000000401006770272660013534 0ustar  henkartadmin00000000000000
Script to gather (sort) the data by RP.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


         Script to gather (sort) the data by RP.



 sioseis << eof
procs diskin weight smute geom gather diskoa end
diskin
   set 0 .15 ipath little.segy  end
end
diskoa
   fon 1 opath gathers.segy end
end
gather
   maxtrs 6 mintrs 6 end
end
geom
   epath elevations
   fs 1 ls 1
   gxp 1 -120 24 -5 25 5 48 120 rpadd 21 dfls 0 dbrps 2.5 smear 2.5 end
   fs 2 ls 4 dfls 10
   fs 5 ls 23 dfls 20 end
   fs 24 ls 24 gxp 1 -120 24 -5 25 5 30 30 31 40 32 35 33 45 48 120 end
   fs 25 ls 38 gxp 1 -120 24 -5 25 5 48 120 end
end
weight
   fno 10 lno 10 twp 26 0 end
   fno 12 lno 12 twp 20 -1 end
   fno 13 lno 14 twp 35 0 end
   fno 16 lno 16 twp 35 0 end
   fno 18 lno 19 twp 35 0 end
   fno 24 lno 24 twp 11 0 end
   fno 25 lno 25 twp 27 0 end
   fno 26 lno 26 twp 13 0 20 0 21 0 end
   fno 27 lno 27 twp 2 0 5 0 21 0 25 0 end
   fno 28 lno 28 twp 16 0 17 0 31 0 end
   fno 29 lno 29 twp 39 0 end
   fno 31 lno 31 twp 24 0  41 0 end
   fno 32 lno 32 twp 16 0 17 0 37 0 39 0 end
   fno 33 lno 33 twp 14 0 30 0 34 0 end
   fno 34 lno 34 twp 35 0 end
   fno 37 lno 37 twp 35 0 end
end
smute
   fno 25 lno 25 ttp 2 .072 3 .076 4 .042 9 .031 18 .076 33 .05 34 .05 48 .043 end
   fno 26 lno 26 ttp 4 .034 7 .062 8 .05 16 .067 41 .055 end
   fno 27 lno 27 ttp 9 .042 11 .032 14 .043 15 .02 16 .065
    17 .043 18 .055 22 .06 26 .05 29 .06 34 .057 40 .026 end
   fno 28 lno 28 ttp 11 .05 18 .044 19 .082 21 .066 25 .049 26 .06 32 .053 end
   fno 29 lno 29 ttp 7 .075 19 .024 27 .017 43 .035 end
   fno 30 lno 30 ttp 3 .04 8 .04 20 .053 21 .058 32 .03 36 .03 48 .086 end
   fno 31 lno 31 ttp 1 .029 12 .052 25 .048 29 .046 end
   fno 32 lno 32 ttp 5 .038 7 .042 20 .092 26 .03 28 .03 32 .02
      38 .043 42 .026 43 .052 end
   fno 33 lno 33 ttp 19 .035 22 .045 27 .035 38 .045 43 .018 end
end

prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof

cats7.html0000644000076500001200000000245406776503534013552 0ustar  henkartadmin00000000000000
Script to moveout, stack and plot the whole survey.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


         Script to moveout, stack and plot the whole survey.



sioseis << eof
procs diskin weight filter nmo shift stack agc plot end
 diskin
   set 0 .12
    ipath gathers.segy end
 end
mute
    ttp 1 .001 end
end
 nmo
    fno 111 vtp 6000 0  end
 end
 weight
    fno 0 lno 99999 xwp 45 0 50 0 55 0 60 0 65 0 70 0 75 0 80 0
      85 0 90 0 95 0 100 0 105 0 110 0 115 0 120 0 end
 end
avenor
    sets 0.01 0.12 end
end
 prout
    fno 0 lno 9999 ftr 0 ltr 999 end
 end
 filter
    ftype 0 pass 100 800 dbdrop 48 end
 end
 shift
    datume 600 datumv 60000 end # elevation is in mm
 end
 diskoa
    opath stk end
 end
 agc
    winlen .01 end
 end
 plot
  wiggle 0
    nsecs .12 tlines .01 .05 .1 stime 0
    nibs 300 trpin 20 vscale 26.6666 def .04 clip .05
!    ftag 1 taginc 10 ann rpno
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1
   srpath sunfil end
 end
 end
eof
xloadimage -r 90 sunfil &
suntops -w 8 -h 10.5 < sunfil > psfil

    

    

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
cats8.html0000644000076500001200000001556307073155051013544 0ustar  henkartadmin00000000000000User Discussion
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


    QUESTION:
     Here's some questions about SIOSEIS that I'm hoping you will answer for
me.  I will form these as a list so as not to send you an email for each
question.

1) I notice that in c_gather script, time is in seconds (diskin, set) and
that distance is in cm (geom,gpx).  Does this inconsistancy matter later on
with velocity or are we working in cm/s? jah says we are working in cm/s
(as I think I have seen with a velocity of 8000 in a script)


    ANSWER:
     SIOSEIS uses the SEG-Y trace header as a "database" for many variables.
Unfortunately, the SEG-Y format was created in the early '60s when memory
was expensive and 32 bit computation was unusual.  Range, the distance from
the source to the receiver, is a 32 bit integer in SEG-Y.
    Process GEOM just modifies the SEG-Y trace header by creating the
range and the rp number.  The rp number calculation is done in floating
point before the range truncation, sp only subsequent processes get the
truncation to integer.
    Process NMO uses the range from the SEG-Y header and the velocity input
through the user parameters; the user velocity must be the same units as the
range in the SEG-Y header.
    SIOSEIS keeps time in seconds.  The SEG-Y specifies the sample interval
in microseconds, but most exploration digitizers are in miliseconds.  SIOSEIS
tried to eliminate this confusion by keeping to seconds.  Problems do arise
in GPR, which uses nanoseconds, and in OBS and acoustic systems that digitize
as a sample rate (128 samples per second or 1024 samples per second are not
integer sample intervals).  SIOSEIS has a special entry for some of these
"well known" rates and makes them floating point.
    All processes such as NMO use this floating point time in seconds rather
than the SEG-Y time unit of microseconds.
    So, the range definition in geom is the same used by NMO.  If geom is in
cm, NMO is in cm/s.



    QUESTION:
     2)  rp, smear, and gather: I see in c_gather script:
**********
gather
   maxtrs 6 mintrs 3 end
end
geom
   gxp 1 60 12 5 13 -5 24 -60 dfls 20 dbrps 2.5 smear 2.5 end
end
********************
where geom is called before gather.

from your web page:
SMEAR  - The subsurface smear factor.  The distance from a rp in which 
         to look for a trace.  The smear is centered about the rp.

 a) does this mean +/- SMEAR around rp or +/- SMEAR/2 around rp, I bet the
former, because the later would give you no gain for dbrps 2.5 smear 2.5


    ANSWER:
     "The smear is centered about the rp." means the rp +/- smear/2.
Smear exists in the script simply to reinforce what's happening.
One of the test I did was to change both dbrps and smear in an effort
to increase the stacking fold.


    QUESTION:
     b) from geom above, is this 3 or 4 fold.  Graphically, in the most idea
case (looking at shots at each end and the two inbetween and shooting to
the RT and LF), I can make it 4 fold, but there is this 'null' space under
the shot....
ANSWER:
  gather maxtrs 6 mintrs 3 end means that each cmp gather will have a maximum
of 6 traces and a minimum of 3 traces.  I used maxtrs 6 simply to reduce the
amount of scratch disk needed during the gather process (the preset would be
24 for the 24 trace shots).   I used mintrs so that sioseis would put a zero
trace in the gather if the stack fold was less than 3.
   As I recall, the CATS line started with dfls 10 and changed to dfls 20.
The split spread geometry with 24 trace cable yields 12 CDP when shots
advance by two geophones, 6 CDP when shots advance by four geophones.
gxp 1 60 12 5 13 -5 24 -60 dfls 20 dbrps 2.5 smear 2.5 end
describes a geometry with 24 phones that advances by 4 phones - nominally.
Indeed, the rp under the shot has one fewer traces and one a couple away has
an extra trace.
   As I recall, John and I felt that traces farther than 30cm did not contain
reflections and were eliminated in process weight by weighting the traces to
zero using the xwp parameter.


    QUESTION:
     c) why have a range of number of traces to use in gather? or really, why
have a max number of traces to use in gather?  if the smear is as above,
then there would be a possible of 3 traces per shot, so 3 times the fold
would be the total max traces that 'could' be used, yes?  if so, then 3 x 3
fold (jah says 3 fold not 4, but cant explain why graphics don't indicate
this) would yield 9 possible traces per rp or gather, but you use 6??  what
about the mintrs of 3??


    ANSWER:
     Hopefully the other explanations answered this one.


    QUESTION:
     I'm trying to understand your migration process.  I see in
/nautilus2/henkart/cats/fkmigr* that the process fkmigr call for a velocity
of 60 and a trace spacing of 2.5:
fkmigr
   vel 60 deltax 2.5 end
end

I'm confused.  in c_stk we used vtp 6000 (cm/s) because geom was in cm, but
above in fkmigr this would be inconsistent units (vel m/s and deltax in cm).


    ANSWER:
     FKMIGR uses the user's DELTAX and VEL, so just be consistent.  The SEGY
range used in NMO is not used in FKMIGR.  DELTAX is the uniform distance
between traces, which on this stacked dataset is 2.5 cm.



    ANSWER:
     John and I never resolved a factor of two in velocities.   All velocities
in sioseis pertain to the seismograph two-way travel time.  John thinks of
them as being okay one-way travel times.


    QUESTION:
    How does one use the elevation (epath) parameter in geom when the data
have been shot point gathered since the range is just repeated for each phone gather?


    ANSWER:
    Process geom parameter elevation just enters the elevations into
the trace header and process shift applies the datum shift.
So gather doesn't affect the traces headers - it keeps the trace
header with the data trace, so all is well.


    QUESTION:
    I don't see any muting in the plot.


    ANSWER:
    Is mute in the procs list?  Sioseis only does the process if it's
in the procs list, even if the parameters are given.


    QUESTION:
    I used the same script to plot stacked data and migrated data for the
three lines: 1a, 1b, and 3. All are different lengths (number of rps,
physical dist...) using the same vscale and trpin I get three different
time/depth scales, but the horizontal (dist) is about the same for each
i.e., it fills the page?
 
what's going on here?  this must be a suntops thing..... how can I keep
the scaling the same (i.e., I want to match up the 1a and 1b figures and
have figure 3 proportional to the others).  I guess I just tweek the
suntops parameters?
suntops -w 8 -h 10.5 < sunfil > psfil

    ANSWER:
    Yup, suntops makes every Sun rasterfile be 8x10.5
Some other image format conversions programs might do what you want.


    

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
cctechnol.html0000644000076500001200000000451210023166446014453 0ustar  henkartadmin00000000000000

Another non standard SEG-D

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Analysis of CCTechnology's HydroScience SeaMux data
    

        Hydrosciene's SeaMux generates SS formatted files
on a PC (Intel byte order).  It's SEG-D with a 32 byte
header that's in Intel byte order.  They use the SEG-D 8036
data word format (24 bit intger), but the SEG-D record length
is incorrect.
    Consequently, an option was added to SIOSEIS process SEGDDIN,
"format hti".

    Five test files were submitted.  I converted these files to
SEG-Y using script:
sioseis << eof
procs segddin diskoa end
segddin
   format hti
!   ipath SeaMux-624-channels.ss end
!   ipath SeaMUX-first-record-in-water.ss end
!   ipath SeaMUX-744-channels-31Hz-osc.ss end
  ipath SeaMUX_Sharkbite.ss end
!   ipath SeaMUX-744-channels-inputs-grounded.ss end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
diskoa
!   opath SeaMux-624-channels.segy end
!   opath SeaMUX-first-record-in-water.segy end
!   opath SeaMUX-744-channels-31Hz-osc.segy end
   opath SeaMUX_Sharkbite.segy end
!   opath SeaMUX-744-channels-inputs-grounded.segy end
end
end
eof


Notice that comments start with ! or #.


    The basic script for plotting was:
sioseis << eof
procs diskin plot end
diskin
!   ipath SeaMux-624-channels.segy end
   ipath  SeaMUX-first-record-in-water.segy end
end
plot
   def .005 vscale 1.25 srpath sunfil.ras nsecs 10
   nibs 2859 ann sh&tr trpin 50
   end
end
end
eof
xloadimage -r 90 sunfil.ras &


     Each file took a few tries with plot parametr def because
the plot scalar is set on the first trace and the first few
traces are garbage.  I could have skipped the garbage traces
by using ftr/ltr.
     I used another plotting trick so that the gar range
traces would still be visible.   "Overdrive" the close traces
and clip them.


    
Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.




cofilt.html0000655000076500001200000001521207712253006013772 0ustar  henkartadmin00000000000000
COFILT
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



                           PROCESS COFILT
                       ------- ------

Document date: 10 September 1998

PROCESS COFILT is a coherence filter based on semblance over a sweep of
linear trends about a point.  A sweep of velocities is performed across
a set of traces centered about each sample of each trace.  The velocity
scan with the maximum semblance is then selected and the amplitudes
along this velocity trajectory are weighted, summed, and optionally
scaled before being output.

PARAMETER DICTIONARY
--------- ----------

REQUIRED PARAMETERS:
-------- -----------
DX     - Trace separation distance.  This is the distance between
         traces.
         REQUIRED.  range 1.0 to 500.0 e.g.  dx 25

NXWIN  - The number of traces to use in each velocity scan.  The
         velocity sweep is performed across NXWIN traces centered about
         each sample of each trace.  NXWIN must be an odd number.
         REQUIRED.

VMMI   - Velocity minimum-maximum-increment to scan in every semblance
         window.
UMMI   - Slowness minimum-maximum-increment to scan in every semblance
         window.
         Either VMMI or UMMI is REQUIRED.  e.g. vmmi 2000 4000 100

WEIGHT - A list of trace multipliers to use in weighting each trace
         before summing.  When the number of weights is less than
         NXWIN, the center WEIGHT is applied to the center trace of
         the sum.  e.g.  NXWIN 5 WEIGHT 1 2 1
         and the samples along the maximum semblance path are:
         1 .8 .9 .8 .9, then the output value for this point is:
         (1*0+.8*1+.9*2+.8*1+.9*0)
         REQUIRED

OPTIONAL PARAMETERS:
-------- -----------
VSIGN  - Velocity sign.  
       =0, both positive and negative velocities between the minimum
         and maximum are used and the velocity increment is doubled.
         Stacked data should use VSIGN 0
       =1, the positive direction is defined as the direction of
         increasing offset values.  The sign of the velocities is
         determined from the sign of the range in the SEG-Y header.
         Only positive velocities are considered.
         Preset = 0

XSIGN  - Swap the sign of the range in the SEG-Y prior to using.
         Preset = 0

TYPE   - The type of additional weighting to use when summing the data
         of the NXWIN traces along the "best velocity".
       =1, the average of WINLEN semblance values of center trace is
         raised to power SPOWER is used as the weight.
         to weight the data.
         e.g.  NXWIN 5 WEIGHT 1 2 1  TYPE 1 SPOWER .5,
         and the samples along the maximum semblance path are:
         1 .8 .9 .8 .9 and the average semblance value is .5,,
         then the output value for this point is:
         (.5**spower)*(1*0+.8*1+.9*2+.8*1+.9*0)/5
       =2, the average of WINLEN semblance values of center trace is
         divided by the maximum semblance value and is then used to
         evaluate a sigmoidal thresholding function ranging from 0 to 1.         This option produces something akin to a line drawing, but it
         normalizes the maximum semblance found on each trace, so be
         careful.
         Preset = 0.

WINLEN - The window length, in seconds, of the window to use in TYPE 1
         and TYPE 2 weighting.
         Preset=.100.  Example, winlen .080

SPOWER - The power to raise the average semblance when using TYPE 1
         weighting.

NXPAD  - The number of dummy traces to insert at both ends of the set
         of traces being filtered.
         Preset = nxwin / 2
         Either VMMI or UMMI must be given.


     If Vsign=1, then the positive direction is defined as the direction
     of increasing trace number, i.e. traces are assume to have increasing 
     offset values.  The sign of the velocities is determined from the 
     sign of the header offset.

      If the traces are ordered in the correct  sense and the header
       offset sign is also correct, then choose ixsign_ch=1.
       ex.   trace # in file:  1  2  3  4  5  6
            offset in header: -5 -4 -2  0  1  4

      If the traces are ordered in the opposite sense and the header 
       offset sign is correct, then choose ixsign_ch=-1.
       ex.   trace # in file:  1  2  3  4  5  6
            offset in header:  4  1  0 -2 -4 -5

      If the traces are ordered in the correct sense and the header 
       offset sign is incorrect, then choose ixsign_ch=-1.
       ex.   trace # in file:  1  2  3  4  5  6
            offset in header:  5  4  2  0 -1 -4

      If the traces are ordered in the opposite sense and the header 
       offset sign is incorrect, then choose ixsign_ch=1.
       ex.   trace # in file:  1  2  3  4  5  6
            offset in header: -4 -1  0  2  4  5

     If Vsign=0, then both positive and negative velocities between
     vmin and vmax will be used.  In this case, however, only Nvel/2
     velocities for each sign are used. Use this option for coherency
     filtering stacked data, for instance.

     All of the samples within a given velocity trajectory are used to 
     calculate a semblance value for that velocity at each point.  
     The maximum semblance value of each point is used to weight the 
     point if i_wt_type=1or2.  
          For i_wt_type=1, the maximum semblance value to the power of 
                           spower is used to weight the data.  
          For i_wt_type=2, the maximum semblance value is used to evaluate
                           a sigmoidal thresholding function ranging 
                           from 0 to 1.  This option produces something
                           akin to a line drawing, but it normalizes
                           the max semblance found on each trace, so
                           be carefull.
          For i_wt_type=0, the maximum semblance value is used to evaluate

     In the following, "the point" means the center point of the velocity
     scan that is about to be scaled.

     A subset of the samples along the maximum semblance trajectory
     of a given point may also summed.  This subset
     is taken to be centered about the point.  The length of the subset
     is defined by nwts, and nwts values must be supplied.  Some but not
     all of these values may be zero.

     ex. for i_wt_type=1, nwts=3, wts= 1 2 1, nwin=5, assume the
             samples along the max semblance path are: 1 .8 .9 .8 .9 
             and that the max. semblance value is .5, then the output
             value for this point is: (.5**spower)*(.8*1+.9*2+.8*1)/5,
             where the 5=1+2+1.


     Dan Lizarralde, 2/92

    

cofilt1.html0000655000076500001200000000105507673731312014062 0ustar  henkartadmin00000000000000
COFILT example 1
 Back to SIOSEIS examples.
      
Go to SIOSEIS introduction.
      
Go to the list of seismic processes.
    


Coherence filter example
    
SIOSEIS scripts
    
 Plot of input data
    
 Plot of output data
    
Courtesy of Eric Hallenborg.

cofilt2.html0000644000076500001200000000260607673731364014073 0ustar  henkartadmin00000000000000
COFILT example 1
 Back to SIOSEIS examples.
      
Go to SIOSEIS introduction.
    
Back to COFILT example.
      
Go to the list of seismic processes.
    



    Script performing COFILT
    

    sioseis << !
procs diskin cofilt prout diskoa end

diskin
 ipath /net/reddata/wahoo2/simpsons/segy.d/21.d/line_21_filt_fkmig_2400.
7800.segy
 fno 2400 lno 7800
 set 4.6 7.0
 end
end

cofilt
  dx 6.25
  nxwin 15
  vmmi 2000 300000 20
  weight 1 1 2 3 3 4 5 5 5 4 3 3 2 1 1
  end
end
prout
   fno 0 lno 99999 noinc 500 ftr 0 ltr 999 end
end
diskoa
 opath odata end
end
end

end

    

    Script generating the plot file
    

    sioseis << !
procs diskin prout agc plot end
diskin
 ipath /net/reddata/wahoo2/simpsons/segy.d/21.d/line_21_filt_fkmig_2400.
7800.segy
!   ipath odata
 fno 2400 lno 5000 allno no
 set 4.6 7.0
 end
end

cofilt
  dx 6.25
  nxwin 15
  vmmi 2000 300000 20
  weight 1 1 2 3 3 4 5 5 5 4 3 3 2 1 1
  end
end
agc
   winlen .5 end
end
prout
   fno 0 lno 99999 noinc 500 ftr 0 ltr 999 end
end
plot
   srpath sunfil.ras vscale 1.25 trpin 300 nibs 2858
   def .005 clip .003 wiggle 0 stime 4 nsecs 3
   ann rpno taginc 100
   end
end
end
!
xloadimage -r 90 sunfil.ras &

    
corinth.html0000644000076500001200000002614210213450175014156 0ustar  henkartadmin00000000000000
Cross-dip (feathering is good) processing
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    PCH's notes on cross-dip processing
    

    

    Gulf of Corinth Lines 14 and 8 processing notes by pch
   240 channel, 4mil, 4096 samples
   Data have ranges (-187 to -5404) (25m group spacing)
   CMP numbers and CMP traces numbers are in the SEG-Y header also,
which will cause sioseis diskin problems because sioseis assumes
the data have already been gathered (cmp sorted).

SCRIPT to read, agc, and plot a shot:
sioseis << eof
procs diskin header agc plot end
diskin
   sort shot
   fno 10484 lno 10484 allno no
   ipath ew0108.14.1.segy end
end
header
    fno 0 lno 999999 ftr 0 ltr 9999 
   l6 = 0 l7 = 0 end
end
agc
   winlen .5 end
end
filter
   pass 20 80 end
end
plot
   trpin 40
   nibs 2858 vscale 2.5 nsecs 6 recsp yes
   def .05 ann sh&tr anninc 5 srpath sunfil.ras
   end
end
prout
   fno 0 lno 999999 ftr 0 ltr 999 end
end
end
eof
open -a /Applications/GraphicConverter\ US/GraphicConverter.app sunfil.ras


Checked the offset to trace 240.  D-wave arrives at .125.  187m is good.
(doesn't matter since the offsets come from the UKOOA files)

Line 14 , 2001 day 207 1940z to 2300z, shots 10484 - 11050
	day 207 = calendar month  7 day  26



H2600Streamer_001 Model Line GOC6 shots 4191 to 4693: Arc               
H2600Line GOC7                       From Shot 4699 To Shot 5837        
H2600Line GOC8                       From Shot 4707 To Shot 7049        
H2600Line GOC9                       From Shot 7082 To Shot 7480        
H2600Line GOC10                      From Shot 7104 To Shot 7571        
H2600Line GOC11                      From Shot 7587 To Shot 8160        
H2600Streamer_001 Model Line GOC14            shots 10479 to 11050: Arc 
H2600Streamer_001 Model Line GOC15 shots 11051 to 11662: Arc            
H2600Line GOC16                      From Shot 11671 To Shot 12226      
H2600Line GOC17                      From Shot 12258 To Shot 12500      
H2600Line GOC18                      From Shot 12731 To Shot 12771      
H2600Streamer_001 Model Line GOC19 shots 14067 to 15074: Arc            
H2600Streamer_001 Model Line GOC20 shots 15078 to 15510: Arc            
H2600Streamer_001 Model Line GOC25 shots 18157 to 18505: Arc            
Shoot.  The shot numbers on the UKOOA H2600 line are not accurate.
e.g.  GOC08 has shots 6054 to 7049
         09           7082 to 7674
         10           7104 to 7571


GATHER script:
sioseis << eof
procs diskin header geom gather diskoa end
diskin
   sort shot
   fno 10484 lno 10600 allno no  # just do the first bit for check
   ipath /data/vol5/henkart/corinth/segy/ew0108.14.1.segy end
end
header
    fno 0 lno 999999 ftr 0 ltr 9999
   l6 = 0 l7 = 0 end
end
geom
   type 13 dbrps 12.5 rpadd 100
   navfil /data/vol5/henkart/corinth/nav/GOC14.240.p190 end
end
gather
    maxtrs 80 end
end
diskoa
    opath 14-cmps.segy end
end
end
eof

The beginning of the line must be in the turn, because the rp numbers
are strange (go negative, then go positive) and the number of traces
in some bins is large.  So I changed diskin to
    fno 10520 lno 999999 allno no 
and gather to
    maxtrs 100 end


   I want to check the range sioseis computes from the UKOOA file
vs what Spectra put in the SEG-Y trace header.  I also want to
look at some of the feathering angles and cross-line offsets.
  SIOSEIS ver 2005.2 (4 Mar. 2005)  (C) Regents of U.C.                          
 procs diskin geom header prout end 
 diskin 
    sort shot 
    ftr 1 ltr 1 
    fno 10600 lno 10610 allno no 
    ipath /data/vol5/henkart/corinth/segy/ew0108.14.1.segy end 
  ***  WARNING  ***  RP is zero and RP trace number is non-zero.
  DISKIN thinks this file is sorted by RP.
  Use DISKIN parameters NO and TR or SORT to read properly.
  Use process HEADER to set the rp trace number to 0.
 end 
 header 
     fno 0 lno 999999 ftr 0 ltr 9999 
    r59 = i48 / 10. 
    r60 = i49 / 10 
    l6 = 0 l7 = 0 end 
 end 
 geom 
    type 13 dbrps 12.5 rpadd 100 
    navfil /data/vol5/henkart/corinth/nav/GOC14.240.p190 end 
 end 
 prout 
     fno 0 lno 999999 ftr 1 ltr 1 
     indices l3 l4 l10 r59 r60 
     end 
 end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
      10600.          1.0000          5417.0          19.700          1823.8     
      10601.          1.0000          5448.0          19.000          1777.0     
      10602.          1.0000          5481.0          18.400          1731.4     
      10603.          1.0000          5511.0          17.900          1690.3     
      10604.          1.0000          5541.0          17.200          1642.3     
      10605.          1.0000          5572.0          16.600          1594.4     
      10606.          1.0000          5602.0          16.100          1552.1     
      10607.          1.0000          5629.0          15.500          1505.6     
      10608.          1.0000          5660.0          15.000          1464.3     
      10609.          1.0000          5689.0          14.500          1421.8     
      10610.          1.0000          5720.0          13.800          1359.8     
  END OF SIOSEIS RUN

   To get the Spectra ranges:
 procs diskin prout end 
      10600.          1.0000         -5417.0              0.              0.     
      10601.          1.0000         -5448.0              0.              0.     
      10602.          1.0000         -5481.0              0.              0.     
      10603.          1.0000         -5511.0              0.              0.     
      10604.          1.0000         -5541.0              0.              0.     
      10605.          1.0000         -5572.0              0.              0.     
      10606.          1.0000         -5602.0              0.              0.     
      10607.          1.0000         -5629.0              0.              0.     
      10608.          1.0000         -5660.0              0.              0.     
      10609.          1.0000         -5689.0              0.              0.     
      10610.          1.0000         -5720.0              0.              0.     


Other than the sign of the range it looks good.  The angle and offset look big,
so shot 10600 might be in the turn still.  
Spectra:
      10700.          1.0000         -6138.0              0.              0.     
      10701.          1.0000         -6138.0              0.              0.     
      10702.          1.0000         -6136.0              0.              0.     
      10703.          1.0000         -6137.0              0.              0.     
      10704.          1.0000         -6138.0              0.              0.     
      10705.          1.0000         -6136.0              0.              0.     
      10706.          1.0000         -6136.0              0.              0.     
      10707.          1.0000         -6136.0              0.              0.     
      10708.          1.0000         -6135.0              0.              0.     
      10709.          1.0000         -6136.0              0.              0.     
      10710.          1.0000         -6135.0              0.              0.     
sioseis:
      10700.          1.0000          6138.0          1.3000          134.00     
      10701.          1.0000          6137.0          1.3000          140.00     
      10702.          1.0000          6136.0          1.4000          147.90     
      10703.          1.0000          6137.0          1.4000          150.00     
      10704.          1.0000          6138.0          1.5000          159.10     
      10705.          1.0000          6136.0          1.5000          163.90     
      10706.          1.0000          6136.0          1.6000          166.90     
      10707.          1.0000          6136.0          1.6000          172.90     
      10708.          1.0000          6135.0          1.7000          178.80     
      10709.          1.0000          6136.0          1.7000          183.90     
      10710.          1.0000          6135.0          1.8000          187.80     

Much more reasonable.

What do the data look like?  Make a "short trace section" by plotting
the close trace of every shot.
sioseis << eof
procs diskin header geom agc plot end
diskin
   sort shot
   fno 10600 lno 999999
    ftr 240 ltr 240
   ipath /data/vol5/henkart/corinth/segy/ew0108.14.1.segy end
   ipath /data/vol5/henkart/corinth/segy/ew0108.14.2.segy end
end
header
    fno 0 lno 999999 ftr 0 ltr 9999
    r59 = i48 / 10.
    r60 = i49 / 10
   l6 = 0 l7 = 0 end
end
geom
   type 13 dbrps 12.5 rpadd 100
   navfil /data/vol5/henkart/corinth/nav/GOC14.240.p190 end
end
agc
   winlen 1. end
end
plot
   srpath sunfil.ras
  nibs 2859 trpin 200 vscale 1.25 nsecs 8
  clip .005 def .005 ann rpno taginc 100 wiggle 0
   end
end
end
eof
open -a /Applications/GraphicConverter\ US/GraphicConverter.app sunfil.ras




Now I'll gather the whole line and write the feathering angle and offset 
to stdout at the same time   (c_gather > l_angles ).

I'll run it later.  The now looks like:
sioseis << eof
procs diskin header geom prout gather diskoa end
diskin
   sort shot set 0 8   # only do 8 seconds
   fno 10600 lno 999999 allno no
   ipath /sam1/mcs/2001/Corinth/SEGY-shots/line14/ew0108.14.1.segy end
   ipath /sam1/mcs/2001/Corinth/SEGY-shots/line14/ew0108.14.2.segy end
end
 prout
     fno 0 lno 999999 ftr 1 ltr 1
     indices l3 l4 l10 r59 r60
     end
 end
header
    fno 0 lno 999999 ftr 0 ltr 9999
   l6 = 0 l7 = 0 end
end
geom
   type 13 dbrps 12.5 rpadd 100
   navfil /data/vol5/henkart/corinth/nav/GOC14.240.p190 end
end
gather
     maxtrs 100 end
end
diskoa
    opath 14-cmps.segy end
end
end
eof


Note reading both files.

Hum, prout ftr 1 ltr 1 printed every trace.  Timeout while I 
look into this bug.

   Do you want to use ProMax tp process it from here?  And I do
it via sioseis.  This would show that the cross-dip program is
not really married to sioseis.  Sioseis is just used to get
the angle and offset into the SEG-Y header.

    Line 14 feathering angles go from +9 degrees to -13.5 degrees
       10620.          1.0000          5944.0          9.2000          947.20
       11050.          1.0000          5957.0         -13.500         -1391.1
This looks like the streamer never settled after the turn.

 
line 8 - ew0108.8.1.segy starts at 6054, UKOOA ends with 7049
       6054     1       0     1  1  -4380     0   4096  4000 2001 206 13   5   0
       6909     1    1613     1  1  -6138     0   4096  4000 2001 206 18   1   0
       7049

Mladen:
   I had to change the cross-line offset units to meters from decimeters because
it overflowed 16 bit integer.  e.g. large offset > 3276.8 became 32768 decimeters
which became -32765 or something.   Get a new executable after 10am PST 9March.
   Can you plot the streamer from UKOOA via Spectra or ProMax or ??  to check
what sioseis is doing.  
   I'm still not convinced this dataset is the right one to use.  The streamer
doesn't stay feathered to one side on either line.
   I'll try to get a plot of the sioseis feather angle that sioseis produced.

    cs.html0000655000076500001200000001012007752527547013132 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

        This is the story of how I processed some "single channel"
data from the Ewing.  The data were converted into SEG-Y before
being given to me.
ls -l ew*
-rwxr-xr-x    1 henkart  21       612263952 Nov 14 13:42 ew9513_line7.segy


    The data contain 4 channels, where the close group has a length of
12.5m and is 150m from the fantail.  The next group is a 25m group and
then there are two 50m groups.

lsd ew9513_line7.segy 1 12
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
     81884     1       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     2       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     3       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     4       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     5       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     6       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     7       0     0  1      0     0   6144  2000   96  13 13  50   5
     81884     8       0     0  1      0     0   6144  2000   96  13 13  50   5
     81885     1       0     0  1      0     0   6144  2000   96  13 13  50  20
     81885     2       0     0  1      0     0   6144  2000   96  13 13  50  20
     81885     3       0     0  1      0     0   6144  2000   96  13 13  50  20
     81885     4       0     0  1      0     0   6144  2000   96  13 13  50  20


    The first thing I did was to get just look a small 50 shots of each
channel.

    


  • script #1  - Plot 50 shots of each trace
    
 trace 1s plot
    
 trace 2s plot
    
 trace 3s plot
    
 trace 4s plot

    
Notice that trace 3 and trace 4 are significantly better than
trace 1 or trace 2.  I worked with trace 4 only to determine some
other processing parameters.

Waterguns have higher frequency content than airguns and a typical
filter bandpass is 30x130.  Typically, the watergun precurser is
around 35Hz.

    


  • script #2  - Filter and AGC
    
 trace 4s plot

    
Sometimes AGC make the data look noisy, so I tried GAINS instead.

    


  • script #2a  - Filter and GAINS

    
That was a bad choice of GAINS parameter ALPHA, so try alpha .5

    


  • script #2b  - Filter and GAINS
    
 gains alpha .5

    
Change the plot scale so the plot isn't as "scrunched".

    


  • script #2c  - change vscale
    
 plot vscale 5

    
Now, let's look at 400 shots rather than 50

    


  • script #3  - read 400 shots
    
 plot of 400 shots

    
Stack (addition) of any type of signals reduces the random noise by
the square root of the number of signals summed.  E.G. Adding two
traces together will reduce the random noise by SQRT(2).  
Trace 3 and trace 4 are quite good and are similar streamer sections,
so just use those two traces in the stack.  

Trace 3 and 4 are 50 meters apart and the pop interval is 79m, so
simply sum the adjacent traces rather than sorting (gathering) into
CDPs or RPs.
Process STACK sums traces until an "end of gather" flag is detected.
Process DISKIN parameter NTRGAT sets the "end of gather" flag after
NTRGAT traces are read.

    


  • script #4  - stack traces 3 and 4
    
 plot of 400 stacked shots

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
cs1.html0000655000076500001200000000066706440055266013215 0ustar  henkartadmin00000000000000SIOSEIS examples
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin plot end
diskin
    fno 81901 lno 81950 ftr 4 ltr 4 set 4 6
    ipath ew9513_line7.segy end
end
plot
    nibs 75 def .06 trpin 20 vscale 2.5 clip .04 nsecs 2
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs2.html0000655000076500001200000000101606440057752013205 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter agc plot end
diskin
    fno 81901 lno 81950 ftr 4 ltr 4 set 4 8
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
agc
   winlen .5 end
end
plot
    nibs 75 def .08 trpin 20 vscale 2.5 clip .04 nsecs 4
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs2a.html0000655000076500001200000000102706440063575013350 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter gains plot end
diskin
    fno 81901 lno 81950 ftr 4 ltr 4 set 4 8
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
gains
   type 5 alpha 1 end
end
plot
    nibs 75 def .08 trpin 20 vscale 2.5 clip .04 nsecs 4
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs2b.html0000655000076500001200000000103006440063632013335 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter gains plot end
diskin
    fno 81901 lno 81950 ftr 4 ltr 4 set 4 8
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
gains
   type 5 alpha .5 end
end
plot
    nibs 75 def .08 trpin 20 vscale 2.5 clip .04 nsecs 4
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs2c.html0000655000076500001200000000102606440063663013347 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter gains plot end
diskin
    fno 81901 lno 81950 ftr 4 ltr 4 set 4 7
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
gains
   type 5 alpha .5 end
end
plot
    nibs 75 def .08 trpin 20 vscale 5 clip .04 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs3.html0000655000076500001200000000102606440065215013200 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin filter gains plot end
diskin
    fno 81901 lno 82300 ftr 4 ltr 4 set 5 8
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
gains
   type 5 alpha .5 end
end
plot
    nibs 75 def .08 trpin 20 vscale 5 clip .04 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
cs4.html0000655000076500001200000000105006440065244013200 0ustar  henkartadmin00000000000000SIOSEIS SCS example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin stack filter gains plot end
diskin
   ntrgat 2
    fno 81901 lno 82300 ftr 3 ltr 4 set 5 8
    ipath ew9513_line7.segy end
end
filter
   ftype 0 pass 30 120 dbdrop 48 end
end
gains
   type 5 alpha .5 end
end
plot
    nibs 75 def .08 trpin 20 vscale 5 clip .04 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
debias.html0000755000076500001200000000103106343414444013740 0ustar  henkartadmin00000000000000debias
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS DEBIAS

Document Date: 26 October 1981

DEBIAS removes the bias of each and every trace.  Bias is the dc shift
or 0 frequency component.

There are no parameters necessary to run process DEBIAS.

Written and copyrighted (c) by:  Paul Henkart, 
Scripps Institution of Oceanography, 27 October 1981.  
All rights reserved.

    decon.ewing.mit.html0000755000076500001200000000324406311361747015513 0ustar  henkartadmin00000000000000example decon.ewing.mit
Go to the list of seismic processes.
Go to SIOSEIS introduction.

    There are four plots associated with this decon example:
1)  a plot of the stacked data without decon.
2)  A plot of the autocorrelations of the stacked data, showing the
    periods to be removed.
3)  A plot of the stacked data after decon.
4)  A plot of the autocorrelations after decon showing that the
    periodic data has been removed.


sioseis << eof
procs diskin filter agc plot end
diskin
  set 5 8 ipath data.mit end
end
filter
   ftype 2 pass 5 end
end
agc
  winlen .5  end
end
plot
   nibs 75 nsecs 3 ann rpno trpin 20 def .04
   srpath sunfil
   end
end
end
eof
xv sunfil

    


    sioseis << eof
procs diskin acorr plot end
diskin
  set 5 8 ipath data.mit end
end
acorr
   sets 5.3 6.3 olens 1 end
end
plot
   nibs 75 nsecs 1 ann rpno trpin 20 def .04
   srpath sunfil
   end
end
end
xv sunfil

    


    sioseis << eof
procs diskin decon filter agc plot end
diskin
  set 5 8 ipath data.mit end
end
decon
   prewhi .01 sedts 5.3 6.3 fillen .4 pdist .05 end
end
filter
   ftype 2 pass 5 end
end
agc
  winlen .5  end
end
plot
   nibs 75 nsecs 3 ann rpno trpin 20 def .04
   srpath sunfil
   end
end
end
xv sunfil

    


    sioseis << eof
procs diskin decon acorr plot end
diskin
  set 5 8 ipath data.mit end
end
decon
   prewhi .01 sedts 5.3 6.3 fillen .4 pdist .05 end
end
acorr
   sets 5.3 6.3 olens 1 end
end
plot
   nibs 75 nsecs 1 ann rpno trpin 20 def .04
   srpath sunfil
   end
end
end
xv sunfil

    

decon.html0000755000076500001200000001242606356043073013613 0ustar  henkartadmin00000000000000PROCESS DECON  (LINEAR PREDICTION DECONVOLUTION)
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    
Document Date: 8 June 1995

Process DECON designs and applies a least squares prediction error 
filter.  Linear prediction deconvolution reduces periodic events such as
bubble pulses, ring, or even long period multiples.

Procedurally, an autocorrelation of the design window is taken and an
inverse filter is designed so that the autocorrelation of the same 
window after decon results is a spike followed by zeroes.  DECON uses
the classic "Weiner-Levinson" method.  Les Hatton's "Seismic Data
Processing", Blackwell Scientific Publications, has an excellent section
on Weiner filtering.

Time varying decon is performed by applying different filters to 
different parts of the trace.  The different parts of the trace are 
called windows.  The portion of the trace between windows are merged by
ramping (linear).  The merge zone thus contains data that has been 
filtered by different filters and then added together after being ramped.
e.g.
               F1            F2            F3
          ..........     ..........     ..........
                    .   .          .   .
                     . .            . .
                      .              .
                     . .            . .
                    .   .          .   .


Up to 5 windows may be given, and may be spatially varied by shot or 
by hanging the windows on the water bottom.

All parameters that remain constant for a set of shots (rps) may be 
described in a parameter set FNO to LNO.  Windows between two parameter
sets are calculated by linearly interpolating between the LNO of one set
and the FNO of the next set.

Each parameter list must be terminated with the word END.  The entire 
set of decon parameters must be terminated by the word END.

THE PARAMETER DICTIONARY
--- --------- ----------

SEDTS  - Start-end time pairs defining the design windows.  Times
         are in seconds and may be negative when hanging the windows
         from the water bottom.  A maximum of 5 windows may be given.
         The window length should be many times the length of the
         period being removed; the period must be on the autocor-
         relation.  Parameter SEATS must be given when doing multi-
         window decon.
         Required.

VEL    - The velocity to use to 'move-in' each design window time.
         Move-in is useful for describing window times that need 
         to vary according to the shot-receiver distance, as in 
         following a reflector on a record before nmo.  Each
         design window time will be determined from the equation:
         t=sqrt(t0*t0+x*x/(vel*vel)), where t0 is the normal
         incidence two way travel time, and x is the shot to 
         receiver distance of the trace described via PROCESS GEOM.
         Preset=0.

FILLEN - The length of each filter in seconds.  Up to 5 filter lengths
         may be given.  The filter length must be sufficient to include
         the period being removed.
         Preset=.160 .160. .160 .160 .160

PREWHI - The percentage prewhitening to add before filter design.
         A high level of prewhitening reduces the effectiveness of
         the filter.  Some level of prewhitening is needed in
         order for the filter to be stable.  Prewhitening is like
         performing a bandpass filter before decon.
         Preset=25.

ADDWB  - When given a value of YES, the windows given via SEDTS
         will be added to the water bottom time of the trace.
         (Water bottom times may be entered via PROCESS WBT).
         Preset=no

SEATS  - Start-end time pairs defining the application windows.  Times
         are in seconds and may be negative when hanging the windows
         from the water bottom.  A maximum of 5 windows may be given.
         There must be the same number of design windows (SEDTS) as
         application windows (SEATS).
         Preset = whole trace

PDIST  - The prediction distance, in seconds.  The prediction 
         distance is the time delay of the event to be removed.
         Preset=3*sample interval. 
         e.g. pdist .15 (For water bottom multiple)

PADDWB - When given a value of yes, the water bottom time will be 
         added to the value of PDIST on each trace.
         Preset=no.  e.g. paddwb yes

DOUBLE - When given a value of yes, the correlations and 
         convolution are performed in DOUBLE PRECISION.  THE USE 
         OF THIS PARAMETER WILL INCREASE THE CPU TIME CONSIDERABLY,
         but might make the decon work better especially if long 
         windows are used.
         Preset = no.    e.g.  yes

FNO    - The first shot (or rp) to apply the decon to.  
         Shot (rp) numbers must increase monotonically.
         Preset=1

LNO    - The last shot (rp) number to apply the decon to.  Lno 
         must be larger than FNO in each list and must increase
         list to list.
         Default=fno

END    - TERMINATES EACH PARAMETER LIST.

Written and copyrighted by:
Paul Henkart, Scripps Institution of Oceanography, June 1980
All rights reserved.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
definitions.html0000644000076500001200000000356610726032272015033 0ustar  henkartadmin00000000000000Definitions
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    
GATHER - A collection of traces sorted (or gathered) according to some
         criteria such as "shot gather" or "RP" gather.  SIOSEIS
         frequently refers to "a gather" meaning rp sorted, whereas
         a "shot" means a shot sorted.

RP  - Reflection Point or CDP (common depth point) or CMP (common
CMP   mid point) gather.  SIOSEIS uses SEG-Y trace header word 7 as
CDP   an indicator that the data are sorted by RP (reflection point).
       An SIOSEIS rp sorted gather is terminated by using a special
      SEG-Y trace header flag (long integer word 51 set to -1), or a
      change in the RP number (header word 6) when using parameter
      FORGAT (foreign gather).

SHOT - The collection of traces associated with the field shot.  SEG-Y
       trace header word 4 (shot record number) is used for the "shot
       number".  SEG-Y word 7 (rp trace number) must be 0 to be 
       considered shot sorted.

FNO/LNO - First/Last number, where number is either a shot or rp, depending
       on how the data are sorted.

FNO-LNO List - Many seismic processes require parameter values to change
       on different shots/rps or traces.  Each fno/lno list must be
       terminated by the word END (case insensitive).  e.g.
            fno 39987 twp 17 0 22 0 23 0 24 0  end
            fno 39989 twp 1 0 17 0  end
            fno 39990 twp 17 0 18 0  end

PRESET - The parameter value stays the same from fno/lno list to list
         until specified or given again.

DEFAULT - The parameter value reverts back to the original value after
          every fno/lno list.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
depth_plot.html0000644000076500001200000000237411046102050014642 0ustar  henkartadmin00000000000000
bash script to plot a single envelope file in depth
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Go to SIOSEIS examples
        
Go back to SIOSEIS Knudsen scripts

    

    mkplt - Plot an envelope file in depth.
    

    #!/bin/bash -f
if [ $# != 3 ]; then
   echo "Usage: depth_plot filename sdepth edepth"
   exit
fi
FILE=$1
SDEPTH=$2
EDEPTH=$3
rm sunfil.ras
sioseis << eof
procs diskin prout filter wbt avenor mix gains t2d plot end
diskin
   ipath $FILE end
end
t2d
   sdepth $SDEPTH edepth $EDEPTH osi 1  vtp 1500 0 end
end
filter
    ftype 0 pass 2 500 dbdrop 48 end
end
gains
    subwb yes type 5 alpha 5 end
end
avenor
   sets 0 .1 addwb yes end
end
wbt
   vel 1500 end
end
mix
   weight 1  1 end
end
prout
    fno 0 lno 9999999 noinc 100 end
end
plot
   dptr 1 tlines .05 dir ltr
    colors gray opath siofil wiggle 0  ann gmtint anninc 5
    trpin 300 def .02 tlines .05 vscale 5 end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 270 sunfil.ras &

    
despike.examples.html0000755000076500001200000000100406700415562015751 0ustar  henkartadmin00000000000000
SIOSEIS process DESPIKE examples
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



                      SIOSEIS process DESPIKE examples

    


despike.html0000755000076500001200000003050510305735363014144 0ustar  henkartadmin00000000000000SIOSEIS processes TREDIT and DESPIKE
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                           PROCESSES DESPIKE AND TREDIT
                       --------- -------     ------

Parameters, alphabetically:
addwb    alpha    endmute   fac       fno       ftr
hcycle   hdr      ihdr      kill      lhdr      limits
lno      lprint   ltr       median    minval    quart
sel      ses      sets      set       thres     type
vel      winlen

Document date: 1 September 2005
Modifications:
  1 Sep. 05 - Add KILL FLAGONLY
  31 Aug. 05 - Add parameter ENDMUTE

    Processes DESPIKE and TREDIT are identical, yet both may be in
the same PROCS LIST.   Processes DESPIKE and TREDIT are trace 
editing processes that remove spikes or kill traces that are "bad".
There are several different detection algorithms:

1)  Spike replacement.  Amplitudes less than thres(1) or greater than
    thres(2) are replaced by linear interpolation of the adjacent "good"
    amplitudes unless KILL YES is given, in which case the entire trace
    is killed.  Both THRES values must be given.  Parameters ALPHA,
    SETS, VEL, ADDWB, and KILL may be used in conjunction with this
    method.

2)  The Trehu/Sutton method described in Marine Gephysical Researches 
    16: 91-103, 1994.  The algorithm is based on a five point moving
    window that compares the difference of the outer points with the
    inner points.  spike = (ABS(a(3)-a(2)) + ABS(a(3)-a(4) 
                         > fac * (ABS(a(1)-a(2)) + ABS(a(4)-a(5)) 
    Spikes are replaced by linearly interpolating the adjacent
    "good" amplitudes or the entire trace may be killed if parameter
    KILL YES is given.  Parameter FAC must be given.  Parameters SETS,
    VEL, KILL, ALPHA, and ADDWB are honored.

3)  A method that detects when amplitudes exceed the given quartile.
    Amplitudes that exceed QUART are clipped (replaced by the QUART
    amplitude).  Parameter QUART must be given.  Parameters SETS, VEL,
    ADDWB, ALPHA, and KILL are honored.

4)  A window ratio algorithm where the trace is "bad" if the average
    amplitude of a "short" window over a "long" window exceeds the
    user given factor.  Parameters SES, SEL, and FAC must be given.  
    Parameters SETS, VEL, KILL, ALPHA, and ADDWB are honored.

5)  The trace is "bad" and killed if the average absolute value of
    the windows described by SETS exceeds the given threshold.
    Parameters SETS and THRES must be given; Two windows may be defined,
    but only 1 threshold may be given.  Parameters ADDWB, VEL, KILL,
    and ALPHA are also honored.

6)  The MEDIAN value is calculated for each time point within a gather.
    The trace set must be indicated by the "end-of-gather" flag of -1
    (set by process gather or by diskin parameter ntrgat).  This is NOT
    a median stack; see PROCESS STK for a median stack.  The 
    DESPIKE/TREDIT MEDIAN parameter simply returns the median value of
    all traces within a gather for each time point.  While a gather
    goes into computing the median, only a single trace is output for
    each gather set.

7)  The MINVAL parameter kills a trace if no trace amplitude exceeds
    the specified minimum value.  This algorithm is useful for detecting
    dead (or very low amplitude) traces after processes that move
    seismic energy into "pad" traces.  FK and DMO processes spread
    energy outward, but not all of the pad traces are worth saving.

8)  Traces are killed when SEG-Y header values lie within user given
    LIMITS when KILL INSIDE is used or when the header values are
    outside LIMITS when KILL OUTSIDE is used.  This is an easy way
    to eliminate traces based on a SEG-Y header value such as the
    streamer depth.  The shallow or floating portion of the streamer
    can be excluded.

9)  "Local Trace Zeroing" or LTZ zeroes a portion of the trace if
    there are no zero crossing in a specified length of time.  This
    method was described by Stanghelli and Bonazzi in Geophysics 
    Vol 67, No.1 (Jan/Feb 2002), pg 188-196.  Parameter WINLEN is
    a sliding window for the sum of amplitudes used in determining
    when zero crossings occur.  Parameter HCYCLE (half cycle) is the
    maximum time permitted between zero crossings.  If the time
    between zero crossings exceeds HCYCLE, the trace between the
    zero crossings is zeroed.
        Marine data shot is rough seas often has long period streamer
    noise that overwhelms the signal.  The noise is not periodic
    and can not be removed by a frequency filter.  LTZ zeroes the
    portion of the trace when the low frequency noise is greater
    than the higher frequency signal.
    
    
    Only one fno/lno parameter list may be given.

PARAMETER DICTIONARY
--------- ----------

MINVAL - The minimum absolute value each trace must have to be
         considered a good trace.  When there is no absolute
         value of an amplitude within the SET window exceeding
         MINVAL, the trace is killed by setting all amplitudes
         to zero and setting the SEG-Y trace id to 2, indicating
         a dead trace to other SIOSEIS processes.

MEDIAN - When set to YES, the median sample for each time sample is
         computed.  The input trace set (gather) is replaced by a
         single trace which is the so called "median trace".
         Preset = NO

THRES  - Threshold for algprithms 1 and 5 described above.  Algorithm
         1 requires two threshold values, a minimum and a maximum,
         so that any amplitude less than thres(1) or greater than
         thres(2) is considered a spike.  If only one thres is given,
         then any trace with an average amplitude greater than the
         threshold is considered a spikey or wild trace and is 
         killed if KILL YES is given.
         Preset = 0 0    e.g.   thres -1.e6 1.e6

FAC    - The tolerance factor used in:
        1)  The Trehu/Sutton method described in Marine Gephysical
         Researches 16: 91-103, 1994.  The algorithm is based on a
         five point moving window.
        2)  The SES/SEL method described below.
         Preset = 0.   e.g. fac 5.

QUART  - Quartile, amplitudes above this quartile are replaced by
         the signed quartile value. ( QUART must be between 1 and
         100).  This algorithm came from CWP/SU.
         Preset = 0   e.g. quart 99.

SES    - Start and End times of the Short window when using the
         "short over long average" method.  SEL and FAC must be
         given also when using this method.  The trace is auto-
         matically killed (zeroed) when the ratio of the average
         absolute value of the samples in the SES window exceeds
         the average absolute value of the sample in the SEL
         window by a factor of FAC.  The average absolute value
         may be printed by using LPRINT 4.
         Preset = none.     
         e.g.  ses 0 .5 sel 1 2 fac .5     will cause the trace to be
         killed if SES / SEL exceeds .5

SEL    - Start and End times of the Long window when using the
         "short over long average" method.  SES and FAC must be
         given also when using this method.
         Preset = none.

ALPHA  - The trace is raised to the ALPHA power before detection is
         performed.  i.e. t(i) = t(i) ** alpha is done first.
         Preset = 1.       e.g.   alpha 2.

SETS   - Start and End Times for the spike detection.  Only the data
         within SETS is examined.  Used in all methods except the 
         SES/SEL and MEDIAN methods.  Only type 5 detection (average
         absolute value) uses two windows.
         Preset = The entire trace         e.g. 2.2 3.0 5 6

VEL    - The velocity to use to 'move-in' each design window time.
         Move-in is useful for describing window times that need
         to vary according to the shot-receiver distance, as in
         following a reflector on a record before nmo.  Each
         design window time will be determined from the equation:
         t=sqrt(t0*t0+x*x/(vel*vel)), where t0 is the normal
         incidence two way travel time, and x is the shot to
         receiver distance of the trace described via PROCESS GEOM.
         Preset=0.        e.g.   vel 1500

ADDWB  - When given a value of YES, the water bottom time will be
         added to all window times.  (Water bottom times may be
         entered via PROCESS WBT).
         Preset=no

KILL   - A switch when set to YES indicates that the trace be
         killed rather than just the spike be replaced.  It is also
         used with parameter LIMITS to define whether the trace
         header value governing the kill is INSIDE or OUTSIDE the
         LIMITS.
       = YES, Indicates that the entire trace should be killed rather
         than just the detected spike samples replaced.  Honored
         by THRES (type 1), SES/FAC (Trehu - type 2), and QUART.
       = FLAGONLY, sets the SEG-Y trace id to "dead trace" (word
         15 is set to 2), without zeroing the trace itself.  Honored
         whenever KILL YES is honored (THRES (type1), SES/SEL 
         (type 2) and QUART).
       = NO, Indicates that just the "spikes" should be replaced.
         Honored by THRES (type 1), SES/FAC (Trehu - type 2), and 
         QUART.
       = INSIDE, The trace is killed when the SEG-Y value is within
         or equal to the LIMITS.
       = OUTSIDE; The trace is killed when the SEG-Y header value
         is outside the LIMITS.
         Preset = no      e.g.   kill yes

LIMITS - The minimum and maximum values, or limits, of the SEG-Y
         header value indicated by parameters IHDR, LHDR, or HDR.
         The trace is killed (zeroed and tagged as dead) when the
         SEG-Y header value is out of the LIMITS range when parameter
         KILL OUTSIDE is given.  The trace is killed when the SEG-Y
         header value is within LIMITS when KILL INSIDE is given.
         Preset = 0 0    e.g.    limits 0 -50 kill outside lhdr 11
         Kills traces where SEG-Y long word 11 is greater than 0 or
         less than -50.  (see document segy.header.  The streamer
         depth was in cm (word 11 scaled by word 35.  Depth is
         negative in this case.)

HDR    - Indicates the index of the floating point SEG-Y header word to
         use with the LIMITS parameter.

LHDR   - Indicates the index of the 32 bit integer SEG-Y header word to
         use with the LIMITS parameter.

IHDR   - Indicates the index of the 16 bit integer SEG-Y header word to
         use with the LIMITS parameter.

WINLEN - The window length, in seconds, used in type 9 or LTZ (Local
         Trace Zeroing) where a portion of the trace is zeroed if no
         zero crossing are found with HCYCLE time.  WINLEN is the
         length of the window used in determining when zero crossing
         occur.

HCYCLE - The length of time, in seconds, of a "half cycle" of the
         noise train to be zeroed in the LTZ method.   The data
         are zeroed if there isn't a zero crossing within
         HCYCLE seconds.
         Preset = winlen / 2.

ENDMUTE - The mute start time relative to the detected spike rather
         than killing the entire trace.  Method 1, min/max spike
         detection only (thres neg pos).
         Preset = not given.   e.g.   endmute -.01   will mute from
         10 mils before the detected spike.

FNO    - The first shot/rp number the parameter list applies to.
         ONLY ONE FNO/LNO LIST IS HONORED.
         Preset = the first shot/rp received.    e.g.   fno 101

LNO    - The last shot/rp number the parameter list applies to.
         ONLY ONE FNO/LNO LIST IS HONORED.
         Preset = the last shot/rp received.    e.g.   lno 101

FTR    - The first trace number the parameter list applies to.
         Preset = the first trace of each shot/rp.    e.g.   ftr 10

LTR    - The last trace number the parameter list applies to.
         Preset = the last trace of each shot/rp.    e.g.   ltr 10

LPRINT - The secret debug switch.
       =4, The computed window arithmetic value is printed.  e.g.
         the average absolute value of the window is printed when
         type 5 depsiking is used.
       =8, Each trace that is killed is identified.

END    - Terminates the parameter list.


  Copyright (C) 1992, The Regents of the University of California
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
despike.quart.html0000755000076500001200000000316006343415022015266 0ustar  henkartadmin00000000000000Clipping or despiking using the quart parameter
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    arch%   SIOSEIS ver 95.9 (18 Aug. 1995) (C) Regents of U.C.                            
 procs syn despike prout end 
 syn 
    ntrcs 1 secs .2 values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
    21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 
    44 45 46 47 48 49 50 
    55 
    fno 1 lno 1 end 
 end 
 despike 
    quart 99 end 
 end 
 prout 
    fno 0 lno 9999 ftr 0 ltr 9999 
    sets 0 .2 
    end 
 end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
 SHOT          1 TRACE     1 RP     0 TRACE     0
 START TIME=    0.0000 END TIME=    0.2000
      1.0000          2.0000          3.0000          4.0000          5.0000    
      6.0000          7.0000          8.0000          9.0000          10.000    
      11.000          12.000          13.000          14.000          15.000    
      16.000          17.000          18.000          19.000          20.000    
      21.000          22.000          23.000          24.000          25.000    
      26.000          27.000          28.000          29.000          30.000    
      31.000          32.000          33.000          34.000          35.000    
      36.000          37.000          38.000          39.000          40.000    
      41.000          42.000          43.000          44.000          45.000    
      46.000          47.000          48.000          49.000          50.000    
      50.000    
  END OF SIOSEIS RUN

    despike.thres-kill.html0000755000076500001200000000175606700437532016230 0ustar  henkartadmin00000000000000
SIOSEIS process DESPIKE THRES & KILL example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



                       Find and flag dead traces


     Some prestack processes such as DMO require extra traces (pads)
so that the seismic energy can be spread out spatially.  Not all
of the pad traces will have energy and should not be included in
things like process stack (which is a true average of all the traces
in the gather being stacked).

   My test of the dead trace picker is:

sioseis << eof
procs syn despike prout end
syn
    ntrcs 1 secs 1 tva .25 1500 .2 .55 1500 -.001 x 100 xinc 25 end
end
despike
   thres 1.E-20 1.E+20 
   sets 0. 1.
   kill yes
   lprint 15
   end
end
prout
   fno 0 lno 999999 ftr 0 ltr 9999 end
end
end
eof


     thres 1.E-20 1.E+20 means to look for amplitudes less than 1.E-20 
or greater than 1.E+20 are "spikes".  

    

diskin.html0000755000076500001200000004133111220744560013774 0ustar  henkartadmin00000000000000
PROCESS DISKIN
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.



                                  PROCESS DISKIN

Parameters, alphabetically:
allno     alt       decimf    delay     fday      fgmt
fno       forgat    format    fsec      ftr       gmtinc
ifmt      ipath     ipath2    lno       noinc     ltr
lday      lgmt      lsec      mintrs    no        nsamps
ntodo     ntrcs     ntrgat    renum     retrac    rewind
secinc    secs      si        set       sort      spath
tr        trinc

Document Date:  25 June 20009
modifications:
25 June 2009 - Change ALLNO preset to NO
             - Remove alltr documentation - was never implemented!
             - Add parameter RANDOM
11 December 2008 - Add format WAV
28 November 2007 - Make retrac 1 if given.
6 July 2007 - ipath /dev/null inserts dead shots.
11 August 2004 - Put Edgetech course and speed into SEGY words 63 and 64.
14 June 2004 - Honor renum and retrac only on the first fno/lno/end list.

DISKIN reads SEG-Y disk files.  The file may be in any SEG-Y data
format ( IEEE floating point, IBM floating point, 32 bit integer,
16 bit integer ).

Data in multiple files may be read by using multiple ipath lists,
each list ending with the word  end.  e.g.  
input
   ipath file1 end
   ipath file2 end
end

DISKIN "corrects" several sample intervals used in academia that are
not integers because there are thought of as a sample rate.  All other
processes in SIOSEIS use this floating point representation created by
DISKIN.  7812ns becomes 1./128., 488ns becomes 1./2048., 
67ns becomes 1/15000., 63ns becomes 1./16000., 31ns becomes 1./32000.


PARAMETER DICTIONARY
--------- ----------

IPATH  - The input SEG-Y pathname (filename).  200 characters maximum.
         The special Unix filename /dev/null may be used to create
         null (dead) shots.  fno, lno, ftr, ltr are honored.  /dev/null
         may not be the first file read.
         Required. e.g. ipath /seis/vel.123


shot/rp parameters:
------- -----------
FNO    - The first shot/rp number the parameter list applies to.
         NO is a shot if SEG-Y word 7 is zero and an RP if non-zero.
         Preset = the first shot/rp in file IPATH.  e.g.   FNO 101

LNO    - The last shots/rp number the parameter list applies to.
         Default = the last shot/rp in file IPATH.   e.g LNO 101

NOINC  - The increment between FNO and LNO.  Only honored when FNO
         and LNO are used.  A NOINC of 99999 indicates that any 
         and all shots/rps will be used in any order as long as it
         is between FNO and LNO.  NOINC 99999 is useful when there
         are missing shots/rps. 
         Preset = 99999 e.g   noinc 2

FTR    - The first trace of each shot/rp to read from disk file 
         IPATH.  Traces less than FTR will not be read.
         Preset = the first trace of every shot/rp   e.g.  ftr  11

LTR    - The last trace of each shot/rp to read from disk file 
         IPATH.  Traces greater than LTR will not be read.
         Preset = the last trace of each shot/rp    e.g.  ltr 11

TRINC  - The trace increment between FTR and LTR.  FTR and LTR 
         must be given when TRINC is used.  A TRINC of 99999 
         indicates that any and all traces will be used in any 
         order as long as it is between FTR and LTR.  TRINC 99999
         is useful when there are missing traces or out of order 
         traces.
         Preset = 99999      e.g.  trinc 1

NTODO  - Number of traces TO DO.  A useful parameter when doing
         quality control and only the first NTODO traces should
         be read.
         Preset = 0    e.g. ntodo 300


Time parameters:
---- -----------
FDAY   - The Julian day of the first data to read from disk file 
         IPATH.  Data before FDAY will not be read.
         Preset = 0      e.g.  fday 123

LDAY   - The day of year of the last data to read from disk file 
         IPATH.  Data in IPATH after LDAY will be ignored.
         Preset = 366     e.g.  lday 123

FGMT   - The GMT (in HHMM, or hours and minutes based on a 24 hour
         clock) of the first data in file IPATH to read.  FGMT is
         set to 0 after the first data are found (default).
         Default = 0    e.g.  fgmt 0800

LGMT   - The GMT of the last data to read from disk file IPATH.
         Data in file IPATH after LDAY will be ignored.
         Default = 2500     e.g.  lgmt 1300

GMTINC - The increment between FGMT and LGMT.
         Preset = 1        e.g. gmtinc 2

FSEC   - The second of the minute of FGMT of the first shot/rp in
         IPATH to read.  Data before FSEC of FGMT will be ignored.
         Preset = 0       e.g.  fsec 20

LSEC   - The second of the minute of LGMT of the last data to read
         from disk file IPATH.  Data after LSEC of LGMT will be 
         ignored.
         Preset = 60     e.g.   lsec 30

SECINC - The increment in seconds between shots.  After FSEC is 
         found, successive shots must be in exact increments of
         SECINC.  e.g. the first shot is at FSEC, the next is at
         FSEC + SECINC.  (Modulo 60).
         Preset = 0      e.g.    secinc 15

FTR    - The first trace of each shot/rp to read from disk file 
         IPATH.  Traces less than FTR will not be read.
         Preset = the first trace of every shot/rp   e.g.  ftr  11

LTR    - The last trace of each shot/rp to read from disk file 
         IPATH.  Traces greater than LTR will not be read.
         Preset = the last trace of each shot/rp e.g.  ltr 11

TRINC  - The trace increment between FTR and LTR.  FTR and LTR 
         must be given when TRINC is used.
         Preset = 1     e.g.   trinc 2


OTHER USEFUL PARAMETERS:
----- ------ -----------
RANDOM - Use disk positioning (lseek) rather than sequential reads to
         find the first shot (FNO).  This is only available for disk
         files conforming to SEG-Y Rev 1 standards and has the SEG-Y
         "fixed trace length" flag set.  In addition, shot and/or RP
         numbers must be monotonically increasing by 1.
         Preset = 0    e.g.    random 1

RENUM  - Renumber the shots/rps consecutively, starting with the 
         number given.  Useful when there are duplicate shot/rp 
         numbers in the job.  RENUM increments the shot number 
         after the shot trace number is equal to the number of 
         traces per shot, which comes from the SEG-Y tape header
         unless it is specified via DISKIN parameter NTRCS.
         Honored on the first fno/lno/end list only.
         Preset = none. e.g.    renum 101

RETRAC - Renumber the trace numbers within each shot/rp so that the
         first trace of each shot/rp is 1. 
         Honored on the first fno/lno/end list only.
         Preset = none. e.g.     retrac 1

SECS   - The number of seconds of data to process in file IPATH.  
         Data later than delay+secs will be omitted.
         Preset = none.

DECIMF - The decimation factor used to resample the data while 
         reading from disk.  No anti-alias filter is applied
         before decimation.
         Preset = 1 e.g. decimf 2 (every other sample is discarded)

IFMT   - The data format of the input disk file.  IFMT should be 
         used only it is necessary to override the value in the
         SEG-Y header of the data file IPATH.
       =1,  IBM floating point.
       =2,  32 bit 2's complement integer.
       =3,  16 bit integer.
       =4,  16 bit floating point 
       >4,  host floating point 
         Preset = taken from the disk file.

SI     - The sample interval, in seconds, of the data in file 
         IPATH.  SI overrides the value in the SEG-Y header.
         Preset = disk  e.g.   si .004

DELAY  - The deep water delay of the data in IPATH.  DELAY overrides
         the value in the SEG-Y trace header read from disk.
         Preset = none  e.g.  delay 3.0

NTRCS  - The number of traces in each shot in disk file IPATH.  NTRCS
         overrides the value in the SEG-Y header in file IPATH.
         Preset = none. e.g.   ntrcs 1

NSAMPS - The number of samples in each trace,  NSAMPS overrides the
         value in the SEG-Y trace header.
         Preset = none. e.g.   nsamps 2560

NTRGAT - The number of traces in every rp.  Every NTRGAT trace 
         will contain an "end of gather" flag in header word 51.  
         Used to convert shot sorted files into rp sorted files 
         without going through processes geom or gather.  Shot/rp
         boundaries are ignored when counting traces for ntrgat.  
         NTRGAT 0 sets the flag to 0 on every trace.
         Preset = -1       e.g.    ntrgat 24

FORGAT - Foreign gather switch.  The use of FORGAT indicates that
         the input gathers were not generated by SIOSEIS and do not
         have the end-of-gather convention used by SIOSEIS (a -1 in
         SEG-Y header word 51).  FORGAT is similar to NTRGAT but
         allows each gather to have a different number of traces.
         The end-of-gather is detected when the next trace has a
         different rp number or is equal to LTR (when ltr is given).
         The value of FORGAT indicates the number of rps to concatenate
         into a single gather which is terminated by the -1 
         end-of-gather flag.  LDGO gathers start with the largest
         trace number first, which breaks the SIOSEIS 
         monotonically increasing assumption; LDGO gathers may be
         read using forgat 1 and ftr 99999, in which case SIOSEIS 
         will use all traces within the gather.
         Preset = 0     e.g. forgat 1

MINTRS - The minimum number of traces each gather must have.  If 
         an input rp does not have the specified minimum number of
         traces, DISKIN will create dead traces so that there are
         MINTRS traces.
         Preset = 0     e.g.  mintrs 24

SET    - The start and end times of the data to read from disk.  
         SET is a pair of times in seconds. The use of SET causes
         the deep water delay and the number of samples to be 
         changed.  If either SET is outside of the data, the data 
         is padded with zeroes.  The data will always be 
         SET(2) - SET(1) long.
         Preset = none  e.g.   set 2.0 3.0

SORT   - The use of this parameter overrides the automatic 
         determination of the data sort for DISKIN.  SORT does not
         change any part of the SEG-Y header, so other SIOSEIS
         processes are not affected by this parameter (i.e. 
         successive processes in the process list will receive the
         data with the original sort).   The choices are 'shot' or
         'cdp' or 'stack'
         Preset = none  e.g.  sort shot

REWIND - A YES/NO switch indicating whether the input file should be
         rewound before reading the first shot, FNO, of the fno-lno
         list.  The data on disk may not be accessed in reverse order,
         so the only way to get a shot/rp that has already been passed 
         is to start searching from the beginning of the disk file.
         REWIND is reset to NO immediately after use; rewind only
         occurs at FNO and only occurs on the list specified.
         Default = YES    e.g   rewind no

FORMAT - The type of seismic format of the file IPATH.
       = SEGY,  An SEG-Y disk file with all headers.
       = SSC, The Seimographic Services Corporation' Phoenix format.
       = IRIS, The IRIS PASSCAL format is like SEGY but omits both file
         headers and the data format code is in the trace header.  SIOSEIS
         can only handle 64k data samples.  There is only one trace in
         each Passcal file.
       = SU, the Colorado School of Mines Center for Wave Phenomena's
         Seismic Unix file format; no file headers and the data are
         host floating point.
       = NOHEAD, No SEG-Y file headers.  Parameter IFMT must be given.
       = SWAPPED, SEG-Y files written on Intel or DEC machines that
         are still in little-endian byte order (low byte first). SIOSEIS
         written SEG-Y files are in the correct order (big-endian).
       = ODEC, The ODEC 3.5 format which is byte swapped and has a
         320 byte trace trailer.
       = KNUDSEN.  Knudsen writes the deep water delay in number of
         samples rather than mils.  The delay is also an unsigned int
         rather than a signed int.
       = EDGETECH.  Edgetech uses a pseudo-SEGY format.  Edgetech puts the
         shot number and trace number in different locations.  It also
         uses the cpu time instead of the GPS time for the time of shot.
         This format precludes the use of parameters FNO, LNO, NOINC, FTR,
         LTR, and TRINC.  Process XSTAR should be used on ALL Edgetech data.
         GeoSTAR data must be converted to XSTAR format prior to use by
         sioseis since GeoSTAR data do not have the first two SEG-Y headers
         and is in SEG-Y byte order.  Course and speed are saved in SEGY
         words 63 and 64.
       = UTIG-OBS.  UTIG uses a 32 bit integer for the delay.
       = WAV.  A WAV file (44 byte header and 16 or 32 bit little endian int)
         Preset = SEGY           e.g. format edgetech

IPATH2 - The pathname of a second data file that will be merged with
         the data of IPATH.  The merging is done by alternate reads
         from IPATH and IPATH2.  See parameter ALT for whether the
         merge is by trace or record (shot/rp).  e.g. When ALT is 2,
         the first trace comes from IPATH, the second comes from
         IPATH2, the third from IPATH, the fourth from IPATH2, etc
         Preset = none    e.g.  ipath2 datafile2

ALT    - The type of interleaving when using IPATH2.
       =1, Alternate records (shots or rps) are read from IPATH and
         IPATH2.  Both files MUST contain the same shot/rp numbers.
         e.g. ipath shot 1, ipath2 shot 1, ipath shot 2, ipath2 shot 2.
       =2, Alternate traces are read from IPATH and IPATH2.  e.g.
         ipath shot 1 trace 1, ipath2 shot 1 trace 1, ipath shot 2
         trace 2, ipath2 shot 2 trace 2
         Preset = 2

SPATH  - The pathname of the "sort" file.  When SPATH is given, 
         process DISKIN reads the seismic traces in the order 
         specified by SPATH rather than the order actually in IPATH.
         Preset = none  e.g. /usr/users/joe/data/sort.line1

NO  XN - The word type and the index of the SEG-Y trace header to use
         for searching rather than the shot or rp number.  FNO and
         LNO no longer refer to shot or rp number, but to the new
         SEG-Y word.
     X = I, means short integer (16 bit integer trace header)
       = L, means long integer (32 bit integer trace header)
       = R, means real word (host floating point)
     N = the index with the SEGY trace header.
         Example:  no l5 will use the SEG-Y "Energy source point number"            rather than the shot number.
         Preset = none

TR  XN - The word type and the index of the SEG-Y trace header to use
         for searching rather than the shot/rp trace number.
     X = I, means short integer (16 bit integer trace header)
       = L, means long integer (32 bit integer trace header)
       = R, means real word (host floating point)
     N = the index with the SEGY trace header.
         Example:  tr l10  ftr -500 ltr 500 will read all traces with
                   ranges between -500 and +500.
         Preset = none

ALLNO  - A YES/NO switch that indicates that the entire file will be
         searched for additional shots/rps that might be in the
         fno-lno range.  ALLNO NO will cause the sioseis job to end
         faster when LNO is not at the end of the file.  ALLNO governs
         LNO only.  It is impossible to skip data before FNO.  DISKOX
         parameter FLINC may be used to create small files for velocity
         analysis.
         Preset = yes

END    - Terminates each parameter list.

EXAMPLE:
          procs diskin prout end
          diskin
          renum 1
          FNO 1 LNO 10 ipath dataset1 end
          FNO 1 LNO 10 ipath dataset2 end
          end
          prout
          FNO 1 LNO 9999 ftr 1 ltr 999 end
          end
          end

OBSOLETE and HIDDEN PARAMETERS:
ASCII  - Some processing packages (e.g. LDGO) violate the SEG-Y 
         standard by writing the first SEG-Y header in ASCII 
         rather than EBCDIC.   The use of this parameter 
         indicates that the header is in ASCII.   An ASCII header
         usually manifests itself in SIOSEIS in the plot header as
         bad characters ( usually ?????'s).
         Preset = 0     e.g.  ascii 1

LPRINT - A debugging parameter.
   
Copyright (C) by The Regents of The University of California, 1988
Written by Paul Henkart, Scripps Institution of Oceanography, La Jolla, Ca.
All Rights Reserved.

    

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

diskin1.html0000644000076500001200000000305406727245256014070 0ustar  henkartadmin00000000000000
SIOSEIS script to read non-sequential SEG-Y disk file.
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


       This example is how to read an SEG-Y disk file where the shot
numbers are not monotonically increasing.  e.g.
>lsd data 10
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
     15426     1   91829     0  1  -6169  3000    501  2000   99  77 11  22  11
     15306     1   91118     0  1  -6169  3000    501  2000   99  77 10  49  36
     15366     1   91473     0  1  -6169  3000    501  2000   99  77 11   5  39
     15246     1   90763     0  1  -6169  3000    501  2000   99  77 10  33  39


   DISKIN will change input files whenever IPATH is different in
successive fno/lno lists.  These data are in one file and DISKIN
needs to go backwards in the disk file to find the correct order.
The Unix ln (link) command can make diskin think the data are in two
files and diskin always starts searching a new file from the beginning.
e.g.  ln -s data data1   links data1 to file data and SIOSEIS thinks
they are different because they have different names.

   A script to order the data is:


sioseis << eof
procs diskin prout end
diskin
  allno no
  fno 15246 lno 15246 ftr 1 ltr 1 ipath data end
  fno 15306 lno 15306 ftr 1 ltr 1 ipath data1 end
  fno 15366 lno 15366 ftr 1 ltr 1 ipath data end
  fno 15426 lno 15426 ftr 1 ltr 1 ipath data1 end
end
prout
   fno 0 lno 99999 ftr 0 ltr 9999 end
end
end

    



disko.html0000755000076500001200000000157311046642615013634 0ustar  henkartadmin00000000000000
Make all Knudsen traces the same length and start at zero.
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Go to SIOSEIS examples
        
Go back to SIOSEIS Knudsen scripts

    

    Make all Knudsen traces the same length and start at zero.
    


    #!/bin/bash -f
if [ $# != 1 ]; then
   echo "Usage: disko filename"
   exit
fi
SGYFILE=$1
dir_out=${SGYFILE/sgy/segy}
sioseis << eof
procs diskin prout resamp diskoa end
diskin
   ipath $SGYFILE  end
end
resamp
   newsi .001 end
end
prout
    fno 0 lno 9999999 noinc 100 end
end
diskoa
    set 0 8
   opath $dir_out end
end
end
eof

    
diskox.html0000755000076500001200000002164611216275741014030 0ustar  henkartadmin00000000000000PROCESS DISKOX
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                     PROCESS DISKOX, where X = { A, B, C, ..., J }
                 ------- ------

Parameters, alphabetically:
decimf    delay     exthdr    flinc     fno       fon
format    frange    ftr       lno       lrange    ltr
noinc     ofmt      ontrcs    opath     posaft    renum
retrac    rewind    secs      set       spath     trace0
trinc


Document Date:  17 June 2009
Doc mods: 
   Add RETRAC and RENUM (RENUM is the same as FON).  June 2009
   opath DATE and opath SHOTNO generate file names.  June 2005
   OFMT 0 means OFMT is the same as the input data format.  March 2005
   Add FORMAT BINARY and remove SEGY and SIO,  June 2003
   Add EXTHDR to control writing of Rev 1 records, May 2003
   Add TRACE0 to control writing of trace 0, March 2003
   Change BIG preset to YES, Sept. 2002

Process DISKOX is a set of 10 processes which write SEG-Y disk files.  
The process names are actually DISKOA, DISKOB, DISKOC, ..., DISKOJ, but 
are listed here as a single process since they are virtually identical.  
SIOSEIS permits any process to appear only once in the PROCS list, yet 
the user may wish to save the data at multiple stages.  Processes 
DISKOA, DISKOB etc. permit up to 4 distinct disko output stages.  e.g.
PROCESS INPUT GEOM GATHER DISKOA NMO STACK DISKOB FILTER PLOT END

Each process DISKOX is totally independent of any other process DISKOX.  
The order A, B, C, D does not matter since this is just a way of allowing
four unique processes.  e.g. PROCESS DISKIN STACK DISKOD PLOT END is 
valid.

The shot/rp numbers and trace numbers of the output are the same as the 
input except when FON, NOINC, FTR, or TRINC are given.  The output 
shot/rps always start with trace one and output trace numbers are always
incremented by 1.


PARAMETER DICTIONARY
--------- ----------

OPATH  - The output pathname (filename).
       = DATE or date, the filename will come the SEG-Y trace header in
         the form: dayDDD-HHMMz.segy, where DDD is the day of year and
         HH is the hour, MM is the minute of the SEG-Y time of shot.
       = SHOTNO or shotno, the filename will come the SEG-Y trace header
         in the form: shotSSSSSS.segy, where SSSSSS is the shot number
         (word 3) in the SEG-Y trace header.
         Required. e.g. opath /seis/vel.123

OFMT   - The data word format of the output disk file.
       =0,  Same as the input format.
       =1,  IBM floating point.
       =2,  32 bit 2's complement integer.
       =3,  16 bit integer.
       =5,  IEEE floating point.  (non standard in SEGY rev 0, but
            standard in SEGY rev. 1.)
       THE FOLLOWING IS NOT STANDARD:
       =4,  UTIG 16 bit floating point
         Preset = 5 

FON    - The first output shot/rp number.
RENUM  <0, In conjunction with POSAFT means the last shot/rp + 1.
       =0, Means that the output number will be the same as the input.
       >0, The first shot/rp will be FON.
         (RENUM is the same as FON - added for compatibility with diskin),
         Preset = 0     e.g.   fon 101

RETRAC - Renumber the trace numbers within each shot/rp so that the
         first trace of each shot/rp is RENUM.
         Preset = none. e.g.     retrac 1

POSAFT - Position after shot/rp or after the last trace in the file.
       <0,  Position after the last trace of the last shot/rp (append).
       =0, No positioning is done.
       >0,  Position after the shot/rp specified (after the last trace
         of the shot/rp).
         Preset = 0.    e.g.  posaft 1234

SET    - Start and end times, in seconds, of the data to be written to
         disk file OPATH.  Data outside of SET will not be included in
         the output file.  DISKOX SET may not be used to pad with
         zeroes; use DISKIN SET for zero padding.  If SET(1) is before
         the deep water delay, the output will be from the delay, not
         SET(1).
         Preset = none  e.g.  set 2 3  

SECS   - The number of seconds of data to write to file OPATH.  Data
         after delay+secs will be omitted.
         Preset = none

DECIMF - The decimation factor to use in writing the output disk file
         OPATH.  No anti-aliasing filter is applied.  The data passed
         to any process after DISKOX will NOT be decimated.
         Preset = 1  e.g. decimf 2  (every other sample is discarded)

SPATH  - The pathname of the "sort" file.  When SPATH is given, process 
         DISKOX outputs the seismic traces in the order specified by
         SPATH rather than the order actually received. This "desorts"
         a dataset sorted by PROCESS SORT and DISKIN.
         Preset = none  e.g. /usr/users/joe/data/sort.line1

FNO    - The first shot/rp number the parameter list applies to.
         Default = the first shot/rp in file OPATH.   e.g.   FNO 101

LNO    - The last shots/rp number the parameter list applies to.
         Default = the last shot/rp in file OPATH.    e.g LNO 101

NOINC  - The shot/rp increment between FNO and LNO.
         Preset = 1.    e.g. noinc 10

FLINC  - The increment between groups of FNO-LNO shots/rps output.
         Both FNO and LNO are incremented by FLINC after LNO has been
         output.  This feature is useful when groups of rps are to
         be saved.  e.g.  If you want to save 10 consecutive rps out
         of every 100 rps, then use       fno 1000 lno 1009 flinc 100.
         rps 1000-1009, 1100-1109, 1200-1209, .....   will be written.

FTR    - The first trace of each shot/rp to write to disk file OPATH.  
         Traces less than FTR will be omitted.
         Preset = 0     e.g.  ftr  11

LTR    - The last trace of each shot/rp to write to disk file OPATH.  
         Traces greater than LTR will be omitted.
         Preset = the last trace of each shot/rp e.g.  ltr 11

TRINC  - The trace increment between FTR and LTR.
         Preset = 1     e.g trinc 2

FRANGE - The first range (the absolute value of the shot-receiver
         distance) to be included in the output disk file.  Traces with
         ranges less than FRANGE will not be written to disk.  The use
         of FRANGE and LRANGE is useful when CDP gathers are being
         written to disk.
         Preset = 0     e.g. frange 2000

LRANGE - The last range (the absolute value of the shot-receiver
         distance) to be included in the output disk file.  Traces with
         ranges greater than LRANGE will not be written to disk. The
         use of FRANGE and LRANGE is useful when CDP gathers are being
         written to disk.
         Preset = 999999     e.g. lrange 2000

FORMAT - The file format of the output file.
       =SU, the Colorado School of Mines Center for Wave Phenomena's
         Seismic Unix file format is written.  The SU format does
         not contain the SEG-Y EBCDIC or binary headers, but does have
         the SEG-Y trace headers.
       =BINARY, no SEG-Y headers at all are written.  Remember that
         the first and last time samples are written (e.g. 1 second
         of 1 mil data has 1001 samples).  The data are written in
         word type OFMT and in big endian (SEGY) byte order.
         Preset = none      e.g. format binary

ONTRCS - The number of traces per output shot/rp.
         Preset = intrcs    e.g.  ontrcs 1

REWIND - A YES/NO switch indicating that the disk file is rewound for
         EVERY SHOT written.  This is an attempt to create a "circular"
         shot file useful during realtime processing.
       =YES,  Create a new file on every trace 1.
       =NO, NO rewind - a normal file.
         Preset = NO,      e.g.  rewind yes    # rewind the file

TRACE0 - A YES/NO switch indicating whether the SEG-D external header
         should be written as a trace numbered 0 and SEG-Y
         trace id (short word 15) 28.  
       =YES, trace 0 will be written.
       =NO, trace 0 will not be written.
         Preset = NO    e.g.    trace0 yes   # a trace 0 will be written

EXTHDR - A YES/NO switch indicating whether to write the SEG-Y Rev. 1
         Textual Extension Records, if present, or not.
       =YES, the records will be written.
       =NO, the records will not be output.
         Preset = YES (to write the records).    e.g.  exthdr no

BIG    - No longer needed.
         A YES/NO switch when set to YES indicates that the output
         file will be larger than 2GB.  SIOSEIS can not tell in
         advance how large the output file will be and some operating
         systems need to know if the file will be > 2GB so that
         64 bit pointers are used.  Sun and HP need this parameter.
         SGI does not need this parameter.
         Preset = YES.    e.g.  big yes


   
Copyright (C) by The Regents of The University of California, 1988
Written by Paul Henkart, Scripps Institution of Oceanography, La Jolla, Ca.
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

dmo.html0000755000076500001200000000454106356043123013275 0ustar  henkartadmin00000000000000dmo
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                    PROCESS DMO

Document Date:  1 November 1991

Process DMO, Dip Move Out, applies a phase filter in Omega-K domain to 
correct for move-out when dip is present.  Typically, NMO is used to 
produce a zero-offset section which is then migrated to produce a final 
image.  However, if dips exist, then the mapping of seismic data using 
the NMO equation is dip dependent, and causes subsurface smear updip 
away from the midpoint.  To mitigate this problem, dip moveout algorithms 
have been developed to allow all dips to stacked simultaneously without 
up-dip smear.  The algorithm used in process DMO is the EXACT LOG DIP 
MOVEOUT formulation by LINER and assumes constant velocity.

The traces input to DMO must be sorted by offset distance (range), which 
may be accomplished with process SORT with the SORT parameters lkey1 10 
FLAG51 -1, the "end-of-sort" flag.

This DMO algorithm has "stretch" problems which may be a alleviated in 
the time domain using process LOGST1 in the time domain before process 
tx2fk and "unstretching" it in the time domain after DMO and FK2TX LOGST2.

PROCESS DMO requires the data to be transformed into the FK (frequency-
wavenumber) domain using process TX2FK.  The data may be converted back to 
the time domain after DMO using FK2TX.

A typical DMO processing sequence is:
      procs sort diskin nmo logst1 tx2fk dmo fk2tx logst2 diskoa end


PARAMETER DICTIONARY
--------- ----------

DELTAX - The distance between traces, also called the group spacing.  
         Required

WINDOW - The type of window to apply before computing the FFTs.
       = HANN, Hanning window.
       = RECT, Rectangular or box car window (no window).
         Preset = RECT

OFFSET - The source-receiver offset (range) which if invoked will override 
         header value.  This is only useful when only one offset is input 
         to DMO and the header value must be overridden.
         Preset - none

Copyright (C) 1991 The Regents of the University of California
ALL RIGHTS RESERVED. Written by Graham Kent, September 1991

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

dmo_ex1.html0000644000076500001200000000556307470760653014070 0ustar  henkartadmin00000000000000DMO scripts
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    
 Go back to EXAMPLES.

    
Hey Paul,
Next email will have a script that applies dmo correction 
(assuming 1500 m/s), then resorts data back into gathers 
again for either velocity analysis, or ready to stack, 
users choice!  Users needs to play with LogStrecth stuff 
to make sure they get it right, see Liner Geophysics 
article, in a nut shell, make sure you can stretch your 
data, then unstretch it (w/o DMO) and not screw it up, 
then through in the DMO stuff!

Cheers,



#/bin/csh -f

######################################################################
#
#  MARBE: RPs 229 to 4901 28 m shot spacing
#
######################################################################

sioseis << !
procs sort diskin prout weight filter nmo logst1 tx2fk dmo fk2tx 
      logst2 diskoa end 

sort  
 ipath /export/home/dmo3/kent00/marOH2A.g.229.4909
 opath sort.list.dmo.MARBE.OH2A
 lkey1 10
 lkey2 6
 limit1 138 4138
 limit2 229 4909
 flag51 -1 end
end
              
diskin 
 ipath /export/home/dmo3/kent00/marOH2A.g.229.4909
 spath sort.list.dmo.MARBE.OH2A set 3.0 8.0 end
end

weight
 fno 1971 lno 1971 twp 52 0 end
 fno 3429 lno 3429 twp 59 0 end
 fno 4365 lno 4365 twp 64 0 end
end

prout
 fno 1 lno 99999 ftr 1 ltr 9999 end
end

filter
 pass 5 25 ftype 0 dbdrop 48 end
end

nmo
 vtp 1500 3.0 1500 8.0 end
end
 
logst1
  type 1 tsamp1 0.0005 tcut 3.0
  end
end

tx2fk
 stime 0.0 etime 1.0 prestk 1
 xwindow hann xwinlen 10
 path1 scratch1
 path2 scratch2 end
end

dmo
 window rect deltax 28.0 lprint 1 end
end

logst2
 type 2 tsamp2 0.004 tcut 3.00 sltime 3.0 eltime 8.00
 end
end

diskoa
  opath /net/seismic1/gkent/marOH2A.dmo.1500.g.229.4909 end
end

end
!

/bin/rm -f sort.list.dmo.MARBE.OH2A

######################################################################
#
#  NOW CMP SORT and unNMO DMOed GATHERS
#
######################################################################

sioseis << !
procs sort diskin nmo diskoa end

sort
 ipath /net/seismic1/gkent/marOH2A.dmo.1500.g.229.4909
 opath sort.list.dmo.MARBE.OH2A.partII
 lkey1 6
 lkey2 10
 limit1 229 4909 
 limit2 138 4138
 flag51 -1 end
end

diskin
 ipath /net/seismic1/gkent/marOH2A.dmo.1500.g.229.4909
 spath sort.list.dmo.MARBE.OH2A.partII end
end

nmo
 type 2 vtp 1500 3.0 1500 8.0 end
end

diskoa
 opath /export/home/dmo3/kent00/marOH2A.denmo.dmo.1500.g.229.4909 end
end

end
!

######################################################
#
#  NOW TREAT LIKE REGULAR GATHERS, JUST DMO CORRECTED
#
######################################################

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    
 Go back to EXAMPLES.
dstretch.html0000644000076500001200000000156007526233360014335 0ustar  henkartadmin00000000000000
NMO "dynamic" stretch mute Example 
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
    
Go to SIOSEIS examples.

    
Input data plot 
Data with NMO, no dstretch, plot 
Data with NMO, dstretch 25, plot 
Data with NMO, dstretch 50, plot 
Data with NMO, dstretch 75, plot 
Data with NMO, dstretch 100, plot 

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
    
Go to SIOSEIS examples.
dual.html0000644000076500001200000000133210452772763013446 0ustar  henkartadmin00000000000000
Dual transducer EdgeTech X-Star sub-bottom profiler
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    

    plot Trace 1
plot Trace 2
plot Simple stack of trace 1 + 2
plot Weighted (sdev) stack of trace 1 + 2
listing sioseis stdout with output of weight lprint 16.

    
dual2.html0000644000076500001200000000731210740467772013535 0ustar  henkartadmin00000000000000
Dual transducer EdgeTech X-Star sub-bottom profiler
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    

    
  SIOSEIS ver 2006.4 (1 July 2006)  (C) Regents of U.C.                          
 procs diskin weight stack plot end 
 diskin 
    fno 108600 lno 109000 allno no 
    ftr 1 ltr 2 ntrgat 2 ipath data end 
 end 
 weight 
   lprint 16 
   fno 0 lno 999999 type sdev end 
 end 
 prout 
 !   indices l3 l4 i55 r60 
     fno 0 lno 99999 noinc 1 ftr 0 ltr 999 end 
 end 
 plot 
    scalar .01 
    stime .07 nsecs .1 
    dptr 1 
    colors gray 
    opath siofil 
     wiggle 0 ann shotno taginc 100 
      nibs 2859 vscale 40 tlines .01 .05 .1 
      def .05 trpin 300 end 
  end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
  Record 108600 trace  1. statistics are: ave=  2.05277254E-10 adev= 2.18357846E-10 sdev=  3.12854714E-10 var=  9.78780653E-20 skew=  2.69970012 curt=  10.250104 weight=  3.19637197E+09
  Record 108600 trace  2. statistics are: ave=  3.12548792E-10 adev= 2.936906E-10 sdev=  5.13716014E-10 var=  2.63904116E-19 skew=  6.7077322 curt=  75.8451538 weight=  1.94660083E+09
  Record 108601 trace  1. statistics are: ave=  1.92504332E-10 adev= 2.05455708E-10 sdev=  3.11172893E-10 var=  9.6828567E-20 skew=  3.61946845 curt=  22.2554951 weight=  3.21364762E+09
  Record 108601 trace  2. statistics are: ave=  3.02354169E-10 adev= 2.90207997E-10 sdev=  5.51557688E-10 var=  3.0421591E-19 skew=  8.07547951 curt=  100.956223 weight=  1.81304704E+09
  Record 108602 trace  1. statistics are: ave=  2.05808245E-10 adev= 2.173101E-10 sdev=  3.3649325E-10 var=  1.132277E-19 skew=  4.5676589 curt= 37.4987946 weight=  2.97182771E+09
  Record 108602 trace  2. statistics are: ave=  3.29512695E-10 adev= 3.1103975E-10 sdev=  5.02431319E-10 var=  2.52437247E-19 skew=  6.29450369 curt=  71.4489594 weight=  1.99032179E+09
  Record 108603 trace  1. statistics are: ave=  2.08498274E-10 adev= 2.16800883E-10 sdev=  3.25910243E-10 var=  1.06217493E-19 skew=  3.55328298 curt=  22.0441723 weight=  3.06832947E+09


  Record 108705 trace  1. statistics are: ave=  2.03229503E-10 adev= 2.09743542E-10 sdev=  3.13984422E-10 var=  9.85862224E-20 skew=  2.92611122 curt=  12.023119 weight=  3.18487142E+09
  Record 108705 trace  2. statistics are: ave=  3.18101073E-10 adev= 2.79287204E-10 sdev=  4.33821812E-10 var=  1.88201374E-19 skew=  3.42012072 curt=  17.7490368 weight=  2.30509389E+09
  Record 108706 trace  1. statistics are: ave=  2.1137242E-10 adev= 2.29979424E-10 sdev=  3.45568157E-10 var=  1.19417351E-19 skew=  3.17228389 curt=  14.5640106 weight=  2.89378509E+09
  Record 108706 trace  2. statistics are: ave=  3.26777827E-10 adev= 3.03855552E-10 sdev=  5.31931665E-10 var=  2.82951268E-19 skew=  5.45281553 curt=  43.8694153 weight=  1.87994074E+09


  Record 108900 trace  1. statistics are: ave=  2.30564776E-10 adev= 2.59426869E-10 sdev=  4.5536408E-10 var=  2.07356434E-19 skew=  5.92184448 curt=  56.0971909 weight=  2.19604506E+09
  Record 108900 trace  2. statistics are: ave=  3.51426888E-10 adev= 3.1853567E-10 sdev=  5.46905299E-10 var=  2.99105382E-19 skew=  6.01309967 curt=  61.5313492 weight=  1.82847014E+09
  Record 108901 trace  1. statistics are: ave=  2.8240274E-10 adev= 3.02710468E-10 sdev=  5.19708943E-10 var=  2.70097398E-19 skew=  5.23530293 curt=  44.6796303 weight=  1.92415398E+09
  Record 108901 trace  2. statistics are: ave=  4.01192635E-10 adev= 3.51750962E-10 sdev=  5.51326818E-10 var=  3.03961268E-19 skew=  4.85909462 curt=  44.6396217 weight=  1.81380621E+09

    
dual3.html0000644000076500001200000001333310454512540013520 0ustar  henkartadmin00000000000000
Dual transducer EdgeTech X-Star sub-bottom profiler
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    

      SIOSEIS ver 2006.5 (7 July 2006)  (C) Regents of U.C.                          
 procs diskin xstar weight stack agc plot end 
 diskin 
    fno 50200 lno 50900 ftr 1 ltr 2 allno no 
    ipath Tahoe00.IV.52200_60500.segy end 
 end 
 weight 
    lprint 16 
    type sdev end 
 end 
 agc 
    winlen .05 end 
 end 
 xstar 
    type 4 end 
 end 
 prout 
 !   indices l3 l4 i55 r60 
     fno 0 lno 99999 noinc 1 ftr 0 ltr 999 end 
 end 
 plot 
    stime .05 nsecs .1 
    dptr 1 
    colors gray 
    opath siofil 
     wiggle 0 ann shotno taginc 100 
      nibs 2859 vscale 40 tlines .01 .05 .1 
    def .02  trpin 300 end 
  end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
  Record 50200 trace  1. statistics are: ave=  1.51245252E-10 adev=
  1.95074332E-10 sdev=  4.45538134E-10 var=  1.98504218E-19 skew=  5.24555969
  curt=  30.5438995 weight=  2.24447667E+09
  Record 50200 trace  2. statistics are: ave=  2.86258128E-10 adev=
  3.04976683E-10 sdev=  5.4350674E-10 var=  2.95399587E-19 skew=  3.91313219
  curt=  18.2595673 weight=  1.83990362E+09
  The computed PLOT SCALAR is   2.00000002E-07
  Record 50201 trace  1. statistics are: ave=  1.46115758E-10 adev=
  1.85658086E-10 sdev=  4.06134099E-10 var=  1.64944906E-19 skew=  5.66709232
  curt=  41.2543564 weight=  2.46224102E+09
  Record 50201 trace  2. statistics are: ave=  2.77030371E-10 adev=
  2.96113606E-10 sdev=  5.31535982E-10 var=  2.82530492E-19 skew=  4.58015776
  curt=  29.528801 weight=  1.88134016E+09
  Record 50202 trace  1. statistics are: ave=  1.58732236E-10 adev=
  2.06872408E-10 sdev=  4.61266386E-10 var=  2.12766686E-19 skew=  6.17654943
  curt=  50.6919365 weight=  2.1679447E+09
  Record 50202 trace  2. statistics are: ave=  2.95722252E-10 adev=
  3.23278931E-10 sdev=  5.88405047E-10 var=  3.46220478E-19 skew=  4.99389362
  curt=  35.7769127 weight=  1.6995095E+09
  Record 50203 trace  1. statistics are: ave=  1.66326078E-10 adev=
  2.22311558E-10 sdev=  5.11553577E-10 var=  2.6168704E-19 skew=  6.39165545
  curt=  54.7005234 weight=  1.95482944E+09


  Record 50611 trace  1. statistics are: ave=  8.21472473E-11 adev=
  8.28318386E-11 sdev=  2.21986068E-10 var=  4.92778116E-20 skew=  10.2588139
  curt=  133.357574 weight=  4.50478746E+09
  Record 50611 trace  2. statistics are: ave=  2.53526034E-10 adev=
  2.43274373E-10 sdev=  6.33201991E-10 var=  4.00944731E-19 skew=  10.2904587
  curt=  137.267456 weight=  1.57927488E+09
  Record 50612 trace  1. statistics are: ave=  7.3270251E-11 adev=
  7.3398454E-11 sdev=  1.86219984E-10 var=  3.46778799E-20 skew=  9.98205185
  curt=  128.949478 weight=  5.3699927E+09
  Record 50612 trace  2. statistics are: ave=  2.23903257E-10 adev=
  2.00537337E-10 sdev=  5.32562883E-10 var=  2.83623197E-19 skew=  10.8912621
  curt=  150.539963 weight=  1.87771251E+09
  Record 50613 trace  1. statistics are: ave=  8.26184121E-11 adev=
  8.59512531E-11 sdev=  1.93630736E-10 var=  3.74928595E-20 skew=  7.26433516
  curt=  71.3942184 weight=  5.16446925E+09
  Record 50613 trace  2. statistics are: ave=  2.25130373E-10 adev=
  2.02740297E-10 sdev=  4.87242635E-10 var=  2.37405359E-19 skew=  9.66609192
  curt=  124.545166 weight=  2.05236557E+09
  Record 50614 trace  1. statistics are: ave=  7.5952522E-11 adev=
  7.75347078E-11 sdev=  1.84103108E-10 var=  3.38939518E-20 skew=  8.00189304
  curt=  81.7643738 weight=  5.43173888E+09
  Record 50614 trace  2. statistics are: ave=  2.25812632E-10 adev=
  1.99106329E-10 sdev=  4.52052451E-10 var=  2.04351429E-19 skew=  8.61242676
  curt=  101.956871 weight=  2.21213261E+09
  Record 50615 trace  1. statistics are: ave=  7.71548658E-11 adev=
  7.89531981E-11 sdev=  1.79288709E-10 var=  3.21444389E-20 skew=  7.53286839
  curt=  75.7222214 weight=  5.5775959E+09
  Record 50615 trace  2. statistics are: ave=  2.40310966E-10 adev=
  2.25355581E-10 sdev=  4.8972304E-10 var=  2.39828637E-19 skew=  7.18769741
  curt=  71.409584 weight=  2.04197056E+09
  Record 50616 trace  1. statistics are: ave=  7.78473397E-11 adev=
  7.85699353E-11 sdev=  1.60017555E-10 var=  2.56056182E-20 skew=  6.8976078
  curt=  68.5381317 weight=  6.2493143E+09
  Record 50616 trace  2. statistics are: ave=  2.34332193E-10 adev=
  2.14288656E-10 sdev=  5.14471243E-10 var=  2.64680658E-19 skew=  8.85943317
  curt=  101.062859 weight=  1.94374323E+09


  Record 50898 trace  1. statistics are: ave=  1.27908281E-10 adev=
  1.46221146E-10 sdev=  2.76655254E-10 var=  7.65381367E-20 skew=  4.14068222
  curt=  19.875433 weight=  3.61460685E+09
  Record 50898 trace  2. statistics are: ave=  2.78307488E-10 adev=
  2.54032934E-10 sdev=  5.40861689E-10 var=  2.92531364E-19 skew=  8.24962234
  curt=  98.795105 weight=  1.8489015E+09
  Record 50899 trace  1. statistics are: ave=  1.33991734E-10 adev=
  1.54532359E-10 sdev=  2.80340223E-10 var=  7.85906433E-20 skew=  3.65929556
  curt=  14.8432236 weight=  3.56709427E+09
  Record 50899 trace  2. statistics are: ave=  2.90076019E-10 adev=
  2.78506801E-10 sdev=  5.93508853E-10 var=  3.52252744E-19 skew=  7.51783323
  curt=  80.0879517 weight=  1.68489485E+09
  Record 50900 trace  1. statistics are: ave=  1.28247052E-10 adev=
  1.44480844E-10 sdev=  2.70149264E-10 var=  7.29806268E-20 skew=  3.94758439
  curt=  17.8155727 weight=  3.70165734E+09
  Record 50900 trace  2. statistics are: ave=  2.9668476E-10 adev=
  2.83506413E-10 sdev=  5.99290895E-10 var=  3.59149569E-19 skew=  7.29430437
  curt=  76.1308975 weight=  1.66863872E+09
  END OF SIOSEIS RUN

    
edge.html0000755000076500001200000000664010200465024013413 0ustar  henkartadmin00000000000000
EdgeTech X-Star sub-bottom profiler
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    
 EdgeTech X-Star sub-bottom profiler example.
    

    

    A 2001 example plot.
The processing was done in three steps:
1)  Read the data tapes onto disk.
2)  Convert the Edgetech format to SEGY and filter (script).
3)  Pick the water bottom, mute, apply gain, and plot (script).

    
EdgeTech's SEG-Y is slightly different from SIOSEIS's, but
SIOSEIS process HEADER and GAINS can rectify the differences.
An analysis of the differences is included here.

    
A sioseis script that reads and converts ALL the xstar files 
in a directory and writes each as a SEG-Y/IEEE tape file.

    

    
    The EdgeTech X-Star is a towed fish whose depth varies
depending on the length of leader out, the boat's speed, etc.
When the fish goes up or down, the time of the seismic returns
will also vary.  Sometimes this variation causes interpretation
errors; the data need to be corrected to a constant datum.
    The following two schemes do datum corrections so that the
data appear to be shot from sea level.  Each ping is corrected
separately so that the fish depth variations are also removed.
One scheme shifts the data so that the water bottom time on each
ping is the same as the period of the water bottom multiple.
The second scheme utilizes the water depth information collected
from a separate XYZ file that was derived from a SeaBeam cruise.
    The data were stored on the IGPP mass store in their
original XSTAR format and were converted to SEGY using process
XSTAR while reading to the local disk.
    In the first method, the water bottom multiple period is
determined by picking the autocorrelation using script.  The
standard output was redirected to a file which was subsequently used
in a script which picks the water bottom, subtracts it from
the multiple period and shifts the ping.  The data were then plotted
with gray scale using script.
    The second datum correction method was needed because the water
depth was to deep for the multiple to be recorded.  The uncorrected
section is quite misleading when compared to the datum corrected
section without a shift mix, or
section with a 20 trace shift mix
These sections were created in two steps (scripts).


    

    
Some 1999 work follows

    
plot of all traces of the first 30 shots was generated
by this script.

    
plot of just the traces 1s was generated by this script.
    
plot of just the traces 2s.
    
plot of just the traces 1s was generated by this script.
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

edge1.html0000644000076500001200000001443207417674653013521 0ustar  henkartadmin00000000000000EdgeTech's SEG-Y to SIOSEIS's SEG-Y
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    

EdgeTech's SEG-Y to SIOSEIS's SEG-Y

    

    

    
One of the most important differences in the X-Star's SEG-Y is
that the data are "raw matched filtered" or "evelope data" and
are complex numbers rather than real numbers.  SIOSEIS process 
GAINS parameter TYPE 7 converts complex numbers to real numbers.

Using process prout to dump SEG-Y trace header words 1, 3, 4, 5, 6, 7
shows several other differences:

  SIOSEIS ver 99.6 (5 September 1999)  (C) Regents of U.C.                       
 procs diskin prout end 
 diskin 
    ipath tape_6.raw.segy end 
  ***  WARNING  ***  RP is zero and RP trace number is non-zero.
  DISKIN thinks this file is sorted by RP.
  Use DISKIN parameters NO and TR or SORT to read properly.
  Use process HEADER to set the rp trace number to 0.
 end 
 prout 
    indices l1 l3 l4 l5 l6 l7 
     fno 0 lno 99999 ftr 0 ltr 999 end 
 end 
 end 
 ****    0 ERRORS IN THIS JOB   ****
      12308.    0.0000     0.0000     0.0000     0.0000      1.0000
      12308.    0.0000     1.0000     0.0000     0.0000      1.0000
      12309.    0.0000     0.0000     0.0000     0.0000      1.0000
      12309.    0.0000     1.0000     0.0000     0.0000      1.0000
      12310.    0.0000     0.0000     0.0000     0.0000      1.0000
      12310.    0.0000     1.0000     0.0000     0.0000      1.0000
      12311.    0.0000     0.0000     0.0000     0.0000      1.0000
      12311.    0.0000     1.0000     0.0000     0.0000      1.0000
      12312.    0.0000     1.0000     0.0000     0.0000      1.0000
      12312.    0.0000     0.0000     0.0000     0.0000      1.0000
      12313.    0.0000     1.0000     0.0000     0.0000      1.0000
      12313.    0.0000     0.0000     0.0000     0.0000      1.0000
      12314.    0.0000     0.0000     0.0000     0.0000      1.0000
      12314.    0.0000     1.0000     0.0000     0.0000      1.0000
      12315.    0.0000     1.0000     0.0000     0.0000      1.0000
      12315.    0.0000     0.0000     0.0000     0.0000      1.0000

       l1       l3         l4         l5         l6          l7
     rec no     shot no    shot tr    energy pt  CDP no      CDP tr
     

The EdgeTech documentation for "X-STAR FULL SPECTRUM SUB-BOTTOM PROFILER", page 4-10 defines
their use of the SEG-Y trace header as:

 Integer No	Description
0-1			Trace (record) number (integer - 32 bit)
14			Trace identification
.
.
93			NMEA hour
94			NMEA minutes
.
.
100-101		Trace scale factor (floating point)


Note that there is no millisecond.

There are several models of EdgeTechs, this one apparently has
two hydrophone outputs, one a single phone and the other
beamformed from four hydrophones.  Use the single phone for
very shallow horizons.

Notice that SEG-Y word four seems to be a trace number within the
shot, though the trace order seeme to be reversed occasionaly.
SIOSEIS wants the shot number to be in SEG-Y word 4.  SIOSEIS
also expects the traces to be numbered 1, 2 rather than 0, 1.
Another problem is that SIOSEIS uses word 7, the CDP trace number
to indicate that the data are sorted by CDP or RP, so EdgeTech's
1 in word 7 will be a problem.

Another "gotcha" is contained in the SEG-Y readable header that
says "Envelope Sample interval = A/D/ Sample Interval*2".  The
SEG-Y data is envelope data and not A/D data, so the SEG-Y sample
interval is wrong for the data in the file!

lsd tape_6.raw.segy 1 11
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
         0     0       0     1  1      0     0   3976    20 1999 238 22  18   5
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     0       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     0       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     0       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     0       0     1  1      0     0   3976    20 1999 238 22  18   7
         0     1       0     1  1      0     0   3976    20 1999 238 22  18   7


EdgeTech has used SEG-Y unused bytes 201-204 (EdgeTech 100-101)
to store the "Trace scale factor".  SIOSEIS uses the same bytes
(SIOSEIS word 51) as an "end-of-gather" flag.

SIOSEIS process HEADER parameters:
 header
    fno 0 lno 999999 ftr 0 ltr 99999
    l3 = l1 l4 = l4 + 1 l7 = 0 i59 = i59 * 2 
    r49 = r49 * 2 r55 = r51 r51 = 0 end
 end

will changed the EdgeTech SEG-Y to SIOSEIS SEG-Y.
l3 = l1 copies the EdgeTech record number to the shot number.
l4 = l4 + 1 increments the shot trace number so it is 1 or 2
            rather than 0 or 1.
l6 = 0  sets the CDP trace number to 0.
i59 = i59 * 2 corrects the SEG-Y sample interval
r49 = r49 * 2 corrects sioseis's floating point sample interval
      diskin calculated.
r55 = r51 copies the EdgeTech trace scale factor to word 55.
r51 = 0  sets SIOSEIS's end-of-gather flag to zero.


SIOSEIS process GAINS converts complex traces to real traces:
gains
   type 7 end
end

The EdgeTech trace scalar MUST be applied since it can change
on every trace.

The new SIOSEIS process WEIGHT parameter HDR will multiply all trace
amplitudes by the trace scale factor:
weight
   fno 0 lno 999999 hdr 55 end
end


The script to read and convert EdgeTech files is:
sioseis << eof
procs diskin header gains weight diskoa prout end
diskin
   ipath tape_6.raw.segy end
end
 header 
    fno 0 lno 99999 ftr 0 ltr 99999 
    l3 = l1 l4 = l4 + 1 l7 = 0 r55 = r51 r51 = 0 end 
 end 
gains
   type 7 end
end
weight
   fno 0 lno 999999 hdr 55 end
end
diskoa
   opath data end
end
plot
   nibs 75 vscale 150 nsecs .1 tlines .01 .05 .1
   srpath sunfil
   def .02 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof

    
BACK
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
edge10.html0000644000076500001200000000140607361440015013553 0ustar  henkartadmin00000000000000
Datum correction fo the EdgeTech X-Star fish
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    sioseis << eof
procs diskin acorr mix wbt prout end
diskin
   ipath data.flipped end
end
acorr
    sets .01 .2 olens .15 end
end
filter
   ftype 0 pass 200 500 dbdrop 48 end
end
mix
    weight 1 1 1 1 1 1 1 1 type 1 end
end
wbt
   index 60
   peak pos sepp .04 .17 track .005 end
end
prout
   indices l3 r60
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof


    
edge11.html0000644000076500001200000000302507361437744013572 0ustar  henkartadmin00000000000000
Datum correction fo the EdgeTech X-Star fish
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    sioseis << eof
procs diskin header wbt wbt2 mute mix header2 shift diskoa end
diskin
   fno 1 lno 13621 allno no
   ipath data.filtered end
end
header
   fno 0 lno 999999 l6 = l3 l60 = l50 end
end
mute
   fno 1 lno 999999 ttp 1 -.002 addwb yes end
end
diskoa
   opath data_shifted end
end
mix
    type 4  lhdr 59 weight
    1 1 1 1 1 1 1 1 1 1
    1 1 1 1 1 1 1 1 1 1
    1 1 1 1 1 1 1 1 1 1 end
end
wbt2
   index 60 !  water bottom
   thres .1e-07 track .005 end
end
header2
   fno 0 lno 999999
   r58 = r59 - r60   ! multiple period - bottom
   end
end
shift
    fno 0 lno 999999 indices r58 end
end
wbt  ! these came from acorr  8 trace mix before pick
     ! and no filter
   index 59     !  this is the multiple
      1.0000         0.43083E-01
      2.0000         0.43000E-01
      3.0000         0.43000E-01
      4.0000         0.43000E-01
      5.0000         0.43000E-01
      6.0000         0.43000E-01
      7.0000         0.43000E-01
.
.
.
.
      13994.         0.10967
      13995.         0.10967
      13996.         0.10967
      13997.         0.10967
      13998.         0.10967
      13999.         0.10967
end
end
eof

    
edge12.html0000644000076500001200000000153507361705306013567 0ustar  henkartadmin00000000000000
Gray scale plotting
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    

sioseis << eof
procs diskin gains plot end
diskin
   fno 4901 lno 9000
    noinc 1 allno no
   ipath data_shifted end
end
gains
   tgp 0 1 .005 10 addwb yes end
end
plot
   scalar 1.5E+06
   stime .0
   nibs 2859 vscale 40 nsecs .2 tlines .01 .05 .1
   colors  gray
   opath siofil.gray
   wiggle 0
   trpin 300 ann gmtint anninc 1
   def .02 clip .02 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &

    
edge14.html0000644000076500001200000000430007401256611013555 0ustar  henkartadmin00000000000000
Fish datum correction using an XYZ file
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    
      Fish datum correction using an XYZ file

First put the water depth into SEG-Y header 16 while converting
to SEG-Y format.  The interpolated floating point water bottom
two-way travel time is written into word 50.  The interpolated 
time must be used because the data are high enough frequency that
there are several samples per meter.

sioseis << eof
procs diskin xstar diskoa end
diskin
   format edgetech
    ipath /data/vol3/henkart//xstar_1999/yr1999day218-0016z.xstar END
end
xstar
   binpath xyz.bin   ! use a binary version of the XYZ file
    xyzpath Eureka.xyz  ! depth goes in long word 16
    deltad 20 end
END
diskoa
    opath yr1999day218-0016z.segy end
end
prout
  indices l3 l16 r50
   fno 0 lno 999999 ftr 0 ltr 9999 end
end
end
eof


Now pick the first arrival (the water bottom as seen from the fish).
Subtract the picked time from the theoretical time.  Use MIX to smooth
(average) the shifts from 20 adjacent pings.

sioseis << eof
procs diskin wbt filter header mix shift gains plot end
diskin
   set 0 .4 fno 99748 lno 8888888 allno no noinc 2
  ipath yr1999day218-0016z.segy end
end
header
  r59 = r50 - r60   ! subtract the picked time from the theoretical
  end
end
mix
    type 4 hdr 59 weight
    1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
    end
end
prout
  indices l3 l16 r50 r59 r60
    fno 0 lno 99999 ftr 0 ltr 999 end
end
shift
  indices r59 end
end
filter
     ftype 0 pass 500 1000 dbdrop 48 end
end
wbt    !  put the picked time in buf(60), normally it goes in 50
      index 60 thres .2e-08 track .05 end
end
gains
   tgp 0 1 .002 2  .03 4 .06 20 addwb yes end
end
plot
   stime .1
   nibs 2859 vscale 20 nsecs .2 tlines .01 .05 .1
   colors  gray opath siofil.gray
   wiggle 0 anninc 1 ann gmtint
   trpin 300 def .02 end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &

    
edge2.html0000644000076500001200000000147406772533270013514 0ustar  henkartadmin00000000000000SIOSEIS script to plot some EdgeTech data
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    SIOSEIS script to plot all traces of some EdgeTech data



sioseis << eof
procs diskin gains plot end
diskin
   fno 12308 lno 12340
   ipath data end
end
gains
   type 3 alpha 1 end
end
agc
   winlen .02 end
end
plot
   nibs 75 vscale 300 nsecs .04 tlines .01 .05 .1
   srpath sunfil ann sh&tr taginc 1
   trpin 4 def .2 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
xloadimage -r 90 sunfil &

    
BACK
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
edge3.html0000644000076500001200000000142706772534071013513 0ustar  henkartadmin00000000000000SIOSEIS script to plot some EdgeTech data
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin stack gains plot end
diskin
   fno 12308 lno 12340
    ftr 1 ltr 1
   ipath data end
end
gains
   type 3 alpha 1 end
end
agc
   winlen .02 end
end
plot
   nibs 75 vscale 300 nsecs .04 tlines .01 .05 .1
   srpath sunfil ann sh&tr taginc 1
   trpin 4 def .2 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
xloadimage -r 90 sunfil &

    
BACK
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
edge5.html0000644000076500001200000000151506772534257013521 0ustar  henkartadmin00000000000000SIOSEIS script to vertically stack some EdgeTech data
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    SIOSEIS script to stack two adjacent traces:

sioseis << eof
procs diskin stack gains plot end
diskin
   fno 12308 lno 12340
   ntrgat 2
   ipath data end
end
gains
   type 3 alpha 1 end
end
agc
   winlen .02 end
end
plot
   nibs 75 vscale 300 nsecs .04 tlines .01 .05 .1
   srpath sunfil ann sh&tr taginc 1
   trpin 4 def .2 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
xloadimage -r 90 sunfil &

    
BACK
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
edge7.html0000644000076500001200000000132007346257152013507 0ustar  henkartadmin00000000000000
SIOSEIS example of EdgeTech X-Star sub-bottom profiler
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    SIOSEIS script used to convert EdgeTech to SEGY and apply filter

sioseis << eof
procs diskin xstar filter diskoa end
diskin
   format edgetech
   ipath yr2001day203-1643z.xstar end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
diskoa
  opath yr2001day203-1643z.filtered end
end
end
eof

    
edge8.html0000644000076500001200000000245107347247147013522 0ustar  henkartadmin00000000000000
SIOSEIS example of EdgeTech X-Star sub-bottom profiler
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    SIOSEIS script used to pick the water bottom, mute to the water
bottom, apply a gain, and generate and display a gray scale plot.

sioseis << eof
procs diskin header wbt tredit mute gains plot end
diskin
  fno 253000 lno 255000 allno no
    ipath yr2001day203-1643z.filtered end
end
tredit
   ses -.011 -.001 addwb yes sel 0 .02 kill yes fac .5 end
end
header
   # force the rp number to be the shot number
   fno 0 lno 999999 l6 = l3  end
end
gains
   addwb yes
   tgp 0 .5 .15 .5 .4 8 .8 16
   end
end
mute
   fno 1 lno 999999 ttp 1 -.002 addwb yes end
end
prout
   fno 0 lno 999999 ftr 0 ltr 999 end
end
wbt
   thres .11e-08
   track .0025
    end
end
plot
  scalar 2.0E+07
   stime .24
   nibs 200 vscale 75 nsecs .1 tlines .01 .05 .1
   colors gray opath siofil
    wiggle 0
   anninc 5 ann gmtint
   trpin 200 def .02 clip .03 end
end
end
eof
sio2sun siofil sunfil
xloadimage -r 270 sunfil

    
edge9.html0000644000076500001200000000177707351754521013527 0ustar  henkartadmin00000000000000
SIOSEIS example of EdgeTech X-Star sub-bottom profiler
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to Edgetech example
        
Return to SIOSEIS examples

    

    SIOSEIS script used to reformat all the files in a directory from the
Edgetech pseudo-SEGY format to SIOSEIS' IEEE SEGY tape format.

Notice that input parameter   format edgetech    must be given in 
process diskin.

Also note that output parameter    rewind no   must be used when
writing multiple files on a tape.


#! /bin/csh -f
set path = '/archive/mcs/2001/Iceland'
cd $path
foreach file (*)

cd /tmp
/usr/people/henkart/bin/sioseis << eof
procs diskin xstar output END
diskin
   format edgetech
    ipath $path/$file END
END
output
   rewind no
   device /dev/rmt/5cbn END
END
END
eof
end


    
eel99.html0000644000076500001200000001204110007747734013443 0ustar  henkartadmin00000000000000
1999 Eel River chirp profiler processing example
Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    1999 Eel River chirp profiler processing example
    

          Two sets of notes from processing the 1999 Eel River chirp data

NOTES FROM PROCESSING DONE IN 2003
 The first step was to convert to SEG-Y:
sioseis << eof
procs diskin xstar diskoa end
diskin
   format edgetech ipath yr1999day217-2244z.xstar end end
xstar
  type 2 end end
diskoa
  opath yr1999day217-2244z.segy end end
end
eof


Plot of the raw data.
Plot after mix filter at "low gain".
Plot after mix filter at "high gain".
Plot Trace 1 only with mix filter.
Plot Trace 2 only with mix filter.
Plot xstar mix filter wbt mute plot
(script of mix filter wbt mute plot)



NOTES FROM PROCESSING DONE IN 2002

Kurt Schwehr wanted a small piece of chirp data processed
for his coring project.  In particular:


 23:8:51 8/5/1999 to 23:38:45 8/5/1999
  East end                west end

I also wanted to compare some chirp data (section) without datum 
correction to data (section) with datum correction.

The processing steps were:
1)  Locate the appropriate XSTAR file, convert it to SEG-Y and insert the
    water bottom time into the SEG-Y using an xyz file created from a
    SeaBeam cruise. script.
2)  lsd yr1999day217-2244z.segy 100       listed every 100th ping.  Ping
    86738 is close to 2308z.   Instead of using diskin parameters
    fno 86738 lno 89938 allno no
    I could use fday 217 fgmt 2308 lgmt 2338
3)  Plot the data without a datum correction with script.
 a) Had I not known the best trace amplitude to use for picking the water
    bottom, I would have used process prout to dump the trace amplitudes
    of the first ping.
 b) Finding a best gain function takes a few interations of plots and 
    parameter adjustment.
 c) I used the lsd output to see what the smallest deep water delay was
    and then made the plot stime parameter just before the smallest delay.
4)  Plot the data with  a datum correction with script.
 a) Diskin parameter set .1 .8 was used to pad the input data with zeroes
    so that the ping is big enough for a big datum shift.  e.g. Ping 86738
    has a delay of 289 (mils) and 1988 samples (with a sample interval of ~83
    mils) so the trace goes from .289 sec to ~.450.  The water bottom time
    is ~.520, so the trace needs to go from .289 to .681 (.450 + (.520-.289)).
    Account for possible dip!
 b) While testing various parameters I used:
    fno 86738 lno 87938 allno no noinc 2.    Remember ! starts a comment
 c) Process xstar put the water bottom time (based on depth and 1500 m/s)
    into SEG-Y header real word 50.  Process wbt puts the picked water
    bottom time into SEG-Y header real word 60.  Process header stores
    the datum shift into SEG-Y header real word 59 (segy word 50 - 
    word 60).  Process Mix then averages the shifts over the previous
    20 pings.
 d) Remember to change plot parameter stime since the water after the
    datum correction is different.


    
Possible drawbacks of the XYZ datum correction method

        Datum correction using an XYZ file has several sources of errors:

1)  The lat/long associated with the chirp fish is actually the position
    of the boat and not the fish.  The fish can be 100 meters behind
    the GPS antenna.
2)  Similarly, there might be an offset in the XYZ data.
3)  The resolution of the XYZ survey may not be sufficient.  Parameter
    deltad in process xstar was invented to print a warning message
    when there is no XYZ within deltad of the fish.  This dataset had
    over 300 pings further than 1m from an XYZ location.  There were
    only a few pings 10-12m from an XYZ position.
4)  The accuracy of each GPS survey should be examined.  Typical GPS
    positions have 25m RMS accuracy.  Each survey has 25m RMS.
5)  Bathymetric and seismic systems have different focus areas or
    beam widths.  Multibeam systems have very narrow beams while
    seismic systems are very broad.  Seismic systems will misplace
    side echos and inline dipping features.

    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.

eel99_1.html0000644000076500001200000000151707417110767013672 0ustar  henkartadmin00000000000000
1999 Eel River chirp profiler processing example
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to Eel River chirp example.

    

    sioseis << eof
procs diskin xstar diskoa end
diskin
   format edgetech
    ipath /data/vol3/henkart/xstar_1999/yr1999day217-2244z.xstar end
end
xstar
  binpath xyz.bin  ! the ASCI file in xyzpath was converted to binary previously
    xyzpath Eureka.xyz  ! depth goes in long word 16
    deltad .0004  end   ! print a warning when "too" far from xy
end
diskoa
    opath yr1999day217-2244z.segy end
end
end
eof

    
eel99_15.html0000644000076500001200000000230610007747774013757 0ustar  henkartadmin00000000000000
Eel script of filter mix wbt mute plot
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to the Eel example.

    

    

    sioseis << eof
procs diskin mix filter wbt mute plot end
diskin
   ipath yr1999day217-2244z.xstar end
end
wbt
   thres .2e-08 track .01 end
end
prout
   fno 0 lno 999999 ftr 1 ltr 1 indices l3 l4 r50 r60 end
end
mute
   fno 1 ttp 1 -.002 addwb yes end
end
gains
   tgp .0 1  .02 10  addwb yes end
end
 plot
  dptr 1 stime .15 nsecs .4
  colors  .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil
     wiggle 0 ann gmtint anninc 1
     nibs 2859 vscale 20 tlines .01 .05 .1
     def .2 clip .02 trpin 300 end
 end
end
eof
sio2sun siofil sunfil.ras


    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.

eel99_4.html0000644000076500001200000000203507417137643013673 0ustar  henkartadmin00000000000000
1999 Eel River chirp profiler processing example
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to Eel River chirp example.

    

                 NO DATUM CORRECTION


sioseis << eof
procs diskin wbt filter gains plot end
diskin
   fno 86738 lno 89938 allno no
!   fno 86738 lno 86938 allno no
   ipath yr1999day217-2244z.segy end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
wbt
   thres .2e-08 track .1 end
end
gains
   tgp .005 1 .03 4 .04 8 addwb yes end
end
plot
  stime .3  ! use vscale 40 or 60 if using the DesignJet 
   nibs 2859 vscale 20 nsecs .25 tlines .01 .05 .1
   colors  gray
   opath siofil.gray
   wiggle 0
    anninc 1 ann gmtint
   trpin 300 def .004 end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &

    eel99_5.html0000644000076500001200000000337507417143764013705 0ustar  henkartadmin00000000000000
1999 Eel River chirp profiler processing example
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to Eel River chirp example.

    

                 WITH DATUM CORRECTION


sioseis << eof
procs diskin wbt filter header mix shift gains plot end
diskin
   set .1 .8   ! need for big datum shifts
   fno 86738 lno 89938 allno no
!   fno 86738 lno 87938 allno no noinc 2
   ipath yr1999day217-2244z.segy end
end
header
  r59 = r50 - r60   ! subtract the picked time from the theoretical
  end
end
mix
    type 4 hdr 59 weight
    1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
    end
end
prout
  indices l3 l16 r50 r59 r60
    fno 0 lno 99999 ftr 0 ltr 999 end
end
shift
  indices r59 end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
wbt
!  xstar put the water bottom time in buf(50)
   index 60   ! put this pick in real word 60
   thres .2e-08 track .1 end
end
gains
   tgp .005 1 .03 4 .04 8 addwb yes end
end
plot
   stime .5
   nibs 2859 vscale 20 nsecs .25 tlines .01 .05 .1
   colors  gray
   opath siofil.gray
   wiggle 0
   anninc 1 ann gmtint
   trpin 300 def .004  end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &



    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to Eel River chirp example.

env2depth.html0000755000076500001200000000616511212027747014422 0ustar  henkartadmin00000000000000
bash script to create depth files from envelope files
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Go to SIOSEIS examples
        
Go back to SIOSEIS Knudsen scripts

    

    script to create depth files from envelope files
    
Note:  The water depth must be in the segy header since some processes
"hang" from the water bottom.  Sub-bottom profilers usually comply with this.

    #! /bin/bash
if [ "$#" != "2" ]; then
   if [ "$#" != "3" ]; then
        echo "*****    env2depth ERROR    *****"
        echo "Usage:   env2depth  input-pathname output-pathname [END-DEPTH]"
        exit
   fi
fi
if [ "$1" == "$2" ]; then
        echo "*****     env2depth ERROR    *****"
        echo "Do not use the same directory for output as input (it causes a loop)."
        exit
fi
declare OSI edepth
let OSI=1 edepth=16000
dir_in="$1"
dir_out="$2"

LINE=" "
if [ "$#" == "3" ]; then
   LINE="     sdepth 0  edepth $3"
   edepth=$3
fi

if [ $edepth -lt 8192 ]; then
        OSI=.5
fi
if [ $edepth -lt 4096 ]; then
        OSI=.25
fi
if [ $edepth -lt 2048 ]; then
        OSI=.125
fi

cd "$dir_in"
for x in *sgy ; do
        extension=${x##*.}
        if [ $extension = sgy ]; then
                echo "reading file: $dir_in/$x"
                echo "writing file: $dir_out/depth-$x"
                cd "-"
sioseis << eof
procs diskin filter wbt avenor mix gains2 t2d header3 diskoa end
diskin
        ipath $dir_in/$x end
end
prout
   fno 0 lno 999999 noinc 1000 end    ! print every 500th trace
end
filter
    ftype 0 pass 2 500 dbdrop 48 end
end
t2d
   $LINE
   osi $OSI  vtp 1500 0 end
end
gains2
    subwb yes type 5 alpha 5 end
end
avenor
   sets 0 .1 addwb yes end
end
wbt
   vel 1500 end
end
mix
   weight 1  1 end
end
header3
   c30 'SIOSEIS processing step 1:  convert correlates to envelope.'
   c31 'step 2: procs diskin filter wbt avenor mix gains2 t2d header3 diskoa'
   c32 '        filter ftype 0 pass 2 500 dbdrop 48 end'
   c33 '        wbt vel 1500 end # convert water depth to time'
   c34 '        avenor sets 0 .1 addwb yes end'
   c35 '        mix weight 1  1 end'
   c36 '        gains2 subwb yes type 5 alpha 5 end # exponential gain from wb'
   c37 'Notes: '
   c38 '1)  The data sample interval is $OSI kilometers, thus other seismic'
   c39 '    packages should treat it like time.'
   c40 '2)  The deep water delay has been removed - all data start at zero.'

   end
end
diskoa
    opath $dir_out/depth-$x end
end
end
eof
chmod 444 $dir_out/depth-$x
cd "-"

      fi
done

    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Go to SIOSEIS examples
        
Go back to SIOSEIS Knudsen scripts

eric1.html0000644000076500001200000000204107345552537013524 0ustar  henkartadmin00000000000000 SIOSEIS script for nmo, fkfilt, movein example 
Return to SIOSEIS examples.
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    SIOSEIS script to remove multiples via nmo, fkfilt, movein
Courtesy of Eric Hallenborg, IGPP/SIO

procs diskin nmo tx2fk fkfilt fk2tx nmo2 nmo3 diskoa end

diskin
 ipath line21.cos.4196.4204.segy ftr 1 ltr 480 end
end

nmo
  stretc 9 vtp 1500 5.0 end
end

tx2fk
 nxpad 50 path1 scratch1 path2 scratch2 end
end

fkfilt
 DipPas -1 1 DipCut -0.5 0.5 Deltax 12.5 end
end

fk2tx
 end
end

nmo2
  stretc 9 vtp 1500 5.0 type 2 end
end

nmo3
  stretc 9 vtp 2200 5.0 end
end

diskoa
 opath line21.cos.fkfilt.example.segy end
end

end


    
Return to SIOSEIS examples.
    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
ew0210.html0000644000076500001200000000606510521441545013433 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS scripts
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

    The latest way to make copies of the seismic data in real-time: 
diagram 1 and diagram 2.
Watch stander's instructions for tape copy and brute stack.
The data flow and computer interconnectivity are diagrammed here.

    
Paul's watch notes and navigation are here.

    
The Syntron 3490E SEG-D tapes were reformatted to SEG-Y and written
to two DLT tapes on computer Heezen.  The tape copy script(s) is also
a record of the changing streamer geometry.  The script(s) also
apply the streamer geometery and created rp numbers (SEG-Y trace
header word 6).  The type of geometry applied changed in mid-cruise
from the user having to give the shot spacing (dfls or
distance-from-last-shot) to automatically determining the
each shot's location fron the real-time GPS.  An explanation of 
sioseis' rp number calculation is given here.

    
Sonobuoys were recorded in Syntron channel set 2, trace 1.  Channel
set 2 was excluded in the tape copy script.  The get_sonobuoy script
collects all the trace 1s of channel set 2 in real-time and writes
them to disk.

    
A real-time brute stack plot was done on grampus.  This script
used several newish features: Reading the pseudo-SEG-D data in
real-time from "Seisnet"; application of a constant avenor gain (new
avenor parameter HOLD) rather than agc or gains, and type 9 geometry
(dfls for each shot computed from the real-time lat/long).  Process
SEGDDIN also creates and writes some shot information to a log file.
Only the closest 3km (traces 241-480) were used and a velocity
function that varied with the water depth.

Before starting the stack script, for each line, sioseis needs to be
told where the seisnet files are.  The init_seisnet script assumes
the seisnet PC computer writes to grampus' disk 
/export/home3/seisnet/0210/data/$DIR, where $DIR is the line-name
entered into the seisnet computer and is the argument to this script.

    
Real-time qc plots from Seisnet were done with this script.
This script has the seisnet-sioseis interface built in.  The plot
job should run in a different directory from all other sioseis jobs.

    
Constant velocity stack script prior to sioplt picking.

    
Velocity spectra script using Matlab.

    


    
Return to SIOSEIS examples
     
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

ew0210_brute.html0000644000076500001200000000745107562034453014643 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS scripts - real-time brute stack
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

           EW0210 SIOSEIS scripts - real-time brute stack




#! /bin/csh
#
#   Remember to run script "init_script" (sioseis-seisnet daemon)
#
if( $#argv < 2 ) then
    echo "Usage: stack line-name plot-direction(ltr/rtl)"
    exit 1
endif
set LINENO = $1
set DIR = $2

#   This should be run in /export/home2/scratch/ew0210/brute so the
#  sioseis tmp files do not conflict with other sioseis scripts

/home/henkart/bin/sioseis << eof
  
procs segddin prout weight geom header gather nmo mute stack
     diskoe filter avenor plot end

segddin
   ftr 241 ltr 480
   fcset 1 lcset 1
   format seisnet
   stack latest
   logpath /export/home3/seisnet/0210/logs/$LINENO.log
   end
end
avenor
   hold 300
   addwb yes sets .2 .7   1.2 1.7  2.2 2.7  8.2 8.7 end
end
gains
  addwb yes tgp 0 .8 1.5 .8 3 4 7 12 16 24 end
end
weight
    fno 0 lno 999999 twp 236 0 end
end
geom
  type 9 # Use realtime GPS
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -180   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
# dfls 37.5   # ignored with type 9 
  dbrps 6.25 smear 6.25  
  rpadd 1000 end
end

mute
   fno 1 lno 999999
   addwb yes xtp 200 -.2  end
end
  
diskoa   # Write out the filtered stack file disk file
  opath /export/home3/seisnet/0210/stacked_lines/line$LINENO.stack-filter end
end
diskob 
# write every 50th shot to a "circular" file 
# remember that segdin limited the traces read (ftr/ltr/trinc)
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /export/home3/seisnet/0210/shots/latest.shot end 
end
diskod 
# write out the gather
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /export/home3/seisnet/0210/shots/latest.gather end 
end
diskoe   # Write out disk file
  opath /export/home3/seisnet/0210/stacked_lines/line$LINENO.stack end
end

prout
 fno 0 lno 99999 ftr 479 ltr 479 noinc 10 end
end

header
   fno 0 lno 9999999 ftr 1 ltr 9999 
   r50 r54 / 750.  # convert water depth to water time for addwb (mute)
   end
end

gather
#   maxtrs 90 maxrps 500 end
   maxtrs 50 maxrps 250 end   # half the streamer
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 500 m, use previous value. Water-depth
# velocity functions derived from ESP5, interpolation by iso-velocity layering
 vtrkwb 500 stretc 1.50

fno 10 lno 10
vtp 1500 0.013 
 1700 0.884 
 2171 1.312 
 2486 1.687 
 3092 2.208 
 5733 8.588 
 6556 13.088 end
   
fno 500 lno 500
vtp 1500 0.667 
 1630 1.549 
 1977 1.978 
 2238 2.353 
 2775 2.873 
 5673 8.391 
 6788 13.391 end
   
fno 1000 lno 1000
vtp 1500 1.333 
 1564 2.216 
 1761 2.644 
 1932 3.019 
 2089 3.332 
 5413 7.470 
 7181 13.470 end
   
fno 2000 lno 2000
vtp 1500 2.667 
 1521 3.549 
 1593 3.978 
 1664 4.353 
 1734 4.665 
 4410 7.769 
 7122 14.269 end
   
fno 2500 lno 2500
vtp 1500 3.333 
 1502 3.627 
 1521 3.885 
 1546 4.135 
 1555 4.260 
 3312 6.329 
 7244 13.829 end
   
fno 3000 lno 3000
vtp 1500 4.000 
 1501 4.294 
 1504 4.408 
 1505 4.483 
 1564 4.858 
 2900 6.551 
 7064 14.051 end
end

filter
    pass 5 60 ftype 0 dbdrop 48 end
end

 agc 
   winlen 1. center .1 end 
 end 

 plot 
   dir $DIR
  scalar -1
  tlines 0.5 1 nibs 7224 ann gmtint anninc 5 
  def 0.05 trpin 125 wiggle 0 
   nsecs 16 vscale 1.25 clip .03
  opath /export/home3/seisnet/0210/stack_plots/$LINENO.atlantek
  end 
end

end
eof


    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.
ew0210_copies.html0000644000076500001200000001165207562034453015002 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS "tape copy" scripts with geometry
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

    ****************   The tape 444 -473   redo     **********
#! /bin/csh
#
#     ****     The rp numbers will be bogus.
#              The ranges will be "right" though
#
/users/sioseis/bin/sioseis << eof
procs segdin geom output end
segdin
   loader 5
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 dfls 0
  gxp 480 -180 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof



****************      Line 26:       ********************
#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#

if( $#argv < 1 ) then
    echo "Usage: copy line-name"
    echo "e.g., copy 4b"
    exit 1
endif

set LINE = $1

/users/sioseis/bin/sioseis << eof

procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
# NOTE: this is for the streamer towing from the harness
#  put the ranges in the headers
  fs 1 ls 999999 type 9   ! calculate dfls from the real-time GPS
  gxp 480 -20 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof




****************      Lines ? - 25, 27-39       ********************
***   Use type 9 geometry    ****

#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#
if( $#argv < 1 ) then
    echo "Usage: copy line-name"
    echo "e.g., copy 4b"
    exit 1
endif

set LINE = $1
/users/sioseis/bin/sioseis << eof
procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 type 9   ! calculate dfls from the real-time GPS
  gxp 480 -180 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof


***********    Lines 1 - ?   *************************
****     User must type in the offset   **************
#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#

if( $#argv < 2 ) then
    echo "Usage: copy line-number shot_spacing_meters"
    echo "e.g., copy 4b 150"
    exit 1
endif

set LINE = $1
set SHOTSPAC = $2

/users/sioseis/bin/sioseis << eof

procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 type 2
  gxp 480 -180 ggx -12.5 dfls $SHOTSPAC dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof

    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

ew0210_cvstk.html0000644000076500001200000000254707562034455014657 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS constant velocity stack script
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

        EW0210 SIOSEIS constant velocity stack script




sioseis << eof
procs diskin header velan header2 stack filter agc plot end
diskin
   fno 1 lno 50 allno no
   ipath /export/home2/scratch/ew0210/seismic/line10/data/dkgather
   end
end
filter
    pass 5 60 ftype 0 dbdrop 48 end
end
agc
   winlen .5 center .1 end
end
header
#  save the rp number because velan renumbers the rp to be the velocity 
number
   fno 0 lno 999999 l5 = l6 end
end
header2
#   restore the original rp number even though there will be lots with t
he same number
   fno 0 lno 999999 l6 = l5 end
end
velan
   nrp 50 vels 1450 25  1600 50 2200 type cvel end
end
plot
   stime 3
   nibs 200 vscale 1  nsecs 8
   trpin 100 fspace 50 nspace 3 spacei 50
   def .01 clip .005
   ann header ihdr 46 ftag 1 taginc 50
   srpath sunfil.ras
   opath siofil hpath headers
   end
end
end
eof

    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

ew0210_get_sb.html0000644000076500001200000000141007562034456014755 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS script to collect sonobuoys from Seisnet
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

    
#! /bin/csh
#
#   Remember to run script "init_script" (sioseis-seisnet daemon)
#
if( $#argv < 2 ) then
    echo "Usage: get_sb line-name buoy-number"
    exit 1
endif
set LINENO = $1
set BUOYNO = $2

/home/henkart/bin/sioseis << eof
procs segddin prout diskoa end
segddin
   ftr 1 ltr 1
   fcset 2 lcset 2
   format seisnet
   stack latest
   end
end
prout
    fno 0 lno 99999 ftr 1 ltr 1 end
end
diskoa
   opath sonobuoy-$LINENO-buoy$BUOYNO.segy end
end
end
eof

    
ew0210_qcplot.html0000644000076500001200000000231207562034457015017 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS script to plot a shot from Seisnet
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

    
#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: plt seisnet_directory_name"
    echo "e.g., plt line4b"
    exit 1
endif

set PATH = /export/home3/seisnet/0210/data/$1
ls -t1 $PATH | head -2 | tail -1 > tmp
sed '1,2 s^FFID^seisnet_data/FFID^' tmp > list
rm seisnet_data
ln -s $PATH seisnet_data

sioseis << eof
procs segddin filter plot prout end
segddin
   format seisnet
    listpath list end
end
prout
    fno 0 lno 999999 ftr 1 ltr 1 end
end
agc
   winlen .5 end
end
filter
   ftype 0 dbdrop 48 pass 10 200  end
end
plot
   scalar .02
   nibs 7224 vscale 1.25 nsecs 6 stime 0
   def .08 trpin 30 clip .03
   ann sh&tr taginc 5
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &

    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

ew0210_seisnet.html0000644000076500001200000000232607716746442015201 0ustar  henkartadmin00000000000000EW0210 SIOSEIS scripts - initialize seisnet/sioseis interface
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

    EW0210 SIOSEIS scripts - initialize seisnet/sioseis interface

Aug 2003, Steffen suggests using:
ls -1 | sort -n -k 2 -t %
Apparently the seisnet FFIDs can bet out of order.


#!/bin/csh -f
#  Usage: init_seisnet seisnet_directory
#  Initialize the SIOSEIS-SEISNET interface
#
#  script init_seisnet lists the last two files in directory
#
if( $#argv < 1 ) then
    echo "Usage: init_seisnet seisnet_directory"
    exit 1
endif
set DIR = $1
set PATH = /export/home3/seisnet/0210/data/$DIR
rm seisnet_data
ln -s $PATH seisnet_data

set forever = 1
while( $forever )
ls -t1 $PATH | head -n 2 > /tmp/latest
   sed '1,2 s^FFID^seisnet_data/FFID^;w latest' /tmp/latest > /dev/null
   sleep 5
end
end


    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.
ew0210_vpick.html0000644000076500001200000000553007562034470014631 0ustar  henkartadmin00000000000000 EW0210 SIOSEIS scripts - vpick (velocity spectra)
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

           EW0210 SIOSEIS scripts - vpick (velocity spectra)



#! /bin/csh -f
if( $#argv < 4 ) then
    echo "vpick: pick velocities from gathers and create sioseis vtp file."
    echo "Usage: vpick display input-file output-file start_rpnum [ rpnum_inc end_rpnum]"
    exit 1
endif

set DISPLAY = $1
set FILE = $2
set MATFILE = vpick.mat      # must terminate with .mat for Matlab
set VPICKFILE = $3
set START_RPNUM = $4
setenv DISPLAY=$DISPLAY

if( $#argv < 5 ) then
    set RPNUM_INC = 1
else
    set RPNUM_INC = $5
endif

if( $#argv < 6 ) then
    set END_RPNUM = $START_RPNUM
else
    set END_RPNUM = $6
endif

set rpnum = $START_RPNUM
while ( $rpnum <= $END_RPNUM )
sioseis << eof
noecho procs diskin mute filter agc plot velan prout END

diskin
 secs 6 fno $rpnum lno $rpnum allno no forgat 1
 ipath $FILE END END

filter pass 10 80 dbdrop 48 ftype 0 end end
agc winlen .5 END END
mute   fno 1 lno 999999 addwb yes 
     xtp 480 0 1500 0. 1600 .2 6000 3. end end

prout
    fno 0 lno 99999 ftr 0 ltr 99999 END
END

 velan
    vels 1400 10 2000 nrp 1 type spec winlen .048 opath $MATFILE
    END
 END

plot
   nibs 75 stime 0 nsecs 6 scalar -1 trpin 20 vscale 2.5 def 0.1
   srpath sunfil ftag 1 taginc 1000 ann fanno fanno $rpnum END
 END

 END
eof

xloadimage -r 90 sunfil &


#  Use Matlab Version 4.2c (Nov 23 1994) or newer or else change
#  getline to ginput, which does not have a line connecting the picks.

matlab  -nosplash -display $DISPLAY<< eof1
fid = fopen( '$VPICKFILE', 'a' );
load $MATFILE;
n = size(vel);nt = n(1);
nv = n(2);
rpno = vel(1,1);
st = vel(2,1);
dt = vel(3,1);
sv = vel(4,1);
dv = vel(5,1);
vel(1,1) = 0;vel(2,1) = 0;vel(3,1) = 0;vel(4,1) = 0;vel(5,1) = 0;
x = sv:dv:sv+nv*dv-dv;
y = -st:-dt:-(st+nt*dt-dt);
contour(x,y,vel,10)
title 'rp $rpnum';
hold on;
xx=[];
yy=[];
n = 0;
but = 1;
while but == 1
   [xi,yi,button] = ginput(1);
   if button == 3;
      n = n + 1;
      xx(n,1) = xi;
      yy(n,1) = yi;
      plot(xx,yy,'k-')
   end
   if button == 2;
      plot(xx,yy,'w-')
      xx(n,1) = xx(n-1,1);
      yy(n,1) = yy(n-1,1);
      n = n - 1;
      plot(xx,yy,'k-')
   end
   if button == 1;
      but = 0;
   end
end
pause
n = size(xx);
fprintf(fid,'  fno %.0f vtp ',$rpnum);
for i = 1:n(1);
   fprintf(fid,'%.0f %.3f ',xx(i),-yy(i));
end;
fprintf(fid,'end\n');
status = fclose(fid);
quit
eof1

@ rpnum = $rpnum + $RPNUM_INC

end

    
Return to SIOSEIS examples
    
Go to the list of SIOSEIS processes.
    
Go to SIOSEIS introduction.

ew0210_watch.html0000644000076500001200000003710507562034474014632 0ustar  henkartadmin00000000000000









EW0210 watch seismic processing







    


    EW0210 watch seismic
processing
    


             The
watch is expected to perform two seismic processing tasks:
    


    1)   
Copy
each 3490 tape to DLT tape.
    


    2)   
 Monitor the real-time stack.  Start/stop the stack on line changes.
    


     
    


     
    


    1)  3490 to DLT
tape copy (also reformats from SEG-D to SEG-Y).  This is done on computer heezen.  Use user name  
sioseis   and
password  sioseis.  The copy script is:
heezen:/data/seisnet/0210/copy/copy. 
The script writes to two DLTs 
AND to the UWYO raid on computer tanaga.  The scripts also writes every 20th shot to disk
(heezen:/data/0210/shots/latest.shot).
    


             The
script may run continuously except when the line changes so a new disk file can
be created AND after 55 3490 tapes have been written to the DLT.  In both cases, the script may be
terminated with control-c.  The
copy script has two arguments: line-name and shot-spacing.        
Copy line-name
shot-spacing
    


    E,g,                             
copy 16 50
    


     
    


     
    


     
    


     
    


     
    


     
    


     
    


    2) The real-time stack reads every shot from the ÒseisnetÓ
system, processes it, and writes a few traces to the Atlantek plotter.  The seisnet/sioseis stack script should
be run on computer grampus.  The
stack requires three separate processes: 
A)  a connection between
seisnet and sioseis.  B) the
sioseis stack script.  C) a process
plotting the traces created by sioseis. 
    


    i)             
Start
the connection between seisnet and sioseis in itÕs own window by typing: init_seis   line-name         e.g.   init_seis 1a
    


    ii)           
The
stack script has two arguments, the line name and the direction of the
plot.  The plot direction
convention is that the North or East end of the seismic plot should be on the
right hand side.   When
sailing to the west (course 270), the first shot is in the east and the plot
direction should be ÒrtlÓ.
    


    a.  Courses 315-360, 0-135 are    rtl
    


    b.   
 Courses 135-315 are   ltr
    


    E.G.       stack  16  rtl
    


    iii)         
The
program atlantek uses the plot filename as an argument.  The stack plot files are in
grampus:/export/home3/seisnet/0210/stack_plots.    E.G. atlantek line16
    


     
    


    At the end of the seismic line,
terminate the stack script by entering control-c in the init_seis window,
followed by typing the word alto. 
Alto signals sioseis that no more data is available and it flushes the
gather, stack, and plot buffers. 
When the stack script terminates with the words ÒEND OF SIOSEIS RUNÓ,
the atlantek program may be terminated with a control-c.
    


    




examples.html0000644000076500001200000002136211227404256014332 0ustar  henkartadmin00000000000000SIOSEIS examples

Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
f2t.html0000755000076500001200000000324207111062715013204 0ustar  henkartadmin00000000000000f2t
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                    PROCESS F2T


Documentation Date:  18 May 2000

Process F2T transforms frequency domain data to the time domain.
Process T2F must have been used to create the frequency domain.  The
frequency domain data may be in rectangular or polar coordinates
(parameter COORDS in process T2F).
 
A quadrature trace (or 90 degree phase shifted trace) may be obtained
through a Hilbert transform and parameter TYPE HILBERT.

An analytic trace may be formed by using parameter TYPE ANALYTIC.  In
this case, the trace samples are an interleaving of the input trace 
and the Hilbert transformed trace, so that there are twice as many
output samples as input.  The instantaneous amplitude may be formed
by using process GAINS TYPE 7 (modulus of a complex trace).

PARAMETER DICTIONARY
--------- ----------
TYPE - The type of data output by process F2T.
     = TIME, The real time domain.
     = COMPLEX, The complex time domain.
     = HILBERT, The real time domain with Hilbert transform 
                (phase shifted by 90 degrees).
     = ANALYTIC, The analytic time domain trace. (c(t) = a(t)+ib(t),
                 where c(t) is a complex trace of a(t) the input
                 trace and b(t) is the phase shifted trace).
     Default = TIME.

Written and copyrighted (c) by:
Paul Henkart, Scripps Institution of Oceanography, 21 January 1984
all rights are reserved by the author.  Permission to copy or reproduce this
subroutine, by computer or other means, may be obtained only from the author.

    
fdfmod.ex.html0000655000076500001200000001407606504232661014375 0ustar  henkartadmin00000000000000
<B>Finite Difference Forward Modelling examples<B>

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    

            Finite Difference Forward Modelling examples



1) c_hypcvel:  Generate a constant velocity hyperbola.

    
Input data
        
Output data

    sioseis << eof
procs syn filter diskoa fdfmod prout diskob end

syn
   fno  1 lno 49  ntrcs 1 secs 3.0 tva 3.1 2500 1 end
   fno 50 lno 50  ntrcs 1 secs 3.0 tva .3 2500 1 .7 2500 1  1.0 2500 1 1.3 2500 1 1.8 2500 1 end
   fno 51 lno 100 ntrcs 1 secs 3.0 tva 3.1 2500 1 end
end                    

filter
    pass 10 20 end
end

diskoa
    opath impulsecvel.segy
    fon 1
  end
end

fdfmod
   nx 102 bpad 1 epad 1 
   opad no maxsam 751
   dx 25 maxdip .001 
   path scratch
   vtp 2500 0.0 2500 3.0 
   tsteps 3.00 .1                           
   end
end

prout
  fno 1 lno 99999 ftr 1 ltr 99999
  end
end

diskob
  opath impulsecvel.fddiff fon 1
  end
end

end





2) c_hypvlat:  Generate a hyperbola with laterally varying velocity.

    
Input data
        
Output data

    sioseis << eof
procs syn filter diskoa fdfmod prout diskob end

syn
   fno  1  lno 49   ntrcs 1 secs 3.0 tva 3.1 1500 1 end
   fno 50  lno 50   ntrcs 1 secs 3.0 tva  0.5 1500 1   1.0 2000 1   1.5 2500 1  end
   fno 51  lno 149  ntrcs 1 secs 3.0 tva 3.1 1500 1 end
   fno 150 lno 150  ntrcs 1 secs 3.0 tva 0.25 1500 1   0.75 2000 1   1.25 2500 1 end
   fno 151 lno 249  ntrcs 1 secs 3.0 tva 3.1 1500 1 end
   fno 250 lno 250  ntrcs 1 secs 3.0 tva 0.50 2000 1  1.0 2500 1 end
   fno 251 lno 300  ntrcs 1 secs 3.0 tva 3.1 1500 1 end
end                    

filter
    pass 10 20 end
end

diskoa
    opath impulsevlat.segy
    fon 1
  end
end

fdfmod
   nx 302 bpad 1 epad 1 
   opad no maxsam 751
   dx 25 maxdip .001 
   path scratch 
   fno 1   tsteps 3.00 .100 vtp 1500 0.500 2000 1.000 2500 1.500
3000 3.0 end
   fno 100 tsteps 3.00 .100 vtp 1500 0.500 2000 1.000 2500 1.500
3000 3.0 end
   fno 110 tsteps 3.00 .100 vtp 1500 0.250 2000 0.750 2500 1.250 
3000 3.0 end
   fno 200 tsteps 3.00 .100 vtp 1500 0.250 2000 0.750 2500 1.250 
3000 3.0 end
   fno 210 tsteps 3.00 .100 vtp 2000 0.500 2500 1.000 3000 3.000 end
   fno 300 tsteps 3.00 .100 vtp 2000 0.500 2500 1.000 3000 3.000 end
end

prout
  fno 1 lno 99999 ftr 1 ltr 99999
  end
end

diskob
  opath impulsevlat.fdfmod fon 1
  end
end

end
eof





3) c_rms.fddiff:  Generate a hyperbola with rms velocity

    
Input data
        
Output data

    sioseis << eof
procs syn filter diskoa fdfmod prout diskob end

syn
   fno  1 lno 49  ntrcs 1 secs 3.0 tva 3.1 1500 1 end
   fno 50 lno 50  ntrcs 1 secs 3.0 tva .5 1500 1  1.0 2000 1 1.5 2500 1 2.0 2750 1 end
   fno 51 lno 100 ntrcs 1 secs 3.0 tva 3.1 1500 1 end
end                    

filter
    pass 10 20 end
end

diskoa
    opath impulserms.segy
    fon 1
  end
end

fdfmod
   nx 102 bpad 1 epad 1 
   opad no maxsam 751
   dx 25 maxdip .001 
   path scratch
   vtp  1500 0.500 2000 1.000 2500 1.500  2750 2.00
   3000 3.00 
   tsteps 3.00 .100                           
   end
end

prout
  fno 1 lno 99999 ftr 1 ltr 99999
  end
end

diskob
  opath impulserms.fdfmod fon 1
  end
end

end
eof




4) /c_mod.dip.refl:  Generate a hyperbola with dip.

    
Input data
        
Output data

    sioseis << eof
procs syn filter diskoa fdfmod prout diskob end

syn
   fno  1 lno 35   ntrcs 1 secs 2.000 tva 2.100 1500 1 end
   fno 36 lno 36   ntrcs 1 secs 2.000 tva 1.260 1500 1 end
   fno 37 lno 37   ntrcs 1 secs 2.000 tva 1.268 1500 1 end
   fno 38 lno 38   ntrcs 1 secs 2.000 tva 1.276 1500 1 end
   fno 39 lno 39   ntrcs 1 secs 2.000 tva 1.284 1500 1 end
   fno 40 lno 40   ntrcs 1 secs 2.000 tva 1.292 1500 1 end
   fno 41 lno 41   ntrcs 1 secs 2.000 tva 1.300 1500 1 end
   fno 42 lno 42   ntrcs 1 secs 2.000 tva 1.308 1500 1 end
   fno 43 lno 43   ntrcs 1 secs 2.000 tva 1.316 1500 1 end
   fno 44 lno 44   ntrcs 1 secs 2.000 tva 1.324 1500 1 end
   fno 45 lno 45   ntrcs 1 secs 2.000 tva 1.332 1500 1 end
   fno 46 lno 46   ntrcs 1 secs 2.000 tva 1.340 1500 1 end
   fno 47 lno 47   ntrcs 1 secs 2.000 tva 1.348 1500 1 end
   fno 48 lno 48   ntrcs 1 secs 2.000 tva 1.356 1500 1 end
   fno 49 lno 49   ntrcs 1 secs 2.000 tva 1.364 1500 1 end
   fno 50 lno 50   ntrcs 1 secs 2.000 tva 1.372 1500 1 end
   fno 51 lno 51   ntrcs 1 secs 2.000 tva 1.380 1500 1 end
   fno 52 lno 52   ntrcs 1 secs 2.000 tva 1.388 1500 1 end
   fno 53 lno 53   ntrcs 1 secs 2.000 tva 1.396 1500 1 end
   fno 54 lno 54   ntrcs 1 secs 2.000 tva 1.404 1500 1 end
   fno 55 lno 55   ntrcs 1 secs 2.000 tva 1.412 1500 1 end
   fno 56 lno 56   ntrcs 1 secs 2.000 tva 1.420 1500 1 end
   fno 57 lno 57   ntrcs 1 secs 2.000 tva 1.428 1500 1 end
   fno 58 lno 58   ntrcs 1 secs 2.000 tva 1.436 1500 1 end
   fno 59 lno 59   ntrcs 1 secs 2.000 tva 1.444 1500 1 end
   fno 60 lno 60   ntrcs 1 secs 2.000 tva 1.452 1500 1 end
   fno 61 lno 61   ntrcs 1 secs 2.000 tva 1.460 1500 1 end
   fno 62 lno 62   ntrcs 1 secs 2.000 tva 1.468 1500 1 end
   fno 63 lno 63   ntrcs 1 secs 2.000 tva 1.476 1500 1 end
   fno 64 lno 64   ntrcs 1 secs 2.000 tva 1.484 1500 1 end
   fno 65 lno 65   ntrcs 1 secs 2.000 tva 1.492 1500 1 end
   fno 66 lno 100  ntrcs 1 secs 2.000 tva 2.100 1500 1 end
end                    

filter
    pass 10 45 end
end

diskoa
    opath diprefl.segy
    fon 1
  end
end

fdfmod
   nx 102 bpad 1 epad 1 
   opad no
   dx 25 maxdip .001 
   path scratch
   vtp 1500 0.0 1500 2.0
   tsteps 2.00 0.10
   end
end

prout
  fno 1 lno 99999 ftr 1 ltr 99999
  end
end

diskob
  opath diprefl.fdfmod fon 1
  end
end

end
eof

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

fdfmod.html0000755000076500001200000002031406504054427013755 0ustar  henkartadmin00000000000000
fdfmod

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FDFMOD

Document Date:  25 July 1990

     Finite-Difference Forward Modelling using the 45-degree algorithm

The finite-difference migration technique is an effective way to handle 
many types of migration problems.  Often it is necessary to do the 
reverse problem -- given a subsurface structure and velocity field,  
calculate its response on a zero-offset section, or unmigrated section  
( a zero-offset section is a good approximation to a stacked section
in regions of small dip).   This technique is very similar to migration 
except that the receivers are upward continued to the surface P(x,z=0,t), 
whereas the migration process downward continues the receivers - via a 
finite-difference approximation to the scalar wave equation - into the 
subsurface and collecting terms at P(x,z,t=0).   Input to FDFMOD can be 
generated by process SYN and FILTER, and should represent the structure 
you care to model (or unmigrate).  Therefore, point sources should become 
diffractors, interfaces should increase both dip and length, etc...

This process will most likely be used in conjunction with processes SYN 
and FILTER which generate seismic traces for modelling.

Limitations

see process FDMIGR


Some Important Parameters

The parameter Rho is inserted into the expression for the discretization 
of the time derivative. This serves to counteract any potential growing 
waves from the expression for migration, as an explicit damping with time. 
It can be thought of as a "numerical viscosity".  A value of Rho less 
than 1 reinforces stability.  However, any deviation of Rho away from 1, 
by at most 1 percent,  results in some loss of signal as well as noise.

In the discretization of depth, the parameter Theta is introduced, with 
the most natural value being .500.  If Theta = 0 is used, there is a 
tendency to overshoot on variations, whereas   Theta = 1 will produce an 
overdamping of change.

To discretize the horizontal distance component, an approximation to the 
second derivative is found by an iterative method.  When the iteration is 
truncated, the parameter Gamma is introduced, which is allowed to vary 
between .08 and .17, based primarily on the look of migrated sections.  
If Gamma is allowed to increase too much more, spurious noise results.

In the ideal case, Tau would equal the sample rate of the data, meaning 
that the entire section would be migrated exactly one sample rate step 
at each pass through the section. While this scheme reduces the errors, 
it is impractical due to the huge run-time needed. In practice, Tau should 
be chosen in the range of 20 to 200 ms. (.02 to .2 secs), with the smaller 
Tau values producing greater accuracy.  It is possible to vary Tau 
vertically (not recommended), and should be done in order to save run-time. 
Generally, the value of Tau should decrease from shallow to deep data 
times. This is because greater accuracy is needed in the migration of the 
deeper events where the greatest movement is taking place.

More detailed explanation of the origin of these parameters, and some 
results of allowing them to vary, may be found in the paper published 
by H. Brysk (Geophysics: May 1983).


PARAMETER DICTIONARY
--------- ----------

DX     - Trace separation distance.  This is the distance between 
         reflection points.  DX is a constant for the entire seismic line.
         REQUIRED.  range 1.0 to 500.0 e.g.  dx 25

FNO    - The first shot/rp number the parameter list applies to.
         Preset = the first shot/rp received.    e.g.   FNO 101

LNO    - The last shot/rp number the parameter list applies to.
         Preset = the last shot/rp received.     e.g.   LNO 101

VTP    - The rms velocity to use in migration.  The rms velocity function 
         is the same as the velocity function used to moveout the data.  
         Given as velocity-time pairs.  Velocities not specified are 
         calculated through interpolation and "straight-lining" from the 
         ends.  Times must be given in seconds.
         Preset = none    velocity range 350 to 32000

VDIX   - The interval velocities to use in migrating, given as interval 
         velocity-time pairs.  Time must be in seconds.
         Preset = none    range 350 to 32000

BPAD   - The number of zero amplitude traces to insert prior to the first 
         trace.
         Preset = 1   range 1 to 500   e.g. bpad 10

EPAD   - The number of zero amplitude traces to append after the last trace.
         Preset = 1   range 1 to 500   e.g. epad 10

OPAD   - A switch indicating that the pad traces (both bpad and epad) 
         should be output in addition to the migrated input.
         Preset = no   range yes/no    e.g.   opad yes

NRHO   - A parameter used to control the Tau step interpolation.
         Preset = 2.0   range 0. to 10000  

FCRHO  - A parameter used to control the Tau step interpolation.
         Preset = .99   range .0001 to 1.

RHO    - A "hidden" migration parameter discussed above.
         Preset = .9990   range  0 to .9999
  
THETA  - A "hidden" migration parameter discussed above.
         Preset = .501  range  0 to 1.0

GAMMA  - A "hidden" migration parameter discussed above.
         Preset = .125   range  .08 to .17

TSTEPS - A set of time-delta-tau pairs governing the tau step size 
         (delta-tau) in the time interval terminating with the time given.  
         Up to 7 pairs of time and delta-tau may be given.  The user must 
         give the max time modelled in last pair. e.g. 8.0 0.10 with 8.0 
         secs being last sample modelled. It is HIGHLY suggested that the 
         user use only one time-delta-tau pair and vary the size of the 
         step to conserve cpu time.  Units are in seconds.
         Preset = REQUIRED            

NX     - The total number of traces, including pads, to migrate.  The 
         entire seismic line must be transformed from TX (time-space) to 
         XT (space-time).  FDDIFF requires much extra disk I/O if the 
         entire seismic line (nx*maxsam) is larger than the computer 
         memory allocated for the transformation.  NX does not have to
         be a power of 2.  
         Preset = 4096 e.g. nx 500

MAXSAM - The maximum number of samples per trace, including the deep 
         water delay, to migrate. A trace exceeding MAXSAM will be 
         truncated.
         Preset = the number of samples plus delay of the first trace.

PATH   - The pathname (filename) of a scratch file FDDIFF should use for 
         the intermediate transposed data.  The purpose of this parameter 
         is to allow the user to specify the exact disk partition to use 
         in case the "current" partition does not have enough space.
         Preset = a scratch file in the current directory
         e.g.    path /user/scratch/moreroom


EXAMPLES:

1)   Generate a constant velocity hyperbola.  
     (Script file examples/c_hypcvel) 
     sioseis << eof
     procs syn filter diskoa fdfmod diskob end 
     syn
        FNO  1 LNO 49  ntrcs 1 secs 3.0 tva 3.1 2500 1 end
        FNO 50 LNO 50  
          tva .3 2500 1 .7 2500 1  1.0 2500 1 1.3 2500 1 1.8 2500 1 end
        FNO 51 LNO 100  tva 3.1 2500 1 end
     end          
     filter
          pass 10 20 end
     end
     diskoa
          opath impulsecvel.segy fon 1 end
     end
     fdfmod
          nx 102 bpad 1 epad 1 opad no maxsam 751 dx 25 maxdip .001 
          path scratch vtp 2500 0.0 2500 3.0 tsteps 3.00 .1 end
     end
     diskob
          opath impulsecvel.fddiff fon 1 end
     end
     end

2)   Generate a hyperbola with laterally varying velocity.
     See script file examples/c_hypvlat.

3)   Generate a hyperbola with rms velocity.
     See script file examples/c_rms.fddiff.

4)   Generate a hyperbola with dip.  
     See script file examples/c_mod.dip.refl


  Copyright (C) by The Regents of The University of California, 1988
  Written by Paul Henkart and Graham Kent, 
  Scripps Institution of Oceanography, La Jolla, Ca.
  ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
fdmigr.html0000755000076500001200000002517107271132461013771 0ustar  henkartadmin00000000000000fdmigr
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FDMIGR

Document Date:  23 April 2001

                   Finite-difference Migration using the
                            45-degree algorithm

The finite-difference migration technique is an effective way to handle
many types of migration problems.  It was developed and made popular by
J. F. Claerbout at Stanford University.  For most stack sections, finite-
difference migration gives results comparable to other schemes; however
there are assumptions and stability limitations which must be considered.
For certain conditions, frequency domain (process FKMIGR) migration is
more effective in resolving typical imaging and positioning problems.

LIMITATIONS


Steep Dips

It is possible to add more terms to the finite-difference equation to 
obtain successively more accurate equations to deal with the steep dip
problem.  However, these schemes quickly become impractical to implement
due to their cost.  Further limitations on dip angle are imposed since
the finite-difference method itself introduces errors.  The equation 
used in FDMIGR is known as the 45-degree equation, and is capable of 
handling dips up to angles of 45 degrees with sufficient accuracy. 

A certain confusion exists regarding the meaning the meaning of the dips
referred to in the 45 degree equation. This is not simply the dip of 
continuous reflectors.  These are the dips included in all events of 
interest as seen in the F-K domain.  A sharp fault, for example, 
contains dips up to 90 degrees, and the 45 degree algorithm will only
properly migrate certain components, with increasing distortion at 
higher dips.  The parameters in the algorithm are set to suppress those
dips which are poorly imaged.


Velocity

Within the finite-difference equation there is no term to describe 
differences in velocity. Hence, a major assumption of the scheme is that
velocity is constant throughout the section.  In practice, it is 
sufficient for the velocity to vary slowly enough that it looks roughly
constant within the effective "aperture" of the algorithm.  This 
aperture can be thought of as a box whose time length equals one 
Tau-step size and whose spatial length equals the effective width of a 
point diffraction pattern.


Boundary Effects

Ideally, we would like to perform migration on all of space.  But in the
real situation, we can only migrate a finite section of the earth, so we
must consider the effects of the imposed boundaries.  The main 
consideration is for the sides of the section, where we normally think
of the earth as simply ceasing to exist, and the events stopping.  This
view induces the mathematical equivalent of a vertical reflection 
coefficient, and events which are migrated towards it will be partly 
reflected back into the section.  In order to suppress, or at least 
attenuate these undesirable events, a buffer zone, or pad, consisting of
a number of traces, is inserted at both sides of the section.  The traces
are set to zero before migration, and the velocity is the same as the
attached traces in the section.  Studying the padded traces after 
migration can sometimes yield valuable information about events close to
the edge of the section, especially if other data in the area is 
available.

Comparison with FKMIGR

a)   Run Time
          One of the most practical considerations when deciding which
migration scheme to use is the difference in cost.  Depending on the 
values of certain parameters used, FDMIGR can run 3 to 4 times as long
as FKMIGR.  Clearly, if there is no advantage in data quality to be
obtained, FDMIGR should not be used.
          FDMIGR must migrate from time zero, so it replaces the deep
water delay with sufficient zeroes.  The inserted zeroes are removed
after migration so that the output traces will have the same delay as
the input traces.  Deep water delays do not affect the FDMIGR run time.

b)   Steep Dips
          Use of FDMIGR will produce inaccuracies if events are dipping
by more than 45 degrees.  FKMIGR, the frequency domain approach, 
migrates all dips with equal accuracy.

c)   Velocity
          In general, FDMIGR will perform better in the presence of 
velocity variations, although both methods assume that velocity is 
slowly varying.

d)   Stability
          While FKMIGR is very stable in almost all conditions, FDMIGR
uses parameters which, if mis-used, can cause the migration equation to
become unstable. It is also possible to set values for particular data
sets in order to control noise on the output section, but you should
have a good understanding of finite-difference migration first. In
general, the default values will produce stable  results.

e)   Noise Suppression 
          All migration algorithms tend to suppress random noise and
enhance coherent events.  The result is that the output section will 
look more "mixed" than the input.  The effect will be more prominent as
the accuracy of the algorithm increases.  For this reason, FKMIGR FKMIGR
will generally look more mixed than FDMIGR, which will, in turn, look
more mixed than a 15 degree algorithm.


Some Important Parameters

The parameter Rho is inserted into the expression for the discretization
of the time derivative. This serves to counteract any potential growing
waves from the expression for migration, as an explicit damping with
time. It can be thought of as a "numerical  viscosity".  A value of Rho
less than 1 reinforces stability.  However, any deviation of Rho away
from 1, by at most 1 percent, results in some loss of signal as well as
noise.

In the discretization of depth, the parameter Theta is introduced, with
the most natural value being .500.  If Theta = 0 is used, there is a 
tendency to overshoot on variations, whereas Theta = 1 will produce an 
overdamping of change.

To discretize the horizontal distance component, an approximation to the
second derivative is found by an iterative method.  When the iteration
is truncated, the parameter Gamma is introduced, which is allowed to
vary between .08 and .17, based primarily on the look of migrated 
sections.  If Gamma is allowed to increase too much more, spurious noise
results.

In the ideal case, Tau would equal the sample rate of the data, meaning
that the entire section would be migrated exactly one sample rate step
at each pass through the section. While this scheme  reduces the errors,
it is impractical due to the huge run-time  needed. In practice, Tau 
should be chosen in the range of 20 to 200 ms. (.02 to .2 secs), with
the smaller Tau values producing greater accuracy.  It is possible to 
vary Tau vertically, and this should be done in order to save run-time.
Generally, the value of Tau should decrease from shallow to deep data
times. This is because greater accuracy is needed in the migration of
the deeper events where the greatest movement is taking place.

More detailed explanation of the origin of these parameters, and some
results of allowing them to vary, may be found in the paper published by
H. Brysk (Geophysics: May 1983).

PARAMETER DICTIONARY

DX     - Trace separation distance.  This is the distance between 
         reflection points.  DX is a constant for the entire seismic 
         line.
         REQUIRED.  range 1.0 to 500.0 e.g.  dx 25

FNO    - The first shot/rp number the parameter list applies to.
         Preset = the first shot/rp received.    e.g.   FNO 101

LNO    - The last shot/rp number the parameter list applies to.
         Preset = the last shot/rp received.     e.g.   LNO 101

VTP    - The rms velocity to use in migration.  The rms velocity 
         function is the same as the velocity function used to moveout
         the data.  Given as velocity-time pairs.  Velocities not
         specified are calculated through interpolation and "straight-
         lining" from the ends.  Times must be given in seconds.
         Preset = none    velocity range 350 to 32000

BPAD   - The number of zero amplitude traces to insert prior to the
         first trace.
         Preset = 1   range 1 to 500   e.g. bpad 10

EPAD   - The number of zero amplitude traces to append after the last
         trace.
         Preset = 1   range 1 to 500   e.g. epad 10

OPAD   - A switch indicating that the pad traces (both bpad and epad)
         should be output in addition to the migrated input.
         Preset = no   range yes/no    e.g.   opad yes

NRHO   - A parameter used to control the Tau step interpolation.
         Preset = 2.0   range 0. to 10000  

FCRHO  - A parameter used to control the Tau step interpolation.
         Preset = .99   range .0001 to 1.

RHO    - A "hidden" migration parameter discussed above.
         Preset = .9990   range  0 to .9999  

THETA  - A "hidden" migration parameter discussed above.
         Preset = .501  range  0 to 1.0

GAMMA  - A "hidden" migration parameter discussed above.
         Preset = .125   range  .08 to .17

TSTEPS - A set of time-delta-tau pairs governing the tau step size 
         (delta-tau) in the time interval terminating with the time
         given.  Up to seven (time, delta-tau) pairs may be given.  The
         delta-tau values will be interpolated between the specified
         times and will be "straight-lined" at the trace ends.  The
         units of time and delta-tau are seconds.
         Preset = REQUIRED   e.g. tsteps .1 .1 1.0 .2

NX     - The total number of traces, including pads, to migrate.  The
         entire seismic line must be transformed from TX (time-space)
         to XT (space-time).  FDMIGR requires much extra disk I/O if the
         entire seismic line (nx*maxsam) is larger than the computer 
         memory allocated for the transformation (the Cray does not have
         a virtual memory).  NX does not need to be a power of 2.
         Preset = 4096  e.g.   nx 500

MAXSAM - The maximum number of samples per trace, including the deep
         water delay, to migrate.  A trace exceeding MAXSAM will be 
         truncated.
         Preset = the number of samples plus delay of the first trace.

PATH   - The pathname (filename) of a scratch file FDMIGR should use
         for the intermediate transposed data.  The purpose of this
         parameter is to allow the user to specify the exact disk
         partition to use in case the "current" partition does not have
         enough space.
         Preset = a scratch file in the current directory 
               e.g. path /user/scratch/moreroom

   
Copyright (C) by The Regents of The University of California, 1988
Written by Paul Henkart, Scripps Institution of Oceanography, La Jolla, Ca.
and by Veritas Seismic Processors, Ltd., Calgary, Alberta.
ALL RIGHTS RESERVED.

    
feathering.html0000644000076500001200000000721307777601540014641 0ustar  henkartadmin00000000000000

Analysis of streamer feathering

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Analysis of streamer feathering
    

         This describes the analysis of streamer feathering and
SIOSEIS type 13 geometry.  The streamer navigation must be
described using the UKOOA P190 standard.

     Given an unknown seismic line the first thing to do is
to plot the streamer position!  Using SIOSEIS and MATLAB, the
analysis follows:

1)  Create a synthetic SEG-Y file that contains the UKOOA
    X-Y coordinates of the shot and receivers.
2)  Print the X-Y coordinates of the shot and receivers.
3)  Plot the streamer location using Matlab.
4)  Find the "start of line".
5)  Find the "end of line".
6)  Create a synthetic file with SIOSEIS geom type 13.
7)  Compare the feathering angle and crossline offset in the
    SEG-Y header and the plots from step 3.
8)  Plot the crossline offsets vs survey distance.
9)  Plot the streamer feathering vs survey distance.



1)   Create a synthetic SEG-Y file that contains the UKOOA
    X-Y coordinates of the shot and receivers.
sioseis << eof
procs syn geom diskoa end
syn
   ntrcs 240 secs 1 fno 10479 lno 11050 tva .5 10000 1 end
end
geom
   dbrps 12.5 navfil GOC14.240.p190 type 13 end
end
diskoa
   opath syn.line14 end
end
end


2)  Print the X-Y coordinates of the shot and receivers.
more prt

#! /bin/csh
@ N = $1
sioseis << eof
procs diskin prout end
diskin
   fno $N lno $N
   allno no ipath syn.line14 end
end
prout
   indices l3 l4 l19 l20 l21 l22
   format (6(1x,F10.0))
   fno 0 lno 9999999
   end
end
end

Comments:
Redirect stdout   (e.g.   prt 10579 > l.10579), then edit the output
file so that it conatins only numbers  (don't forget the last
line of the file).


3)  Plot the streamer location using Matlab.
load l.10579
x = l(:,5);
y = l(:,6);
a = min(x);
b = min(y);
x = x-a;
y = y-b;
sx = l(1,3) - a;
sy = l(1,4)-b;
plot(x,y,'b.',sx,sy,'r*')
axis([-1000 7000 -1000 7000])
grid on
title('10579')

Plots of the streamer at shots:
10579    10679    10779    10879    10979   

4)  We really need to see the shot-line, so a similar sioseis job:
procs diskin prout end
diskin
    fno 10601 lno 11000 ftr 1 ltr 1
   allno no ipath syn.line14 end
end
prout
   indices l3 l4 l19 l20 l21 l22 i48 i49
   format (8(1x,F10.0))
   fno 0 lno 9999999
   end
end
end


and add to Matlab:
load l.all
ax = l(:,3) - a;
ay = l(:,4)-b;
hold
plot (ax,ay,'g-')

Plots of the streamer feathering are: 10779    10879    10979

Plots of the streamer cross-line offset are: 10779    10879    10979

    
Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

filter.forum.html0000755000076500001200000000435306133265471015140 0ustar  henkartadmin00000000000000SIOSEIS FILTER Forum

    
Note 1:  Filter length                              PCH  24 August 1987

Process FILTER does a time domain convolution rather than a frequency 
domain multiplication.  I changed the parameter FILLEN from seconds to
the number of filter points.  I did this so that preseting would be 
easier.  I wanted all sample rates to use the same number of filter 
points so that jobs with 1 mil data would run as fast as 4 mil data.  I
also decreased the number of filter points in the preset because so many
SIOSEIS installations do not use array processors.

A problem of time domain filtering is that the filter has to be long 
enough to cancel a full wavelength.  e.g. In order to remove a 10hz
signal, the filter must be longer than 1/10 seconds long (at 1 mil, 
that's > 100 filter points!).


Note 2:  SIOSEIS filter design                        PCH, 24 Aug 1987

SIOSEIS filters are not designed as many people think!  I basically use
a tapered sinc function (which is a rectangle in the frequency domain).
I thus do not allow the user to specify the slope of the rectangle 
because there is no rectangle!

Note 3:  Anti-alias filters
   The anti-alias filter is an interesting subject.  The theoretically
correct thing to do is to use process filter prior to resamp.  Anti-
alias filters are usually IIR (because they are usually done at
digitization), not FIR (the preset in SIOSEIS).  Typically a low pass
filter is used (sioseis ftype 1) with the cutoff at Nyquist/2 and
dbdrop of 90 (so the Nyquist is down 90 db).  e.g. at 4 mils the
Nyquist is 125, so the filter should kick in at 62.5.
   What recording system are using?  The Ewing DSS?  If so, and the
anti-alias filter is set for 2 mils, ie it kicks in at 125 so that
it's 90db down at 250, how much aliasing will you really see by
decimating by 2?
   If you are using the HIG/UTIG Sun system, the above doesn't hold
because I don't think there are any filters in the A/D!  I think the
logic goes like:  record as fast as possible (50nanosecond sample
interval or 20khz sample rate) and don't worry about aliasing because
frequencies > 20kHz don't exist.  Ask Tom or Mark W. about the lack
of filters.  I don't think any users of the Sun A/D have thought about
this.

Paul


    
filter.html0000755000076500001200000001571110247116635014007 0ustar  henkartadmin00000000000000filter
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FILTER
Parameters, alphabetically:
addwb     dbdrop    fillen    fno       ftype
interp    levs      lno       minpha    pass
sets      window    winlen

Document Date: 22 April 2005

Process FILTER applies a frequency filter to every trace.  Filters 
available are: (see parameter FTYPE)
     Time domain (convolutional) zero phase time varying bandpass
     Frequency domain zero phase bandpass
     Frequency domain minimum phase
     Low pass Butterworth
     Frequency domain notch
     
Time varying filtering is performed by applying different time domain
filters to different parts of the trace.  The different parts of the 
trace are called windows.  The portion of the trace between windows 
are merged by ramping (linear).  The merge zone thus contains data that
has been filtered by different filters and then added together after 
being ramped.  The weights of the windows can be different, however then
the merge zone will contain more of one type of filter than the other.
e.g.          F1            F2            F3
                        ..........     ..........
                       .          .   .
          ..........  .            . .
                    ..              .
                   .  .            . .
                  .    .          .   .

Up to 5 windows may be given, each with a different window level, and
may be spatially varied by shot or rp or by hanging the windows on the
water bottom.  Time varying filters are available only on time domain
filters.

All parameters that remain constant for a set of shots (rps) may be
described in a parameter set FNO to LNO.  Windows between two parameter
sets are calculated by linearly interpolating between LNO of one set
and FNO of the next set.  Only the time windows (sets) are spatially
varied.  The filter (pass) remains constant even though the application
window (sets) vary.  Parameter INTERP may be used to turn spatial
interpolation off.

Each parameter list must be terminated with the word end.  The entire
set of filter parameters must be terminated by the word END.

THE PARAMETER DICTIONARY
--- --------- ----------

FNO    - The first shot (or rp) to apply the filter(s) to.  Shot (rp)
         numbers must increase monotonically.
         Preset=1

LNO    - The last shot (rp) number to apply the filter(s) to.  LNO must
         be larger than FNO in each list and must increase list to list.
         Default=fno

SETS   - Start-end time pairs defining the windows of a time varying filter.
         Times are in seconds and may be negative when hanging the
         windows from the water bottom.   A maximum of 5 windows may be 
         given.  Only available on time domain filters.
         Preset= delay to last time. e.g. sets 0 3.0 3.3 6.0

PASS   - For time domain (convolution filtering or FTYPE 99): A list of
         passbands. A passband is a set of two frequencies between which
         the data will be passed.  Frequencies outside the passband will
         be cut.  Pass is an approximate number but very sharp sloped
         filters can be obtained by increasing the filter length.  Up to
         5 passbands may be given.
       - For frequency domain bandpass filters (ftype 0 and 20)
         The two corner frequencies of the passband.  The slopes of the
         filter are given via DBDROP.
       - For low pass or high pass filters (ftype 1 and 2 ):
         The cutoff frequency.
       - For notch filters (ftype 3 and 23):
         The two corner frequencies between which the frequencies
         will be cut out (filtered out).
         Required. e.g. pass 10 70

FILLEN - The length of each time domain filter.  The number of points
         to use in the convolution.  Up to 5 filter lengths may be
         given.  An odd number of points should be used since the
         filters are symmetrical.  Short filters (25 points) may run
         fast, but the filter shape becomes poor.  Short filters do not
         filter low frequencies well.
         Preset = 25 25 25 25 25  e.g.  fillen 39

LEVS   - The amplitude level of each window described by sets. Each
         window may have a different level.  Each level must be >0.
         Up to 5 levels may be given.
         PRESET= 1. 1. 1. 1.

ADDWB  - When given a value of yes, the windows given via sets will be
         added to the water bottom time of the trace.  (Water bottom
         times may be entered via process wbt).
         Preset=no

FTYPE  - Filter type.  Time varying filter is permitted with time domain
         filtering only.  Add parameter MINPHA for minimum phase filters.
       = 0, John Shay's frequency domain zero phase bandpass.
       = 1, John Shay's frequency domain low pass. The corner
            frequency is the first value of parameter PASS.
       = 2, John Shay's frequency domain high pass. The corner
            frequency is the first value of parameter PASS.
       = 3, John Shay's frequency domain notch.
       = 10, Low pass 3 pole Butterworth filter.
       = 20, Warren Wood's frequency domain zero phase bandpass.
       = 23, Warren Wood's frequency domain notch.
       = 99, Time domain (convolutional) zero phase time varying.  These
             are VERY fast filters.
         Preset = 99    e.g.   ftype 0

DBDROP - Decibel drop per octave.  The slope of the filter response in
         db/octave.  Valid with FTYPE 0, 1, and 3
         Preset = 48.   e.g. dbdrop 6

WINDOW - The type of window to apply before computing the fft.
       = hamm, Hamming
       = hann, Hanning
       = bart, Bartlett (triangular)
       = rect, rectangular (box car - no window)
       = blac, Blackman
       = ebla, exact Blackman
       = blha, Blackman-Harris
        Preset=hann  e.g. window rect

WINLEN - The window length, in seconds.  A window length of zero causes
         the entire time domain gate to be windowed.  A non zero length
         indicates that winlen data will be modified at both ends of each
         data gate.
         Preset = 0.  e.g.  winlen .2

MINPHA - A yes/no switch indicating that the filter should be a minimum
         phase filter rather than zero phase.  Valid for ftype 0, 1, 2.
         The switch is set by any no-zero value.
         Preset = no     e.g. minpha yes

INTERP - A yes/no switch indicating whether spatial interpolation should
         be done or not.  Normally all shots/rps and traces are filtered,
         but this can be overridden with INTERP NO.  Traces not specified
         in an fno/lno list will not be filtered with INTERP OFF.
         Preset = yes    e.g.   interp no

END    - Terminates each parameter list.


Copyright (C) 1980 The Regents of the University of California
ALL RIGHTS RESERVED.
Written by Paul Henkart, May 1980 

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

fk.example1.html0000755000076500001200000000157006421421472014630 0ustar  henkartadmin00000000000000
<B>FK filter and migration example of Ewing post stack data<B>

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    

    

    
Input data

    sioseis << eof
procs diskin despike prout tx2fk fkfilt fkmigr fk2tx diskoa prout end
diskin
  fno 21700 lno 23600  # read 1900 traces
  ipath /orizaba1/mcs.dir/stacked/stack.line3 end
end
diskoa
    opath line3.fkmigr.1 end
end
fkfilt
    dipcut -6 6 dippas -5 5 end
end
filter 
    pass 5 50 ftype 0 dbdrop 24 end 
end
tx2fk
   nxpad 20  end   # x pad 20 traces plus (2048-(1900+20+20))
end
despike
    fac 5 end
end
fkmigr
   vel 1500 deltax 12.5 end
end
fk2tx
      end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
end

    
Output data
fk.forum.html0000755000076500001200000001057706343415461014257 0ustar  henkartadmin00000000000000FK processing Forum
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                FK processing Forum

FK domain processing and concepts are a little different.

1.)  Process TX2FK outputs only positive wavenumbers.  Process DISKOX
     converts the data to "user friendly" polar coordinates even though
     the parameter coords is an tx2fk parameter.  DISKOX writes both 
     negative and positive wavenumbers only when "user friendly" 
     coordinates are requested.  The sample interval in the trace header
     of fk domain data is the sampling frequency.  In order to plot fk
     domain data using SIOSEIS, two jobs must be run.  The first converts
     to "user friendly" coordinates and changes from sampling frequency
     to sample interval in time.  This two step operation is also need
     because TX2FK prevents DISKOX from passing meaningful data to 
     successive processes.
     e.g.  job 1)
          procs diskin tx2fk diskoa end
          diskin
               ?????? end
          end
          tx2fk
               coords polaru ......   end
          end
          diskoa
               opath data end
          end
          end

     job 2)    procs diskin plot end
          diskin
               si .001 ipath data end
          end
          plot
               .............  end
          end
          end

2.)  The trace headers are destroyed by process tx2fk.  The shot/rp 
     numbers are reset to start with 1.  The original time domain 
     sample interval is retained and restored by process fk2tx.  All
     DISKOX parameters are ignored except for opath.

3.)  Picking the fan values using dippas and dipcut requires some 
     special attention.
     a)   The direction of positive dip depends on the direction of the
          plot of the tx data.  Positive dip is the direction the plot
          was made.  If the plot was made from right to left, positive
          dip increases down to the left.   e.g.
          --------------------------------------  0 time
          positive dip                .
          normal plot              .
          (right to left)       .
                             .
                          .

          --------------------------------------  0 time
          negative dip    .
          normal plot        .
          (right to left)       .
                                   .
                                      .

          --------------------------------------  0 time
          negative dip                 .
          reverse plot              .
          (left to right)        .
                              .
                           .

          --------------------------------------  0 time
          positive dip     .
          reverse plot        .
          (left to right)        .
                                    .
                                       .


     b)   The dippas and dipcut parameters enable the user to describe the 
          filter as cut taper pass pass taper cut much like the way a bandpass
          filter is often described.  The fan filter removes dips greater than
          the first and last dipcut.  Dips between the dippas dips will be
          passed.  Dips between the cut and pass dips will be "tapered".
          e.g.  dipcut -6 6 dippas -5 5  removes dips greater than -6 mils/trace
                and dips greater than +6 mils per trace.  Dips between -5 and +5
                mils per trace will be retained.  Dips between -6 and -5 mils
                per trace will be diminished or tapered, as will dips between 
                +5 and +6 mils per trace.
          e.g.  dippas -6 6 dipcut -5 5  removes dips less than -5 mils/trace
                and dips less than +5 mils per trace.  Dips between -6 and +6
                mils per trace will be retained.  Dips between -6 and -5 mils 
                per trace will be diminished or tapered, as will dips between 
                +5 and +6 mils per trace.

4)   PRESTACK FK
     Processes TX2FK and FK2TX honor the SIOSEIS "end-of-sort" flag (-1 in 
     header word 51).  Use process gather, sort or header to set the 
     "end-of-sort" flag.

5)   Cut out the water wave:
	velcut 1.4 1.6 -1.4 -1.6     velpas 1.1 1.9 -1.1 -1.9


6)   Pass the water wave only (vel 1.2 to 1.7 lm/s)
     velpas 1.2 1.7     velcut 1 2


    fk2tx.html0000755000076500001200000000510410452776451013561 0ustar  henkartadmin00000000000000fkfilt
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                   PROCESS FK2TX
                               ------- -----

Parameters, alphabetically:
ihdrpath  kill      opad      path1     path2

Document Date: 17th October 1988    version 1.0    a.j. harding
Modifications:
     31 August 2005 - Add parameter KILL.

Process FK2TX transforms from the FK (frequency-wavenumber) domain into
the TX (time-space) domain.  The data MUST have been transformed into
the FK domain using process TX2FK.

Most FK2TX jobs will not require any parameters since the basic FK
information is stored in the SEG-Y headers.  A null set of parameters
may be given by:
      fk2tx
            end
      end

PARAMETER DICTIONARY
--------- ----------

PATH1    - This is where input FK traces are accumulated prior to back back 
           transformation. It is deleted after back transformation, and before
           the output tx data are written to disk.  Thus it is usually safe to 
           put this file in the same directory as the final output.  If 
           procedure TX2FK is present in the procs list then this scratch file
           is the same as the 2nd scratch file of TX2FK. Care should be taken 
           not to specify this file twice. Only the first filename will be used
           by SIOSEIS.
           Default: Implementation dependent.

PATH2    - The name of the second scratch file to be used by SIOSEIS.
           Default: Implementation dependent.

IHDRPATH - Filename containing a set of original TX trace headers that were 
           written by process TX2FK. These headers will be added to the TX 
           traces after transformation. On the assumption that a 2-D process was
           performed in F-K all traces will be marked live and all mute entries
           will be zeroed in the header.  This parameter is useful when
           SEG-Y header information, such as the trace range, need to be
           retained.  (The FK domain contains half the number of traces
           of the TX domain, thus the SEG-Y traces headers are omitted).

OPAD     - YES. All padding both in time and range added to data prior to 2-D 
           FFT will be output.
           Preset NO.

END      - Terminates each parameter list

Copyright (C) by The Regents of The University of California, 1992
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
fkfilt.html0000755000076500001200000000660307143574350014004 0ustar  henkartadmin00000000000000fkfilt
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FKFILT

Document Date:  Jan 1993

FKFILT calculates and applies a filter in the frequency-wavenumber (FK)
domain.

Currently the only type of filter that is implemented is a fan filter or
pie slice filter.  This type of filter is useful for removing or 
retaining signals travelling across the seismic line at certain phase 
velocities.  The filter is defined in terms of a series of lines from 
the origin which delimit pass and cut slices of the filter.  In between
a cut and pass region the filter response is tapered according to a 
chosen window function.

To define a fan filter, the filter lines may be given either in terms of
velocity or in terms of dip. The cut and pass lines may be input in any
order and will be sorted and checked for consistency.   For velocity the
filter region runs 
                    v :  0- -> -inf / +inf -> 0+
While for dips it runs
                  dip :  -inf -> 0 -> +inf.
(Remember horizontal events have 0 dip and infinite velocity.  Steeply 
dipping events have small velocity.)

It is a mistake to define a filter that, when sorted, consists of 3 or 
more lines of the same type within the body of the filter or 2 or more
lines of the same type at either end.

Refer to two articles in the January 1983 "First Break" for more details
on both the FK domain and FK filtering.  The SIOSEIS document fk.forum
contains some discussions about the fk domain and has FKFILT examples.

Prestack FKFILT may be done by using the process TX2FK parameter PRESTK.


The Parameter Dictionary:
--- --------- ----------

DipCut - The dip of the lines defining the FK region(s) to be removed. 
         Dip is measured in ms per trace.

DipPas - The dip of the lines defining the FK region(s) to be retained.
         Dip is measured in ms per trace.
         e.g  DipPas -1 1 DipCut -2 2 retains events with small dip,
              removing dips greater than 2mils trace to trace.

VelCut - The velocity of the lines defining the FK region(s) to be 
         removed. The units for velocity must be consistent with those 
         used for Deltax.

VelPas - The velocity of the lines defining the FK region(s) to be retained.

        e.g.  VelCut -100 -900 900 100
              VelPas - 250 -500 500 250 will retain only arrivals with 
        apparent velocities between +/- 900 & 500.

Deltax - If the filter is defined using VelPas/VelCut the deltax must 
         be given.

Window - The type of window to use when tapering.
       = HAMM, Hamming
       = HANN, Hanning
       = BART, Bartlett (triangular)
       = RECT, Rectangular (box car - no window).
       = BLAC, Blackman
       = EBLA, Exact Blackman
       = BLHA, Blackman-Harris
         Preset = HANN, e.g. window rect

WinOpt - The windowing may be done as a function of angle, wavenumber
         or frequency.  However a window that spans infinite v cannot be
         tapered as a function of frequency.
       = ByA - As a function of angle
       = ByK - As a function of wavenumber
       = ByW - As a function of frequency
         Preset = ByA

End    - Terminates each parameter list.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

fkmigr.html0000755000076500001200000000474710647251050014003 0ustar  henkartadmin00000000000000fkmigr
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FKMIGR
                              ------- ------

Parameters, alphabetically:
deltat   deltax    nfint     vel

Document Date: 18 July 2007
Modifications:  18 July 2007 - Increase maximum samples in to 16834.

Process FKMIGR performs F-K migration on data that is in the frequency-
wavenumber domain.  The data must have been through process TX2FK prior
to FKMIGR.  The output from FKMIGR is also in the F-K domain, thus, the
data may be transformed to the time-space domain via process FK2TX after
process FKMIGR.

F-K migration assumes a constant velocity for the entire section. This 
type of migration also assumes that the data is "zero-offset" data.  
Single channel data with fairly small shot-receiver distance are zero-
offset.  Moved out data are zero-offset.  The zero-offset diffraction 
hyperbola that are collapsed by F-K migration  have the formula
tx=2*sqrt(t0**2/4+x**2/v**2).

At least 60 traces should added to the beginning and the end of the 
section to be migrated in process tx2fk (parameter nxpad).  This padding
should be sufficient to prevent "edge" or boundary effects.

Fkmigr uses Stolt's algorithm to perform migration in the F-K domain and
may be found in "Imaging the Earth's Interior", by Jon Claerbout.

Prestack FKMIGR may be done by using the process TX2FK parameter PRESTK.

The deep water delay is honored by making t0 the delay time.  All traces
to be migrated must have the same delay however.

FKMIGR can not handle more than 32768 frequencies (which corresponds to
16834 sample in the time domain).

PARAMETER DICTIONARY
--------- ----------

VEL    - The constant velocity to use to migrate the data.
         Required       e.g. Vel 1500.

NFINT  - The number of adjacent frequencies to use in interpolation.
         Preset =10     e.g. Nfint 2

DELTAX - The distance between traces.
         Preset 1.      e.g. Deltax 6.25

DELTAT - The time sample interval, in seconds.
         Preset = trace header.   e.g.  Deltat .001   

END    - Terminates each parameter list.

Written and copyrighted (c) by:
Paul Henkart, Scripps Institution of Oceanography, December 1983
Rewritten by Alistair Harding, 1988
All rights reserved. 

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
fkshift.html0000755000076500001200000000322206356043445014156 0ustar  henkartadmin00000000000000fkshift
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS FKSHIFT

Document Date: 10 November 1992

Process FKSHIFT performs an extrapolation via a phase shift in the F-K
domain.  FKSHIFT is depth migration of a horizontally layered media 
whose velocity is always increasing.

The data must have been transformed into the F-K domain prior to process
FKSHIFT and it is left in the F-K domain.  Use process TX2FK prior to 
FKSHIFT and FK2TX after FKSHIFT.

FKSHIFT can be used to forward extrapolate shot gathers by specifying
the true velocity and extrapolation height (thickness).

FKSHIFT can be used to backwards extrapolate stacked data to the 
seafloor by halving the specified velocity and specifying the output
time delay.

Only one parameter list may be given.

PARAMETER DICTIONARY
--------- ----------

VEL     - The constant velocity.
          Preset = 0     e.g. 1500

DELTAX  - The distance between traces.
          Preset 1. e.g. deltax 100.

ZEXTRAP - The extrapolation height.
          Preset = 0.

ODELAY  - The time of the first output sample, in seconds.
          Preset = 0.    e.g.  odelay 1.

DELTAT  - The sample interval of the data in the time domain, in seconds.
          Preset = SEG-Y header.   e.g.  deltat .004

END     - Terminates each parameter list.

Copyright (C) by The Regents of The University of California, 1992
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
flaten.html0000755000076500001200000000537506356043476014010 0ustar  henkartadmin00000000000000flaten
Go to the list of seismic processes.
Go to SIOSEIS introduction.

                                  PROCESS FLATEN

Document Date: 20 February 1987

Process FLATEN flattens the seismic line to user given time.  Each trace
is shifted from the water bottom (depth or time) to the user given output
time.  Any SEG-Y trace header word may be used as the water bottom time.
Water bottom depths may be converted to travel times by giving a velocity.

The original concept of flatten started with the SIO Sea Beam center beam
depth being used as the depth.  That depth is the depth directly under
the center of the ship (SEG-Y header word ihdr(16)), not at all what 
seismic really sees.  Next, the Sea Beam closest beam depth was put into
SEG-Y header word ihdr(107).  Finally, PROCESS WBT was modified to not
only use the closest Sea Beam depth, but to look forward and aft for the
shallowest depth.

The SIO single channel system started recording the SeaBeam depths in 
spring 1987 (Crossgrain 1).

THE PARAMETER DICTIONARY
--- --------- ----------

OTIME  - The time, in seconds, of the of the water bottom after process FLATEN. 
         REQUIRED. e.g. otime 5.6 

VEL    - The velocity of the water column used to convert the water 
         depth to the water bottom time.  A zero velocity indicates that
         the header word is a time.  time = header / vel.  SIO Sea Beam
         uses 1500 m/s
         Preset = 0     e.g. vel 1500

HDR    - The index of the water bottom depth/time within the REAL SEG-Y
         header.  PROCESS WBT puts the water bottom time in hdr(50).
         Preset = 50

IHDR   - The index of the water bottom within the 16 bit SEG-Y trace 
         header. Use only if the water bottom depth/time is not in 
         word 16.
         Preset = 0     e.g.   ihdr 66

LHDR   - The index of the water bottom within the 32 bit SEG-Y trace 
         header. Use only if the water bottom depth/time is not in 
         word 16.
         Preset = 0     e.g.   lhdr 63

NAVE   - The number of trace depths to average across.  The depth for a 
         given trace will be the average the current trace and the 
         previous NAVE-1 traces.
         Preset = 1    e.g.   nave 5

FNO    - The first shot (or RP) to FLATEN.  Shot (RP) numbers must 
         increase  monotonically.

LNO    - The last shot (RP) to FLATTEN.  LNO must be larger than FNO in
         each successive parameter list. 

END    - Terminates each parameter list.

Copyrighted (c) and written by:
Paul Henkart, Scripps Institution of Oceanography, February 1987
All Rights Reserved.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
fled.html0000644000076500001200000001142110756620746013433 0ustar  henkartadmin00000000000000
Creating SIOSEIS plots for Fledermaus' mkvcurtain command<title>
<a href = "examples.html">Back to SIOSEIS Examples.</a>
        
<A HREF = "procs.html">Go to the list of seismic processes.</A>
        
<A HREF = "index.html">Go to SIOSEIS introduction.</A>
</head><P>
<pre>
     This example continues the <a href="l490sc.html">San Diego Trough example</a> by creating plot
files for display in Fledermaus.

<h2>Getting the ASCII NAV into SEG-Y</h2>
     The USGS *.sgy data do not contain the navigation.  The navigation
is in a separate ASCII file where the lat/long are given for the SEG-Y
"energy source number" or ESPN.
<h2><a href="makes.html" target"makes.html">All the scripts.</h2></a>
<h4>Print the SEG-Y rp numbers (word 6) and energy source numbers (word 5)</h4>
     Word 5 is the SEG-Y ESPN, word 6 is the RP number
     Save this list in a file named *.prt. 
e.g. mkprt WSD81-711__26481 > WSD81-711__26481.prt
where WSD81-711__26481.prt is:
 ****    0 ERRORS IN THIS JOB   ****
      1.0000          4966.0
      2.0000          4966.0
      3.0000          4965.0
      4.0000          4965.0
      5.0000          4964.0
      6.0000          4964.0
      7.0000          4963.0
      8.0000          4963.0
      9.0000          4962.0
      10.000          4962.0
******   Note that there are two traces for each ESPN.  *******
<h4>Break the USGS nav file into lines.</h4>
ls -l w-31-81-sc.051-nav.txt
-rw-r--r--   1 henkart  wheel  9342776 Oct 31 14:04 w-31-81-sc.051-nav.txt
     That's a big ASCII file, so I used a text editor and made a nav file 
for each seismic line.  e.g. 711.nav
     If there are multiple SEG-Y files for the seismic line, make sure the
ASCII nav file contains the energy source numbers of the SEG-Y file.
******  Make sure the nav file has ALL the ESPNs by looking at the *.prt file. ***
<h4>Create a nav file formated for sioseis.</h4>
     Create a sioseis formated nav file.   e.g.
tosio.perl 711.nav > 711.sionav

711.sionav starts with:
0 0 0 0 0 33.46222 0 -117.83770 0 25
0 0 0 0 0 33.46203 0 -117.83756 0 26
0 0 0 0 0 33.46184 0 -117.83741 0 27
0 0 0 0 0 33.46165 0 -117.83727 0 28
0 0 0 0 0 33.46146 0 -117.83712 0 29
0 0 0 0 0 33.46127 0 -117.83698 0 30
0 0 0 0 0 33.46108 0 -117.83684 0 31
0 0 0 0 0 33.46089 0 -117.83670 0 32
The right-most column is the ESPN.

******  Determine what portion of the SEG-Y data you want to process by 
examining *.sionav and *.prt.  Some SEG-Y file are very big and will
create very big plot files.  e.g.  I choose to limit the data to be
between 32.6N and 32.9N

<h4>Create a new SEG-Y file with the navigation in it.  GEOM TYPE 18</h4>
     Process GEOM type 18 inserts the nav from a sioseis formatted ASCII
file using the time of shot or the shot number or the rp number.  Sioseis
doesn't use the energy source number.  Process header is used to save the
original rp number (word 6) into segy word 1, then replace the rp number 
with the energy source number   (l1 = l6 l6 = l5).
     Limit the data to be processed by using diskin parameters FNO and LNO.
     Create a separate script for each seismic line.

****  WARNING  ****   Datasets "shot backwards" (the nav and segy data are
in opposite directions) cause type 18 geometry to search the ASCII file for
each new nav point.
<h4>Create an XY file for Fledermaus' mkvcurtain command.</h4>
     Recall that the navigation is duplicated on alternate shots, so only
only every other navigation point is printed from the segy file.  
     e.g.   mkxy 711
<h4>Create a plot for Fledermaus</h4>
     Create a grayscale plot - a traditional red/blue plot will cause
visual confusion when the plot orientation in Fledermaus changes (rotates).
Use ImageMagick's -transparent white option to signal that the white of
the plot can be removed and made transparent.
     The direction of the seismic plot doesn't matter since it will be 
geo-referenced in Fledermaus.
     Create a TIFF file since Fledermaus doesn't allow PNG.
     Flip the plot (left to right) because SIOSEIS' plot origin (0,0) is
the top right (plotters) and images are top left (screens).
     Resize the image to be 25% of the original.
     e.g.  mkgplt 711

<h4>Create a Fledermaus SD file</h4>
     Fledermaus' "Import vertical images" assumes that the seismic data
were shot in a straight line.
     Using progarm FMCommand, under pull down "Command & Control", in
the command box, type:    
mkvcurtain -in 711.tif -xy 711.xy -out 711.sd -zrange -5000 0
     The .sd files may be loaded into Fledermaus under the "file" pulldown
menus and the "load data object".
     Z range may be changed under the Fledermaus pulldown menu "controls"
and then "geo-referencing".
     Save everything as a <a href="W-31-81-sc.scene.gz" target="W-31-81-sc.scene">scene file.</a>

</pre>
�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������flow.html�������������������������������������������������������������������������������������������0000755�0000765�0000120�00000004655�06356367531�013507� 0����������������������������������������������������������������������������������������������������ustar  �henkart�������������������������admin���������������������������0000000�0000000������������������������������������������������������������������������������������������������������������������������������������������������������������������������<TITLE>SIOSEIS PROCESSING FLOW
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                       SIOSEIS PROCESSING FLOW

SIOSEIS processes seismic data in the order the user describes on the 
PROCS statement.  After each trace is entered into the system, it is 
processed in order as far as it can before another trace is entered.  
This makes SIOSEIS into a 'trace processor'.  There are 2 major
advantages of a trace processor over a 'shot processor'.  First, each
trace is left in memory as long as possible, thus minimizing I/O time
to disk.  Secondly, there are no limits as to the number of traces in
a shot or gather.

Some seismic processes require more than 1 trace before they are finished,
such as stack.  This type of process is called a 'multi-input' process.
Processing control (or order) can not be advanced until enough traces are
entered into the system to satisfy the multi-input process requirements.
Processing order is retraced (backed-up) until an input process is found,
and then the processing order goes in a forward direction again.

Some seismic processes may output more than one trace from a single input
trace, such as constant velocity gathers.  This type of process is called
a multi-output process.  In this case, processing proceeds after the
multi-output process until a trace is eliminated, then the processing 
order backs up until it gets to the multi-output process, which then
inputs the next trace if one is available.

SIOSEIS has a table that defines each process as an input process, or an
output process, or neither.  Each process sets the number of traces to be
passed to the next process.  If the number of traces to be passed is zero,
then SIOSEIS searches the user defined processing list backwards from 
that process until an input process is found.  Processes input, syn, 
stack, and gather are input processes.

Example 1:
     procs input filter output end
trace 1 is input, then filtered, then output, then trace 2 is input, etc.

Example 2:
     procs input stack filter output exec end
the processing order will be input stack until all of an rp is finished,
then the stacked trace will be filtered and output.  The processing order
then goes back to input.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
forum.html0000755000076500001200000000131706356043537013655 0ustar  henkartadmin00000000000000User forum
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    A set of user processing questions and answers, sorted by process name:

filter
f-k processes
gather
geom
input
plot
procs
segdin

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
fugro.html0000644000076500001200000000254307172647340013645 0ustar  henkartadmin00000000000000EW0008 GPS layout

    
EW0008 GPS Setup

John E. Chance and Associates (Fugro) installed dual SpotBeam
differential GPS systems which provided RTCM (differential) corrections
to their Trimble 4000DS GPS receiver and several Ewing GPS receivers.
The Trimble 4000 NMEA output was used as the primary navigation system
(GP01) for the Ewing steering and navigation.  The only failure of this
system ocurred on day 259 (in the 3-D shoot) and was rectified by
switching from the AM-SAT satellite to the AMSC-E satellite (AM-SAT was
set for Port Newark and AMSC-E was set for the work area).  The switch
was reset to AM-SAT on day 276.

The SpotBeam was selected over the past Inmarsat setup because of the
well known problem of the Ewing mast blocking the Ewing Inmarsat dome.
The two SpotBeam antennae and the Trimble 4000 antenna were installed on
the roof of the A-booth (winch booth on the A-deck), well away from the
Ewing's mast.  The antenna was 6.2 meters starboard of the ship's
centerline and 13.8 meters forward of the transom.

The RTCM differential corrections were supposed to be sent to the
tailbuoy, so that the tailbuoy's Ashtech G-8 GPS receiver would send
back corrected positions (NMEA strings).  This objective was NEVER
successful.  When the ship could receive tailbuoy positions, the
receiver did not send back differential NMEA strings.

    
gains.html0000755000076500001200000001323510552745220013617 0ustar  henkartadmin00000000000000gains
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                      PROCESS GAINS, GAINS2, GAINS3
                  ------- -----  ------  ------

Parameters, alphabetically:
addwb     alpha     etime     fno       lno       rscale
subwb     tadd      tgp       tmult     type      winlen


Document Date: 14 January 2007
Updates:  
          Allow GAINS2 and GAINS3, January 2007
          Complex modulus changes the sample interval. March 2005
          Have TGP honor SUBWB, March 2004
          Add parameter WINLEN (amplitude running average), June 2003
          Add TADD and TMULT (time add and multiply), Oct 2000
          Add TGP (time gain pair), July 2000
          Add ADDWB, July 2000

Process GAINS applies a gain function.  Chapter 4 of Claerbout's 
"Imaging the Earth's Interior" mentions several of the gain functions 
implemented.
                                               
At least one parameter list must be given, even if no parameters are 
specified, in order that the parameter presets be set.  e.g.
     gains
          end
     end

PARAMETER DICTIONARY
--------- ----------

TYPE   - The type of gain to apply.
       = 1,  a(i) = a(i) * (t*1000.)**alpha    ( USGS gain ) where a(i)
         is the trace and t is the time of the trace sample in seconds.
         Restrictions:  All traces must have the same start time.
         Preset = 1
       = 2,  a(i) = a(i) * (ABS(range)/SIGN(rscale,range)) ** alpha when
             ABS(range) .GE. rscale;  where range is the range in the 
             SEG-Y header, rscale and alpha are given by the user, SIGN
             is the Fortran SIGN function which means that ABS(rscale)
             is used when range is positive and -ABS(rscale) is used 
             when range is negative.
       = 3,  a(i) = a(i) * t ** alpha
       = 4,  a(i) = a(i) ** alpha
       = 5,  a(i) = a(i) * e ** (alpha * t)
       = 6,  a(i) = SIGN(a(i)) * ABS(a(i)) ** alpha
       = 7,  a(i) = SQRT(a(i*2-1)**2+a(i*2)**2) (modulus of complex trace)
             The only SEG-Y header value modified is the number of samples
             (since there are half as many samples after doing the modulus).
             The SEG-Y header value for the number of samples is divided 
             by 2, as is the sample inetrval.
             The deep water delay is NOT modified.
       = 8,  a(i) = a(i) * ABS(range/rscale) ** alpha when
             ABS(range) .GE. rscale;  where range is the range in the
             SEG-Y header, rscale and alpha are given by the user.
       = 9,  Time-Gain-Pairs.  Automatically set to type 9 when 
             parameter TGP (time-gain-pairs) is given.
       Preset = none     e.g. type 4 alpha 2

Additional Parameters:
---------- ----------

ETIME  - The end time of the gain function type 1.  Data after the end
         time will receive the gain of the end time.  Type 1 ONLY.
         Preset = the last time of the first trace.   e.g.  etime 4.

ALPHA  - The exponent used in TYPEs 1 - 6 gain.
         Preset = 1.   e.g.  type 3 alpha 1.5

RSCALE - The range scalar used in TYPE 2 gain.
         Preset = 1.

SUBWB  - Subtract water bottom time switch.  Type 3, 5 and 9 ONLY.
       = YES, The water bottom time is subtracted from the data time in
         the gain types that use time as a variable.  e.g.
               a(i) = a(i) * t ** alpha     becomes
               a(i) = a(i) * (t-wbt) ** alpha  for t >= wbt 
         Preset = NO

TGP    - Time-Gain-Pairs.  A list of gains or multipliers to apply
         to each data trace.  Time/gain not specified in TGP are
         obtained through extrapolation and interpolation of TGP.
         The gain for data times between TGP times will be linearly
         interpolated using the adjacent time and gain pairs.
         Times prior to the first time of TGP will use the first gain.
         Times after the last time of TGP will use the last gain.
         Preset = none     e.g. tgp 0 1 1 10 2 100

ADDWB  - When given a value of YES, the times given via TGP
         will be added to the water bottom time of the trace.
         (Water bottom times may be entered via PROCESS WBT).
         Valid with type 9 or TGP gains only.
         Preset=no             e.g.   addwb yes

TMULT  - Time multiplier used in gains type 3 and 5.  Preset = 1.
TADD   - Time additive used in gains type 3 and 5.  Preset = 0.
         When using a(i) = a(i) * t ** alpha, first t is:
         t = delay; if subwb == yes then t = delay - water_bottom;
         t = t * tmult + tadd 
         (note that arithmetic is done left to right)

WINLEN - The window length, in seconds, of an amplitude running average.
         The averaging is independent of gains 1-9 and is done AFTER
         the other gains.  e.g. alpha 2 type 4 winlen .02 is also
         called the trace ENVELOPE.  Every amplitude is squared and
         then a running average over 20 mils. is done.  The window
         average is placed at the center of the window.
         Preset = none.

FNO    - The first shot/rp number the parameter list applies to.  Data 
         (shots/rps) before FNO WILL NOT HAVE GAINS APPLIED.
         Preset = the first shot/rp received.    e.g.   FNO 101

LNO    - The last shot/rp number the parameter list applies to.  Data 
         (shots/rps) AFTER LNO WILL NOT HAVE GAINS APPLIED.
         Preset = the last shot/rp received.     e.g.   LNO 101

Copyright (C) 1990 Seismic Reflection Processors, Solana Beach, CA.
Written by Paul Henkart.  ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
gather.forum.html0000755000076500001200000000132406133265476015125 0ustar  henkartadmin00000000000000SIOSEIS GATHER Forum

    
Note 1:  End of gather flag                          PCH 25 August 1987

SIOSEIS uses a unique end of gather marker which allows each gather to
have a different number of traces. SIOSEIS puts a -1 in the SEG-Y header
word 51 on the last trace of a gather.  This also makes SIOSEIS gathers
unique and not very portable.  Process INPUT allows the user to mark the
end of gather.  The logistical problem is that SIOSEIS is a trace 
processor, thus it can't back up a trace after processing it.  This 
prevents a scheme such as detecting an RP record number change then back
ing up to tell other processes (such as STACK) that the previous trace
was the last trace of a gather!

    
gather.html0000644000076500001200000001145311010137010013743 0ustar  henkartadmin00000000000000gather
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS GATHER

Parameters, alphabetically:
MAXRPS    MAXTRS    MINTRS    NWRDS

Document Date: May 2006
Modifications:  Change parameter FRP

A gather is a collection or rearrangement of traces according to some 
criteria.  Process GATHER collects or sorts the input traces according
to the reflection point (rp) number calculated by process GEOM.  The
GEOM parameters may be manipulated by the user to gather the input
traces according to any criteria by fudging the GEOM parameters.
A constant offset gather of a uniform marine line may be made by
omitting traces via process input.

Process GATHER sorts each gather by the absolute value of the shot-
receiver distance (SEG-Y bytes 37-40), so that the shortest range trace
is first within the gather.  Each gather is is terminated by setting a 
special flag in the trace header.  A gather record is the collection of
all these traces.

See PROCESS GEOM for the method of calculating rp numbers.

GATHER creates a temporary disk file to store the partial gathers while
the data are being read.  GATHER assumes that the geometry of the data
does not skip around very much. i.e. the geometry doesn't go backwards
nor does it skip more than a cable length forward.  The temporary disk
file can hold MAXRPS rps (preset to 20 plus the number of traces per shot
from the SEG-Y binary header), with each rp able to hold a maximum of
MAXTRS traces (also preset to the number of traces per shot in the SEG-Y
binary header), with each trace having a maximum of NWRDS samples, with each
sample being 4 bytes long.  The temporary disk file size will be:
   maxtrs * maxrps * (nwrds+240) * 4

A null set of GATHER parameters must be given even if all the parameters
are presets.    e.g.  gather end end

An input process such as input, diskin, or segdin, must precede the
gather parameters if gather parameter presets are used since the
presets use the number of input traces per shot.

THE PARAMETER DICTIONARY
--- --------- ----------

MAXRPS - The maximum number of bins (or rp's) that are needed on the 
         disc at any one time.  In marine work the number of traces per
         shot plus a few (+10) will usually suffice since no two
         ungathered traces with the same rp number are more than a cable
         length away.
         Preset=the number of traces from the segy binary header plus 20

MAXTRS - The maximum number of traces any one gather can have.   In rp 
         gathers this is the maximum cdp allowed.  The largest value
         alowed is 200 - i.e. The maximum number of traces in a gather
         is 200
         Preset=the number of traces from the segy binary header.

NWRDS  - The largest number of samples per trace in the job.  This 
         should be trace length plus the trace header length.  All
         traces output from GATHER will contain NWRDS-60 samples.
         Traces input to gather that are longer than NWRDS-60 samples
         will be truncated.  Traces input to gather that have less
         than NWRDS-60 samples will have unpredicable contents as fill.
         Preset = from first input trace.

MINTRS - The minimum number of traces each gather can have.  If mintrs=0
         and no input traces contribute to a given gather, that gather
         will not be output.
         Preset = 1  e.g. mintrs 24

FRP    - The first rp number to gather.  Traces with rp numbers less 
         than frp are not gathered.  Rp numbers are calculated by 
         PROCESS GEOM.
         Preset = rp number of the first trace.
       - FRP is needed if the first trace read into process GATHER is
         not the first trace in the subsurface (the preset).
******   FRP is needed on marine geometry when trace 1 is closest to
******   to the ship - a reverse streamer.  Some UKOOA processed files
******   may have this.  The subsurface point associated with trace 1
******   is NOT the first subsurface point.  The subsurface point
******   associated with the furtherest from the ship is first.
         For instance, say the RP numbers of the first traces are: 
         5, 4, 3, 2, 1, 6, 7, 8.  The preset value of FRP is 5, which
         would cause RPs 4, 3, 2, and 1 to be omitted.  FRP 1 makes the
         the RP 1 be the first RP.

RPINC  - The increment of rp numbers between the rps to gather.  The
         only traces gathered will have bin numbers frp, frp+rpinc,
         frp+2*rpinc, frp+3*rpinc, . . . . Etc.
         Preset = 1.

Written and copyrighted by:
Paul Henkart, Scripps Institution of Oceanography, March 1980
ALL RIGHTS RESERVED

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
geom.1.html0000655000076500001200000004344606314362711013613 0ustar  henkartadmin00000000000000 Walkaway geometry
Go to the list of seismic processes.
Go to SIOSEIS introduction.

    Steve,
    I tried to simulate what I think you want to accomplish.
Basically it's what I think is called a "walkaway" shoot in exploration.
The cable is stationary and the shots move.
    The following is an example of a walkaway.  The trick is to use geom
type 1, which adds DFLS to the previous shot's x-coordinate to obtain the
x-coordinate for the current shot.  Then use GXP to establish the receiver
x-coordinates.
    The example below moves the shots around alot in order to show that
the RP calculation is ok and that dead traces are inserted when no
traces contribute to an RP.

Paul


 SIOSEIS ver 96.9 (5 Dec. 1996) (C) Regents of U.C.                             
procs syn geom gather stack diskoa end 
syn 
  fno 101 lno 105 
   secs 1 ntrcs 20 tva .5 1000 1 end 
end 
geom 
  gxp 1 -2900 20 -1000  ggx 100 lprint 2 dbrps 50 type 1 
   fs 101 ls 101 end 
  fs 102 ls 102 gxp 1 -3400 20 -1500 dfls 500 end 
   fs 103 ls 103 gxp 1 -4400 20 -2500 dfls 1000 end 
   fs 104 ls 104 gxp 1 -6700 20 -4800 dfls 2300 end 
   fs 105 ls 105 gxp 1 -7300 20 -5400 dfls 600 end 
end 
gather 
   end 
end 
diskoa 
   opath test end 
end 
end 
 ****    0 ERRORS IN THIS JOB   ****
 SHOT      101 TRACE        1 HAS RANGE    -2900, CDP NUMBER      274, SHOT COORD    15150, RECEIVER COORD    12250
 SHOT      101 TRACE        2 HAS RANGE    -2800, CDP NUMBER      275, SHOT COORD    15150, RECEIVER COORD    12350
 SHOT      101 TRACE        3 HAS RANGE    -2700, CDP NUMBER      276, SHOT COORD    15150, RECEIVER COORD    12450
 SHOT      101 TRACE        4 HAS RANGE    -2600, CDP NUMBER      277, SHOT COORD    15150, RECEIVER COORD    12550
 SHOT      101 TRACE        5 HAS RANGE    -2500, CDP NUMBER      278, SHOT COORD    15150, RECEIVER COORD    12650
 SHOT      101 TRACE        6 HAS RANGE    -2400, CDP NUMBER      279, SHOT COORD    15150, RECEIVER COORD    12750
 SHOT      101 TRACE        7 HAS RANGE    -2300, CDP NUMBER      280, SHOT COORD    15150, RECEIVER COORD    12850
 SHOT      101 TRACE        8 HAS RANGE    -2200, CDP NUMBER      281, SHOT COORD    15150, RECEIVER COORD    12950
 SHOT      101 TRACE        9 HAS RANGE    -2100, CDP NUMBER      282, SHOT COORD    15150, RECEIVER COORD    13050
 SHOT      101 TRACE       10 HAS RANGE    -2000, CDP NUMBER      283, SHOT COORD    15150, RECEIVER COORD    13150
 SHOT      101 TRACE       11 HAS RANGE    -1900, CDP NUMBER      284, SHOT COORD    15150, RECEIVER COORD    13250
 SHOT      101 TRACE       12 HAS RANGE    -1800, CDP NUMBER      285, SHOT COORD    15150, RECEIVER COORD    13350
 SHOT      101 TRACE       13 HAS RANGE    -1700, CDP NUMBER      286, SHOT COORD    15150, RECEIVER COORD    13450
 SHOT      101 TRACE       14 HAS RANGE    -1600, CDP NUMBER      287, SHOT COORD    15150, RECEIVER COORD    13550
 SHOT      101 TRACE       15 HAS RANGE    -1500, CDP NUMBER      288, SHOT COORD    15150, RECEIVER COORD    13650
 SHOT      101 TRACE       16 HAS RANGE    -1400, CDP NUMBER      289, SHOT COORD    15150, RECEIVER COORD    13750
 SHOT      101 TRACE       17 HAS RANGE    -1300, CDP NUMBER      290, SHOT COORD    15150, RECEIVER COORD    13850
 SHOT      101 TRACE       18 HAS RANGE    -1200, CDP NUMBER      291, SHOT COORD    15150, RECEIVER COORD    13950
 SHOT      101 TRACE       19 HAS RANGE    -1100, CDP NUMBER      292, SHOT COORD    15150, RECEIVER COORD    14050
 SHOT      101 TRACE       20 HAS RANGE    -1000, CDP NUMBER      293, SHOT COORD    15150, RECEIVER COORD    14150
 SHOT      102 TRACE        1 HAS RANGE    -3400, CDP NUMBER      279, SHOT COORD    15650, RECEIVER COORD    12250
 SHOT      102 TRACE        2 HAS RANGE    -3300, CDP NUMBER      280, SHOT COORD    15650, RECEIVER COORD    12350
 SHOT      102 TRACE        3 HAS RANGE    -3200, CDP NUMBER      281, SHOT COORD    15650, RECEIVER COORD    12450
 SHOT      102 TRACE        4 HAS RANGE    -3100, CDP NUMBER      282, SHOT COORD    15650, RECEIVER COORD    12550
 SHOT      102 TRACE        5 HAS RANGE    -3000, CDP NUMBER      283, SHOT COORD    15650, RECEIVER COORD    12650
 SHOT      102 TRACE        6 HAS RANGE    -2900, CDP NUMBER      284, SHOT COORD    15650, RECEIVER COORD    12750
 SHOT      102 TRACE        7 HAS RANGE    -2800, CDP NUMBER      285, SHOT COORD    15650, RECEIVER COORD    12850
 SHOT      102 TRACE        8 HAS RANGE    -2700, CDP NUMBER      286, SHOT COORD    15650, RECEIVER COORD    12950
 SHOT      102 TRACE        9 HAS RANGE    -2600, CDP NUMBER      287, SHOT COORD    15650, RECEIVER COORD    13050
 SHOT      102 TRACE       10 HAS RANGE    -2500, CDP NUMBER      288, SHOT COORD    15650, RECEIVER COORD    13150
 SHOT      102 TRACE       11 HAS RANGE    -2400, CDP NUMBER      289, SHOT COORD    15650, RECEIVER COORD    13250
 SHOT      102 TRACE       12 HAS RANGE    -2300, CDP NUMBER      290, SHOT COORD    15650, RECEIVER COORD    13350
 SHOT      102 TRACE       13 HAS RANGE    -2200, CDP NUMBER      291, SHOT COORD    15650, RECEIVER COORD    13450
 SHOT      102 TRACE       14 HAS RANGE    -2100, CDP NUMBER      292, SHOT COORD    15650, RECEIVER COORD    13550
 SHOT      102 TRACE       15 HAS RANGE    -2000, CDP NUMBER      293, SHOT COORD    15650, RECEIVER COORD    13650
 SHOT      102 TRACE       16 HAS RANGE    -1900, CDP NUMBER      294, SHOT COORD    15650, RECEIVER COORD    13750
 SHOT      102 TRACE       17 HAS RANGE    -1800, CDP NUMBER      295, SHOT COORD    15650, RECEIVER COORD    13850
 SHOT      102 TRACE       18 HAS RANGE    -1700, CDP NUMBER      296, SHOT COORD    15650, RECEIVER COORD    13950
 SHOT      102 TRACE       19 HAS RANGE    -1600, CDP NUMBER      297, SHOT COORD    15650, RECEIVER COORD    14050
 SHOT      102 TRACE       20 HAS RANGE    -1500, CDP NUMBER      298, SHOT COORD    15650, RECEIVER COORD    14150
 SHOT      103 TRACE        1 HAS RANGE    -4400, CDP NUMBER      289, SHOT COORD    16650, RECEIVER COORD    12250
 SHOT      103 TRACE        2 HAS RANGE    -4300, CDP NUMBER      290, SHOT COORD    16650, RECEIVER COORD    12350
 SHOT      103 TRACE        3 HAS RANGE    -4200, CDP NUMBER      291, SHOT COORD    16650, RECEIVER COORD    12450
 SHOT      103 TRACE        4 HAS RANGE    -4100, CDP NUMBER      292, SHOT COORD    16650, RECEIVER COORD    12550
 SHOT      103 TRACE        5 HAS RANGE    -4000, CDP NUMBER      293, SHOT COORD    16650, RECEIVER COORD    12650
 SHOT      103 TRACE        6 HAS RANGE    -3900, CDP NUMBER      294, SHOT COORD    16650, RECEIVER COORD    12750
 SHOT      103 TRACE        7 HAS RANGE    -3800, CDP NUMBER      295, SHOT COORD    16650, RECEIVER COORD    12850
 SHOT      103 TRACE        8 HAS RANGE    -3700, CDP NUMBER      296, SHOT COORD    16650, RECEIVER COORD    12950
 SHOT      103 TRACE        9 HAS RANGE    -3600, CDP NUMBER      297, SHOT COORD    16650, RECEIVER COORD    13050
 SHOT      103 TRACE       10 HAS RANGE    -3500, CDP NUMBER      298, SHOT COORD    16650, RECEIVER COORD    13150
 SHOT      103 TRACE       11 HAS RANGE    -3400, CDP NUMBER      299, SHOT COORD    16650, RECEIVER COORD    13250
 SHOT      103 TRACE       12 HAS RANGE    -3300, CDP NUMBER      300, SHOT COORD    16650, RECEIVER COORD    13350
 SHOT      103 TRACE       13 HAS RANGE    -3200, CDP NUMBER      301, SHOT COORD    16650, RECEIVER COORD    13450
 SHOT      103 TRACE       14 HAS RANGE    -3100, CDP NUMBER      302, SHOT COORD    16650, RECEIVER COORD    13550
 SHOT      103 TRACE       15 HAS RANGE    -3000, CDP NUMBER      303, SHOT COORD    16650, RECEIVER COORD    13650
 SHOT      103 TRACE       16 HAS RANGE    -2900, CDP NUMBER      304, SHOT COORD    16650, RECEIVER COORD    13750
 SHOT      103 TRACE       17 HAS RANGE    -2800, CDP NUMBER      305, SHOT COORD    16650, RECEIVER COORD    13850
 SHOT      103 TRACE       18 HAS RANGE    -2700, CDP NUMBER      306, SHOT COORD    16650, RECEIVER COORD    13950
 SHOT      103 TRACE       19 HAS RANGE    -2600, CDP NUMBER      307, SHOT COORD    16650, RECEIVER COORD    14050
 SHOT      103 TRACE       20 HAS RANGE    -2500, CDP NUMBER      308, SHOT COORD    16650, RECEIVER COORD    14150
 SHOT      104 TRACE        1 HAS RANGE    -6700, CDP NUMBER      312, SHOT COORD    18950, RECEIVER COORD    12250
 SHOT      104 TRACE        2 HAS RANGE    -6600, CDP NUMBER      313, SHOT COORD    18950, RECEIVER COORD    12350
 SHOT      104 TRACE        3 HAS RANGE    -6500, CDP NUMBER      314, SHOT COORD    18950, RECEIVER COORD    12450
 SHOT      104 TRACE        4 HAS RANGE    -6400, CDP NUMBER      315, SHOT COORD    18950, RECEIVER COORD    12550
 SHOT      104 TRACE        5 HAS RANGE    -6300, CDP NUMBER      316, SHOT COORD    18950, RECEIVER COORD    12650
 SHOT      104 TRACE        6 HAS RANGE    -6200, CDP NUMBER      317, SHOT COORD    18950, RECEIVER COORD    12750
 SHOT      104 TRACE        7 HAS RANGE    -6100, CDP NUMBER      318, SHOT COORD    18950, RECEIVER COORD    12850
 SHOT      104 TRACE        8 HAS RANGE    -6000, CDP NUMBER      319, SHOT COORD    18950, RECEIVER COORD    12950
 SHOT      104 TRACE        9 HAS RANGE    -5900, CDP NUMBER      320, SHOT COORD    18950, RECEIVER COORD    13050
 SHOT      104 TRACE       10 HAS RANGE    -5800, CDP NUMBER      321, SHOT COORD    18950, RECEIVER COORD    13150
 SHOT      104 TRACE       11 HAS RANGE    -5700, CDP NUMBER      322, SHOT COORD    18950, RECEIVER COORD    13250
 SHOT      104 TRACE       12 HAS RANGE    -5600, CDP NUMBER      323, SHOT COORD    18950, RECEIVER COORD    13350
 SHOT      104 TRACE       13 HAS RANGE    -5500, CDP NUMBER      324, SHOT COORD    18950, RECEIVER COORD    13450
 SHOT      104 TRACE       14 HAS RANGE    -5400, CDP NUMBER      325, SHOT COORD    18950, RECEIVER COORD    13550
 SHOT      104 TRACE       15 HAS RANGE    -5300, CDP NUMBER      326, SHOT COORD    18950, RECEIVER COORD    13650
 SHOT      104 TRACE       16 HAS RANGE    -5200, CDP NUMBER      327, SHOT COORD    18950, RECEIVER COORD    13750
 SHOT      104 TRACE       17 HAS RANGE    -5100, CDP NUMBER      328, SHOT COORD    18950, RECEIVER COORD    13850
 SHOT      104 TRACE       18 HAS RANGE    -5000, CDP NUMBER      329, SHOT COORD    18950, RECEIVER COORD    13950
 SHOT      104 TRACE       19 HAS RANGE    -4900, CDP NUMBER      330, SHOT COORD    18950, RECEIVER COORD    14050
 SHOT      104 TRACE       20 HAS RANGE    -4800, CDP NUMBER      331, SHOT COORD    18950, RECEIVER COORD    14150
 SHOT      105 TRACE        1 HAS RANGE    -7300, CDP NUMBER      318, SHOT COORD    19550, RECEIVER COORD    12250
 SHOT      105 TRACE        2 HAS RANGE    -7200, CDP NUMBER      319, SHOT COORD    19550, RECEIVER COORD    12350
 SHOT      105 TRACE        3 HAS RANGE    -7100, CDP NUMBER      320, SHOT COORD    19550, RECEIVER COORD    12450
 SHOT      105 TRACE        4 HAS RANGE    -7000, CDP NUMBER      321, SHOT COORD    19550, RECEIVER COORD    12550
 SHOT      105 TRACE        5 HAS RANGE    -6900, CDP NUMBER      322, SHOT COORD    19550, RECEIVER COORD    12650
 SHOT      105 TRACE        6 HAS RANGE    -6800, CDP NUMBER      323, SHOT COORD    19550, RECEIVER COORD    12750
 SHOT      105 TRACE        7 HAS RANGE    -6700, CDP NUMBER      324, SHOT COORD    19550, RECEIVER COORD    12850
 SHOT      105 TRACE        8 HAS RANGE    -6600, CDP NUMBER      325, SHOT COORD    19550, RECEIVER COORD    12950
 SHOT      105 TRACE        9 HAS RANGE    -6500, CDP NUMBER      326, SHOT COORD    19550, RECEIVER COORD    13050
 SHOT      105 TRACE       10 HAS RANGE    -6400, CDP NUMBER      327, SHOT COORD    19550, RECEIVER COORD    13150
 SHOT      105 TRACE       11 HAS RANGE    -6300, CDP NUMBER      328, SHOT COORD    19550, RECEIVER COORD    13250
 SHOT      105 TRACE       12 HAS RANGE    -6200, CDP NUMBER      329, SHOT COORD    19550, RECEIVER COORD    13350
 SHOT      105 TRACE       13 HAS RANGE    -6100, CDP NUMBER      330, SHOT COORD    19550, RECEIVER COORD    13450
 SHOT      105 TRACE       14 HAS RANGE    -6000, CDP NUMBER      331, SHOT COORD    19550, RECEIVER COORD    13550
 SHOT      105 TRACE       15 HAS RANGE    -5900, CDP NUMBER      332, SHOT COORD    19550, RECEIVER COORD    13650
 SHOT      105 TRACE       16 HAS RANGE    -5800, CDP NUMBER      333, SHOT COORD    19550, RECEIVER COORD    13750
 SHOT      105 TRACE       17 HAS RANGE    -5700, CDP NUMBER      334, SHOT COORD    19550, RECEIVER COORD    13850
 SHOT      105 TRACE       18 HAS RANGE    -5600, CDP NUMBER      335, SHOT COORD    19550, RECEIVER COORD    13950
 SHOT      105 TRACE       19 HAS RANGE    -5500, CDP NUMBER      336, SHOT COORD    19550, RECEIVER COORD    14050
 SHOT      105 TRACE       20 HAS RANGE    -5400, CDP NUMBER      337, SHOT COORD    19550, RECEIVER COORD    14150
 END OF SIOSEIS RUN
      SHOT    TR    RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC EOG
       101     1   274     1  1  -2900     0    251  4000    0   0  0   0   0   0
       101     2   275     1  1  -2800     0    251  4000    0   0  0   0   0   0
       101     3   276     1  1  -2700     0    251  4000    0   0  0   0   0   0
       101     4   277     1  1  -2600     0    251  4000    0   0  0   0   0   0
       101     5   278     1  1  -2500     0    251  4000    0   0  0   0   0   0
       102     1   279     1  1  -3400     0    251  4000    0   0  0   0   0   0
       102     2   280     1  1  -3300     0    251  4000    0   0  0   0   0   0
       102     3   281     1  1  -3200     0    251  4000    0   0  0   0   0   0
       102     4   282     1  1  -3100     0    251  4000    0   0  0   0   0   0
       102     5   283     1  1  -3000     0    251  4000    0   0  0   0   0   0
       102     6   284     1  1  -2900     0    251  4000    0   0  0   0   0   0
       102     7   285     1  1  -2800     0    251  4000    0   0  0   0   0   0
       102     8   286     1  1  -2700     0    251  4000    0   0  0   0   0   0
       102     9   287     1  1  -2600     0    251  4000    0   0  0   0   0   0
       102    10   288     1  1  -2500     0    251  4000    0   0  0   0   0   0
       103     1   289     1  1  -4400     0    251  4000    0   0  0   0   0   0
       103     2   290     1  1  -4300     0    251  4000    0   0  0   0   0   0
       103     3   291     1  1  -4200     0    251  4000    0   0  0   0   0   0
       103     4   292     1  1  -4100     0    251  4000    0   0  0   0   0   0
       103     5   293     1  1  -4000     0    251  4000    0   0  0   0   0   0
       103     6   294     1  1  -3900     0    251  4000    0   0  0   0   0   0
       103     7   295     1  1  -3800     0    251  4000    0   0  0   0   0   0
       103     8   296     1  1  -3700     0    251  4000    0   0  0   0   0   0
       103     9   297     1  1  -3600     0    251  4000    0   0  0   0   0   0
       103    10   298     1  1  -3500     0    251  4000    0   0  0   0   0   0
       103    11   299     1  1  -3400     0    251  4000    0   0  0   0   0   0
       103    12   300     1  1  -3300     0    251  4000    0   0  0   0   0   0
       103    13   301     1  1  -3200     0    251  4000    0   0  0   0   0   0
       103    14   302     1  1  -3100     0    251  4000    0   0  0   0   0   0
       103    15   303     1  1  -3000     0    251  4000    0   0  0   0   0   0
       103    16   304     1  1  -2900     0    251  4000    0   0  0   0   0   0
       103    17   305     1  1  -2800     0    251  4000    0   0  0   0   0   0
       103    18   306     1  1  -2700     0    251  4000    0   0  0   0   0   0
       103    19   307     1  1  -2600     0    251  4000    0   0  0   0   0   0
       103    20   308     1  1  -2500     0    251  4000    0   0  0   0   0   0
       105    17   309     1  2  -5700     0    251  4000    0   0  0   0   0   0
       105    18   310     1  2  -5600     0    251  4000    0   0  0   0   0   0
       105    19   311     1  2  -5500     0    251  4000    0   0  0   0   0   0
       104     1   312     1  1  -6700     0    251  4000    0   0  0   0   0   0
       104     2   313     1  1  -6600     0    251  4000    0   0  0   0   0   0
       104     3   314     1  1  -6500     0    251  4000    0   0  0   0   0   0
       104     4   315     1  1  -6400     0    251  4000    0   0  0   0   0   0
       104     5   316     1  1  -6300     0    251  4000    0   0  0   0   0   0
       104     6   317     1  1  -6200     0    251  4000    0   0  0   0   0   0
       105     1   318     1  1  -7300     0    251  4000    0   0  0   0   0   0
       105     2   319     1  1  -7200     0    251  4000    0   0  0   0   0   0
       105     3   320     1  1  -7100     0    251  4000    0   0  0   0   0   0
       105     4   321     1  1  -7000     0    251  4000    0   0  0   0   0   0
       105     5   322     1  1  -6900     0    251  4000    0   0  0   0   0   0
       105     6   323     1  1  -6800     0    251  4000    0   0  0   0   0   0
       105     7   324     1  1  -6700     0    251  4000    0   0  0   0   0   0
       105     8   325     1  1  -6600     0    251  4000    0   0  0   0   0   0
       105     9   326     1  1  -6500     0    251  4000    0   0  0   0   0   0
       105    10   327     1  1  -6400     0    251  4000    0   0  0   0   0   0
       105    11   328     1  1  -6300     0    251  4000    0   0  0   0   0   0
       105    12   329     1  1  -6200     0    251  4000    0   0  0   0   0   0
       105    13   330     1  1  -6100     0    251  4000    0   0  0   0   0   0
       105    14   331     1  1  -6000     0    251  4000    0   0  0   0   0   0
       105    15   332     1  1  -5900     0    251  4000    0   0  0   0   0   0
       105    16   333     1  1  -5800     0    251  4000    0   0  0   0   0   0
       105    17   334     1  1  -5700     0    251  4000    0   0  0   0   0   0
       105    18   335     1  1  -5600     0    251  4000    0   0  0   0   0   0
       105    19   336     1  1  -5500     0    251  4000    0   0  0   0   0   0

    
geom.forum.html0000755000076500001200000000221506133265476014602 0ustar  henkartadmin00000000000000SIOSEIS GEOM FORUM

    
NOTE 1                                                  PCH 12 Nov. 1987

A user asked how to handle a missing shot.  I assumed that the shot 
numbers were consecutive.  Just tell GEOM the truth!  Change DFLS on the
shot after the one missing and then reset it back on the next.
e.g.  I have 5 shots with 1 missing between 2 and 3.

SIOSEIS << eof
procs syn geom prout end
syn
     ntrcs 10 secs 1 tva .5 10000 1 
     FNO 1 LNO 5 end
end
geom
     lprint 2
     gxp 1 -100 10 -1000 dbrps 50 dfls 50 type 2
     fs 1 ls 2 end
     fs 3 ls 3 dfls 100 end
     fs 4 ls 5 dfls 50 end
end
prout
end
end
end


NOTE 2    Apr 1991

I wanted to use a different decon window on a "raw" shot.  DECON allows
the window to be "hung" on the water bottom, but WBT uses the CDP or RP
number.  How could I get the trace numbers in the shot to be rp numbers
for WBT?
procs diskin geom wbt decon 
diskin 
     set 0 8 FNO 2079 LNO 2079 renum  1 
     ipath /opus/uri/henkart/data/esp14 end 
end 
geom 
     dfls 1 dbrps 1 gxp 1 0 160 318 end
end
wbt
1 6.
80 5.3
160 4.5
end
decon
     fillen .256 prewhi 10 addwb yes sedts 0 2 end
end

    
geom.html0000755000076500001200000005411711213305647013451 0ustar  henkartadmin00000000000000SIOSEIS PROCESS GEOM
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                   PROCESS GEOM

Parameters, alphabetically:
bin_h     bgp       bin_off   cgp       dbrps     declin
dfls      epath     fbinx     fbiny     fs        ggx
gxp       lbinx     lbiny     lprint    ls        mindfls
maxdfls   navfil    ntrcs     offset    offset2   rpadd
setback   smear     type      writexy   yoffa     

Document Date: 23 March 2009
Updates:
    June 2008 - GXP group 0 means use the SEG-Y number of trace per shot.
    Add TYPE 18 for entering ASCII nav into SEG-Y headers - Nov 2007
    Add parameter SETBACK - February 2007
    Add MINDFLS and MAXDFLS for determing bad fixes for type 9 - Jan 2007
    Add type 17 (range as distance along ship track) - August 2006
    Add NAVFIL2 - July 2006
    Add type 16 (Healy06) - July 2006
    Add lprint 256 and 512 - September 2005
    Add type 14 & 15 (Healy0503) - August 2005
    Add fbinx, fbiny, lbinx, lbiny, bin_off - Mar. 2005
    Changed the units of the cross-line offset to meters. - Mar. 2005
    Add TYPE 13 to calculate the crossline offset and feathering angle
        from the UKOOA file. - Jan. 2004
    Removed TYPE 12 - Jan. 2004
    Add TYPE 11 to calculate the range and rp number from the SEG-Y
        header x/y coordinates. - Aug 03
    Add TYPE 10 to write the UKOOA coordinates into the SEG-Y trace
         header. - Jun 03
    Add parameter WRITEXY to write in SEGY words 19 & 21 - May 2003
    Do all math in float even though SEGY is integer. - Oct 2002
    Type 9 calculates DFLS from lat/long in SEGY header. - Sep 2000
        

Process GEOM is used to describe the shot and cable geometries and to
calculate the reflection point (rp) numbers used to gather the seismic
line.  Process GEOM sets the shot-receiver distance into the trace
header of every trace.  Likewise, every trace is assigned an rp number.
Thus, process GEOM must precede processes NMO and GATHER, which assume
that the shot-receiver range and rp numbers are in the trace headers.

GEOM assumes the seismic line is shot in a straight line; there are
no crooked line adjustments.

GEOM utilizes many different methods of calculating the shooting 
geometry.  In marine shooting a source is usually fired every few
seconds (rep rate or repetion rate) according to either a set time
interval or distance interval.

Most surveys since GPS provide a navigation file that includes the
shot time and shot position.  Process GEOM uses it's own format
(see below) and perl script ts2sio exists on the
web to convert LDEO's TS files to SIOSEIS NAVFIL files.

Older seismic surveys often did not include a shot position for EVERY
shot, so it was easier to describe the shooting "rule" and the
exceptions to the rule.  The biggest reason for an exception was
when a shot was missed and the ship kept going.

The first two TYPES of describing the shooting pattern differ only in
the method of handling missing shot point numbers.  The first method
allows adjacent shots to have different shot point numbers (the shot
number incremented even though there was not shot) whereas the second
method assumes adjacent shots have consecutive numbers.  TYPEs 3, 4, 5
use an LDGO navigation file.  TYPE 6 needs a navigation file in
SIOSEIS format.  TYPE 8 needs a UKOOA navigation file.  TYPE 9 uses
the SEG-Y header x/y location (on Ewing SEGDIN uses the realtime
lat/long).

The shot is assigned an X-coordinate by adding (type 1) or multiplying 
(type 2) DFLS (distance from the last shot) to the X-coordinate of the
shot.  Each receiver is assigned an X-coordinate by adding the 
shot-receiver distance to the shot X-coordinate.  The  RP X-coordinate 
is calculated by assuming the RP is halfway between the shot and
receiver.  The RP number is the RP X-coordinate divided by DBRPS 
(distance between RPs) and truncating to an integer.  The coordinate of
the first shot of the job is the shot number (from the header) times the
distance from the previous shot.  i.e.
      xs = FLOAT(lhead(3)) * dfls
      rx = FLOAT(lhead(10))
      xr = xs + rx
      xrp = (xr + xs) / 2.
      lhead(6) = NINT( xrp/dbrps )


Older versions of GEOM (prior to Oct 2000) wrote the shot (source)
x coordinate in SEG-Y header word 19 and the receiver x coordinate
in word 21, which clobbered the existing navigation in those positions.

THE PARAMETER DICTIONARY
--- --------- ----------

FS     - The first shot to apply the parameters of this parameter list.
         Preset=1.

LS     - The last shot to apply the parameters of this parameter list. 
         Preset=FS.

GXP    - Group-range-pairs.  A list of cable group numbers and 
         shot-receiver distances.  Ranges not specified are calculated 
         by interpolation or extrapolation using ggx.  Group numbers must
         be strictly increasing. A maximum of 100 pairs may be given.
         Not honored on UKOOA nav files.
         Preset=required.    e.g. gxp 18 -1350 24 -450  ggx 300
       = 0, If the first group number is 0, then the number of traces per
         shot from the SEG-Y trace header is is used.  This is useful
         when the streamer length may change between deployments but
         the streamer leader (distance from the guns to the first group)
         is the same.    e.g.  gxp 0 -142 ggx -12.5  can be used with
         the 630 channel streamer (same as giving gxp 630 -142) or the
         480 channel streamer (same as giving gxp 480 -142).
         

GGX    - The constant distance between groups.  Used for calculating
         ranges outside of those given via gxp.  The sign of ggx implies
         the direction of the unknown ranges relative to the closest 
         group given.  Not honored on UKOOA nav files.
         ((Group given - group wanted) * ggx + (range of group given)).
         Preset=-300.

DFLS   - The distance from the last shot.  The sign of dfls implies the
         direction the shot moved relative to the last shot.
         Not honored on UKOOA nav files.
         Preset = 150, types 1, 2, 6.
         Preset = 1, type 9.

MINDFLS - The minimum and maximum allowable distances between shots 
MAXDFLS  when using TYPE 9 (dfls computed from the fixes in the SEG-Y
         header).  If the computed distance is less than MINDFLS or
         greater than MAXDFLS, then the fix is considered bad and the
         last good distance is used.  SIOSEIS keeps track of the bad
         distances and adjusts for them when the next good fix is
         computed.  The computed distance is assumed to be positive as
         in marine shooting where the ship can not backup.
         Presets:   mindfls = 0, maxdfls = not given.
         e.g.  mindfls .1 maxdfls 500

SETBACK - The distance from the GPS antenna and the source.  This is
         always a positive number.  Often, this is the sum of the
         distance of the GPS to the stern and the distance of the guns
         from the stern.  The source coordinates in the SEG-Y header
         (words 19 and 20) are modified by SETBACK and the receiver
         coordinates (words 21 and 22) are computed using the source
         coordinates and the range (word 10) determined by GXP.  Valid
         with TYPE 9 only since the ship's course must be known.
         Preset = 0   e.g.  setback 140
        
DBRPS  - The distance between rps.
         REQUIRED.

SMEAR  - The subsurface smear factor.  The distance from a rp in which 
         to look for a trace.  The smear is centered about the rp.
         Not honored on UKOOA nav files.
         Preset=DBRPS

RPADD  - A scalar to add to every rp number.  Sometimes GEOM calculates
         a neagtive rp number, which might cause other sioseis processes
         problems.  Sometimes it might be useful to identify different
         seismic lines by having different rp number on each line.
         Preset = 0        e.g.   rpadd 1000

YOFFA  - The y-offset (perpendicular) of the shot from the seismic line
         (the x-axis).  The y-offset results in the shot-receiver 
         distance being the hypotenuse of the triangle of the in-line
         shot-receiver distance and the y-offset.  The y-offset is 
         applied to the range after the rp computation is performed.
         Preset = 0        e.g.   yoffa 100

TYPE   - The type of missing shot geometry.  Also see a discussion of TYPE
         above in the description of the algorithm.
         Preset = 2

      1, Missing shots must be explicitly described by using multiple
         GEOM lists.  e.g.
               fs 1 ls 1 dfls 50 type 1 end 
               fs 2 ls 2 dfls 100 end 
               fs 3 ls 99999 dfls 50 end 
         describes a situation where there is a missing shot between shot
         point numbers 1 and 2.  The x-coordinate of the shot is obtained
         by ADDING DLFS to the previous shot x-coordinate.

      2, Missing shot points are assumed to occur whenever a shot 
         point number is missing.  e.g. fs 1 ls 999999 dfls 50 type 2 end
         will cause the geometry to jump ahead when a shot is missing.
         The x-coordinate of the shot is obtained by MULTIPLYING the shot
         number by DLFS.

3, 4, 5, LDGO navigation method. CDP = 3, WAP = 4 and ESP = 5,
         When LDGO method is used, NAVFIL and NTRCS must be given. GXP is
         used to find the range from the guns to the closest receiver
         (assumed to be the highest channel number), with the rest of the
         cable to be defined in the navigation file.
             LDGO binary nav files may come from Lamont or  may be
         generated by Graham Kent's 'navcmp' program which reads the
         Ewing 'ts.n*' file.
             This method creates both the shot and receiver x and y
         coordinates in SEGY-Y header words 19-22.

      6, SIOSEIS navigation file method.  GEOM will compute a DLFS
         on each shot based of the shot time in the SEG-Y trace header
         and the navigation in an ASCII file named via the parameter
         NAVFIL.  The format of the SIOSEIS navigation file is:
         year day hour minute second lat/deg lat/min long/deg long/min
         e.g.     1997 67 12 0 0 -69 43.2954 170 23.646
         Each quantity must be separated by a space or tab.  The year
         is ignored by the program, so it may be any number of digits.
         South latitude and west longitude must be negative.  If the
         shot is not at exactly the same time as a shot in SIOFIL, it's
         position is computed by interpolation between adjacent points.
         The lat & long arc seconds are written into the source and
         receiver spots (19, 20, 21, 22) of the SEG-Y header.
         Parameter NAVFIL must be given.

      7, Elevations are inserted into the SEG-Y trace header with no
         other geometry done.

  8, 10, UKOOA file input (implied when parameter NAVFIL is a UKOOA
         file).  The shot-receiver range and rp bin number are computed
         and stored in the SEG-Y trace header.  The receiver (streamer)
         depth and the water depth at the receiver are also transferred
         to the SEG-Y trace header.  SEG-Y word 45 (Coordinate units)
         is set to 1 (Length).  Parameter NAVFIL must be given.  The
         X and Y coordinates of the first shot are used as the origin.
        8, TYPE 8 writes the distance from the origin into SEG-Y long
           words 19, 20, 21, 22 (Source and Group coordinates).
        10, TYPE 10 writes the UKOOA eastings and northings into SEG-Y long
           words 19, 20, 21, 22 (Source and Group coordinates).

      9, Parameter DFLS is calculated from the SEGY trace header
         longitude and latitude (SEGY bytes 73-76 and 77-80 respectively)
         and the coordinates scalar in bytes 17-18.  Bowditch's formula
         for determining the number of meters per degree of latitude
         and longitude is used, so it is imperative that the longitude
         be in SEGY order and precede the latitude (x,y vs lat/long).
         The distance computed is a simple distance; earth curvature is
         not considered.  This method should be very useful when the 
         ship's navigation is in differential mode.  The computed DFLS
         will always be positive, so set GXP appropriately.  This will
         NOT work on data that has already been through process GEOM since
         GEOM writes in word 19.

     11, The trace range (word 10) and rp number (word 6) are computed
         from SEG-Y long words 19, 20, 21, 22 (Source and Group 
         coordinates).  The coordinate of the receiver of the first 
         trace is used as the origin.  TYPE 11 works ONLY on "normal"
         marine geometry where trace 1 is furthest from the source
         and the streamer is pulled.  

     13, Marine feathered streamer geometry using UKOOA navigation file.
         The CMP bin number, feathering angle, and cross-line offset
         are written into the SEG-Y header.  The angle is in tenths of
         a degree in short word 48.  The offset is in units of meters
         in short word 49.

     14, Healy05 where NAVFIL is for the  Geometrics Log file which had
         the only shot number (trigger count).  It also contains the
         "true time" of the shot and the POSMV(?) navigation.  EPATH
         is use for the Healy SeaBeam centerbeam water depth.  The
         Geometrics FFID is moved to word 5 (SEGY energy source number)
         and the log file shot number is place in word 3, the "original
         field record number".

     17, The range (SEG-Y word 10) is the distance of the current shot
         along the ship's track using the first trace as the origin.
         SEG-Y words 19 & 20, source x and y, must be in arcseconds.
         When DBRPS is given, the SIOSEIS "gather" convention is 
         implemented so that traces within DBRPS of each other may be
         stacked with process stack (this is similar to process gather).
         Traces that are more than a 90 degree angle from the previous
         trace is "killed" by setting the SEG-Y trace id (word 15) to 2.
         This represents a "back and ram".  Trace angles less than 90
         are considered a turn.  The rp number (word 6) is 
         range / dbrps + 1.  
             Type 17 was designed to stack Knudsen chirp data where the
         ping rate (distance between pings) is variable.

     18, Read a SIO NAVFIL and insert the lat/long into the SEG-Y trace
         headers.  The ASCII navigation is associated with the SEG-Y
         using the timestamps.  If the navigation file timestamps are
         zero, then the "record" field is used.  The record number is
         assumed to be the SEG-Y shot number (word 3) unless the SEG-Y
         the rp trace number (SEG-Y word 7) is non-zero, in which case
         the record number is assumed to be the SEG-Y rp number (word 6).

BGP    - Bird-group-pairs.  A list of bird numbers (ids) and streamer
         group numbers so that the bird (which have the depth sensors)
         location can be associated with the group range (GXP).  The
         depth is placed in SEG-Y trace header long word 11 as a
         negative number since it is an elevation relative to sea level.
         Preset = none    e.g. bgp 1 5 3 9 4 17 5 25 6 33 7 41 9 45 10 53
          11 65 12 73 13 85 14 98 15 106 16 118 17 125 18 133 8 141 2 149
   
DECLIN - The magnetic declination to add to the compasses to convert 
         the readings to true north.
         Preset = 0.   e.g.   declin -14.5

BIN_H  - Bin height.  When using type 13 geometry (streamer feathering
         from UKOOA files), traces with a crossline midpoint offset
         larger than bin_h are flagged as dead (and thus dropped by
         process gather).

EPATH  - The pathname of a file containing the elevations that GEOM
         will insert into the SEG-Y header locations for shot and
         receiver elevations.  PROCESS SHIFT parameters DATUME and
         DATUMV may be used do elevation shifts.  The format of the
         elevation file is a surface location and elevation pair on
         a single line.  Each pair must be on a separate line and
         the location values must increase from line to line.  The
         surface location values may be obtained using processes GEOM
         and PROUT.  e.g. procs geom prout end
         geom  writexy yes ........
         prout   fno 0 lno 999999 ftr 1 ltr 99999
                 indices l3 l4 l19 l21 end
         Locations not specified in the file are obtained through
         interpolation or extrapolation.
         Preset = none    e.g.  /data/vol3/henkart/cats/elevations
         
WRITEXY - A yes/no switch indicating whether geom should write the
         the calculated source x and y coordinates into SEG-Y trace
         words 19 and 21.
         Preset = no        e.g. writexy yes

ADDITIONAL TYPE 3 PARAMETERS
---------- ------ ----------

NAVFIL - Navigation filename.  LDGO binary files and UKOOA P1 files
         may be used (SIOSEIS determines it's a UKOOA file if the
         first byte of the file is an ASCII letter H).
         Required for TYPEs 3, 4, 5, 6, 8, 16 geometry.
NAVFIL2 - A second navigation file for type 16 geom.  Needed when the
         navigation is in multiple files (there may be a new nav file
         at midnight every night).

NTRCS  - The number of traces per shot.  Required for LDGO navigation 
         since the number of traces per shot in the SEG-Y file includes
         the auxiliary channels.

OFFSET - The offset between the guns and the navigation antenna.  (On 
         the recording ship).  Used with LDGO navigation only.
         Required when TYPE 3 geometry is used.

OFFSET2 - The offset between the guns and the navigation antenna on the 
          "shooting" ship on 2 ship experiments.  Used with LDGO 
          navigation only.

CROSS-LINE OFFSET
---------- ------ 
Definitions:
    Shot-line - The straight line between the first shot (FS) and the
        last shot (LS).  The x,y coordinates for the shot-line
        endpoints are taken from the UKOOA file for shots FS and LS.
    Midpoint - The (x,y) point halfway between the shot and the
        receiver.
    Bin - A rectangular box with height BIN_H and width DBRPS.
    Bin center - The center of the box.  A point around which the bin
        is constructed.
    Bin center-line - The straight line between (FBINX,FBINY) and
        (LBINX,LBINY).  The center of the first bin is (FBINX,FBINY)
        and successive bincenters are DBRPS away along the line.
    CMP = Common midpoint - The bin that is common (the same)
        for multiple traces.
    Feathering angle - The angle between the streamer (a line between
        the shot and the receiver) and the shot-line. 
    Processing-line = Meaningful only when defined by the user with
        parameters fbinx,fbiny and lbinx,lbiny so that the bin
        cross-line offset can be calculated.  Without user definition,
        the processing line lies along the shot-line.
    Cross-line offset - The perpendicular distance between the receiver
        and the shot-line.
Parameters:
BIN_OFF - The offset of the bin center-line from the shot-line.  This
        assumes the bin center-line is parallel to the shot-line and
        starts and ends with the bins computed from the shot and 
        streamer geometry.
        Preset = 0.
FBINX - The X coordinate of the first bin.  Used when the bin center-line
        is not parallel to the shot-line.
        Preset = 0.
FBINY - The Y coordinate of the first bin.  Used when the bin center-line
        is not parallel to the shot-line.
        Preset = 0.
LBINX - The X coordinate of the last bin.  Used when the bin center-line
        is not parallel to the shot-line.
        Preset = 0.
LBINY - The Y coordinate of the last bin.  Used when the bin center-line
        is not parallel to the shot-line.
        Preset = 0.
    
         

HIDDEN PRINT PARAMETER:
------ ----- ---------

LPRINT - Print switch.  Intended as programmer debug information.
         PROCESS PROUT parameter TRLIST is also a convenient method of printing
         the geometry (e.g. lat/long ) information within the SEG-Y trace
         headers.
       = 2, Every trace will print a line containing various geometry
         variables such as the cdp number.  USE CAUTION when using
         this parameter since the print output may be LARGE.
       = 4, The Ewing/Digicon trace 0 is printed.
       = 8, The streamer depth and compasses are printed.
       = 16, More Ewing/Digicon trace 0 navigation.
       = 32, Print the source and receiver location and elevations.
       = 128, Print the information needed for type 13 (crossdip analysis).
       = 256, Print the shot number, date/time, lat/long, depth        e.g.
         133709 2005+254:07:05:24 N 88 59 26.052 W 179 00 47.516 2179
         This is suitable for the LGL Marine Mammal Observer's Report.
       = 512, Print the shot number, DFLS, lat/long          e.g.
         Shot:  133709 dfls:     1.00 lat:   88 59 26.052 long: -179  0 47.516


CGP    - Compass-group-pairs.  A list of compass numbers (ids) and
         streamer group numbers so that the compass location can be
         associated with the group range (GXP).  The compass data are
         not saved in the SEG-Y header nor used by any SIOSEIS process.
         The compasses may be printed by using LPRINT 8.
         Preset = none    e.g. cgp 1 4 6 44 11 84 16 140




Alistair Harding's version of ts2sio (in Perl) is:
# usage:   ts2sio  tsfile
# e.g. ts2sio  /data/processed/0008/ts.n255 > sioseis_nav_file
# 2000+255:01:08:36.112 017382 N 32 13.2870 W 075 29.1645 test
#
while (<>)
{
  my ($timestamp,$shotno,$ns,$latdeg,$latmin,$ew,$longdeg,$longmin) 
                          = split /\s+/;     
  my ($year,$jday,$hour,$minute,$second) = split /\+|-|:/, $timestamp;
  
  $latdeg  = -$latdeg  if ($ns eq "S");
  $longdeg = -$longdeg if ($ew eq "W");

  $, = " ";  # separate output with a space
  $\ = "\n"; # append newline
  print($year,$jday,$hour,$minute,$second,
         $latdeg,$latmin,$longdeg,$longmin,$shotno);
}

Written and copyrighted by:
Paul Henkart, Scripps Institution of Oceanography, March 1980 
ALL RIGHTS RESERVED

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
gi.html0000655000076500001200000000337206440144432013114 0ustar  henkartadmin00000000000000SIOSEIS GI gun example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    I wanted to examine some data Seth Mogk collected using a GI gun
collected with Alan Nance's gun controller.

lsd h2o.seis.data 1 10
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
     14505     1       0     0  1      0  5000   4000  1000   97 228 19  54  49
     14505     2       0     0  1      0  5000   4000  1000   97 228 19  54  49
     14506     1       0     0  1      0  5000   4000  1000   97 228 19  54  59
     14506     2       0     0  1      0  5000   4000  1000   97 228 19  54  59
     14507     1       0     0  1      0  5000   4000  1000   97 228 19  55   9
     14507     2       0     0  1      0  5000   4000  1000   97 228 19  55   9
     14508     1       0     0  1      0  5000   4000  1000   97 228 19  55  19
     14508     2       0     0  1      0  5000   4000  1000   97 228 19  55  19
     14509     1       0     0  1      0  5000   4000  1000   97 228 19  55  29
     14509     2       0     0  1      0  5000   4000  1000   97 228 19  55  29

Knowing nothing about the data, just plot a few traces with any plot
parameters.

    


  • script #1  - Try #1
    
 plot of try 1

    


  • script #1b  - Try #2
    
 plot of try 2

    


  • script #1c  - Try #3
    
 plot of try 3

    


  • script #1d  - Try #3 trace 2
    
 plot of trace 2

    
gi1a.html0000655000076500001200000000066106440144504013334 0ustar  henkartadmin00000000000000SIOSEIS GI gun example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin plot end
diskin
    fno 14505 lno 14555 ftr 1 ltr 1
    ipath h2o.seis.data end
end
plot
    nibs 75 def .02 trpin 20 vscale 2.5 clip .04 nsecs 4
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
gi1b.html0000655000076500001200000000067306440144541013341 0ustar  henkartadmin00000000000000SIOSEIS GI gun example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin plot end
diskin
    set 6 9
    fno 14505 lno 14555 ftr 1 ltr 1
    ipath h2o.seis.data end
end
plot
    nibs 75 def .02 trpin 20 vscale 5 clip .04 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
gi1c.html0000655000076500001200000000067206440144575013350 0ustar  henkartadmin00000000000000SIOSEIS GI gun example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin plot end
diskin
    set 6 9
    fno 14505 lno 14555 ftr 1 ltr 1
    ipath h2o.seis.data end
end
plot
    nibs 75 def .12 trpin 10 vscale 5 clip .1 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
gi1d.html0000655000076500001200000000067206516677607013364 0ustar  henkartadmin00000000000000SIOSEIS GI gun example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    sioseis << eof
procs diskin plot end
diskin
    set 6 9
    fno 14505 lno 14555 ftr 2 ltr 2
    ipath h2o.seis.data end
end
plot
    nibs 75 def .12 trpin 10 vscale 5 clip .1 nsecs 3
    srpath sunfil
    end
end
end
eof
xloadimage -r 90 sunfil &

    
gila-scripts.html0000644000076500001200000000554611157761603015127 0ustar  henkartadmin00000000000000
A shallow land seismic experiment.
Back to SIOSEIS examples
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Convert SEG2 to SEG-Y
    
Shots 5 and 379 are missing, 

sioseis << eof
procs seg2in diskoa end
seg2in
   ffilen 1  lfilen 4 end
   ffilen 6  lfilen 378 end
   ffilen 380 lfilen 9999 end
end
diskoa
   opath santan.segy end
end
end
eof


    plot all shots, one by one
    
#! /bin/bash
if [ "$#" != "2" ]; then
    echo "*****    script arg ERROR    *****"
    echo "Usage:   command arg1 arg2"
    exit
fi
declare -i first=0 last=0
first=$1
last=$2
for (( no=first; no<=last; no=no+1 ))
do
   sioseis << eof
   procs diskin plot end
   diskin
      fno $no lno $no set 0 .11 allno no
      ipath santan.segy end
   end
   filter
      pass 200 1500 ftype 0 dbdrop 48 end
   end
   agc
      winlen .02 end
   end
   plot
     def .03
      recsp yes vscale 24 tlines .005 .01 srpath sunfil.ras
      ann shottr ann2 shotno taginc 5
      end
   end
   end
eof
   display -rotate 90 sunfil.ras 
done


     filter agc plot
    
sioseis << eof
procs diskin filter agc plot end
diskin
   fno 11 lno 14 noinc 1 set 0 .11 allno no
   ipath santan.segy end
end
filter
   pass 100 800 ftype 0 dbdrop 48 end
end
agc
   winlen .02 end
end
plot
  def .02
   recsp yes vscale 20 trpin 40 tlines .005 .01 srpath sunfil.ras
   ann sh&tr  taginc 4
   end
end
end
eof
display -rotate 90 sunfil.ras &


    Synthetics
    
sioseis << eof
procs syn filter tx2fk fkfilt fk2tx plot end
#procs syn filter plot end
syn
     x .05 xinc .05 
     secs .1 si .000250 ntrcs 24 
     ttva 2 .01 60 1
          1 .02 60 1 
          2 .03 60 1
          1 .05 60 1 
          1 .07 60 1 end
end
tx2fk
   nprestk 1
   end
end
fkfilt
!   dipcut -.5 .5 dippas -.4 .4 end
!   dipcut -1 1 dippas -.5 .5 end
   dipcut -2 2 dippas -1 1 end
end
filter
   pass 20 800 end
end
plot
    vscale 20 tlines .01 .05 def .03 trpin 20 ann sh&tr taginc 1
   srpath sunfil.ras end
end
end
eof
display -rotate 90 sunfil.ras &


    FKFILT
    
sioseis << eof
procs diskin tx2fk fkfilt fk2tx filter agc plot end
diskin
  set 0 .11 ntrgat 24
   fno 11 lno 14 allno no
   ipath santan.segy end
end
filter
   pass 200 800 ftype 0 dbdrop 48 end
end
agc
   winlen .02 end
end
tx2fk
   nprestk 1
   end
end
fkfilt
   dipcut -1 1 dippas -.5 .5 end
!   dipcut -2 2 dippas -1 1 end
end
plot
    nsecs .11 recsp yes
    vscale 20 tlines .005 .01 def .02 trpin 40 ann sh&tr taginc 6
   srpath sunfil.ras end
end
end
eof
display -rotate 90 sunfil.ras &


    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

gila.html0000644000076500001200000001061311215536613013425 0ustar  henkartadmin00000000000000
A shallow land seismic experiment.
Back to SIOSEIS examples
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    GilaStk1-14-300x800depth.png
    

    gila-scripts
shots11-14fft-1.png
shots11-14fft-2.png - fft with plot overdriven and clipped.
shots11-14fft-3.png - fft after 200x800 filter.
gila100x800.png (used in CATS)
gila200xl500.png
gila200x800.png - filter (200x800) agc (.02)
gila-syn-1.png - synthetic with v = 60 and linear events at t0=.01, .03 and hyperbolic events at t0=.02, .05, .07
gila-syn-2.png - synthetic with fkfilt dipcut -.5 .5 dippas -.4 .4
If v = 60m/s, then direct wave is 1/60 or .0166s/m
With .05m per trace, then the dip is .000833m/s or .8 mils
gila-syn-3.png - synthetic with fkfilt dipcut -1 1 dippas -.5 .5
gila-syn-3.png - synthetic with fkfilt dipcut -2 2 dippas -1 1
shots11-14fkfilt-0.png - fkfilt (dipcut -.5 .5 dippas -.4 .4) filter agc
shots11-14fkfilt-1.png - fkfilt (dipcut -1 1 dippas -.5 .5) filter agc
shots11-14fkfilt-2.png - fkfilt (dipcut -2 2 dippas -1 1) filter agc

GilaGeophyLogbook.pdf - scanned logbook.

Geometry:  5cm group spacing.  Shot is 5cm from closest phone.  Shot is 5cm
           off of the line.  Shots alternate between 1.25m hammer and a
           .2m solinoidand alternate ends of the phones.

NMO: Shot in loose sand.  
If v=60, T0=.05s, x=1.25, then Tx = .0541664 (dt or nmo = .0041664)
If v=60, T0=.02s, x=1.25, then Tx = .028 (dt or nmo = .0088)
nmo-cvel60.png - fkfilt nmo (constant velocity of 60m/s) filter agc

gila-str-1.png - syn filter
gila-str-2.png - syn filter nmo
gila-str-3.png - syn filter nmo with dstretch 10
gila-str-4.png - syn filter nmo with dstretch 20
gila-str-5.png - syn filter nmo mute

gila-gat-1.png - gathers without gain
gila-gat-2.png - gathers with avenor gain

gila-cvstks.pdf - Constant velocity stacks

Stack #1: Hammers only in depth - fkfilt geom gather (evens) nmo filter mute avenor stack t2d plot


             Solinoid
    
shots201-211fkfilt-1.png - fkfilt filter
shots201-211fkfilt-2.png - fkfilt filter agc
shots201-211fkfilt-3.png - fkfilt filter avenor
Stack #2: Solinoid only in depth - fkfilt geom gather (odds) nmo filter mute avenor stack t2d plot
(this and all other png plots look best after downloading and using ImageMagick's display)

    
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

goc.html0000644000076500001200000001417610043756655013301 0ustar  henkartadmin00000000000000

MCS on R/V Revelle, April 2004

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    MCS setup on the R/V Revelle in April 2004
    

    by Paul Henkart
    

            INTRODUCTION 
    
     While the Multi Channel Seismic portion of Lonsdale's
Gulf of California cruise was dropped at the last minute,
there were tremendous preparations.  My goals for the project
were:  1)  Process ALL the data, including decon and FK
migration, before leaving the ship at the end of the trip.
The hope was to have PostScript files of the areas of high
scientific value.  2)  To setup and establish realtime
processing capability similar to what I set up on the R/V Ewing.

     SIO has a 24 channel marine Geometrics Stratavisor for
doing A/D.  In the fall of 2003, it was decided to buy an
iSys thermal raster plotter rather than upgrading to a 48
channel system.  It was also decided to lease an analog 
streamer.  A major factor in these decisions was that we
knew a digital streamer was being designed and that we
might want to abandon all the analog equipment soon.


            STREAMER 
    
     The question was then what group space and length
streamer to use.  My thinking was that a 300m, 12.5m
group spacing, streamer would be better than a 150m,
6.25m, streamer.  Part of the survey was to be in shallow
waters (but never less than 400m) with a fairly hard water
bottom.  My gut feeling was that the differential NMO 
between primary and water bottom multiple events would be
better with a longer streamer.  Likewise, velocity analysis
might be viable with a longer streamer.  I also rationalized
that these data would never be postprocessed with processes
where spatial aliasing would be a factor.
     In 500m water, the first multiple arrives ~1.2 secs (twt).
With an 1600m/s event at 1.21 and a 1500m/s event at 1.22, 
after NMO at 1600m/s and stack:
ranges 100 - 400 (24 channels with 12.5m groups)

    


    

    ranges 100 - 250 (24 channels with 6.25m groups)

    


    

    
     Shooting every 37.5m (~12.1 seconds at 6 kts) then
gives 4 fold coverage at 6.25m subsurface resolution.

            PLOTTING 
    
     Data collection was to begin just a few hours out of port,
so getting setup before leaving port seemed like a good idea.
I could also determine if I had all the hardware.  The iSys
V12 was connected to the Geometrics via an HP 170X print
server.  The iSys "spewed paper" when the 170 was connected
to the ship's network, so the V12 was moved to be directly
attached to the Sun's parallel port.  The V12 has a Centronics
interface.  It was determined that the V12 is not greyscale
as promised.  An entry was made in SIOSEIS process plot to
generate raster plots for the B&W V12.
     The old Versatec driver program "plot2" was modified to
include the three bytes needed to signal the V12 Centronics
interface that the data were rasters.
     After a couple of days it was determined that the Versatec
driver approach was totatly wrong, so a new program, sio2c,
was written that simply converts SIOSEIS rasterfiles to
iSys Centronics files.  These files may be cat'd directly
to the device or sent through the spooler.
    The V12 is current setup through a print spooler, but I
suspect that won't work for realtime processing and plotting.
I need to write directly to the device for that.
    At least long plots can be made on something besides the
36inch wide HP DesignJet.



            NAVIGATION 
    
1)  There is no way to shot by distance.
2)  The ship usually does everything from the Trimble Tasman
    receiver in unsecure mode.
3)  SIO no longer had the security keys.
4)  It's non-trivial to switch from unsecure to secure mode.
5)  The Trimble 200D is the only differential unit.
6)  The Captain says differential coverage is lost 20nmi from
    San Diego.
7)  The 200D does not feed to the lab, only the Tasman does.
    The ship might be driven by a different unit than what's
    being recorded.
8)  The new GPS receiver with Vessel ID is GPS and DGPS and
    switches automatically.  No WAAS.
8)  There are 3 Ashtechs used as heading info for the ADCP,
    but they are unreliable and don't connect to other systems.
9)  It's unclear to me if there's a POS MV system.  Some people
    say yes and some no.
10) It's impossible to modify the current lab nav recording
    scheme, even just to add a tag for which GPS unit is
    being recorded.  There's just too much legacy code.

      I recommend that a "smart" GPS be purchased so that it
can be run independently from the ship's unit.  The Geometrics
should record this independent unit. 



           REALTIME PROCESSING
    
     The latest navigation and water depth are now available
in files  /scgscg/files/nav_out   and   /scgscg/files/dep_out.
They are started as:
nohup /usr/local/bin/ttydump -d /dev/term/9 -b 4800 -r GGA -c -f 
/scgscg/files/nav_out &
nohup /usr/local/bin/ttydump -d /dev/term/10 -b 9600 -c -f 
/scgscg/files/dep_out &

     SIOSEIS process SEGDDIN should be modified so that:
1)  It generates Geometrics file names based on parameter
    FFILEN.  Geometrics file names seem to be consecutive.
    e.g. 1.sgd, 2.sgd, 3.sgd
    This may be preferable to look doing the ls -t trick.
2)  SEGDDIN needs to loop checking for new Geometrics files
    in the shot directory.
3)  SEGDDIN (or GEOM?) need to grab the navigation and water
    depth and insert it into the SEG-Y header.  With appropriate
    checks!



           High-Sea Net 
    
    The high speed (32.0 kbits/s down, 64.0 kbits/s up) link
    between the Revelle and UCSD failed and was unavailable.


    
Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


gpr2.html0000755000076500001200000000751706776236111013405 0ustar  henkartadmin00000000000000
CATS GPR example, plot 2
Go to the list of seismic proce
sses.
    
Go to SIOSEIS introduction.


                   CATS GPR example, plot 2

    Assign ranges to every trace according to distance from
the southern survey boundary.  SEG-Y only allows integers,
so multiply the range by 1000.  Thus meter 26 becomes 26000.
    This GPR dataset was collected with a scan recorded by
time rather by distance, so some the distance between scans
is not uniform.  For instance, there are 75 scans in the
first meter and 57 scans in the second meter.  We could use
plot parameter HSCALE 1000 to plot by distance. 


sioseis << eof
procs diskin geom header diskoa prout end
diskin
   fno 26 lno 33
   ipath file59.segy end
end
diskoa
    opath data end
end
prout
   fno 1 lno 51 indices l3 l4 l11 l12 l19 l21 end
end
header
    fno 0 lno 9999 ftr 0 ltr 9999 l19 = l10 l21 = l10 end
end
plot
   srpath sunfil ann sh&tr taginc 10 wiggle 0 trpin 300
    nibs 2859 def .005  vscale 113 nsecs .03 tlines .005 .01 end
end
geom
  dfls 0 lprint 7
  fs 1 ls 1 gxp 1 1000 75 1987 end
  fs 2 ls 2 gxp 1 2000 57 2982 end
  fs 3 ls 3 gxp 1 3000 59 3983 end
  fs 4 ls 4 gxp 1 4000 67 4985 end
  fs 5 ls 5 gxp 1 5000 58 5983 end
  fs 6 ls 6 gxp 1 6000 59 6983 end
  fs 7 ls 7 gxp 1 7000 57 7982 end
  fs 8 ls 8 gxp 1 8000 59 8983 end
  fs 9 ls 9 gxp 1 9000 63 9984 end
  fs 10 ls 10 gxp 1 10000 59 10983 end
  fs 11 ls 11 gxp 1 11000 62 11984 end
  fs 12 ls 12 gxp 1 12000 62 12984 end
  fs 13 ls 13 gxp 1 13000 56 13982 end
  fs 14 ls 14 gxp 1 14000 58 14983 end
  fs 15 ls 15 gxp 1 15000 61 15984 end
  fs 16 ls 16 gxp 1 16000 60 16983 end
  fs 17 ls 17 gxp 1 17000 56 17982 end
  fs 18 ls 18 gxp 1 18000 62 18984 end
  fs 19 ls 19 gxp 1 19000 54 19981 end
  fs 20 ls 20 gxp 1 20000 53 20981 end
  fs 21 ls 21 gxp 1 21000 66 21985 end
  fs 22 ls 22 gxp 1 22000 60 22983 end
  fs 23 ls 23 gxp 1 23000 59 23983 end
  fs 24 ls 24 gxp 1 24000 58 24983 end
  fs 25 ls 25 gxp 1 25000 56 25982 end
  fs 26 ls 26 gxp 1 26000 53 26981 end
  fs 27 ls 27 gxp 1 27000 52 27981 end
  fs 28 ls 28 gxp 1 28000 61 28984 end
  fs 29 ls 29 gxp 1 29000 60 29983 end
  fs 30 ls 30 gxp 1 30000 61 30984 end
  fs 31 ls 31 gxp 1 31000 65 31985 end
  fs 32 ls 32 gxp 1 32000 68 32985 end
  fs 33 ls 33 gxp 1 33000 52 33981 end
  fs 34 ls 34 gxp 1 34000 54 34981 end
  fs 35 ls 35 gxp 1 35000 52 35981 end
  fs 36 ls 36 gxp 1 36000 54 36981 end
  fs 37 ls 37 gxp 1 37000 54 37981 end
  fs 38 ls 38 gxp 1 38000 61 38984 end
  fs 39 ls 39 gxp 1 39000 54 39981 end
  fs 40 ls 40 gxp 1 40000 52 40981 end
  fs 41 ls 41 gxp 1 41000 59 41983 end
  fs 42 ls 42 gxp 1 42000 54 42981 end
  fs 43 ls 43 gxp 1 43000 60 43983 end
  fs 44 ls 44 gxp 1 44000 73 44986 end
  fs 45 ls 45 gxp 1 45000 59 45983 end
  fs 46 ls 46 gxp 1 46000 53 46981 end
  fs 47 ls 47 gxp 1 47000 53 47981 end
  fs 48 ls 48 gxp 1 48000 48 48979 end
  fs 49 ls 49 gxp 1 49000 52 49980 end
  fs 50 ls 50 gxp 1 50000 57 50982 end
  fs 51 ls 51 gxp 1 51000 end
end
end
eof
##################################################
# script to plot so that north is on the right.
# This doesn't use plot parameter DIR LTR since it
# drops the time line annotation.  We just sort the
# data in reverse shot and trace order.
sioseis << eof1
procs sort diskin plot end
sort
   rev1 yes rev2 yes
   ipath data.geom lkey1 3 lkey2 4 opath sfile end
end
diskin
   spath sfile
   ipath data.geom  end
end
shift
    datume 600 datumv 200000 end # elevation is in mm
end
plot 
    ann fanno fanno -4 taginc 60
    srpath sunfil wiggle 0 trpin 20 
    clip .05 tlines .005 .01 
     nibs 75 def .08  vscale 150 nsecs .03 end 
 end 
end
eof1
xloadimage -r 90 sunfil &

    
Go to the list of seismic proce
sses.
    
Go to SIOSEIS introduction.
gpr3.html0000755000076500001200000002236707007633133013377 0ustar  henkartadmin00000000000000
CATS GPR example, plot 2
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.


                   CATS GPR example, plot 2

sioseis << eof
procs diskin stack weight diskoa prout end
diskin
   ipath file59.segy fno 20 lno 20 ntrgat 53 end
end
weight
   fno 0 lno 99999 twp 1 -1 end
end
prout
   sets 0 .03
   fno 0 lno 9999 ftr 0 ltr 9999 end
end
diskoa
   opath data.stack end
end
end
eof




sioseis << eof
procs diskin uadd plot end
diskin
   fno 26 lno 33
   ipath data end
end
plot
    dir ltr
    ann fanno fanno -4 taginc 60
    srpath sunfil wiggle 0 trpin 20
    clip .05
   tlines .01 .05
     nibs 75 def .08  vscale 150 nsecs .03 end
end
filter
    ftype 0 pass 500 2000 end
end
diskoa
   opath data.shifted end
end
uadd pts
     -2750.1          369.66          3677.5          3700.2          2972.9    
      2767.5          2790.1          2881.1          3002.7          3108.4    
      3365.1          3829.2          4249.3          4638.5          5150.2    
      5615.6          5926.0          6282.8          6841.9          7335.3    
      7611.0          7816.5          7673.8          6835.0          5524.5    
      4192.9          2714.6         -1297.8         -8028.0         -12696.    
     -14485.         -16256.         -17997.         -18923.         -19632.    
     -20428.         -20416.         -19199.         -17212.         -14656.    
     -11692.         -8440.9         -5050.4         -2144.9          63.472    
      1928.0          3443.3          4514.5          5353.2          6096.5    
      6538.7          6571.8          6382.5          6100.6          5775.8    
      5501.0          5312.5          5124.4          4950.0          4894.0    
      4856.0          4673.9          4393.4          4050.5          3725.8    
      3430.6          3188.8          2973.0          2739.3          2480.3    
      2199.1          1923.7          1714.5          1569.8          1424.0    
      1262.5          1094.0          911.91          722.60          497.00    
      198.04         -96.340         -342.66         -600.98         -817.19    
     -953.30         -1089.8         -1261.7         -1446.2         -1650.1    
     -1897.2         -2106.1         -2182.1         -2215.0         -2316.9    
     -2409.8         -2437.2         -2484.9         -2541.7         -2571.2    
     -2660.6         -2789.2         -2887.4         -2973.8         -3058.8    
     -3155.1         -3249.8         -3571.2         -4377.4         -5223.9    
     -5650.2         -5761.1         -5674.2         -5411.0         -5055.2    
     -4682.9         -4340.0         -4036.1         -3785.6         -3642.8    
     -3736.2         -4160.1         -4775.8         -5395.9         -5888.7    
     -6118.8         -6181.9         -5495.3         -4374.8         -2947.4    
     -1684.0         -338.06          1165.4          1923.7          2062.2    
      2230.2          2224.5          1855.7          1380.6          1045.1    
      725.53          379.75         -85.925         -899.57         -1409.3    
     -931.21         -142.68          378.25          1023.1          1786.8    
      2337.4          2993.3          4130.2          6143.9          9585.3    
      14240.          18396.          20259.          19948.          18429.    
      16211.          14002.          12825.          12665.          13213.    
      13834.          13629.          12415.          10511.          8596.9    
      7060.1          5682.8          4453.9          3664.2          2977.3    
      2953.5          3879.7          4849.8          5032.8          4063.6    
      2310.2         -272.15         -2435.2         -3183.8         -3378.7    
     -2189.7          977.79          4413.6          7317.2          8758.7    
      7692.1          6246.0          5387.1          3929.6          2757.7    
      2910.3          3168.1          2433.3          1820.2          2566.5    
      3921.3          4019.4          2670.1          1224.7         -276.36    
     -2494.8         -5293.7         -8579.4         -12868.         -17037.    
     -19544.         -19989.         -17650.         -14852.         -13139.    
     -10995.         -9478.8         -9348.0         -9863.8         -10543.    
     -10724.         -10922.         -11857.         -12153.         -11401.    
     -12484.         -15427.         -18011.         -20184.         -20855.    
     -21184.         -21858.         -20448.         -19593.         -19185.    
     -16276.         -13939.         -12362.         -10067.         -9491.1    
     -10934.         -12028.         -12176.         -12536.         -11673.    
     -6926.8         -483.45          4209.8          7556.8          9908.7    
      9754.2          7985.6          8635.0          11046.          13392.    
      16286.          17075.          14363.          11521.          11184.    
      10811.          8924.9          9962.2          15045.          18724.    
      17576.          15225.          16082.          16023.          13241.    
      10168.          7265.5          7628.1          10738.          12927.    
      13147.          12511.          11260.          8080.0          4119.9    
      2193.0          2808.8          2941.6          3401.8          7053.5    
      9239.6          8272.7          7634.8          7568.7          6873.2    
      5499.9          5320.8          5032.3          3208.6          1897.8    
      1537.5          1048.5          331.13         -27.000         -682.89    
     -2715.0         -5506.8         -7100.2         -6402.6         -3685.8    
      212.23          4036.6          7061.6          9413.8          10777.    
      10837.          10412.          10193.          9624.5          8400.5    
      7339.4          6830.0          6309.6          5254.2          3540.5    
      1438.3         -64.038         -247.25          484.53          1881.3    
      4405.9          7442.5          9523.4          10367.          10702.    
      10672.          9917.4          8557.9          6818.6          5036.9    
      3886.3          3422.7          2807.2          1900.1          1436.1    
      1270.5          633.15         -648.75         -2439.8         -4446.5    
     -5885.6         -6185.0         -5681.5         -5032.4         -4731.6    
     -4908.7         -5429.9         -6059.2         -6598.3         -7182.1    
     -7836.5         -8426.5         -9153.5         -9947.8         -10449.    
     -10302.         -9406.2         -7986.1         -6658.5         -4934.3    
     -4146.7         -6897.0         -10049.         -12676.         -17451.    
     -18776.         -15731.         -14131.         -13008.         -16110.    
     -19879.         -16852.         -16334.         -19035.         -16963.    
     -13732.         -15417.         -14620.         -5905.3         -1539.8    
     -4096.1         -5146.5         -4419.9         -8422.9         -17116.    
     -20999.         -17705.         -18256.         -23201.         -23296.    
     -21645.         -23801.         -26999.         -24953.         -16730.    
     -11600.         -10537.         -8249.2         -4925.6         -4887.7    
     -6674.5         -4614.7         -2300.0         -3953.8         -5869.4    
     -5639.6         -5329.9         -9771.9         -11898.         -1456.7    
      6890.3          1620.4         -1333.0          7168.4          11317.    
      11671.          11491.          11612.          24770.          31618.    
      31878.          32178.          32658.          32763.          32758.    
      32580.          31999.          32072.          32625.          32231.    
      28399.          30084.          32119.          31658.          30755.    
      30020.          28612.          25472.          20502.          15821.    
      11667.          7809.1          5024.0          4386.3          7242.8    
      13448.          19956.          24370.          25995.          24723.    
      20556.          14994.          10050.          6682.7          4618.5    
      3406.1          2165.0         -324.75         -4459.6         -10495.    
     -17685.         -23615.         -27347.         -29028.         -29111.    
     -28789.         -29752.         -31001.         -31843.         -32458.    
     -32678.         -32655.         -32164.         -29997.         -25870.    
     -23444.         -23823.         -25091.         -25615.         -25188.    
     -24183.         -22382.         -19574.         -16150.         -12670.    
     -9584.4         -7608.1         -6933.4         -6541.2         -4286.4    
      1057.0          7682.7          13673.          19410.          24359.    
      27849.          30255.          31546.          32167.          32264.    
      32078.          31720.          31173.          30867.    
end end
prout
   fno 1 lno 51 indices l3 l4 l11 l12 l19 l21 end
end
geom
  type 7 epath elevations end
end
shift
    datume 600 datumv 200000 end # elevation is in mm
end
end
eof
#xloadimage -r 270 sunfil &

    
Go to the list of seismic proce
sses.
    
Go to SIOSEIS introduction.
gpr7.html0000755000076500001200000000266306776505217013415 0ustar  henkartadmin00000000000000
CATS GPR migration example
Go to the list of seismic proce
sses.
    
Go to SIOSEIS introduction.


    

Script to FK migrate.  Lie about the sample interval because sioseis
choked on the the original sample interval of 59 microseconds (.059 mils)


sioseis << eof
procs diskin tx2fk fkmigr fk2tx diskoa end
diskin
   si .001 
   ipath data.filter  end
end
diskoa
   opath data.filt+migr end
end
tx2fk
    end
end
fkmigr
   vel 2500 deltax 16 end
end
geom
  type 7 epath elevations end
end
shift
    datume 600 datumv 20000 end # elevation is in mm
end
plot 
    ann fanno fanno -4 taginc 60 
    srpath sunfil wiggle 0 trpin 20 
    clip .05 
   tlines .05 
     nibs 75 def .08  vscale 10 nsecs .5 end 
 end 
end
eof
#xloadimage -r 90 sunfil &




Script to plot migrated data with wrong sample interval

sioseis << eof
procs diskin geom shift plot end
diskin
   si .000059
   ipath data.filt+migr end
end
geom
  type 7 epath elevations end
end
shift
    datume 600 datumv 200000 end # elevation is in mm
end
plot
    ann fanno fanno -4 taginc 60
    srpath sunfil wiggle 0 trpin 20
    clip .05
   tlines .01 .05
     nibs 75 def .08  vscale 150 nsecs .03 end
 end
end
eof
xloadimage -r 90 sunfil &

    
Go to the list of seismic proce
sses.
    
Go to SIOSEIS introduction.
gray.html0000644000076500001200000000445010022673416013453 0ustar  henkartadmin00000000000000

Gray scale plotting example
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    


     Here are some plots and scripts that show what various
plot parameters do.  Along with some background in sioseis
plotting.

      SIOSEIS plots are based on raster plotters rather than
PostScript plotters.  While this is for historical reasons
(PostScript plotter are recent compared to raster plotters),
raster plotters are the only way to plot seismic data in realtime.

The basic script we'll work with is:

    sioseis << eof 
procs syn plot end
syn
   fno 1 lno 1 ntrcs 1 secs 1 values
 1 2 3 4 5 6 7 8 9 10 11 12 13 12 11 10 9 8 7 6 5 4 3 2 1
  0 0 0 0 0 0 0 0
  -1 -2 -3 -4 -5 -6 -7 -8 -9 -10 -11 -12 -13
  -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1
  end
end
plot
   nsecs .3 ann shotno
   nibs 2859 trpin 300 vscale 5 def .07
   colors .001 gray0 .01 gray1 .02 gray2 .04 gray3 .06 gray4
          .08 gray5 .10 gray6 .12 gray7
   opath siofil end
end
end
eof
sio2sun siofil sunfil.ras

    


    

    With regular black and white plotting, one often limits the 
the height or deflection of the wiggles by using the CLIP 
parameter.  (Plot scales the trace to DEF inches, but then
clips it so the actual excursion from zero doesn't exceed
CLIP inches.

With grayscale plotting, the CLIP parameter then limits the
intensity of the color.  e.g. Adding CLIP .03 to the above causes:


    
Parameter DPTR (dots per trace) limits the size of the trace in
the plot without altering the intensity.  Using DPTR 1:


    
DPTR 10 causes every trace sample to be 10 dots wide on the plot:


    

    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


grd.html0000644000076500001200000000144007313505465013270 0ustar  henkartadmin00000000000000 SIOSEIS grdout example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    Example 1 of using SIOSEIS process GRDOUT and GMT to produce a
publication quality plot, provided by Garrett Ito.

The SIOSEIS script reads a SEG-Y file and creates
a GMT GRD formatted file.

The GMT script along with file gray.cpt
creates an annotated PostScript file that can be read by GhostScript
and ImageTool.

    
 SIOSEIS grdout example
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
grd1.html0000644000076500001200000000273207311511557013353 0ustar  henkartadmin00000000000000 grdout example 1 sioseis script
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    
Back to grdout example 1

    #----------------------------------------------------------
# generates grd output
#----------------------------------------------------------

#! /bin/csh

set plt = sioseis       #select which plot to use, pltsegy or sioseis
set infile = pregrd.out
set outfile = togrd.grd
/bin/rm siofil sunfil stack.ps $outfile

@ rp1 = $1
@ rp2 = $2
@ nrp = $rp2 - $rp1
@ ninc = 1

sioseis << eof
procs diskin prout plot diskoa grdout end
#debug procs diskin prout end
diskin
   fno $rp1 lno $rp2
   noinc $ninc
   ipath $infile
   set 2.54 6.5
end 
end

prout
 fno 1 lno 9999999 noinc 100
end 
end

diskoa
 opath togrd.out
end
end

grdout
opath $outfile
#xmin $rp1 xmax $rp2 xinc $ninc xunits rps
xmin 0 xmax 63.125 xinc 0.0125 xunits km
ymin 2.54 ymax 6.5 yinc 0.012
 
end 
end
  

plot
  stime 2.5 nsecs 4
  tlines 0.5 1 
  nibs 7224  vscale 2.5 
  wiggle 0 
!  anninc 15 anntyp 5   !gmt time
   ann rpno  taginc 100 !rp number
!  wiggle 30 scalar 1.0e-2 def 1.5 trpin 4 
  scalar 8.0e-4  clip 0.03 trpin 200 !gains type 5 alpha 1.5 with wbt
!  colors -.01 red -.005 magenta 0 white .003 cyan .007 blue    !plots colors
  pctfil 100
  opath siofil
!  dir ltr
  srpath sunfil end
end

end

eof

    
Back to grdout example 1

grd1a.html0000644000076500001200000000106407311513000013472 0ustar  henkartadmin00000000000000 grdout example 1 GMT file gray.cpt
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    
Back to grdout examples

    
#	cpt file created by: makecpt -Cgray -T-20/20/20 -Z -V -I
#COLOR_MODEL = RGB
#
-3	255	255	255	-0.5	220	220	220
-0.5	220     220      220	 1.0     190     190      190
1.0       160     160      160      3	0	0	0
B	255	255	255
F	0	0	0
N	255	255	255

    
Back to grdout example 1
grd2.html0000644000076500001200000000423007311513151013337 0ustar  henkartadmin00000000000000 grdout example 1 GMT script
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    

    
Back to grdout examples

    #! /bin/csh
gmtset VERBOSE TRUE LABEL_FONT_SIZE 12 ANOT_FONT_SIZE 12
set output = Togrd.ps
set B = a10f5/a1g.5SWne
set B2 = a10f5/a1g0.5swne
set R = 166400/177000/2.5/6.5
set R = 0/63/2.5/6.5
#-------------------------------------------------
# grd2xyz togrd.grd=1 >! togrd.xyz
# xyz2grd togrd.xyz -I1/0.012 -Gtogrd2.grd -R0/360/3/6
#-------------------------------------------------
# xyz2grd interpretes x values as deg thus 0-360 only
#-------------------------------------------------

set cpt = gray.cpt
#makecpt -Cgray -T-20/20/20 -Z -V -I >! $cpt

psbasemap -Ba10f5:"Distance (km)":/a1f0.5:"Two-Way Time (s)":SWne -R$R -JX10/-3 -K -X0.75 -Y2 -Vl >! Togrd.ps
grdimage  -B$B2 togrd.grd=1 -JX10/3 -R -C$cpt -O -K >> Togrd.ps
psxy -R -JX -O -N -G0 -Sv0.05c/0.24c/0.12c -K <>Togrd.ps
3.0  3     -50   0.25
31   3.0    30    0.3
10   3.95   -90  0.25
28   3.90   -90  0.25
48   3.8   -90  0.25
15   5.2   90 0.25  
35   5.2   90 0.25 
55   5.3   90 0.25 
END

pstext -R -JX -O -N -W255 -G255 -K <>Togrd.ps
1    3.15    4  0    0    1 seafloor multiple    seafloor   multiple side
30   2.95   4  0    0    3 side swipe   side swipe si
10   4.05   3  0    0    2 MohoMohoMoho
28   4.05   3  0    0    2 MohoMohoMoho
48   3.95   3  0    0    2 MohoMohoMoho
15   5.05   3  0    0    2 base of 2Abase of 2Abase of 2A
35   5.05  3  0    0    2  base of 2Abase of 2Abase of 2A
55   5.05   3  0    0    2  base of 2Abase of 2Abase of 2A
END


pstext -R -JX -O -N <>Togrd.ps
32.5 6.8   14  0    0    2 Galapagos Spreading Center (G-PRIME): ridge flank MCS profile
1    3.1   10  0    0    1 seafloor multiple
30   2.9   10  0    0    3 side swipe
10   4.0   10  0    0    2 Moho
28   4.0   10  0    0    2 Moho
48   3.9   10  0    0    2 Moho
15   5.0   10  0    0    2 base of 2A
35   5.0   10  0    0    2  base of 2A
55   5.0   10  0    0    2  base of 2A
END

imagetool Togrd.ps 

    
Back to grdout example 1

grdout.html0000755000076500001200000001533410743165054014027 0ustar  henkartadmin00000000000000
SIOSEIS process GRDOUT

Go to the list of seismic processes.
         
Go to SIOSEIS introduction.
         
Go to SIOSEIS examples.

    

                          PROCESS GRDOUT
                      ------- ------

Parameters, alphabetically:
command   comment   hdrpad    lprint    opath     set
title     xinc      xmax      xmin      xunits    yinv
ymax      ymin      yunits    zmax      zmin      zscale
zunits

Document Date: 14 January 2004
Modifications:
Jan. 2004 - Add parameter HDRPAD
Feb. 2005 - Make HDRPAD automatic on PC (need on Mac only)


     Process GRDOUT writes a GMT grid file (grdfile) format 1.
GRDOUT collects all the traces on disk and then transposes them
so that all like times are in a row.

     GRDOUT is an "offline process" or "fork process"; it does
not write it's output for the next process in the procs list.  
The input trace is not modified and is passed to the next
process in the PROCS list.

     The data are time reversed because the GMT Y-axis and the
seismic reflection time axis are reversed.


PARAMETER DICTIONARY
--------- ----------

OPATH  - The output grdfile.  When using this filename for GMT,
         append "=1" to it since it is in GMT format 1.  e.g.
         grdimage grdfil=1
         REQUIRED.           e.g. grdfil

SET    - Start and End Time to output.
         Preset = delay to end of first trace.

XMIN   - The x_min value to insert into the grdfile header.
         Preset = 0

XMAX   - The x_max value to insert into the grdfile header.
         Preset = the number of traces - 1

XINC   - The x_inc value to insert into the grdfile header.
         Preset = 1

YMIN   - The y_min value to insert into the grdfile header.
         Preset = 0

YMAX   - The y_max value to insert into the grdfile header.
         Preset = the number of time samples - 1

YINC   - The y_inc value to insert into the grdfile header.
         Preset = 1

ZMIN   - The z_min value to insert into the grdfile header.
         Preset = most negative trace amplitude of all traces.

ZMAX   - The z_max value to insert into the grdfile header.
         Preset = most positive trace amplitude of all traces.

ZSCALE - The z_scale value to insert into the grdfile header.
         Preset = 1

XUNITS - The ASCII x_units to insert into the grdfile header.
         Preset = km

YUNITS - The ASCII y_units to insert into the grdfile header.
         Preset = secs

ZUNITS - The ASCII x_units to insert into the grdfile header.
         Preset = amplitude

TITLE  - The ASCII title to insert into the grdfile header.
         Preset = 

COMMAND - The ASCII command to insert into the grdfile header.
         Preset = 

COMMENT - The ASCII comment to insert into the grdfile header.
          Preset = Processed by SIOSEIS

HDRPAD - A YES/NO swicth indicating whether to pad the GMT header
         with an extra 4 bytes or not.  SUN/SGI/HP need the pad.
         OSX and PC do not.  The need of the pad depends on how GMT
         was compiled and is due to the byte alignment of the C
         DOUBLE.  Must be set to NO on Mac OSX.
         Preset = yes, except on PC            e.g.   hdrpad no

LPRINT - SIOSEIS debug print switch.
       = 4, Print the grdfile header, similar to grdinfo 
         Preset 4

Written by:
Paul Henkart, Scripps Institution of Oceanography, January 2001
Copyright (C) The Regents of The University of California
All Rights Reserved.


more gmt_grd.h
/*--------------------------------------------------------------------
 *    The GMT-system:	@(#)gmt_grd.h	3.17  02/06/99
 *
 *	Copyright (c) 1991-1999 by P. Wessel and W. H. F. Smith
 *	See COPYING file for copying and redistribution conditions.
 *
 *	This program is free software; you can redistribute it and/or modify
 *	it under the terms of the GNU General Public License as published by
 *	the Free Software Foundation; version 2 of the License.
 *
 *	This program is distributed in the hope that it will be useful,
 *	but WITHOUT ANY WARRANTY; without even the implied warranty of
 *	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *	GNU General Public License for more details.
 *
 *	Contact info: www.soest.hawaii.edu/gmt
 *--------------------------------------------------------------------*/
/*
 * grd.h contains the definition for a GMT-SYSTEM Version >= 2 grd file
 *
 * grd is stored in rows going from west (xmin) to east (xmax)
 * first row in file has yvalue = north (ymax).  
 * This is SCANLINE orientation.
 *
 * Author:	Paul Wessel
 * Date:	26-MAY-1990
 * Revised:	21-OCT-1998
 */
 
#include "netcdf.h"

/* Nodes that are unconstrained are assumed to be set to NaN */

#define GRD_COMMAND_LEN	320
#define GRD_REMARK_LEN	160
#define GRD_TITLE_LEN	 80
#define GRD_UNIT_LEN	 80

struct GRD_HEADER {
	int nx;				/* Number of columns */
	int ny;				/* Number of rows */
	int node_offset;		/* 0 for node grids, 1 for pixel grids */
	double x_min;			/* Minimum x coordinate */
	double x_max;			/* Maximum x coordinate */
	double y_min;			/* Minimum y coordinate */
	double y_max;			/* Maximum y coordinate */
	double z_min;			/* Minimum z value */
	double z_max;			/* Maximum z value */
	double x_inc;			/* x increment */
	double y_inc;			/* y increment */
	double z_scale_factor;		/* grd values must be multiplied by this */
	double z_add_offset;		/* After scaling, add this */
	char x_units[GRD_UNIT_LEN];	/* units in x-direction */
	char y_units[GRD_UNIT_LEN];	/* units in y-direction */
	char z_units[GRD_UNIT_LEN];	/* grid value units */
	char title[GRD_TITLE_LEN];	/* name of data set */
	char command[GRD_COMMAND_LEN];	/* name of generating command */
	char remark[GRD_REMARK_LEN];	/* comments re this data set */
};

/*-----------------------------------------------------------------------------------------
 *	Notes on node_offset:

	Assume x_min = y_min = 0 and x_max = y_max = 10 and x_inc = y_inc = 1.
	For a normal node grid we have:
		(1) nx = (x_max - x_min) / x_inc + 1 = 11
		    ny = (y_max - y_min) / y_inc + 1 = 1
		(2) node # 0 is at (x,y) = (x_min, y_max) = (0,10) and represents the surface
		    value in a box with dimensions (1,1) centered on the node.
	For a pixel grid we have:
		(1) nx = (x_max - x_min) / x_inc = 10
		    ny = (y_max - y_min) / y_inc = 10
		(2) node # 0 is at (x,y) = (x_min + 0.5*x_inc, y_max - 0.5*y_inc) = (0.5, 9.5)
		    and represents the surface value in a box with dimensions (1,1)
		    centered on the node.
-------------------------------------------------------------------------------------------*/


    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
gswell.html0000644000076500001200000001051311222161240013771 0ustar  henkartadmin00000000000000

Swell filter of Edgetech GeoStar data

Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Swell filter of Edgetech GeoStar data
    

    
Plot of raw data.         Plot with swell filter.         Plot with filter and gains.

Step 1:    Create a SEG-Y file
gstar2xstar 23_18_01.10

The program may error on the last trace if the file is incomplete.
File yr2003day274-1338z.gstar was created.

Step 2:   Convert the data to "normal" amplitude data.
sioseis << eof
procs diskin xstar diskoa end
diskin
   ipath yr2003day274-1338z.gstar end
end
xstar
   type 0 end
end
diskoa
   opath yr2003day274-1338z.segy end
end
end


Step 3:   Plot the data.
sioseis << eof
procs diskin plot end
diskin
   ipath yr2003day274-1338z.segy end
end
plot
   dptr 1 colors .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil nsecs .01 wiggle 0 ann gmtint anninc 1
  nibs 2859 vscale 300 tlines .01 .05 .1
  def .005 clip .01 trpin 300
  end
end
end
eof
sio2sun siofil sunfil.ras
xloadimage -r 90 sunfil.ras &

Step4:   Plot a small potion of the data to determine the swell period.
sioseis << eof
procs diskin plot end
diskin
   fgmt 2344 lgmt 2348 allno no
   ipath yr2003day274-1338z.segy end
end
diskoa
    opath short.segy end
end
plot
   scalar 100
   dptr 1 colors .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil nsecs .005 wiggle 0 ann gmtint anninc 1
  nibs 2859 vscale 500 tlines .001 .005 .01
  def .01 clip .005 trpin 300
  end
end
end
eof
sio2sun siofil sunfil.ras
xloadimage -r 90 sunfil.ras &


Step 5:  Find the amplitude of the water bottom.
sioseis << eof
procs diskin prout end
diskin
   fno 9663 lno 9664 ipath short.segy allno no end
end
prout
   sets 0 .002 fno 0 lno 99999 end
end
end



Step 6:   Based on a different web example, my first try was:
sioseis << eof
procs diskin wbt header mix header2 shift plot end
diskin
   fno 9663 lno 9750 allno no
   ipath short.segy end
end
wbt
  thres 0.1E-03 track .005
  end
end
header
    fno 0 lno 999999 r59 = r50 end
end
mix
    type 4 hdr 59 weight 1 1 1 1 1 1 1 1 1 1 end
end
header2
    fno 0 lno 999999 ftr 0 ltr 999 r60 = r59 - r50 end
end
shift
   fno 0 lno 999999 indices r60 end
end
prout
   fno 0 lno 999999 ftr 0 ltr 999
   indices l3 l4 r50 r59 r60 end
end
plot
   dptr 1 colors .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil nsecs .01 wiggle 0 ann gmtint anninc 1
  nibs 2859 vscale 300 tlines .001 .005 .01
  def .005 clip .01 trpin 300
  end
end
end
eof
sio2sun siofil sunfil.ras
xloadimage -r 90 sunfil.ras &

 thres 0.1E-03 track .005   led to same mispicks and bad shifts.
Narrow the search window by using track .0002.
Decrease the pick threshold because it was picking noise.
Use:
   thres 0.5E-04 track .0002

 Some of the swell remains, so increse the period a little.
Use:
    type 4 hdr 59 weight 1 1 1 1 1 1 1 1 1 1 1 1 end



Step 6:  Play with bandpass filter and gain.
sioseis << eof
procs diskin wbt header mix header2 shift filter gains plot end
diskin
   ipath short.segy end
end
wbt
  thres 0.5E-04 track .0002
  end
end
header
    fno 0 lno 999999 r59 = r50 end
end
mix
    type 4 hdr 59 weight 1 1 1 1 1 1 1 1 1 1 1 1 end
end
header2
    fno 0 lno 999999 ftr 0 ltr 999 r60 = r59 - r50 end
end
shift
   fno 0 lno 999999 indices r60 end
end
filter
   ftype 0 dbdrop 48 pass 1000 10000 end
end
gains
   type 3 alpha 1.1 end
end
plot
   dptr 1 colors .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil nsecs .005 wiggle 0 ann gmtint anninc 1
  nibs 2859 vscale 300 tlines .001 .005 .01
  def .04 clip .01 trpin 300
  end
end
end
eof
sio2sun siofil sunfil.ras
xloadimage -r 90 sunfil.ras &


    
Return to SIOSEIS examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

gui.html0000655000076500001200000000476006653644617013323 0ustar  henkartadmin00000000000000SIOSEIS GUI

    procs
    

    

Select an input process.
 
    

Select a process.
 
    
 
Select a process.
 
    
 
Select a process.
 
    
 
Select a process.
 
    
 
Select a process.
 
    

Select an output process.
 
    

To submit, press this button: . 
    
 

    
h0602-1.html0000644000076500001200000000163610556455764013431 0ustar  henkartadmin00000000000000
Healy 2006 Knudsen migration - script 1.

    

    SIOSEIS script to extract two hours of envelope data, convert
water bottom depth to time, perform trace equalization,
bandpass filter, decimate by four and write to disk, perform
gain and plot.


sioseis << eof
procs diskin prout wbt avenor filter diskoa gains plot end
diskin
    fgmt 0500 lgmt 0700 ipath env-2006_229_0400z-0945z.sgy end
end
 avenor 
    sets 0 .1 addwb yes end 
 end 
 wbt 
    vel 1500 end 
 end 
 filter 
     ftype 0 pass 2 500 dbdrop 48 end 
 end 
prout
   info 1 end
end
plot
   dptr 1 nsecs 0  scalar 5.E-07
    colors gray opath siofil wiggle 0  ann gmt ann2 range taginc 100
    trpin 300 def .01 tlines .05 nibs 2859  vscale 5 end
end
gains
    subwb yes type 5 alpha 5 end
end
diskoa
    decimf 4
   opath env-2006_229_0500z-0700z.sgy end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 90 sunfil.ras &

    
h0602.html0000644000076500001200000000607710557674607013277 0ustar  henkartadmin00000000000000
Healy 2006 Knudsen migration examples.
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Healy 2006 Knudsen migration examples.
    

    Example 1
    
     Example 1 covers day 229, 0500z to 0700z.  Based on previous
work (see SBP plotting and migration) step 1 is to create a
smaller file of just the two hours of data we're interested in.  The script 
assumes the data are already in envelope form and combines several steps
of the previous work.  The data are filtered and decimated in the output
file and a plot is generated as well.
     The prout info 1 parameter displayed:
env-2006_229_0500z-0700z. Begins: day229 05:00:01, lat:   77 41 13.544 long:  176 35 36.182
env-2006_229_0500z-0700z.   Ends: day229 07:00:59, lat:   77 45 42.490 long:  176 32 37.709 data times: 1.066 to  1.467 secs.
      Using program distance, this data segment is  8423.65818 meters.  
lsd shows the file has 4734 shots, thus the average distance between
pings is 1.8 m
      The jumps in the above plot are caused by changes in the SEGY deep
water delay, which are produced on the Knudsen when the SBP "phase" is
changed.  DISKIN parameter SET 1.1 1.45 will eliminate these changes
and make a constant data window for FK processing.

      Using fkmigr deltax 1.8 and plotting every trace, produced an over
migrated plot.
      fkmigr delta 1.8 with plot hscale 900 yielded this plot.
      fkmigr delta 1.8 with plot hscale 1800 yielded this plot.
      Using a 3m bin/stack, fkmigr deltax 3, and plot hscale 1800 results
in a great plot.  I don't understand the light shaded "cone" areas.
(Is it due to the point sources being "out of plane" or off to
the side of the ship's track rather than directly under the ship.?)

    

    Example 2
    
     Example 2 covers day 222, 1220z to 1330z, covering 5700m with 
7594 pings (deltax = .75m).  The high ping rate is because Knudsen
pings faster in shallow water.  The ping to ping distance calculation
may be quite poor because the ping rate is so much higher than the
GPS update rate.  The plot with just hscale 1800 is not quite as good
as the plot with a 3m stack and hscale 1800.  The plot with 3m stack
bin and fkmigr deltax 3 is interesting.

    
header.1.html0000755000076500001200000000343306311364064014105 0ustar  henkartadmin00000000000000Header Example #1
Go to the list of seismic processes.
Go to SIOSEIS introduction.

         Someone had "shots" recorded on a Bison that were ordered:
  Enter the name of the SEGY disk file to be dumped.
data
  ENTER THE SKIP CYCLE BETWEEN TRACES TO PRINT.
5
  SHOT TR   RP TR ID RANGE WDEPTH DELAY NSAMPS   SI   YR DAY HR MIN SEC EOG NTRCS
  1019  1    1  0  1     5      0    -9  16384 2000    0   0  0   0   0     0   0
  1019  6    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1019 11    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1019 16    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1019 21    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0



       They really wanted the data ordered as "single channel" or
multiple shots, each shot with 1 trace.  The sioseis job was:

sioseis << eof
procs diskin header diskoa prout end
diskin ipath data end
end
header
  fno 0 lno 9999999 lhdr 4 1 end
end
diskoa 
   ontrcs 1 fon 1019 opath junk end
end
prout
   fno 0 lno 99999 ftr 0 ltr 9999 end
end
end
eof



     Which list.disk should:
  Enter the name of the SEGY disk file to be dumped.
junk
  ENTER THE SKIP CYCLE BETWEEN TRACES TO PRINT.
5
  SHOT TR   RP TR ID RANGE WDEPTH DELAY NSAMPS   SI   YR DAY HR MIN SEC EOG NTRCS
  1018  1    1  0  1     5      0    -9  16384 2000    0   0  0   0   0     0   0
  1023  1    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1028  1    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1033  1    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0
  1038  1    0  0  1     0      0    -9  16384 2000    0   0  0   0   0     0   0

    
header.html0000755000076500001200000002775711010117467013760 0ustar  henkartadmin00000000000000header
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                   PROCESS HEADER, HEADER2, HEADER3
               ------- ------  -------  -------

Parameters, alphabetically:
bhdr      clean     cxx       fno       ftr       hdr
header    ihdr      interp    itype     lhdr      lno
ltr       ltype     noinc     rev1      swap      trinc
type      xn


Document Date:  6 May 2008
Modifications:
    LNO preset documentation was wrong.
    Add parameters NOINC and TRINC, Nov. 2008
    Add parameter SWAP, Feb. 2007
    Add explanation and example of using the same header word multiple
        times.  June 2003
    Add parameter REV1 PATHNAME, May 2003
    Add parameter INTERP, March 2003

Process HEADER modifies the SEG-Y trace headers by specifying the header
word number (index) and the value.  The SEG-Y EBCDIC header may be 
modified also.  There are two methods for indexing the SEG-Y header, one
by using the name of the variable within the header and then by knowing
the SEG-Y header indices.

PROCESSES HEADER2 and HEADER3 are identical to HEADER and enable three
unique HEADER processes to be given in a single SIOSEIS job.

When using the index to the SEG-Y trace header structure, consult the 
SIOSEIS document segy.header, since the trace header is composed of 16
bit integers, 32 bit integers, and floating point words.  The SEG-Y trace
header values are changed by specifying the index of the value and the
new value.  16 bit header words are specified using the IHDR parameter,
32 bit words are specified via the LHDR parameter, and floating point 
words are specified via HDR.  These parameters are lists of indices and
values.  HDR, LHDR, and IHDR may be given on each control point. 

Spatial variation between control points is available.   The SIOSEIS 
document SYNTAX discusses control point usage, however a control point
is an fno/lno list of parameters.  Spatial interpolation is different
from the interpolation/extrapolation of values on traces within a
shot/rp.  Parameter INTERP controls interpolation within each shot/rp
while spatial interpolation is controled by fno/lno.

Consult the document segy.header for a partial list of header word
meanings and a list of header words used by SIOSEIS.  Various SIOSEIS
processes use the unassigned traces header words; process diskin
uses long words 46 and 49 to store the floating point values of the
deep water delay and the sample interval.

The order the HEADER parameters are done is: IHDR, LHDR, HDR, NX, CLEAN

Example 1:     Change the range (header word 10) on two shots:
using the SEG-Y variable name scheme:
     header FNO 796 LNO 796 header range 415 interp no  end
                FNO 797 LNO 797 header range 120 end
     end
or using the SEG-Y index approach:
     header FNO 796 LNO 796 lhdr 10 415 interp no  end
                FNO 797 LNO 797 lhdr 10 120 end
     end

Example 2:  show the effects of spatial variation:
     header
     lhdr 10 10 16 16 FNO 4 LNO 5 end
     lhdr 10 12 16 20 FNO 7 LNO 8 end
     end
With spatial variation (the preset);
     shots 1 - 5 32 bit header 10 = 10, and 16 = 16,
     shot 6 32 bit header word 10 = 11, and 16 = 18,
     shots 7 - end 32 bit header word 10 = 12, and 16 = 20.
Without spatial variation( interp no );
     shots 1 - 3, no change
     shots 4 - 5 32 bit header 10 = 10, and 16 = 16,
     shot 6 no change
     shots 7 - 8 32 bit header word 10 = 12, and 16 = 20.
     shots 9 - end no change

Example 1, suppose the rp number (32 bit word 6) for rp 1-10 should be 
changed to 1001-1010 and the year the data was recorded (16 bit word 79)
should be 1991.
     header 
          FNO   1 lhdr 6 1001 ihdr 79 1991 end
          FNO 10 lhdr 6 1010 ihdr 79 1991 end
     end
 

PARAMETER DICTIONARY
--------- ----------

BHDR   - Binary header modification.  Pairs of numbers, the first of
         the pair is the index of the SEGY binary header word to be
         replaced by the value of the second number.  There is no
         limit to the number of pairs given.
         Preset = none.  e.g. bhdr 5 3   indicates that word 5 will
         become 3.

CXX    - Comment card images to replace in the SEG-Y EBCDIC header.  XX
         is the 2 digit number of the card image to replace.   The
         comment itself must be enclosed in quotes and must be less than
         76 characters long.
         Preset = none   e.g. c09 'this comment replaces card image 9.'

CLEAN  - Sets the SEGY trace header and/or binary header to zero.
       =1, Cleans the unused (by sioseis) portion of the SEG-Y binary
           header.  See the document segy.header for the list of
           words used by sioseis.
       =2, Mildly cleans the unused (by sioseis) portion of each
           trace header.
       =3, Cleans the binary header and mildly cleans every trace
           header to zero (1+2 = 3)
       =4, Harshly cleans every trace header.  Only the shot number,
           shot trace number, sample interval and number of samples
           are spared.
       =5, Cleans the binary header and harshly cleans the trace
           headers (1+4 = 5).
         Preset = 0  e.g. clean 3

FNO    - The first shot/rp number defining a control point.  Shot/rp 
         numbers MUST be strictly monotonically increasing.  If all
         shots are to receive the same parameters, use:
         fno 0 lno 9999999
         Preset = 1

LNO    - The last shot/rp number defining a control point.  Shot/rp 
         numbers MUST be strictly monotonically increasing.  LNO is
         reset (default) to FNO on every fno/lno/end list.
         Default = FNO

NOINC  - The increment between FNO and LNO.  Only shots/rps which
         match  DO  fno, lno, noinc  are modified by process header.
         Preset = noinc ignored

FTR    - The first trace of FNO/LNO to modify.  Traces numbers smaller
         than FTR will not be modified.
         Preset = 1

LTR    - The last trace of FNO/LNO to modify.  Traces numbers larger 
         than LTR will not be modified.
         Preset = 9999987

TRINC  - The increment between FTR and LTR.  Only traces which
         match  DO  ftr, ltr, trinc  are modified by process header.
         Preset = trinc ignored

REV1   - The contents of the file specified will be "appended" to any
         existing SEG-Y Rev 1 Textual Extension Records.  Process
         HEADER inserts the contents before the "((EndText))" record,
         so it should not be included in the file.  The contents
         are written in sets of 40 ASCII lines.  HEADER will blank
         fill each line to be 80 characters and HEADER will write
         the required cr/lf in columns 79 & 80.
         If the specified file does not exist, HEADER will create
         a "(( SIOSEIS SEG-Y ))" along with the "((EndText))" stanza.
         Preset = none,    e.g.   rev1 junk

Trace Header Modification with Spatial Variation
------------------------------------------------
INTERP - A YES/NO switch to indicate spatial variation between control
         points.
       =YES, Spatial variation will be done.
       =NO, Spatial variation will NOT be done.
         Preset = YES, except with XN

HEADER - A list of header variable names and values.  The permissible 
         header variable names are:
       = SHOTNO,  The shot number is used. (third long integer)
       = SHOTTR,  The shot trace number is used. (fourth long integer)
       = RPNO,    The rp number is used. (sixth long integer)
       = RPTR,    The rp trace number is used. (seventh long integer)
       = RANGE,   The range or shot-receiver distance. (tenth long integer)
       = FOLD,    The CDP fold or CDP coverage.
       = DELAY,   The deep water delay time in seconds.
       = SI,      The sample interval in seconds.
       = WBT,     The water bottom time in seconds.
       = WBD,     The water bottom depth.
         Preset = none.   e.g. header delay 1.   # delay in seconds

IHDR   - A list of indices and values for the 16 bit integer SEG-Y trace
         header.  Up to 60 index-value pairs may be given.  Used with ITYPE.
         An index may be repeated, but only the last one will count.
         e.g. ihdr 15 1   sets the SEG-Y header word for trace id to 1
         Default = none

LHDR   - A list of indices and values for the 32 bit integer SEG-Y trace
         header.  Up to 60 index-value pairs may be given. Used with LTYPE.
         An index may be repeated, but only the last one will count.
         e.g.   ltype multiply lhdr 10 -1
         e.g.  lhdr 7 0 51 0    sets long integer words 7 and 51 to 0
         Default = none

HDR    - A list of indices and values for the floating point SEG-Y trace
         header.  Up to 60 index-value pairs may be given.  Used with TYPE.
         An index may be repeated, but only the last one will count.
         Default = none

ITYPE  - The type of 16 bit integer trace header modifications.
         Used with parameter IHDR.
       = REPLACE, The user given values replace the SEG-Y header values.
       = ADD, User given values are added to the SEG-Y header values.
       = MULTIPLY, User given values multiply the SEG-Y header values.
         Preset = replace      e.g.  itype multiply

LTYPE  - The type of 32 bit integer trace header modifications.
         Used with parameter LHDR.
       = REPLACE, The user given values replace the SEG-Y header values.
       = ADD, User given values are added to the SEG-Y header values.
       = MULTIPLY, User given values multiply the SEG-Y header values.
         Preset = replace      e.g.  ltype multiply

TYPE   - The type of floating point trace header modifications.
         Used with parameter HDR.
       = REPLACE, The user given values replace the SEG-Y header values.
       = ADD, User given values are added to the SEG-Y header values.
       = MULTIPLY, User given values multiply the SEG-Y header values.
         Preset = replace      e.g.  type multiply


Trace Header Modification by Equation, without spatial variation.
-----------------------------------------------------------------
XN  =  XN/C op XN/C, or
XN     XN/C op XN/C, where;
       X = I, means short integer (16 bit integer trace header)
         = L, means long integer (32 bit integer trace header)
         = R, means real word (host floating point)
       N = the index with the SEGY trace header.
       C = a constant. (Either XN or C may be given).
       OP is an operator of +, -, *, /, **

       A maximum of 10 XNs may be given in a parameter list.  HEADER
       does the operations in the same order in which they are given.

       Example 1: l1 0, means long integer word 1 is 0.
       Example 2: i59  i59 * 1000   Means multiply short word by 1000
       Example 3: r49  i48 / 100000.  means real word 49 = short
                                    integer word 48 divided by 100000.
       Example 4: save the shot and shottrace number in header 
       words 1 and 2.
             header
                   fno 0 lno 99999 ftr 1 ltr 9999
                   l1 = l3 l2 = l4   # same as l1 l3 l2 l4
             end
       Example 5: Do multiple operations on the same header word.
                   l19 = -1900 l21 = 2100 l57 = 1000
                   l19 = l19 * -2
                   L19 = L19 - L57
                   L21 = L21 + L57
                   l57 = 0
       results in word 19 conatins 2800,  word 21 contains 3100,
                  word 57 contains 0

       Default = none

SWAP XN - A list of up to 50 trace header entries to byte swap.  Byte
         swapping is done before any other HEADER operations.
       X = I, means 16 bit word (2 bytes).
         = L, means 32 bit word (4 bytes - long integer or real).
       N = the index with the SEGY trace header.
         Preset = none.    e.g.  swap i45 l19 l20

Copyright (C) The Regents of the University of California
Written by:  Paul Henkart, Scripps Institution of Oceanography
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
healy05.html0000644000076500001200000001771210466673536014004 0ustar  henkartadmin00000000000000
HOTRAX05 - Healy Oden Trans Arctic Expedition, 2005
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Cruise report entry
scripts
Knudsen cruise report entry
Plot of some Knudsen chirp data.
Plot of MCS shot 5000.
Plot of MCS shot 5000 with 6x250 filter.
Plot of spectrum of MCS shot 5000.
Plot of dimples (chirp).
Plot of dimples (mcs brute stack).
Plot of dimples (fkmigr brute stack).
Steps:
1) mount /Volumes/192.168.10.86/LINENO  # Bergen/Geometrics segy files
   mount /Volumes/192.168.10.86-1     # Bergen/Geometrics log files (all lines)
   cd /Users/seismic/Data/MCS/Raw/shots
   mkcpy-shots XX

   Creates   /Users/seismic/Data/MCS/Raw/shots/Healy05$LINE
   Reads the last SEGY file on /Volumes/192.168.10.86 
   Writes all shots to /Users/seismic/Data/MCS/Raw/shots/Healy05$LINE/$FILE
       (This is the Coakley/Hopper archival data, which is in
        IEEE whereas the Geometrics file is IBM)
   Writes "latest_shot" to /Users/seismic/Data/MCS/Raw/latest_shot.
   Tries to get the log file and chmod 444 the segy files.

2)  Make sure /Users/seismic/Data/MCS/Raw/shots/Healy05XX has a log
    file for each sgy file.  (Control-c in step 1 (mkcpy-shots) prevents
    the script from finishing and doing the log copy).  If the logs
    are not proper, get them!  e.g.
    cp -p /Volumes/192.168.10.86-1/HEALY05XX*.log
    chmod 444 *.log
  #  mkdir /Users/seismic/Data/Nav/Healy05XX
  #  cat H*.log > /Users/seismic/Data/Nav/Healy05XX/geometrics.log

    Run script   clean_logs   to remove all the '#BV' lines that
        are confusing sioseis.

    Get the first and last shots times from file geometrics.log

4)  Get the Seabeam or Knudsen file as:
    If the ship's data disk needs to be mounted, mount it as:
          mkdir /Volumes/Raw-data
          mount 192.168.10.17:/Data /Volumes/Raw-data
    SeaBeam
       cd /Users/seismic/Data/Seabeam
       ls -lt /Volumes/Raw-data/Datalog/seabeam_centerbeam | head
       cp the appropriate seabeam file,   e.g.
           cp -p /Volumes/Raw-data/Datalog/seabeam_centerbeam/Seabeam-Centerbeam_20050902-000004.RAW .
       cat the appropriate file to   > lineXX.raw
       or    ln -s  Seabeam-Centerbeam_20050820-000003.RAW lineXX.raw
    Knudsen
       cd /Users/seismic/Data/Knudsen-depth
       ls -lt /Volumes/Raw-data/Datalog/knudsen | head
       cp the appropriate Knudsen file,   e.g.
          cp -p /Volumes/Raw-data/Datalog/knudsen/Knudsen_20050913-000004.RAW .
          ln -s /Users/seismic/Data/Knudsen-depth/Knudsen_20050913-000004.RAW line46.raw


5)  cd /Users/seismic/Data/MCS/Processed/Shots+nav
    mkshnav.sio XX > lineXX.stdout
       (This writes file Healy05$LINENO.segy which has the UDP
        long/lat and the Seabeam center depth in the SEG-Y trace
        header).

6)  cd /Users/seismic/Data/MCS/Processed/Shots+FK



The Bergen PCs were put on NTP during week 1, so the SEG-Y shot time is
the best time of the trigger (presumably the trigger is on one of these PCs).

The posmv navigation were transmitted from computer Healy-mx via "udp".
The Posmv is ~38m from the fantail (Consolidated survey: Posmv=-49.57,
aft fantail survey = -86.74, eyeball survey pt to end of fantail = -.8m)
Eyeball fantail to guns = 5m.  guns to trace 1 = 90m.
Therefore, distance from nav to first bin center = 38+5+45 = 88m

The seismic shot number (trigger counter) and the navigation were added
to the Geometrics log for each shot, along with the normal Geometrics
information. E.G. 
51920,084423.968,8018.32612,N,17425.62968,W,1,09 - Received at 08:45:25.57 for File 33262
 FFID   33262 (Stack  1, Shot Loc: 0 Meters) 08:45:25.47 08/22/2005 1546 KBytes SAVED IN 33262.SGY
51921,084443.967,8018.34381,N,17425.70720,W,1,09 - Received at 08:45:45.59 for File 33263
 FFID   33263 (Stack  1, Shot Loc: 0 Meters) 08:45:45.49 08/22/2005 1542 KBytes SAVED IN 33262.SGY

51920 is the shot number.
084423.968 is the fix time. 08 hours, 44 minutes, 23.968 seconds.
FFID is the count of the files written by the Geometrics

lsd of raw shot says:
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
     33262     1       0     0  1      0     0  16000  1000    5 234  8  45  25
     33263     1       0     0  1      0     0  16000  1000    5 234  8  45  45

lsd after healy nav:
      SHOT   TR       RP    TR ID  RANGE DELAY NSAMPS    SI   YR DAY HR MIN SEC
     51920     1    8300     0  1    -90     0  16000  1000    5 234  8  45  25
     51921     1    8307     0  1    -90     0  16000  1000    5 234  8  45  45




NOISE:
0)  Low frequency (10Hz.) streamer noise due to heave or ship surges.
    Notice how successive streamer sections (8 traces) have reduced
    noise between traces 8/8 and 16/17.
    FK filter is very effective at reducing them.
1)  "Spikes".  Largish amplidutes (3x normal trace a few sec after
    water bottom).
    FK Filter sweeps or bleeds them into adjacent traces.  
    Hand editing.  FK bleeding problem?
2)  Traces and shots without seismic signals.  
    Short/long window based around the Seabeam water depth, with a ratio
    of .5, kills them.
3)  Traces go noisy after the water bottom.


SIOSEIS modifications for Healy05:
1)  REALTIME flag set in the PROCS list by the user.
2)  DISKIN looks at REALTIME flag and save the disk address of each
    trace read.  When end-of-file is detected, the segy file is closed
    and sioseis sleeps for a few seconds and the the file is reopened
    and positioned to the save disk address and the trace read is 
    tried again.  The program decides shooting ahs stopped after no
    shots are read after 120 seconds.  The file must be closed and
    reopened so that the OS resets the inode information for the file.
3)  GEOM module HEALY05 was added to read the Geometrics Log file with
    Bergen/LDEO nav and centerbeam info added.  The Geometrics log 
    file contains other stuff.  It may also miss shots, especially at
    the start or end of line.  The centerbeam is in a different file.
    The water depth from the first Seabeam entry for the same minute
    is used.  The Seabeam depth may be missing so the last good one
    is used (might be hours old!).  The Geometrics FFID is put into
    SEGY word 5 (energy source number) and the Bergen trigger counter
    is used as the shot number and put into SEGY word 3.
    The nav and water depth are put into the SEGY trace header as 
    per SEG standards.
4)  GEOM type 9 (realtime dfls (distance from last shot) ) was wrong
    on the shot after a missing shot.  (BUG).
5)  The maximum number of semblance velocities in VELAN was increased.
6)  PLOT rejected shots numbered 0 (a Knudsen quirk).
7)  Parameter ENDMUTE was added to despike/tredit to partially kill
    bad traces.
8)  Stack was "rewritten" to not count samples with zeroes.  (New 
    parameter NEW).
9)  SIOPLT doesn't work on 24bit displays (1,66.,... colors).  Works
    on 8 bit displays (256 colors) only.
10) Allow 32K ffts for large Knudsen files
11) Modify Healy05 to use Knudsen depth files because SeaBeam died.

    
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

healy06.html0000644000076500001200000001660210513250177013763 0ustar  henkartadmin00000000000000
Healy 06 Knudsen chirp processing
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Healy 06 Knudsen chirp processing
    

         Refer to the 2005 example (document) also.
	Break the Knudsen chirp processing into two steps because
SIOSEIS process GAINS needs to be used twice.
     Script to make envelopes.
     Script to make a sioseis plot from envelopes.

    
Plot - procs diskin prout geom stack wbt avenor filter mix gains plot end
Plot - procs diskin prout geom stack wbt avenor mix gains plot end
Plot - procs diskin prout geom stack wbt avenor filter gains plot end
Plot - procs diskin prout geom stack wbt filter mix agc plot end
Plot - procs diskin prout geom stack wbt agc filter mix plot end
Plot - procs diskin prout geom stack wbt agc filter plot end
Swath map

    
     Comments on Script 1:
1)  Process header is used to save the number of samples in trace in a different
    word in the SEG-Y trace header because the FFTs in T2F will expand the trace
    to the next larger power of two.  Sort integer word 58 contains the number of
    samples, so i120 = i58 means save the contents of header word 58 in word 120.
    e.g.  If there are 11111 samples, the next larger power of two is 16384.  
    Without using the header scheme, the output would be 16384 samples.
2)  t2f creates the analytic signal and then gains does the complex modulus to
    create the envelope.
3)  The SEG-Y standard uses a 16bit integer for the number of samples.  SIOSEIS
    uses a 16 bit unsigned integer under the rationalization that the number of
    samples can not be negative.  t2f creates complex numbers, so it creates twice
    the number of samples.  The Knudsen often creates traces with 22222 sample,
    which means the fft makes it 32768 complex samples or 65536 words, which sioseis
    can deal with.

     Comments on Script 2:
1)  Process GEOM type 17 computes the distance along the ship track line of every
    trace.  DBRPS 3 uses a 3m bin spacing so that traces within 3 meters will be
    flagged as being in the same position.o that process stack can sum them.
    Process GEOM also sets the distance from the first trace of the job into the
    SEG-Y header "range" location.
2)  There are two distinct processing sequences described.  The first set 
    assumes the water bottom depth picked by Knudsen is valid most of the time.
    Process wbt converts depth to time and save the time in SEG-Y header word 
    50, which other processes such as gains recognizes.  When a zero depth is
    encountered, which Knudsen uses to indicate no pick, WBT uses the last good
    depth.
          The second set of examples does not require water depths.
3)  Both sets of examples use some type of trace equalization.  Trace
    equalization is needed becuase the trace to trace amplitudes vary when
    the Knudsen pulse length changes or when the transducer transmit or 
    receive power is changed.  The avenor method equalizes the traces based
    on the average amplitude within .1 seconds of the Knudsen picked water
    bottom.  The other method uses AGC which equalizes in time and space.
4)  The plots don't show much difference with a two trace running mix, but
    remember that random noise is cancelled by the square root of the number
    of things added.  SQRT(2) helps and a two trace mix is fine with deep dip.
5)  The gain used in process gains is e**(5*t), hung from the water bottom
    (t0 = water bottom).

    

    Comments about plotting by range
    
    The Knudsen does not "fire by distance", rather it's ping rate is determined
by the water depth.  They don't want multiple pings in the water simultaneously,
so the ping rate is high in shallow water and low in deep water.
    Another source of ship speed variation is the varying ice conditions.

    The Knudsen SEG-Y files contain a ship position, but which navigation system
is used is not known.  It is also unknown how ping rates greater than 1 per
second obtain GPS fixes.  Some fixes (lat/long) are the same as adjacent ones
even though the ship has moved (some GPS units do not report fixes more
frequently than 1 per second).

    

    Determining the processing sequence
    
Plot of raw data, without ANY processing (every ping, no amplitude adjustments).
List of fixes for pings 29001-29050.
Plot AGC, winlen .025 center .001
Plot AVENOR (trace equalization based on water bottom)
Plot procs diskin prout wbt avenor filter(2x500) plot end
Plot procs diskin prout wbt avenor filter gains ( subwb yes type 5 alpha 20) plot end
Plot procs diskin prout wbt avenor filter mix (1 1) gains plot end

    
Plot procs diskin prout geom wbt avenor filter mix gains plot (hscale 300) end
     hscale 300 was chosen because the plot resolution is 300 dots per inch,
thus the distance between the tyraces on the plot will be 1 meter.  The
spaces in the plot are because the distance between traces is greater
than 1 (see the above list).  e.g. if the distance between traces is 1.1
meters, then there are only 9 traces for every 10 lines on the plot.

    
Plot procs diskin prout geom stack (1m bin) wbt avenor filter mix gains plot
    "Sorting" or binning the data into 1m bins (binning is a  multi-channel
seismic technique) and then stacking results in many more gaps in the plot.
Some bins have multiple traces that are summed and some bins are empty,
again, because the average distance between pings is 1.1m

    
Plot procs diskin prout geom stack (3m bin) wbt avenor filter mix gains (alpha 5) plot (hscale 900)
    Three meter stack bins with plot spacing of 900m/inch still results
in some spaces.

    
Plot procs diskin prout geom stack wbt avenor filter mix gains plot end

    Conclusion
    
    Three meter stack bins without plotting by range is the best for HLY0602
when the ship is plodding along at 2-3 kts. in water depths < 1500m and
the Knudsen with a 12ms pulse (think rep rate).
    Using this geom/stack method eliminates the display problems when the
ship is stopped (for coring) or backing-and-ramming.

    

    
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
healy06k1.html0000644000076500001200000000313711027016400014204 0ustar  henkartadmin00000000000000
Step 1 - Script to make envelopes from Knudsen correlates
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.

    Go to SIOSEIS introduction.
        
Back to Healy06

    

    Script to make envelopes from Knudsen correlates
    

    #!/bin/csh -f
if( $#argv != 1 ) then
    echo "Usage: mkenv filename)"
    exit 1
endif
set FILE = $1
sioseis << eof
procs diskin header t2f f2t gains header2 prout diskoa end
diskin
  ipath $FILE end
end
header
    i120 = i58    ! save the original trace length
    fno 0 lno 9999999 ftr 0 ltr 999 end
end
header2
    i58 = i120    ! restore the original trace length
    fno 0 lno 9999999 ftr 0 ltr 999 end
end
prout
  info 1      ! print plotting info
   fno 0 lno 999999 noinc 500 end    ! print every 500th trace
end
gains
   type 7 end  ! complex modulus - make envelope from analytic
end
t2f
   end     ! number of sample is the next power of two larger than the input
end
f2t
   type analytic end   ! create the complex trace
end
diskoa
   opath env-$FILE  end
end
end
eof

    
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Back to Healy06
healy06k2.html0000644000076500001200000000306010516011607014206 0ustar  henkartadmin00000000000000
Step 2 - Script to make a plot from Knudsen envelpes
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.

    Go to SIOSEIS introduction.
        
Back to Healy06


    

    Script to make a plot from Knudsen envelopes
    

    #!/bin/csh -f
rm sunfil.ras
sioseis << eof
procs diskin prout geom stack wbt avenor filter mix gains plot end
diskin
   fgmt 0300 lgmt 320
    ipath env-2006_226_0158_LF_028.sgy
   end
end
geom
   type 17 dbrps 3 end
end
gains
    subwb yes type 5 alpha 5 end
end
avenor
   sets 0 .1 addwb yes end
end
wbt
   vel 1475 end
end
mix
   weight 1  1 end
end
filter
    ftype 0 pass 2 500 dbdrop 48 end
end
prout
    fno 0 lno 9999999 noinc 100 end
end
plot
   stime 1 dir ltr nsecs .2 dptr 1 tlines .05 .1 
    colors gray opath siofil wiggle 0  ann gmtint anninc 5 ann2 range
    trpin 300 def .01 tlines .05 nibs 2859  vscale 5 end
end
end
eof
sio2sun siofil sunfil.ras
#convert -rotate 90 sunfil.ras $FILE.png
display -rotate 90 sunfil.ras &


    
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
        
Back to Healy06

healy07.html0000644000076500001200000000153110672100535013755 0ustar  henkartadmin00000000000000
Healy 07 Knudsen chirp processing
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    Healy 07 Knudsen chirp processing
    

    


    

    

    

    

    

    
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
hidden.params.html0000755000076500001200000000752411160474537015245 0ustar  henkartadmin00000000000000hidden.params
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

    "Hidden" parameters:
DEBUG     ECHO      LPRINT    NOECHO    OVERRIDE  REALTIME

**************************************************************************

OVERRIDE - Overrides severe warnings.  A SEVERE WARNING is a SIOSEIS
           ERROR that can be overriden (ignored) by using OVERRIDE.
           E.G.    override procs diskin agc plot end

**************************************************************************

LPRINT - Nearly every process will print out programmer information in
         both the edit and execute phase.  Some processes will print
         information useful to the user though.  The value associated
         with lprint indicates the type of information to be printed.  
         The value is a bit switch where bit 1 (2**0) indicates that the
         edit parameters are to be printed.  Bit 2 (2**1) indicates that
         the execution module will print some information.

Example:
SIOSEIS << eof
procs diskin prout end 
diskin 
lprint 3 
ipath data end 

data                                                                                               
3  0  0  1  -12345  0  0  366  0  2500  1  0  60  0  0
0.  0  0.  1  -1.000000  0  0  1  1  0.  0.  0  1  0.  0  0  0  0.
Version    2.100000
end 
prout 
     FNO 1 LNO 999 ftr 1 ltr 999 end 
end 
end 
****    0 ERRORS IN THIS JOB   ****
data                                                                                               
1  0  60  0  0  0.  0
0.  1  -1.000000  0  0  1  0.  0.
0  1  0.  0  0  0  0.
binary hdr sort=  1
shot  1   trace   1   rp   0   trace   0
no=  1   itrno=  1   fno=  0   lno=  0   ftr=  -12345   ltr=  0   nextno=  0
nexttr=  -12345   iptype=  1   idtype=  1   jsort=  0
SHOT     1 TRACE     1 RP     0 TRACE     0
shot  2   trace   1   rp   0   trace   0
no=  2   itrno=  1   fno=  0   lno=  0   ftr=  -12345   ltr=  0   nextno=  0
nexttr=  -12345   iptype=  1   idtype=  1   jsort=  0
SHOT     2 TRACE     1 RP     0 TRACE     0
END OF SIOSEIS RUN

**************************************************************************

PROCESS DEBUG

If the word "debug" (without the quotes) is placed in or before the 
procs list, SIOSEIS will print the name of the process prior to executing
each process.  This diagnostic tool is especially useful if SIOSEIS bombs
and you have no idea of where it bombs. For example:

SIOSEIS << eof
     debug procs syn diskoa end 
about to enter edit of   PROCS 
  syn 
   about to enter edit of   SYN   
     ntrcs 1 FNO 1 LNO 2 secs 1 values 1.1 2.2 3.3 4.4 -5.5 end 
  end 
  diskoa 
   about to enter edit of   DISKOA
      opath data  end 
  end 
  end 
 ****    0 ERRORS IN THIS JOB   ****
   ABOUT TO ENTER   SYN   
   ABOUT TO ENTER   DISKOA
   ABOUT TO ENTER   SYN   
   ABOUT TO ENTER   DISKOA
   END OF SIOSEIS RUN

**************************************************************************

NOECHO, ECHO

SIOSEIS release 1991.0 will contain a mechanism for selectively turning
off and on the output printing.  Sometimes a process' parameter list is
very long and clutters up the output print file.  Placing NOECHO prior 
to the process' parameters will stop the echoing of the parameters.  
Placing ECHO after the END terminating the process'parameters turns the
printing on.

**************************************************************************

REALTIME

Process REALTIME is designed to work with process DISKIN for reading
SEG-Y files as the data are acquired.  REALTIME signals DISKIN to check
for an increased file size.  If the file remains the same size for 60 seconds,
DISKIN stops in an orderly manner. 

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
history.html0000655000076500001200000000424306356044004014214 0ustar  henkartadmin00000000000000process HISTORY
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                  PROCESS HISTORY
                              ------- -------

Document Date: 28 May 1997

Process HISTORY keeps a running history or log of the SIOSEIS
processing steps.  The log is an ASCII file that may be edited
with a text editor.  The log file is appended each time it is opened
so the log can contain information about multiple SIOSEIS runs.

Two lines are always appended to the file stating the start
time of the job and the list of processes.  A terminating line is 
also written when the job completes normally.  e.g.
Job      1 started on Thu Feb 13 11:41:57 1997, SIOSEIS ver 97.2 (13 Feb. 1997)
PROCS SYN HISTORY PROUT
Job      1 finished on Thu Feb 13 11:41:57 1997

HISTORY may be placed anywhere in the PROCS list, but will
operate only on the first and last trace of the job.

The history file may be plotted prior to plots on the HP DesignJet
plotters by using paramter SLPATH (side label) in program SIO2HP.

THE PARAMETER DICTIONARY
--- --------- ----------

HPATH  - The filename of the HISTORY file.
         REQUIRED.      e.g.  hpath ew9607.line1.hist

ALL    - When set to YES, all user given parameters are
         logged.  The entire SIOSEIS parameter script is
         copied to the history file.
         Preset = NO       e.g.  all yes

A      - Append mode.  A method of entering any text into the log
         file.  This is similar to the append mode of many text
         editors.  The append mode is terminated by a placing
         a period or dot in the first character of a line, as
         in the "ed" editor,e.g.
         A
         This line is inserted into the log file.
         Remember to terminate with a period in column 1.
         .

END    - Terminates each parameter list.


Written and copyrighted (c) by:
Paul Henkart, Scripps Institution of Oceanography, February 1997
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
hly0503.html0000644000076500001200000000373110452250556013621 0ustar  henkartadmin00000000000000
HOTRAX05 aka HLY0503 seismic noise

    

    Henkart's 20006 analysis of MCS noise sources.
There were many sources of noise on the MCS data:

1)  Bad channels.  Seen on plots as the same channel being noisy.
Sometimes the channels is always bad, as when the hydrophone is no
connected.  Sometimes the same channel is "flakey" as when the
connector is beginning to fail.

2)  Several adjacent channels have a noise burst, most likely 
caused by the streamer hitting some ice.

3)  Random spikes.  No pattern to trace number or time.  These are
what I claim are caused by some electrical interference from the ship.
Line 21, trace 1  plot.  trace 5 plot.
Markw@utig says:  "I've seen clicks from broken wires or from bad connectors, and
often they look very like an impulse response. If it were
ship electrical noise, unless you had an imbalance in a channel
because of broken wires or bad connections, and so had poor
common mode rejection, I'd sort of expect electrical spikes
to be on all channels about equally, or at least mostly
the same bad channels."

Plot of filtered shots 43795 to 43799.
Plot of filtered shots 43911 to 43915.
Plot of filtered shots 43972 to 43977.

Plot of unfiltered shots 43911 to 43915.
Plot of unfiltered shots 43972 to 43977.

Note that the unfiltered shots are filtered, presumably by the Geode's
anti-alias filter, which tells me the spike was introduced before the
Geode.

While it's possible the Geode wasn't grounded properly, the more likely
source was the streamer lead and connector, which were inside the 
lower lab.  Picture when I find it.

    
hly0703-1.html0000755000076500001200000000136410672054674013773 0ustar  henkartadmin00000000000000

    rm sunfil.ras siofil
/Users/henkart/src/sioseis/sioseis << eof
#procs diskin header t2f f2t gains header2 filter wbt gains2 plot prout end
#procs diskin filter wbt gains2 plot prout end
procs diskin gains filter plot end
diskin
   ipath 200708190830.sgy end
end
gains
   type 4 alpha .6 end
end
wbt
   vel 1500 end
end
filter
   ftype 0 pass 2 500 dbdrop 48 end
end
gains2
   subwb yes type 5 alpha 10 end
end
plot
#  scalar 2.E-05
   stime 2.8 nsecs .2 dptr 1 tlines .05 .1 .5
    colors gray opath siofil wiggle 0  ann gmtint anninc 5
    trpin 300 def .01 nibs 2859  vscale 5 end
end
prout
    fno 0 lno 9999999 noinc 50 end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 90 sunfil.ras &
convert -rotate 90 sunfil.ras fil.png

    
hotrax05.html0000644000076500001200000001520210545271665014172 0ustar  henkartadmin00000000000000

HOTRAX05: Healy-Oden Trans-Arctic Expedition
Back to SIOSEIS Examples.
        
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.


    
	HOTRAX05- The 2005 Healy-Oden Trans-Arctic Expedition was the second U.S. surface ship to cross the Arctic Ocean.  The U.S. Coast Guard Icebreaker Healy left Dutch Harbor, Alaska, on August 5, 2005, conducted various geophysical experiments and reach the North Pole on September 12.  After the Pole, it took more than a week to get through 200 miles of heavy ice pack, reaching Tromso, Norway on September 30, 2005.


    
	Paul Henkart is a Geophysical Analyst (computer programmer) at Scripps Institution of Oceanography in La Jolla, CA.  He spent 12 years in oil exploration with Texaco in Houston and Calgary before joining Scripps in 1978.  He's not a desk-bound programmer but has spent a couple of years on ships collecting seismic data.


    

    Paul at "Ice Liberty"
    
  

    The slide show:
    

    2005 Healy-Oden Trans-Arctic Expedition
    


      Healy's ship track
    


    Bald eagles are protected.
    


    Healy and Oden track
    


    USCG Cutter Healy.  Note Aloft con, living quarters above waterline, flag on bow
    


    Healy characteristics
    


    Swedish icebreak Oden
    


    Swedish icebreak Oden - note square bow and water jets
    





    Wandering lead
    


    Grease ice
    


    Ice flowers
    


    Pancake ice
    


    Shifting ice
    


    USCG helo
    


    Swedish helo "Hotel India"
    


    Ship track from helo
    


    Ice Liberty
    


    Blue ice pond
    


    Polar bear guard
    


    Looking down while breaking ice
    


    Multibeam echosounder
    


    Sub-bottom profiler
    


    Eos figure
    


    Multi-Channel Seismics
    


    Comparison of SBP and MCS over gas seeps
    


    Airgun bubble
    


    Yngve's tube
    


    Yngve's depressor
    


    Watching for ice under the guns
    


    Bears between ships
    


    Streamer on ice
    


    Stuck streamer
    


    Multi-core
    


    Sliced core
    


    Sonobuoy - 1
    


    Sonobuoy - 1
    


    Sonobuoy - 3
    


    Ice drill
    


    Lonely polar bear guard
    


    Another ice drill
    


    Ice party with EM
    


    Dirty ice
    


    SIO CTD from Oden
    


    Bird experiment
    


    Craned home
    


    Japanese permanent ice station
    


    North Pole documentation (4224m depth, -5.2C, 23Kt wind)
    


    North Pole liberty
    


    Snowboarding at North Pole
    


    Soccer at North Pole
    


    Japenese EM
    


    North Pole mailbox
    


    Santa
    


    North Pole brew
    


    North Pole golf
    


    North Pole biking
    


    North Pole runner
    


    Crossings
    


    Arctic Circle, International Dateline, North Pole ceremony
    


    Back and ram
    


    Ice ridge
    


    Sun dog
    


    Water sky
    


    Operating table in mess
    


    Hello bear
    


    Bye bye bear
    


    Yum
    


    Bloody ice
    


    What's happening to the ice 
    


    Why it's important 
    


    How to split it up
    


    Multi-year ice
    


    Ice thickness 
    


    Mapserver
    


index.html0000644000076500001200000001017511167162127013624 0ustar  henkartadmin00000000000000


Seismic processing system SIOSEIS






23 February 2009
    
SIOSEIS is a software package for enhancing and manipulating marine
seismic reflection and refraction data, sponsored by the National Science
Foundation (NSF) and the Scripps Industrial Associates.
The system currently runs on Mac OSX (PowerPC and Intel), PC (Linux and
CYGWIN) and SUN computers.
E-mail phenkart@ucsd.edu for inquires.

    
Suggested order of the documentation.

      

    1. sioseis        -    The introduction.

    2. flow           -    The way data flows through the system.

    3. syntax         -    The description of the user parameter language.

    4. Definitions -    Definition of some terms used in SIOSEIS processing.

    5. spatial variation - A unique way of varying parameter values.

    6. procs          -    Describes the order of processes and is the main level for retrieving the documentation for each process.

    

    
There are some "appendices" such as:

    

    OTHER SEISMIC RELATED THINGS:
    

  • HOTRAX - Healy-Oden Trans-Arctic Expedition

  • SIO seismic reflection archive

  • October 2006 Sea Technology article pg1 pg2 pg3 - "Chirp Sub-Bottom Profiler Processing - A Review"

  • jsf2segy - Tom O'Brien's programs for Edgetech jsf 512i files.

  • xloadimage        - Displays Sun rasterfiles on screen.

  • sio2hp         - Convert SIOSEIS rasterfiles to HP RTL files for HP DesignJet plotters.

  • sioplt         - Previews and picks SIOSEIS raster files using X11.

  • sio2sun        - Convert SIOSEIS rasterfiles to Sun rasterfiles.

  • lsd            - List an SEG-Y disk file.

  • lsh            - Create an index entry of a SEG-Y disk file.

  • lsgeom      - List the shot number, lat/long, and time in SEG-Y traces.

  • lst            - List an SEG-Y tape.

  • segy2disk           - Read a SEG-Y tape to disk. (Sun only)

  • segd2disk           - Read a SEG-D tape to disk. (Sun only)

  • suntops        - Convert Sun rasterfiles to PostScript.

  • overlay            - Overlay a SIOSEIS plot file.

  • atlantek, plot2, vplot Send an SIOSEIS rasterfile to a raster plotter.

  • vtplot         - Convert and plot velocity profile.

  • distance - Compute the distance between two points.

  • dutil - A useful program for snooping around disk files.

  • sutil - Dan Lizarralde's useful program for snooping around SEG-Y files.

  • tutil - A useful program for snooping around tapes.

input.MicroMAX.html0000755000076500001200000000226406311363270015272 0ustar  henkartadmin00000000000000input.MicroMAX
Go to the list of seismic processes.
Go to SIOSEIS introduction.

    National Taiwan University uses MicroMAX to demultiplex data into
SEG-Y IBM floating point onto 3480 tapes.  SIOSEIS had some trouble
with the data because SIOSEIS thinks the data is sorted by rp because
the rp trace number is 1.  The rp number is 0.  Process input read 
the data, but process diskoa ignored it because the rp number is 0!

One solution was:
sioseis << eof
procs input diskoa prout end
input
  iunit 9 end
end
diskoa
   fno 0 lno 99999
   ofmt 1    ! write in IBM floating point
   opath output.dat end
end
prout
   fno 0 lno 9999 ftr 0 ltr 999 end
end
end
eof


However that left the data on disk sorted by rp still.  To get rid of
the rp trace number I used process header such as:
sioseis << eof
procs input header diskoa prout end
input
  iunit 9 end
end
header    ! set the rp trace number to 0 (sioseis key for sorted by cdp)
    header rptr 0 fno 0 lno 99999999 ftr 0 ltr 99999 end
end
diskoa
   ofmt 1    ! write in IBM floating point
   opath output.dat end
end
prout
   fno 0 lno 9999 ftr 0 ltr 999 end
end
end
eof

    
input.forum.html0000755000076500001200000000301706133265502015001 0ustar  henkartadmin00000000000000INPUT FORUM

    
Note 1

LDGO cdp sorted tapes (gathers) have the rp trace numbers decreasing. 
e.g.  rp 1 tr 21, rp 1 tr 20, rp 1 tr 19
While this is valid within the SEG-Y standard, process input within SIOSEIS 
assumes that trace numbers monotonically increase within each shot/rp.  
PROCESS INPUT parameter ftr 99999 eliminates the assumption of monotonically
increasing trace numbers and reads every trace regardless of number or order.

An additional complication is that each rp might contain a different number of
traces.  Many SIOSEIS processes, input and stack for instance, need to know 
when the last trace of the rp occurs.  SIOSEIS normally flags the last trace
of an rp with a -1 in the SEG-Y header.  SIOSEIS is a "trace processor", which
means that a single trace is read and is passed to the next process BEFORE 
reading the next trace.  Reading the next trace before passing the previous 
trace allows process input to examine the rp number and set the header flag
if the two rp numbers are different.  FORGAT 1 reads the next trace before 
passing!  The disadvantage of this is that SIOSEIS on some computers (VMS and
Prime) used an I/O technique called "double buffering" or "overlapped I/O" 
when reading tape.  This technique allows the tape I/O to be done while the 
cpu works on the previous trace.  FORGAT 1 will seriously degrade the elapsed
time of the job because the next trace has to be completely read before 
previous trace can be sent on.

To read LDGO cdp sorted tapes use FORGAT 1 FTR 99999

    
input.html0000644000076500001200000004666610452776523013701 0ustar  henkartadmin00000000000000input
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                        PROCESS INPUT (READS MAGNETIC TAPE)

Document Date: July 2002

Process INPUT reads seismic data from magnetic tape.  The data must be 
in SEG-Y format.  INPUT is trace oriented rather than shot or rp 
oriented.  Process INPUT reads a single trace from tape and immediately
passes it on to the next process in the PROCS list.

The data may be read from tapes using one of three different controls.
Field tapes may be controlled by either shot numbers or GMT time.  Tapes
that have been processed through process GATHER must be controlled by rp
numbers.  Stacked tapes may be read using either rp numbers or by GMT
time.

Input tape changes are handled by process INPUT through operator 
intervention when either end of tape is reached (a file mark) or when
the user specifies a new tape number via the IREELN parameter.  Operator
tape changes are accomplished by passing the new tape unit number to
SIOSEIS via  file "in" when the new tape is mounted and ready.  The file
"in" must be in the same directory that the SIOSEIS job is running.
A -1 unit number terminates the job.  The file may be created using the
editor.

The tape change file "in" is deleted during the edit phase of sioseis.
When the end-of-tape is deteceted, process input waits in a loop until
file "in" exists and then reads it to determine which tape unit the
next read is to be done on.  File "in" is immediately deleted so that
a new file "in" must be created for every tape change.

SIOSEIS allows the user to "break" the SEG-Y standard by putting more
than one file on a single tape.  In order to read multiple files on a
tape, INPUT parameter NFILES should be used.  Each file should contain
both SEG-Y headers (see document segy.header).

SIOSEIS assumes that shot numbers increase on the tape unless parameter
ORDER is used.  If the shot numbers do not increase, or if the shots are
not to be processed in the order they are on tape, multiple parameter
list may be used.  For example if the shots on tape are ordered 10001 to
11000 followed by shots 500 to 600, use either fis 99999 or use two lists
e.g.     fis 10001 lis 11000 end
         fis 500 lis 600 end

THE PARAMETER DICTIONARY
--- --------- ----------

Required Parameters
-------- ----------

DEVICE - The UNIX device name to use rather than /dev/nrst.  IUNIT is
         ignored when DEVICE is given, but may be specified by the
         user.  USE A NO-REWIND DEVICE so that Unix does not rewind
         the tape when an end-of-tape is encountered.  USE A BSD DEVICE
         because SIOSEIS expects to read past end-of-files.  Any valid
         positive unit number may be used in file IN for tape changes.
         e.g.  Solaris 5.8 says:
         /dev/rmt/[][]
         Where density can be  l,  m,  h,  u/c  (low,  medium,  high,
         ultra/compressed, respectively), the BSD behavior  option is
         b, and the no rewind  option is n.
         Preset = none  e.g.  device  /dev/rmt/0cbn

IUNIT  - Obsolete, but still functional.  Parameter DEVICE is preferred.
IUNIT  - The tape unit number of the first input tape.  Tape units may 
         be changed by changing IUNIT in a new FNO/LNO list or by the 
         use of file "in" as discussed above.  The default on various
         Unix machines is:
         Sun:      /dev/nrstIUNIT
         SGI:      /dev/mt/tps0dIUNITnrns
         HP:       /dev/rmt/IUNITmbn
         Linux:    /dev/nstIUNIT       (nfiles > 1 will not work)
         Preset 0. e.g. IUNIT 1
         On R/V Ewing in May 2001 on grampus:
         DLT was /dev/rmt/0 and /dev/nrst29 -> rmt/0cbn
         DDS-3 was /dev/rmt/1 and /dev/nrst43 -> rmt/1cbn
         3490 was /dev/rmt/2 and /dev/nrst35 -> rmt/2cbn

Parameters for processing by shot
---------- --- ---------- -- ----
FIS    - The first input shot number of a set of shots (of a fis-lis-end
         LIST). A negative FIS means that the first shot of the set is 
         in a reverse or backwards direction on tape from the previous
         shot input.  The shots will be read from tape in the order
         specified by: FIS to LIS in increments of SINC.  e.g.  
         fis 1 lis 5 means that the shots must be ordered 1, 2, 3, 4, 5
         on tape.  If a shot within FIS - LIS is missing, the program 
         will continue to search for the missing shot and will stop at
         the end of tape without finding the shot.  A  fis of 99999 will
         cause the program to read all shots on the input tape regard-
         less of shot number (the shot numbers do not have to be con-
         secutive).  Use of fis 99999 causes lis to be ignored, thus the
         only way the job can be stopped is at the tape change when the
         operator responds with a -1 unit number.  FIS 99999 still 
         assumes that all the traces are as described in FTR/LTR.
         Preset = first on tape.  e.g. fis 41

LIS    - The last input shot number of a set of shots (of a list).
         Preset = 32767.  e.g. lis 201

NIS    - The number of input shots to read when fis = 99999.
         Preset = 32767  e.g. nis 5

SINC   - The shot increment between the first shot (iabs(fis)) and the
         last shot (lis) of a list.  Alternate shots may be processed by
         using  sinc 2.  A negative sinc must be used if shot lis is
         before shot fis on tape.
         Preset = 1.  e.g. sinc 2

FTR    - The first trace of each shot to process.  A trace with a trace
         number on tape less than ftr will be ignored.  An FTR of 99999
         indicates  that all traces will be read regardless of trace
         number or trace order.
         Preset = 1.  e.g. ftr 23

LTR    - The last trace of each shot to process.  A trace with a trace
         number on tape larger than LTR will be ignored.
         Preset = tape header.  e.g. ltr 23

TRINC  - The increment between traces FTR and LTR.  Alternate traces may
         be processed by using trinc 2.
         Preset = 1.  e.g. trinc 24

Parameters for Processing by RP (cdp gathers)
---------- --- ---------- -- --  -----------
FRP    - The first input rp number of a set of rps (of a frp-lrp-end 
         list).   A negative frp means that the first rp of the set is
         in a reverse  or backwards direction on tape from the previous
         rp input.
         Preset = first on tape.  e.g. frp 41

LRP    - The last input rp number of a set of rps (of a list).
         Preset = 32767.  e.g. lrp 201

RPINC  - The rp increment between the first rp (iabs(frp)) and the last
         rp (lrp) of a list.  Alternate rps may be processed by using 
         rpinc 2.  A negative rpinc must be used if rp lrp is in front
         of rp frp.
         Preset = 1.  e.g. rpinc 2

FTR    - The first trace of each rp to process.  A trace with a trace
         number  on tape less than ftr will be ignored.  An ftr of 99999
         indicates that all traces will be read regardless of trace
         number or trace order.
         Preset = 1.    e.g. ftr 23

LTR    - The last trace of each rp to process.  A trace with a trace
         number on tape larger than ltr will be ignored.
         Preset = tape header.  e.g. ltr 23

TRINC -  The increment between traces ftr and ltr.  Alternate traces may
         be processed by using trinc 2.
         Preset = 1.    e.g. trinc 24

Parameters for Processing by time (gmt)
---------- --- ---------- -- ---- -----

All shots prior to fday, fgmt are ignored.  All shots are then processed
as they are read from tape until lday, lgmt is exceeded.

FDAY   - The first julian day of the data to be read from tape.
         Preset=0. e.g. fday 364

LDAY   - The last julian day of the data to be processed.
         Preset=fday

FGMT   - The first time of day fday of the data to be read from tape.
         GMT is expressed as hhmm or hours and minutes of the 24 hour
         clock (0000-2359).
         Preset=0. e.g. fgmt 1400

LGMT   - The last time of lday to be read from tape.
         Preset=0. e.g. lgmt 0605

FTR    - The first trace of each shot to process.  A trace with a trace
         number on tape less than ftr will be ignored.  An ftr of 99999
         indicates that all traces will be read regardless of trace
         number or trace order.
         Preset = 1.    e.g. ftr 2

LTR    - The last trace of each shot to process.  A trace with a trace 
         number on tape larger than ltr will be ignored.
         Preset = all traces e.g ltr 1

TRINC  - The increment between traces ftr and ltr.  Alternate traces may
         be processed by using trinc 2.
         Preset = 1.    e.g. trinc 24

USEFUL OPTIONAL PARAMETERS
------ -------- ----------

FNO    - First shot/rp number.  FNO may be used instead of FIS or FRP. 
         Ordinarily SIOSEIS insists that the users know whether the
         input tape is sorted by shot or rp and will not run if the tape
         is described incorrectly.  The use of FNO and LNO simplifies
         this!  As with FIS and LIS, FNO 99999 reads all traces from
         tape regardless of their numbers and will stop reading only
         when a negative tape unit number is given in file "IN" at the
         end of a tape (see tape change).
         Preset = none  e.g.   FNO 101

LNO    - Last shot/rp to read.
         Preset = none  e.g.  LNO 200

NOINC  - The increment between FNO and LNO.  The shots/rps on tape will
         be read in the order FNO to LNO in increments of NOINC.  If a
         shot/rp is missing, PROCESS INPUT will continue searching until
         it finds it.  e.g.  FNO 1 LNO 5 but the shot/rps on tape are 1,
         2, 4, 5  then SIOSEIS will search the entire tape for shot 3,
         stopping when it finds end of tape, and never reading shots 4
         or 5.  Use FNO 99999 when this occurs.
         Preset = 1

NO  XN - The word type and the index of the SEG-Y trace header to use
         for searching rather than the shot or rp number.
     X = I, means short integer (16 bit integer trace header)
       = L, means long integer (32 bit integer trace header)
       = R, means real word (host floating point)
     N = the index with the SEGY trace header.
         Example:  no l10  means long word 10 (the range) will be used
                   instead of FIS/FRP/FNO and LIS/LRP/LNO.
         Preset = none

TR  XN - The word type and the index of the SEG-Y trace header to use
         for searching rather than the shot/rp trace number.
     X = I, means short integer (16 bit integer trace header)
       = L, means long integer (32 bit integer trace header)
       = R, means real word (host floating point)
     N = the index with the SEGY trace header.
         Example:  tr l10  means long word 10 (the range) will be used
                   instead of the shot/rp trace number for FTR and LTR.
         Preset = none
       
ALLNO  - Read all shots/rps yes/no switch.
       = YES, all shots between between FIS and LIS will be read
         regardless of number.
       = NO, the shots/rps will be read in strictly monotonic
         increasing order.  i.e. Only shots FIS, FIS+SINC, FIS+2*SINC,
         FIS+3*SINC, ....., LIS  will be read. 
         Preset = YES      e.g.  allno no

ALLTR  - Read all traces yes/no switch.
       = YES, all traces between between FTR and LTR will be read
         regardless of order or number.
       = NO, the traces will be read in strictly monotonic
         increasing order.  i.e. Only shots FTR, FTR+TRINC, FTR+2*TRINC,
         FTR+3*TRINC, ....., LTR  will be read. 
         Preset = YES      e.g.  alltr no

RENUM  - Renumbers every shot/rp so that the numbers are monotonically
         increasing by 1, starting with the number specified by renum.
         Renumbering the shot/rp numbers is helpful when the input 
         shot/rp numbers are nonunique and some parameter needs to be
         spatially varied.  The renumbering is done after the shot/rp is
         read.
         Default = not given. e.g. renum 1

C      - Comment card images to replace in the tape header.  The comment
         card must start with the letter c and must be followed 
         immediately by a 2 digit number, followed by a blank.  The 
         number is the card number within the header to replace.  The 
         comment itself must be enclosed in single quotes.
         Preset=none. example c15 'this is an example of a comment'

STIME  - Start time of the data to process.  Data prior to STIME will be
         discarded and the deep water delay will be set to STIME.  If 
         STIME is less than the deep water delay, STIME will be ignored.
         Preset = delay of each trace  e.g.   stime 3.0

SECS   - The number of seconds of data to process.  SECS is held 
         constant for all traces within the job.  The total time length
         of each trace is the sum of the delay and secs.  If the data
         is not SECS long, zeroes are NOT added or padded and the trace
         will be less than SECS long.
         Preset= all of the data on the trace.

SET    - The start and end times of the data to read from tape.  SET is
         a pair of times in seconds.  The use of SET causes the deep
         water delay and the number of samples to be changed.  If either
         SET is outside of the data, the data are padded with zeroes.  
         The data will always be SET(2) - SET(1) long.
         Preset = none  e.g.   set 2.0 3.0

IREELN - The input reeln number.  This is useful when the input tape 
         should be changed and the previous tape is not at the end of
         tape (2 file marks).  e.g. 
         fis 1 lis 10 ireeln 1 end fis 11 lis 20 ireeln 2 end
         causes a tape change to occur after shot 10 is read.  The
         normal tape change procedures should be followed (using file 
        "IN").

IFMT   - The input tape format.  Used to override the format indicator 
         on the tape itself.
       = 0, Use the value from the tape.
       = 1, IBM 360 32 bit hex based floating point.
       = 2, 32 Bit integer.
       = 3, 16 Bit integer.
       = 4, 16 Bit fixed point with gain codes. (not SEG-Y)
       = 5, host floating point. IEEE
         Preset=0

SI     - The input sample interval in seconds.  Used to override the 
         sample interval contained in the trace header.
         Preset=tape

DELAY  - The input deep water delay in seconds.  Used to override the 
         delay contained in the trace header.
         Preset=tape

NTRCS  - The number of traces per input record (shot or rp).  Used to 
         override the number of traces contained in the binary tape 
         header.
         Preset=tape header.

NTRGAT > 0, number of traces per gather.  NTRGAT converts a shot sorted
         tape into a rp sorted tape, or converts a foreign rp sorted 
         tape into a SIOSEIS rp sorted tape.  Each gather will contain
         NTRGAT traces.   The rp numbers will be the same as the shot
         numbers.   Every NTRGAT traces will be flagged as the end of
         gather, so process stack will stack ntrgat traces.  This
         parameter is useful for processing tapes that have been
         gathered outside of SIOSEIS.
       < 0, Converts tapes sorted by rp (if the rp has a non zero trace
         number) to a tape sorted by shot (rp trace number (segy trace
         header word 7) to zero.
         Preset=0.  e.g. ntrgat 1

FORGAT - Foreign gather tape switch.  The use of FORGAT indicates that
         the input gather tape was not generated by SIOSEIS and thus 
         does not have the end-of-gather convention used by SIOSEIS
         (a -1 in SEG-Y header word 51).  FORGAT is similar to NTRGAT 
         but allows each gather to have a different number of traces.  
         FORGAT causes process INPUT to wait for the next trace to be 
         read from tape and sets the end-of-gather flag to -1 if the
         next gather number is different, or the next trace number is 
         greater than LTR.  End-of-gather will also be set if the 
         parameter LTR is used and the trace on tape is equal to LTR.
         The value of forgat indicates the number of rps to concatenate
         into a single gather which is terminated by the end-of-gather
         flag.  The penalty for this is significantly slower throughput
         on non-Unix computers (computers that allow asynchronous or
         overlapped I/O).   LDGO gather tapes start with the largest
         trace number first, which breaks the SIOSEIS monotonically
         increasing assumption; LDGO gather tapes may be read using
         forgat 1 and ftr 99999, in which case SIOSEIS will use all
         traces within the gather.
         Preset = 0     e.g. forgat 1

DECIMF - Decimation factor.  The data will be decimated or resampled by
         a factor of decimf, thus reducing the number of samples in the
         trace. **  Note **  no anti-alias filter is applied prior to
         decimation.
         Preset=1. e.g  decimf 2   takes every second sample

NFSKIP - The number of files to skip before reading the SEG-Y tape 
         header. Some places (LDGO) sometimes put multiple lines or 
         logical tapes on a single physical tape, a violation of the
         SEG-Y standard!
         Preset = 0.    e.g.   nfskip 1        skips 1 file

REWIND - A YES/NO switch indicating whether the input tape should be
         rewound PRIOR to reading any data (including tape positioning
         with NFSKIP).  REWIND is set to YES after the first tape is
         read so that subsequent tapes will be rewound when using the
         "operator" tape change method (file "in").  Likewise, REWIND
         is set to YES on every INPUT list (a list is terminated with
         "END").
       = YES, rewind.
       = NO, NO rewind.
         DEFAULT = YES,      e.g.  rewind no    # don't rewind

NRSKIP - The number of tape records (traces) to skip before reading the
         first trace.  This is useful when 2 or more SEG-Y files are 
         concatenated into 1 file on tape.
       > 0, the record skip is done AFTER the SEG-Y tape header is read.
       < 0, the record skip is done BEFORE the SEG-Y tape header is read.
         Preset = 0.    e.g.   nrskip 3        skips 3 records

ORDER  - SIOSEIS normally assumes that the shot/rp numbers are in 
         ascending order on tape.  In order to reverse this assumption, 
         set order to -1, which will then force process INPUT to assume
         that the shot/rp numbers are in decreasing order on tape.  The
         parameter sinc/rpinc/noinc usually needs to be a negative number
         when order -1 is given.  e.g. If the order of rps on tape is 
         9100, 9099, 9098, 9097,...  the following parameters would work:
         frp 9100 lrp 9097 rpinc -1  
         Preset = 0     e.g. order -1

NFILES - The number of files to use.  The tape files must be consecutive
         on tape.  A filemark on tape is the end of file indicator.  Two
         consecutive file marks are considered end of information and
         will cause input to rewind the tape and expect a tape change 
         using the normal SIOSEIS tape change procedures (by creating a
         file named "IN").  NFILES will only work on "Berkeley style"
         tape drivers, which permits reading past the file make.  (see
         parameter DEVICE and read the man pages for mtio).
         Preset = 1     e.g.  nfiles 2

Written and copyrighted (c) by:
Paul Henkart, Scripps Institution of Oceanography, January 1980
ALL RIGHTS RESERVED.

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

installation.html0000644000076500001200000000613510442314511015206 0ustar  henkartadmin00000000000000
SIOSEIS Installation Recommendations

Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
    


                 SIOSEIS program(s) recommended installation
                                                     October 2005

The directory structure should follow normal Unix conventions, e.g.
bin - contains all the executables.
doc - contains the sioseis documentation (non-html).
src - contains the source code.

PLOTTING
--------
The easiest way of making screen plots is to use the plot parameter
SRPATH, which creates a Sun rasterfile.
# /bin/csh
sioseis << endsioseis
procs ...... end
.
.
plot
   .....
   srpath sunfil.ras end
end
end
endsioseis
display -rotate 90 sunfil.ras &

ImageMagick program display is a great free display program that runs
on any Unix platform.  Use     display -rotate 90 sunfil.ras

xloadimage is another convenient display program, but the version
on the sioseis site does not work on TrueColor (24 plane) screens
such as on the Mac.  Mac OSX program GraphicConverter is also 
convienient, but recent (2005) versions have an annoying delay.  
To open it on OSX in the sioseis script use:
open -a /Applications/GraphicConverter\ US/GraphicConverter,app sunfil.ras

ImageMagick program CONVERT reformats Sun rasterfiles into most other
image formats (my favorite is PNG).

Sioseis program SIO2SUN to convert SIOSEIS rasterfiles, which were produced
using plot parameter OPATH, to Sun rasterfiles.

TEST SCRIPT
---- ------
Use the following script to check the sioseis installation.  Make sure
the script has execute permission (chmod 777 script-name)
sioseis << eof
procs syn filter plot end
syn
   fno 1 lno 1 secs 4 tva .1 2000 1 ntrcs 10 end
end
filter
   pass 10 20 end
end
plot
  nibs 2859 
  srpath sunfil.ras
  nsecs 1 vscale 1.25 end
end
end
eof
display -rotate 90 sunfil.ras &


DOCUMENTATION
-------------
Non-web documentation:
doc/siodoc is a script to more the documention of each process.
Change the path of the doc directory in file siodoc and create an
alias such as:  alias sd '~henkart/doc/siodoc'

Then you can get a fast copy of a process' documentation by typing:
sd proc-name.    e.g.  sd agc

ADDITIONAL TEST SCRIPTS
---------- ---- -------
1)  Plot the same synthetic without the filter.
sioseis << eof
procs syn plot end
syn
   fno 1 lno 1 secs 4 tva .1 2000 1 ntrcs 10 end
end
filter
   pass 10 20 end
end
plot
  nibs 2859
  srpath sunfil.ras
  nsecs 1 vscale 1.25 end
end
end
eof
display -rotate 90 sunfil.ras &

    Notice that just removing FILTER from the PROCS list works;
the filter parameters are ignore.

2) Make other changes:
sioseis << eof
procs syn filter plot end
syn
   fno 1 lno 1 secs 5 tva .1 1500 1 1 1600 -1 ntrcs 100 end
end
filter
   pass 10 20 end
end
plot
  nibs 2859
  srpath sunfil.ras
  ann sh&tr taginc 10 trpin 50 def .05
  nsecs 0 vscale .5 end
end
end
eof
display -rotate 90 sunfil.ras &



    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

intro.html0000755000076500001200000000545106276431312013654 0ustar  henkartadmin00000000000000SIOSEIS Introduction
Go to SIOSEIS home..

    
SIOSEIS is a software package for enhancing and manipulating marine
seismic reflection and refraction data, sponsored by NSF (the National
Science Foundation) and SIA (the Scripps Industrial Associates).
The system currently runs on SUN, HP, SGI, and DEC Alpha computers.
Contact phenkart@ucsd.edu for information regarding availability.

Suggested order of the documentation.
sioseis        -    The introduction.
flow           -    The way data flows through the system.
SHOT-RP-GATHER definition   - Definition of some terms.
syntax         -    The description of the user parameter language.
spatial variation - A unique way of varying parameter values.
procs          -    Describes the order of processes and is the main
                    level for retrieving the documentation for each process.

There are some "appendices" such as:
What's New     - Heads up on new features.
examples       - Examples with plots.
forum          - A set of user questions and answers.
hidden.parameters - Describes several "debug" parameters.
segy.header    - Describes sioseis' use of the SEG-Y header
recent.updates - A list of recent program changes.
known.bugs     - A list of known bugs.
wish.list      - A wish list of future work.


DISTRIBUTION PROGRAMS
sioseis        - The main seismic processing package.
sio2hp         - Convert SIOSEIS rasterfiles to HP-RTL files for 
                    HP DesignJet plotters.
vpick          - Script for interactive velocity picking.
vtplot         - Convert and plot velocity profile.
sioplt         - X Window screen previewer of SIOSEIS raster files.
sio2sun        - Convert SIOSEIS rasterfiles to Sun rasterfiles.
lsd            - List an SEG-Y disk file.
lst            - List an SEG-Y tape.
list.ldgo      - List an LDEO DSS-240 disk or tape file.
list.segd      - List an SEG-D tape.
dutil          - A useful program for snooping around disk files.
tutil          - A useful program for snooping around tapes.
plot2          - Send an SIOSEIS rasterfile to the Versatec.
suntops        - Converts black and white Sun rasterfiles to PostScript.
test1

    
iris.html0000755000076500001200000000407106356044053013465 0ustar  henkartadmin00000000000000iris
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.

                                   PROCESS IRIS

Document Date: 13 May 1990

Convert IRIS data logger data into standard SEG-Y formatted data.  It is 
assumed that all the data input through PROCESS DISKIN in a single job are a
"single event".  The DISKIN parameter FORMAT may be used to read the IRIS
data traces.

This does the following:

1)   This process will make the data into SIOSEIS type RP sorted data.  That
     is, it will increment the rp trace number by 1 until the end of the job.
     The last trace does NOT have the SIOSEIS end of gather flag set, so it
     may be prudent to read any rp's produced with PROCESS DISKOX with the 
     DISKIN parameter FORGAT.

2)   PROCESS IRIS will also correct the shot times (the time of the first 
     sample - recorded in the SEG-Y trace header as GMT) to be at the same 
     GMT rather than the IRIS trigger time.  The milliseconds field of the 
     GMT is also dropped.  This should make timing a little easier to see on
     a seismic plot.  On output, all data is relative to the GMT in the SEG-Y
     header.   Procedurally this process uses the GMT of the first trace
     encountered, subtracts 1, and uses that as the output time reference 
     (ignoring the milliseconds). e.g.
     trace 1 has day 110 hour 2 min 24 sec 51 mil 107 
     trace 2 has day 110 hour 2 min 24 sec 50 mil 974
     trace 3 has day 110 hour 2 min 24 sec 51 mil 2
     then the output GMT is set to day 110 hour 2 min 24 sec 50
     and trace 1 has a delay of 1.107, trace 2 has a delay of 0.974,
     trace 3 has a delay of 1.002
      
****  NOTE   ****
     The data is time shifted.

COPYRIGHT (C) The Regents of the University of California
ALL RIGHTS RESERVED.  
Written by Paul Henkart, Scripps Institution of Oceanography, 6 May 1990

    
Go to the list of seismic processes.
    
Go to SIOSEIS introduction.
ivtp.html0000644000076500001200000000042507651307742013503 0ustar  henkartadmin00000000000000

NMO Interval Velocity Example


  
  
     
     
     
   


ivtp1.html0000644000076500001200000000031407651323550013554 0ustar  henkartadmin00000000000000

NMO Interval Velocity Example


    Interval velocity and spatial variation examples
    

    

    

    

    

    

      

    • No water.

    • ADDWB yes

    • VTRKWB 

    

ivtp2.html0000644000076500001200000000143007651310374013555 0ustar  henkartadmin00000000000000

    IVTP without addwb or vtrkwb
    

    sioseis << eof
procs syn header nmo prout end
syn
   ntrcs 1 secs 10
   fno 100 lno 100 tva 1 1000 1 end
   fno 200 lno 200 tva 1 1000 1 end
   fno 300 lno 300 tva 1 1000 1 end
end
header
   fno 0 lno 999999 r50 = 2.0 end
end
nmo
   lprint 2
   fno 100 ivtp 1500 0. 1800 .4 2500 1.0 end
   fno 300 ivtp 1500 0. 2000 .6 2400 1.5 end
end
prout
    end
end
end
eof


results in:
 THE VELOCITIES AT        100 RANGE     0.0000 ARE:
  1500.0000     0.0000  1800.0000     0.4000  2246.3303  1.0000
 THE VELOCITIES AT        200 RANGE     0.0000 ARE:
  1500.0000     0.0000  1900.0000     0.5000  2246.2190   1.2500
 THE VELOCITIES AT        300 RANGE     0.0000 ARE:
  1500.0000     0.0000  1999.9999     0.6000  2248.5552   1.5000

    

ivtp3.html0000644000076500001200000000146407651311532013562 0ustar  henkartadmin00000000000000

    addwb yes and constant 2 seconds of water
    

    sioseis << eof
procs syn header nmo prout end
syn
   ntrcs 1 secs 10
   fno 100 lno 100 tva 1 1000 1 end
   fno 200 lno 200 tva 1 1000 1 end
   fno 300 lno 300 tva 1 1000 1 end
end
header
   fno 0 lno 999999 r50 = 2.0 end
end
nmo
   lprint 2
   addwb yes
   fno 100 ivtp 1500 0. 1800 .4 2500 1.0 end
   fno 300 ivtp 1500 0. 2000 .6 2400 1.5 end
end
prout
    end
end
end
eof

results in:

 THE VELOCITIES AT        100 RANGE     0.0000 ARE:
  1500.0000     2.0000  1554.0270     2.4000  1783.8160   3.0000
 THE VELOCITIES AT        200 RANGE     0.0000 ARE:
  1500.0000     2.0000  1588.0806     2.5000  1823.5110   3.2500
 THE VELOCITIES AT        300 RANGE     0.0000 ARE:
  1500.0000     2.0000  1629.0629     2.6000  1858.1096    3.5000

    

ivtp4.html0000644000076500001200000000241407651311622013557 0ustar  henkartadmin00000000000000

    vtrkwb 1000 addwb yes and varying water depth (500m - 3500m)
    

    sioseis << eof
procs syn header nmo prout end
syn
   ntrcs 1 secs 10
   fno 1 lno 5 tva 1 1000 1 end
end
header  # water DEPTH must be in real word 54
   fno 1 lno 1 r54 = 500 r50 = r54 / 750. end
   fno 2 lno 2 r54 = 1000 r50 = r54 / 750. end
   fno 3 lno 3 r54 = 2000 r50 = r54 / 750. end
   fno 4 lno 4 r54 = 3000 r50 = r54 / 750. end
   fno 5 lno 5 r54 = 3500 r50 = r54 / 750. end
end
nmo
   vtrkwb 1000 addwb yes
   lprint 2
   fno 1000 ivtp 1500 0. 1800 .4 2500 1.0 end
   fno 3000 ivtp 1500 0. 2000 .6 2400 1.5 end
end
prout
  fno 0 lno 99999 indices l3 l4 l6 l7 r50 r54    end
end
end
eof

gave:
 THE VELOCITIES AT        500 RANGE     0.0000 ARE:
  1500.0000     0.6667  1619.0275     1.0667  1981.8174    1.6667
 THE VELOCITIES AT       1000 RANGE     0.0000 ARE:
  1500.0000     1.3333  1574.3130     1.7333  1856.9561    2.3333
 THE VELOCITIES AT       2000 RANGE     0.0000 ARE:
  1500.0000     2.6667  1569.9480     3.1667  1772.6198    3.9167
 THE VELOCITIES AT       3000 RANGE     0.0000 ARE:
  1500.0000     4.0000  1574.2494     4.6000  1736.4541    5.5000
 THE VELOCITIES AT       3500 RANGE     0.0000 ARE:
  1500.0000     4.6667  1565.0454     5.2667  1712.4662    6.1667

    

jenna.html0000644000076500001200000001107507634413050013606 0ustar  henkartadmin00000000000000

January 2003 Edgetech processing example
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    



    Edgetech tow fish datum corrections
    

        This example shows applying a datum correction to some Edgetech
towed fish chirp data where the fish depth nor the wireout distance
are known.  The datum correction is calculated by identifying and
picking different events or wave paths on the data.
    The first method involves identifying and picking the surface
reflection (the upward pulse from the fish, reflected off the water
surface, then back down to the fish).  This is simply the fish depth
in two way travel time. See figure 1 and figure 2.
    The second method requires picking the event caused by the
water bottom reflection of the upgoing surface reflection and picking
the water bottom reflection of the downgoing pulse.

     The first step in Edgetech data processing is to convert the data
into SEG-Y.

sioseis << eof
procs diskin xstar diskoa end
diskin
   format edgetech ipath line164.sgy end end
xstar
  type 2 end end
diskoa
  opath line164.segy end end
end
eof

*****    Note   *****
There's a new XSTAR parameter, TYPE, that's needed to differentiate
between 1 trace and two trace XSTAR system.


METHOD 1          Pick the surface reflection
------ -


METHOD 2:  Pick the water bottom reflection of the surface reflection
------ -
    A quick QC plot (created with this script) shows
unrealistic geology caused by the variation in the depth of the
towed fish.
    In an earlier Edgetech project I was able to correct the
data to a datum by an automated pick of the water bottom multiple.
In a different project I was able to do the datum correction 
using the water depth from Seabeam center depth.
    Unfortunately, neither of those methods worked on this
dataset.  The recorded data length of this dataset is not
long enough to include the water bottom multiple.  The corrections
using the Seabeam (from an xyz file), didn't work well either
because the wireout distance was changed frequently and was not
recorded, thus the fish depth is not known.
    While looking at the above plot, I noticed a nice, geologically
realistic, event at the bottom.  If we assume that this event
is the water bottom, relative to the sea surface, and shift the
water bottom of the data to be at this time, then the plot might
be correct!  Unfortunately, I could not find an automatic picking
algorithm that would pick the even.  An automated pick would also
introduce the "heave" (wobble) I noticed on the event.  Picking the
event "by hand" was too tedious.
    The script was used to produce a SIOSEIS rasterfile (plot)and
header file suitable for the picking program SIOPLT.
    SIOPLT was executed as:
sioplt -if siofil -wbt wbt -hf hdrfil
and file  siopltrc had:   width 1400 height 800
    The picks were loaded into another script which automatically picks
the water bottom time after doing a 3 trace mix, computes the time
shift between the water bottom time and the event picked as where the
water bottom is supposed to be, then applies the shift.  The data are
save to disk (in IBM floating point so SU can read it) and then
filtered and plotted for quality control.
    Notice that the water bottom has several peaks and troughs.  This
is caused by the filter being too narrow and or too steep slope.
With experimentation I found dbdrop 12 made the water bottom into
a single cycle.  The end user also wanted to data compressed more,
so I decimated the data by throwing out 2 of every 3 traces (this was
also the reason why I did a three trace mix earlier; average 3 traces
and then keep only 1 of the 3).  It was also decided to get as
much dynamic range as possible without apply any gains, so the
plot is with gray scale.
    The script created the final plot.




    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


jenna1.html0000644000076500001200000000205307642403146013667 0ustar  henkartadmin00000000000000

QC plot script
 Back to SIOSEIS examples.
      
 Back to January 2003 Edgetech processing example.
    
Go to SIOSEIS introduction.
      
Go to the list of seismic processes.
    



    sioseis << eof
procs diskin filter plot end
diskin
    fno 821301 lno 823300 allno no noinc 1 ltr 1
   ipath line164.segy end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
 plot
     wiggle 0 ann shotno ftag 5 taginc 50
     nibs 2859 vscale 25 nsecs .2 tlines .01 .05 .1
     def .05 trpin 300 srpath sunfil.ras end
 end
end
eof
xloadimage -r 90 sunfil.ras &

    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


jenna2.html0000644000076500001200000000266607622747753013717 0ustar  henkartadmin00000000000000

script to generate files for sioplt picking
 Back to SIOSEIS examples.
        
 Back to January 2003 Edgetech processing example.
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    



         Generate a SIOSEIS rasterfile and header file for program
SIOPLT.  Use a 3 trace mix to smooth the event a little.  Use
AGC to make the pick event very big.  Use stime .1 nsecs .15 so
there's room at the bottom of the screen so that the SIOPLT picks
are visible during picking.


sioseis << eof
procs diskin mix filter agc plot end
diskin
   set 0 .3
   ipath line164.segy end
end
mix
   weight 1 1 1 end
end
agc
    center .01 winlen .2 end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
plot 
    stime .1  wiggle 0 ann shotno anninc 5 ftag 5 taginc 20
     nibs 2859 vscale 25 nsecs .15 tlines .01 .05 .1 
    opath siofil hpath hdrfil
     def .002 trpin 300 srpath sunfil.ras end 
 end 
end
eof


    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


jenna3.html0000644000076500001200000001255507742564501013705 0ustar  henkartadmin00000000000000

Apply the datum correction shift
 Back to SIOSEIS examples.
        
 Back to January 2003 Edgetech processing example.
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    



          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

    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


jenna4.html0000644000076500001200000000245307622765535013711 0ustar  henkartadmin00000000000000

The script creating the final plot.
 Back to SIOSEIS examples.
        
 Back to January 2003 Edgetech processing example.
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    



          The script creating the final plot.

sioseis << eof
procs diskin prout plot end
diskin
  end
   fno 821301 lno 824600 allno no noinc 3 ipath data ltr 1 end
end
filter
   ftype 0 pass 500 1000 dbdrop 12 end
end
prout
   fno 0 lno 999999 noinc 100 ftr 0 ltr 999 end
end
plot
  dptr 1
  stime .1 nsecs .2
   scalar 4.+05
  colors  .001 gray3 .002 gray4 .003 gray5 .004 gray6 .005 gray7
   opath siofil
   fno 1 lno 999999 ninc 3
     wiggle 0 ann gmtint anninc 1
     nibs 2859 vscale 10 tlines .01 .05 .1
     def .2 clip .02 trpin 300 end
end
end
eof
sio2sun siofil sunfil.ras

    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


jenna5.html0000644000076500001200000000127707622765247013715 0ustar  henkartadmin00000000000000


 Back to SIOSEIS examples.
        
 Back to January 2003 Edgetech processing example.Go to SIOSEIS introduction.
        
Go to the list of seismic processes.
    



    
 Back to SIOSEIS examples.
        
Go to SIOSEIS introduction.
        
Go to the list of seismic processes.


kbug.html0000644000076500001200000001073307410731546013450 0ustar  henkartadmin00000000000000Knudsen SEG-Y file data trace truncation
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    
Return to SIOSEIS examples.
        
Return to Melville 2001 example.

    From donald@knudsenengineering.com Fri Dec 21 07:10:48 2001
Received: from mailbox1.ucsd.edu (mailbox1.ucsd.edu [132.239.1.53])
by sioseis.ucsd.edu (8.9.3+Sun/8.9.3) with ESMTP id HAA02034
for ; Fri, 21 Dec 2001 07:10:42 -0800 (PST)
Received: from dci.doncaster.on.ca (dci.doncaster.on.ca [216.187.106.194])
by mailbox1.ucsd.edu (8.12.1/8.12.1) with ESMTP id fBLFBHaF021766
for ; Fri, 21 Dec 2001 07:11:17 -0800 (PST)
Received: from primary.knudsenengineering.com (knudsen.istop.com [216.187.107.101])
by dci.doncaster.on.ca (8.9.1/8.9.1) with ESMTP id PAA28335
for ; Fri, 21 Dec 2001 15:10:31 GMT
Message-Id: <5.1.0.14.2.20011221100813.009eb680@knudsenengineering.com>
X-Sender: donald@knudsenengineering.com (Unverified)
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Fri, 21 Dec 2001 10:09:40 -0500
To: henkart@sioseis.ucsd.edu
From: Don Knudsen 
Subject: Re: take a peek please
Mime-Version: 1.0
Content-Type: multipart/mixed; x-avg-checked=avg-ok-6EB01E15; boundary="=======5D767E3B======="
Content-Length: 3026
Status: R

--=======5D767E3B=======
Content-Type: text/plain; x-avg-checked=avg-ok-6EB01E15; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 8bit

Paul,

I hate to have to tell you this, but the data may be lost forever. Donna 
has provided a technical explanation which is attached, but the end result 
is that if the window was larger than 1000m or so the bottom (deepest) 
section of the record may not have been recorded. The problem is related to 
data rates and buffer size limitations.

I hope this isn't going to cause major problems at your end.

Regards,
Don



From Donna:

The following numbers are all based on the assumption of V4.30 firmware 
code or equivalent.  The basic concept still remains the same.

The echosounder acquires the raw carrier data recorded to the SEG-Y and the 
envelope data recorded to the binary files at different effective sample 
rates.  It is designed to have an envelope sampling rate that allows full 
acquisition of any data window size without truncation of the data record. 
The carrier sampling has limited data sampling rates and is limited by the 
size of the acquisition buffer.

The envelope sample buffer is 16256.  For a 5000m window at 1500m/s, the 
effective sample rate (Fe)  needs to be 2438 HZ or less. To support full 
autophase search windows, the lowest Fe available is actually well below 
this. Thus, the envelope data can always track the bottom through the 
entire 5000m window without any loss of data.

The carrier data buffer is actually larger at 32505 but the min Fe is only 
14836 for 3.5kHz or 16025 for 12kHz.  At 1500m/s, this limits the maximum 
recordable window size to 1643m for 3.5kHz or 1521m for 12kHz.  If a window 
size larger than this is used, all data beyond those listed is lost; it is 
simply thrown away to avoid buffer overflow.

The unfortunate effect of the factors is that the user looking at the 
envelope presentation in a 2000m or 5000m window will believe he is 
tracking and recording the data correctly, when in reality he may be losing 
critical data due to the buffer overflow truncation.  If he was doing the 
recording with the 1000m window, the carrier data would be correctly 
recorded as seen on the envelope presentation.

The latest version of EchoControl being prepared for our new upcoming 
release has a warning message about the potential for data truncation and 
offers controls changes to perform to avoid the truncation.


Donald Knudsen - President
Knudsen Engineering Limited
10 Industrial Rd. Perth, Ontario, Canada, K7H 3P2
Phone: (613) 267-1165 Fax: (613) 267-7085
http://knudsenengineering.com

Manufacturers of High Performance Rugged Marine Instrumentation

--=======5D767E3B=======
Content-Type: text/plain; charset=us-ascii; x-avg=cert; x-avg-checked=avg-ok-6EB01E15
Content-Disposition: inline


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.306 / Virus Database: 166 - Release Date: 12/4/01

--=======5D767E3B=======--

    
knudsen-bug.html0000644000076500001200000000612407464614365014751 0ustar  henkartadmin00000000000000
Knudsen SEG-Y bug
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.
    
 Return to Melville 2001 Knudsen example

    

    From mogk@sdsioa.ucsd.edu Fri May  3 14:28:54 2002
From: "Seth Mogk" mogk@sdsioa.ucsd.edu
To: henkart@sioseis.ucsd.edu



It turns out that the initial data buffering in the Knudsen, for both
display and recording, is based on the range & phase settings.  The upshot
of this is that it must be on screen to be recorded by the SEGY
module--however, (here's the hitch that bit Eli) being on screen does not
assure it will be recorded.  This is because SEGY records the digitized
carrier while the screen needs only envelope; under some combinations of
parameters the carrier can overflow its buffer (though the envelope has not)
and you end up recording a truncated version of the screen rather than the
whole thing.

In practice, if you use a screen window of 500 m. or less, you will not have
a problem; if you use a 1000 m. window you'll be ok if you use the longer
pulse lengths (e.g. 24 msec); and if you use a 2000 m. or greater window you
will get bit no matter what.

Donna Burnell (the KEL programmer) said she has included a pop-up warning
window in recent software releases to warn you when this is about to happen.
Also of note, there is a selection under the Display menu called
Carrier--selecting this will show what will be recorded by the SEGY module.
Check with Donna if you need to know details about a given software version:
mailto:donna@knudsenengineering.com.  Or to get the latest (we have
EchoControl v1.1.5.0, distributed in Package D42-02386 V3.05, Feb. 12,
2002).

Seth

From mogk@sdsioa.ucsd.edu Fri May  3 15:51:54 2002
From: "Seth Mogk" mogk@sdsioa.ucsd.edu
To: henkart@sioseis.ucsd.edu

Another thing worth mentioning about this is what happens in Autophase.  I
asked, if all that's put into buffer is for the screen window, how does it
figure out where the bottom is?  Answer is, it goes into a Search mode that
is different than when the bottom is acquired--enough so that it won't
record pings in SEGY that are handled by this Search mode.  Under normally
decent sea conditions this isn't a problem: the bottom is acquired and when
phase changes are needed Autophase does it, no search mode invoked.  But
under noisy conditions, bubble entrainment, waves banging the hull and all
that, Autophase will probably be going into search mode a lot.  So under
those conditions you're better off in Manual phase operation, and spinning
up the watchstander to keep an eye on it for phase changes.

Seth


-----Original Message-----
From: henkart@sioseis.ucsd.edu [mailto:henkart@sioseis.ucsd.edu]
Sent: Friday, May 03, 2002 11:11
To: smogk@ucsd.ucsd.edu
Subject: Remind me of the Knuhsen SEG-Y work around


Seth,
   Goldfinger from OSU is going collect Knudesen data
soon.  Remind me/us of the work around to prevent the
problem Eli Silver had.  I never heard back from Knudsen
about fixing the problem - have you?

Paul


    
knudsen1.html0000644000076500001200000000144007111070306014227 0ustar  henkartadmin00000000000000
sioseis script for Knudsen 3.5kHz. echosounder example
Go to the list of seismic processes.
        
Go to SIOSEIS introduction.

    

    sioseis << eof 
procs sort diskin gains plot end 
sort
   ipath /usr/people/mogk/L009_001.sgy end
   lkey1 3 rev1 yes opath sort.3 end
end
diskin
   fno 18060 lno 18200 spath sort.3
   ipath /usr/people/mogk/L009_001.sgy end
end
agc
   winlen .005 end
end
gains
   type 5 alpha 3 end
end
filter
   fno 1 lno 99999 pass 8000 13000 ftype 0 end 
end
plot
   trpin 80 def .0125   ann gmtint anninc 1  tlines .01 .05
   srpath sunfil
   stime 1.5
   wiggle 0
   nibs 2859 vscale 25 nsecs .1
   end
end
end
eof
xloadimage -r 90 sunfil &

    
knudsen2.html0000644000076500001200000000127707115277076014261 0ustar  henkartadmin00000000000000