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

Missing rewind in dfile_get_qlist. As the file was opened with 

option 'append' this causes the program to go to the end of the
file and thus the first read option was giving EOF.

MCB



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9044 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
calandra 2012-05-31 16:18:52 +00:00
parent 678f39872a
commit e2b88699e6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PHonon/PH/dfile_autoname.f90
View File

@ -41,14 +41,14 @@ FUNCTION open_dfile_directory(basename, prefix)
INTEGER :: open_dfile_directory
INTEGER :: ios
CHARACTER(len=256) :: filename
! LOGICAL :: exst
LOGICAL :: exst
!
filename = dfile_directory_file(basename, prefix)
!print*, "opening dir:", TRIM(filename)
! print*, "opening dir:", TRIM(filename)
open_dfile_directory = find_free_unit()
!
! INQUIRE( FILE = TRIM(filename), EXIST = exst )
!IF(.not.exst) print*, "does not exist: >",TRIM(filename),"<"
INQUIRE( FILE = TRIM(filename), EXIST = exst )
IF(.not.exst) print*, "does not exist: >",TRIM(filename),"<"
#ifdef __XLF
OPEN(UNIT = open_dfile_directory, &
ACCESS= 'sequential', &
@ -63,6 +63,7 @@ FUNCTION open_dfile_directory(basename, prefix)
#endif
!
IF(ios/=0) CALL errore('open_dfile_directory','Cannot open: '//TRIM(filename),ABS(ios))
write(6,*) 'ios=',ios
!
RETURN
!----------------------------------------------------------------------
@ -226,6 +227,7 @@ SUBROUTINE dfile_get_qlist(xqs, nqs, name, prefix)
!
iunit = open_dfile_directory(basename, prefix)
!
rewind(iunit)
GET_Q_LOOP : &
DO iq = 1,nqs
READ(iunit,*,iostat=ios) xqs(:,iq)