fixed legal header in write_output_SU
removed duplicate implicit none
moved Seismic Unix reader to subroutine