Small bug fix: uninitialized printing variable.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4852 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2008-04-30 07:26:23 +00:00
parent 4fc14af884
commit 9476f6098d
1 changed files with 1 additions and 0 deletions

View File

@ -119,6 +119,7 @@ SUBROUTINE do_cond(nodenumber)
! the list of energies is read
DO ien = 1, nenergy
READ(5, *, err=400, iostat=ios) earr(ien)
tran_tot(ien) = 0.d0
ENDDO
ELSE
! the array of energies is automatically formed