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

dump all arguments

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: 4701
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 6c184583
......@@ -67,7 +67,7 @@ c get common blocks
include 'refract_seipar.inc'
include 'refract_opt.inc'
c
integer iargc, lastarg
integer iargc, lastarg, i
character*80 argument
c pgplot
integer pgp_open
......@@ -88,6 +88,14 @@ c------------------------------------------------------------------------------
c read command line arguments
c
call refract_cmdopt(version,device,lastarg)
if (debug) then
do i=1,iargc()
call getarg(i, argument)
print '(a,i3,a)','DEBUG: arg# ',i,': '
print '(a79)',argument(1:79)
enddo
endif
c
c------------------------------------------------------------------------------
c read input data files
......
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