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 this is <hivgabor.f>
c ---------------------------------------------------------------------------- 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
c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach) c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
c c
...@@ -18,7 +18,7 @@ c ...@@ -18,7 +18,7 @@ c
& 'HIVGABOR V1.0 Calculate H/V from gabor results') & 'HIVGABOR V1.0 Calculate H/V from gabor results')
character*(*) HIVGABOR_CVS_ID character*(*) HIVGABOR_CVS_ID
parameter(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
c datasets c datasets
character*80 hinfile, vinfile, outfile character*80 hinfile, vinfile, outfile
...@@ -30,7 +30,7 @@ c magic number for binary file identification ...@@ -30,7 +30,7 @@ c magic number for binary file identification
parameter(cmagic='123G') parameter(cmagic='123G')
c greens function c greens function
integer maxsamples,maxom integer maxsamples,maxom
parameter(maxsamples=600,maxom=maxsamples) parameter(maxsamples=3000,maxom=maxsamples)
complex hgabor(maxsamples, maxom) complex hgabor(maxsamples, maxom)
complex vgabor(maxsamples, maxom) complex vgabor(maxsamples, maxom)
complex hvgabor(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