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

no double backslash

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: 3008
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 7f8ac6b7
c this is <refract_pgparameters.f>
c------------------------------------------------------------------------------
c $Id: refract_pgparameters.f,v 2.2 2007-06-21 11:06:49 tforb Exp $
c $Id: refract_pgparameters.f,v 2.3 2010-03-05 14:40:13 tforb Exp $
c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -73,7 +73,7 @@ c
c
if (plflag_reduce) then
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'v\\dred\\u: ',10)
call refract_sub_pgpara(parastring, nchar, 'v\dred\u: ',10)
mm=int(plpar_vred*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
......
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