Commit f5a26718 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

correction

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2931
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 85889ef1
......@@ -438,7 +438,7 @@ c write horizontals
do i=1,ntraces
distance(i)=sngl(r(i))
do j=1,nsamples
data(i,j)=sngl(q(i,j))
data(i,j)=real(q(i,j))
enddo
enddo
call seiswrite(filehor,
......@@ -452,7 +452,7 @@ c write verticals
write(prolog(nprolog), '(a)') 'vertical component'
do i=1,ntraces
do j=1,nsamples
data(i,j)=sngl(w(i,j))
data(i,j)=real(w(i,j))
enddo
enddo
call seiswrite(filever,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment