Commit 3bb0b21f authored by Claus Kleinwort's avatar Claus Kleinwort
Browse files

fix for modified text parser

git-svn-id: http://svnsrv.desy.de/public/MillepedeII/trunk@173 3547b9b0-65b8-46d3-b95d-921b3f43af62
parent a9b81a1a
......@@ -221,10 +221,21 @@ SUBROUTINE ratext(text,nums,dnum)
ic=0
k=0
DO i=1,icd(1,1)-1
IF(ia == 0.AND.text(i:i) /= ' ') ia=i
IF(ia > 0.AND.text(i:i) == ' ') k=k+1
IF(k == 0) ib=i
IF(text(i:i) /= ' ') ic=i
! (still) leading blanks ?
IF(ia == 0) THEN
IF(text(i:i) /= ' ') THEN
ia=i ! first non blank char
ELSE
CYCLE ! skip
END IF
END IF
! non blank char ?
IF(text(i:i) /= ' ') THEN
ic=i ! last non blank char
ELSE
k=i ! new blank
END IF
IF(k == 0) ib=i ! last non blank char in keyword
END DO
keya=ia
keyb=ib
......
......@@ -52,7 +52,7 @@
!! 1. Download the software package from the DESY \c svn server to
!! \a target directory, e.g.:
!!
!! svn checkout http://svnsrv.desy.de/public/MillepedeII/tags/V04-05-00 target
!! svn checkout http://svnsrv.desy.de/public/MillepedeII/tags/V04-05-01 target
!!
!! 2. Create **Pede** executable (in \a target directory):
!!
......
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