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

pick response

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: 937
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent f7145469
c this is file <grepg.f>
c======================================================================
c $Id: grepg.f,v 1.27 2002-09-13 22:02:01 forbrig Exp $
c $Id: grepg.f,v 1.28 2002-09-17 15:36:49 forbrig Exp $
c
c GREPG.F
c
......@@ -89,6 +89,7 @@ c V2.34 19/05/02 allow plots matching different Fourier transform sign
c conventions
c V2.35 13/09/02 phasor walkout from Fourier data
c V2.35a no provide phasor walkout pick
c V2.36 pick response in verbose mode
c
c======================================================================
program grepg
......@@ -102,11 +103,11 @@ c
character titleformat*130
c program version:
character*79 version
parameter(version='GREPG V2.35a plot green amplitudes')
parameter(version='GREPG V2.36 plot green amplitudes')
character*120 CVS_VERSION
parameter(CVS_VERSION=
& '$Id: grepg.f,v 1.27 2002-09-13 22:02:01 forbrig Exp $')
& '$Id: grepg.f,v 1.28 2002-09-17 15:36:49 forbrig Exp $')
c declare variables for io
character*80 filename
......@@ -1207,6 +1208,9 @@ c
998 continue
if (aliaspick) then
call pgband(7,0,0.,0.,cux, cuy, cub)
if (verbose) then
print '(a,f6.2,a,f6.2,a)',' ** pick at ',cux,'Hz, ',cuy,'s/km'
endif
if ((cub.eq.'X').or.(cub.eq.'x')) then
aliaspick=.false.
elseif (index('pPaA',cub).gt.0) then
......
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