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