Commit d6b73976 authored by Claus Kleinwort's avatar Claus Kleinwort
Browse files

fix for pechk

git-svn-id: http://svnsrv.desy.de/public/MillepedeII/trunk@112 3547b9b0-65b8-46d3-b95d-921b3f43af62
parent 357d4892
...@@ -1652,7 +1652,7 @@ SUBROUTINE pechk(ibuf, nerr) ...@@ -1652,7 +1652,7 @@ SUBROUTINE pechk(ibuf, nerr)
DO WHILE(inder(is+1) /= 0.AND.is < nst) DO WHILE(inder(is+1) /= 0.AND.is < nst)
is=is+1 is=is+1
END DO END DO
IF(ja+1 /= jb.OR.glder(jb) >= 0.0) CONTINUE IF(ja+1 /= jb.OR.glder(jb) >= 0.0) CYCLE outer
! special data ! special data
jsp=jb ! pointer to special data jsp=jb ! pointer to special data
is=is+IFIX(-glder(jb)+0.5) ! skip NSP words is=is+IFIX(-glder(jb)+0.5) ! skip NSP words
......
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