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

new size of buffers

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: 1612
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 279ec44c
c this is <gabor.f> c this is <gabor.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c ($Id: gabor.f,v 1.9 2004-09-09 13:15:46 tforb Exp $) c ($Id: gabor.f,v 1.10 2005-01-10 19:31:36 tforb Exp $)
c c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt) c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c c
...@@ -18,12 +18,12 @@ c ...@@ -18,12 +18,12 @@ c
character*(*) version character*(*) version
parameter(version='GABOR V1.2 calculate gabor matrix') parameter(version='GABOR V1.2 calculate gabor matrix')
character*(*) GABOR_CVS_ID character*(*) GABOR_CVS_ID
parameter(GABOR_CVS_ID='$Id: gabor.f,v 1.9 2004-09-09 13:15:46 tforb Exp $') parameter(GABOR_CVS_ID='$Id: gabor.f,v 1.10 2005-01-10 19:31:36 tforb Exp $')
c c
c input dataset c input dataset
character*80 filename character*80 filename
integer maxtraces, totmaxsamples integer maxtraces, totmaxsamples
parameter(maxtraces=40, totmaxsamples=2000000) parameter(maxtraces=40, totmaxsamples=4000000)
integer lu integer lu
parameter(lu=12) parameter(lu=12)
real data(totmaxsamples) real data(totmaxsamples)
......
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