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

external setting of array dimensions

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: 1380
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 2afc04e0
......@@ -20,6 +20,10 @@ make.incdep: *.f
include make.incdep
# only the original is in CVS
# so we can change the current dimensions without affecting the CVS
grepg_ardim.xxx.inc: grepg_ardim.inc; /bin/cp -v $< $@
.f.o:
f2c $(F2CFLAGS) $<
$(CC) $(CFLAGS) $(FLAGS) \
......
c this is file <grepg.f>
c======================================================================
c $Id: grepg.f,v 1.30 2002-09-20 15:18:47 forbrig Exp $
c $Id: grepg.f,v 1.31 2003-09-05 06:34:17 tforb Exp $
c
c GREPG.F
c
......@@ -91,6 +91,11 @@ c V2.35 13/09/02 phasor walkout from Fourier data
c V2.35a now provide phasor walkout pick
c V2.36 pick-response in verbose mode
c V2.37 new handle wavenumber spectra
c V2.37a 05/09/03 move array dimensions to include file
c create a master and copy array dimensions include file
c only the master is in CVS, but the copy is loaded here
c so we may change the current dimension without
c affecting the CVS
c
c======================================================================
program grepg
......@@ -104,23 +109,17 @@ c
character titleformat*130
c program version:
character*79 version
parameter(version='GREPG V2.37 plot green amplitudes')
parameter(version='GREPG V2.37a plot green amplitudes')
character*120 CVS_VERSION
parameter(CVS_VERSION=
& '$Id: grepg.f,v 1.30 2002-09-20 15:18:47 forbrig Exp $')
& '$Id: grepg.f,v 1.31 2003-09-05 06:34:17 tforb Exp $')
c declare variables for io
character*80 filename
integer maxslo, maxfreq, plotslo, plotfreq
integer dimplotslo, dimplotfreq
c dimensions of arrays
parameter(maxslo=2000)
parameter(maxfreq=2000)
c divisions for plot
parameter(dimplotslo=300)
parameter(dimplotfreq=400)
integer plotslo, plotfreq
integer nslo, nfreq
include 'grepg_ardim.xxx.inc'
real df
real weight(maxslo, maxfreq)
real scaling(maxfreq)
......
c this is <grepg_ardim.inc>
c ----------------------------------------------------------------------------
c ($Id: grepg_ardim.inc,v 1.1 2003-09-05 06:34:18 tforb Exp $)
c
c Copyright (c) 2003 by Thomas Forbriger (BFO Schiltach)
c
c basic array dimensions for grepg
c
c REVISIONS and CHANGES
c 05/09/2003 V1.0 Thomas Forbriger
c
c ============================================================================
c
integer maxslo, maxfreq
integer dimplotslo, dimplotfreq
c dimensions of arrays
parameter(maxslo=2000)
parameter(maxfreq=2000)
c divisions for plot
parameter(dimplotslo=300)
parameter(dimplotfreq=400)
c
c ----- END OF grepg_ardim.inc -----
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