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

some changes?

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: 1431
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent e2d1b4fd
c this is <gabor.f>
c------------------------------------------------------------------------------
c ($Id: gabor.f,v 1.6 2001-08-02 09:57:42 forbrig Exp $)
c ($Id: gabor.f,v 1.7 2003-12-23 16:39:16 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -17,12 +17,12 @@ c
character*(*) version
parameter(version='GABOR V1.1 calculate gabor matrix')
character*(*) GABOR_CVS_ID
parameter(GABOR_CVS_ID='$Id: gabor.f,v 1.6 2001-08-02 09:57:42 forbrig Exp $')
parameter(GABOR_CVS_ID='$Id: gabor.f,v 1.7 2003-12-23 16:39:16 tforb Exp $')
c
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
parameter(maxtraces=300, totmaxsamples=200000)
parameter(maxtraces=10, totmaxsamples=500000)
integer lu
parameter(lu=12)
real data(totmaxsamples)
......@@ -34,7 +34,7 @@ c input dataset
c processing dataset
integer maxsamples, maxnsamples, nsamples, nfny
integer maxvalues
parameter(maxsamples=10000,maxvalues=10000)
parameter(maxsamples=100000,maxvalues=100000)
integer chain(maxtraces), first
real dt
real df
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: gsexx_TDAT2.cc,v 1.5 2003-12-17 17:07:43 tforb Exp $
* $Id: gsexx_TDAT2.cc,v 1.6 2003-12-23 16:39:16 tforb Exp $
* \author Thomas Forbriger
* \date 29/03/2002
*
......@@ -19,7 +19,7 @@
#define TF_GSEXX_TDAT2_CC_VERSION \
"TF_GSEXX_TDAT2_CC V1.0 "
#define TF_GSEXX_TDAT2_CC_CVSID \
"$Id: gsexx_TDAT2.cc,v 1.5 2003-12-17 17:07:43 tforb Exp $"
"$Id: gsexx_TDAT2.cc,v 1.6 2003-12-23 16:39:16 tforb Exp $"
#include <gsexx.h>
#include "gsexx_TDAT2.h"
......@@ -183,7 +183,7 @@ std::string TDAT2write::operator()(const intT& value)
if (this->TDAT2sum::nread() == 0)
{
retval+=TDAT2sum::GSEID;
retval+='\n';
retval+=" \n";
}
if (!this->TDAT2sum::hot()) throw
Terror("ERROR (TDAT2write): writing more samples than specified!");
......
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