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

increased array size

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: 2132
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 48bf2305
c this is <hivgabor.f>
c ----------------------------------------------------------------------------
c ($Id: hivgabor.f,v 1.2 2006-06-02 15:39:24 tforb Exp $)
c ($Id: hivgabor.f,v 1.3 2006-06-02 16:58:35 tforb Exp $)
c
c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
c
......@@ -18,7 +18,7 @@ c
& 'HIVGABOR V1.0 Calculate H/V from gabor results')
character*(*) HIVGABOR_CVS_ID
parameter(HIVGABOR_CVS_ID=
& '$Id: hivgabor.f,v 1.2 2006-06-02 15:39:24 tforb Exp $')
& '$Id: hivgabor.f,v 1.3 2006-06-02 16:58:35 tforb Exp $')
c
c datasets
character*80 hinfile, vinfile, outfile
......@@ -30,7 +30,7 @@ c magic number for binary file identification
parameter(cmagic='123G')
c greens function
integer maxsamples,maxom
parameter(maxsamples=600,maxom=maxsamples)
parameter(maxsamples=3000,maxom=maxsamples)
complex hgabor(maxsamples, maxom)
complex vgabor(maxsamples, maxom)
complex hvgabor(maxsamples, maxom)
......
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