#! /bin/ksh
# Range of nmo corrections for a set of cmp gathers
# Authors: Jack, Ken
# NOTE: Comment lines preceeding user input start with  #!#
set -x

### From Nmoscan
nmodata=nmoscan
fold=30
space=3		# 3 null traces between panels
integer vmin=1500   vmax=3000   dv=250
integer cdpmin=401 dcdp=100


### Plot the nmo scan
integer nv=\(vmax-vmin\)/dv+1
f2=$cdpmin
d2=$(bc -l <<-END
	$dcdp/($nv * ($fold + $space) + $space)
END)

sugain <$nmodata tpow=2.0 gpow=0.8 |
suximage perc=99 f2=$f2 d2=$d2 \
	title="File: $input  NMO Scans "  \
	label1="Time (s)"  label2="CDP" & 
