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

correction

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: 2381
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 1d86610a
c this is <siggen.f>
c------------------------------------------------------------------------------
c ($Id: siggen.f,v 1.15 2007-09-12 14:08:52 tforb Exp $)
c ($Id: siggen.f,v 1.16 2007-09-12 14:09:16 tforb Exp $)
c
c 24/10/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -22,7 +22,7 @@ c
parameter(version='SIGGEN V1.5 SIGnal GENerator')
character*(*) SIGGEN_CVS_ID
parameter(SIGGEN_CVS_ID=
& '$Id: siggen.f,v 1.15 2007-09-12 14:08:52 tforb Exp $')
& '$Id: siggen.f,v 1.16 2007-09-12 14:09:16 tforb Exp $')
c
c parameters
integer nsig,ncyc,s
......@@ -591,7 +591,7 @@ c
print *,'derived parameters:'
print 52,'number of samples',nsamples,' '
endif
if (nsample .gt. maxsamples) stop 'too many samples'
if (nsamples .gt. maxsamples) stop 'too many samples'
do i=1,nsamples
data(i)=a*(2.*tf_rand()-1.)
enddo
......
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