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

arithmetic mean

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: 502
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent fcb823f0
c this is <susei.f>
c------------------------------------------------------------------------------
c $Id: susei.f,v 1.2 2001-10-22 09:23:56 forbrig Exp $
c
c 16/06/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -10,13 +11,14 @@ c
c REVISIONS and CHANGES
c 16/06/98 V1.0 Thomas Forbriger
c 27/02/99 V1.1 add more than two
c 22/10/01 V1.2 calculate arithmetic mean of traces
c
c==============================================================================
c
program susei
c
character*79 version
parameter(version='SUSEI V1.0 SUm of SEIsmograms')
parameter(version='SUSEI V1.2 SUm of SEIsmograms')
c
c dimensions
integer maxsamps, maxfree
......@@ -77,6 +79,7 @@ c
print *,' '
print *,'SUm of SEIsmograms'
print *,' '
print *,'$Id: susei.f,v 1.2 2001-10-22 09:23:56 forbrig Exp $'
stop
endif
if (iargc().lt.3) stop 'ERROR: too few arguments'
......@@ -155,6 +158,9 @@ c
data(i)=(data(i)+ydata(i))
enddo
enddo
do i=1,nsamp
data(i)=data(i)/float(nsumfiles+1)
enddo
wid2line(36:38)='NSP'
c
call sff_WTraceI(luo, wid2line, nsamp, data, idata, last,
......
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