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

fix for pede (mrestol)

git-svn-id: http://svnsrv.desy.de/public/MillepedeII/trunk@113 3547b9b0-65b8-46d3-b95d-921b3f43af62
parent d6b73976
......@@ -6913,7 +6913,7 @@ SUBROUTINE intext(text,nline)
WRITE(*,*) 'ERROR: need 1.0D-10 <= MRESTL ', &
'<= 1.0D-04, but get ', dnum(1)
ELSE
mrestl=IDNINT(dnum(1))
mrestl=dnum(1)
END IF
END IF
RETURN
......
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