- token out of place, this was causing XLF to stop with an error

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5069 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2008-07-24 09:56:01 +00:00
parent 77c292d4d6
commit 737d1347f8
1 changed files with 1 additions and 1 deletions

View File

@ -275,7 +275,7 @@ SUBROUTINE read_casino(iunps,nofiles)
DO k=1,orbs
READ(j,'(13x,a2)', err=300) label
READ(j,*), tmp, nquant, lquant
READ(j,*) tmp, nquant, lquant
IF ( .NOT. groundstate ) THEN
found = .FALSE.