Commit c20c2f6d 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: 3060
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 0e4e65ba
c this is <phadi.f>
c------------------------------------------------------------------------------
c ($Id: phadi.f,v 1.11 2007-06-05 09:18:48 tforb Exp $)
c ($Id: phadi.f,v 1.12 2010-07-16 09:32:37 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -40,11 +40,11 @@ c
& 'PHADI V1.4 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID=
& '$Id: phadi.f,v 1.11 2007-06-05 09:18:48 tforb Exp $')
& '$Id: phadi.f,v 1.12 2010-07-16 09:32:37 tforb Exp $')
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
parameter(maxtraces=200, totmaxsamples=200000)
parameter(maxtraces=300, totmaxsamples=2000000)
integer lu
parameter(lu=12)
real data(totmaxsamples)
......
Markdown is supported
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