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