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

corrections

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: 1287
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 583601dd
c this is <rotate.f> by Thomas Forbriger 1997
c $Id: rotate.f,v 1.3 2003-01-22 10:21:06 forbrig Exp $
c
c rotate horizontal components
c
......@@ -6,10 +7,11 @@ c (sff is the Stuttgart File Format as defined in sff.doc)
c
c REVISIONS and CHANGES
c V1.0 25/03/97 first running version
c V1.1 21/01/03 some corrections
c
c======================================================================
character*79 version
parameter(version='ROTATE V1.0 rotate horizontal components')
parameter(version='ROTATE V1.1 rotate horizontal components')
c dimensions
integer maxtraces, maxsamples, maxfree
parameter (maxtraces=3,maxsamples=1000000,maxfree=6)
......@@ -54,6 +56,9 @@ c give control-file information
print *,' degrees from north to east. Hence the input north'
print *,' component will be the output east component if you'
print *,' set angle to 90.'
print *,' '
print *,'The second trace will be ''R'' on output and the'
print *,'third will be ''T''.'
stop
endif
if (iargc().ne.3) stop 'ERROR: check argumemnts'
......@@ -112,7 +117,7 @@ c create prolog
write(free(1), '(a)') version
write(free(2), '(aa)') 'input file: ',infile(1:index(infile,' ')-1)
write(free(3), '(aa)') 'output file: ',outfile(1:index(outfile,' ')-1)
write(free(4), '(af)') 'angle of rotation (degrees): ',rangle
write(free(4), '(af10.3)') 'angle of rotation (degrees): ',rangle
c----------------------------------------------------------------------
c modify wid2 line
call modchan(wid2line(1), 'Z')
......
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