csh/sioseis script to plot and check shots


Note that the SIOSEIS terminator "end" can not be used in the C Shell
because the shell uses the word "end" also.  SIOSEIS is not case 
sensitive, whereas C shell is, so use "END" when used in SIOSEIS.


#! /bin/csh -f
setenv DISPLAY sioseis:0.0    # CHANGE THIS FOR YOUR MACHINE!
#setenv DISPLAY 137.110.27.105:0.0
if( $#argv < 2 ) then
    echo "Usage: pltshots 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
 
set num = $START_NUM
while ( $num <= $END_NUM )
sioseis << eof
procs diskin weight geom nmo plot END
diskin
  set 3 6 allno no
   ipath $FILE fno $num lno $num END
END
weight
   fno 0 lno 99999 twp 1 0 END
END
geom
   navfil sionav type 6 rpadd 1000
   gxp 1 -265 48 -1440 dbrps 12.5 END
END
nmo
   vtp 1500 0 END
END
prout
   fno 0 lno 99999 ftr - ltr 9999 END
END
plot
   nsecs 3 nibs 75 def .08 srpath sunfil ann shottr ftag 1 taginc 5
  scalar .33 trpin 5 vscale 3.333 END
END
END
eof
xloadimage -r 90 sunfil 
@ num = $num + $NUM_INC
end