scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cleanup. File iunigk is opened only when used. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5079 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2008-07-28 08:06:01 +00:00
parent 872dfd9859
commit 3e7f0affa6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PH/openfilq.f90
View File

@ -18,6 +18,7 @@ SUBROUTINE openfilq()
lrwfc, lrdwf, lrbar, lrcom, lrdvkb3, &
lrdrhous, lrebar, lrdrho
USE control_ph, ONLY : epsil, zue, recover, trans, elph
USE qpoint, ONLY : nksq
USE output, ONLY : fildyn, fildvscf
USE wvfct, ONLY : nbnd, npwx
USE gvect, ONLY : nrx1, nrx2, nrx3, nrxx
@ -94,7 +95,7 @@ SUBROUTINE openfilq()
! The igk at a given k (and k+q if q!=0)
!
iunigk = 24
CALL seqopn (iunigk, 'igk', 'unformatted', exst)
IF (nksq > 1) CALL seqopn (iunigk, 'igk', 'unformatted', exst)
!
! a formatted file which contains the dynamical matrix in cartesian
! coordinates is opened in the current directory