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

removed some unused variables

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: 517
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 27043722
c this is <siggen.f>
c------------------------------------------------------------------------------
c ($Id: siggen.f,v 1.4 2001-10-25 12:01:02 forbrig Exp $)
c ($Id: siggen.f,v 1.5 2001-10-25 12:01:41 forbrig Exp $)
c
c 24/10/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -16,7 +16,7 @@ c
character*(*) version
parameter(version='SIGGEN V1.0 SIGnal GENerator')
character*(*) SIGGEN_CVS_ID
parameter(SIGGEN_CVS_ID='$Id: siggen.f,v 1.4 2001-10-25 12:01:02 forbrig Exp $')
parameter(SIGGEN_CVS_ID='$Id: siggen.f,v 1.5 2001-10-25 12:01:41 forbrig Exp $')
c
c parameters
integer nsig,ncyc
......@@ -25,7 +25,7 @@ c parameters
character*80 filename
c internal parameters
integer nsamples,i
double precision ti,freq,tend,b,fh1,fh2
double precision ti,tend,b
double precision myexpo
real pi
parameter(pi= 3.1415926535897)
......
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