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

proceeding

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: 2129
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 484cca6e
c this is file <grepg.f>
c======================================================================
c $Id: grepg.f,v 1.34 2006-06-02 11:51:27 tforb Exp $
c $Id: grepg.f,v 1.35 2006-06-02 11:53:15 tforb Exp $
c
c GREPG.F
c
......@@ -114,7 +114,7 @@ c program version:
character*120 CVS_VERSION
parameter(CVS_VERSION=
& '$Id: grepg.f,v 1.34 2006-06-02 11:51:27 tforb Exp $')
& '$Id: grepg.f,v 1.35 2006-06-02 11:53:15 tforb Exp $')
c declare variables for io
character*80 filename
......@@ -728,6 +728,7 @@ c
& normlimit
c
c scale each frequency to the same maximum amplitude
c --------------------------------------------------
c
if (omsqrscale) then
print *,'scale with 1/omega**2'
......@@ -743,6 +744,8 @@ c
enddo
endif
c
c prepare scaling function for adaptive scaling
c ---------------------------------------------
c (option -s)
if (scale) then
c distinguish between scaling along frequency and time axis
......@@ -823,6 +826,8 @@ c endif
endif
endif
c
c smooth scaling function for adaptive scaling
c --------------------------------------------
c moving average is applied when scaing frequencies independently
c (option -f)
if (moveavg) then
......
Markdown is supported
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