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

- variable iudyn was associated (with use) and declared in the 

same subroutine


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2041 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2005-07-25 13:08:49 +00:00
parent 05881fc887
commit 8803543c2b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PH/q_points.f90
View File

@ -19,7 +19,7 @@ SUBROUTINE q_points ( )
implicit none
integer :: i, iq, iudyn, ierr
integer :: i, iq, ierr
real(kind = dp), allocatable, dimension(:) :: wq
@ -71,7 +71,6 @@ SUBROUTINE q_points ( )
! ... write the information on the grid of q-points to file
!
IF (ionode) THEN
iudyn = 26
OPEN (unit=iudyn, file=TRIM(fildyn)//'0', status='unknown', iostat=ierr)
IF ( ierr > 0 ) CALL errore ('phonon','cannot open file ' &
& // TRIM(fildyn) // '0', ierr)