- a syntax error in a write statement was causing ibm compiler to stop

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6247 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
ccavazzoni 2009-12-12 17:18:59 +00:00
parent 2d451be769
commit 148576a7c6
1 changed files with 1 additions and 1 deletions

View File

@ -677,7 +677,7 @@ CONTAINS
END DO
IF( ionode ) write(*,'(" Reading rule: ",A20,A20)' ), var, value
IF( ionode ) write(*,'(" Reading rule: ",A20,A20)' ) var, value
assigned = .TRUE.
IF ( matches( "ISAVE", var ) ) THEN