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

Update bloch2wan.f90

This commit is contained in:
Hyungjun Lee 2020-11-25 18:49:14 +00:00
parent a6830c1b14
commit dd04f145d2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
EPW/src/bloch2wan.f90
View File

@ -737,7 +737,7 @@
! IF (ierr /= 0) CALL errore('vmebloch2wan', 'Error allocating wb', 1) ! IF (ierr /= 0) CALL errore('vmebloch2wan', 'Error allocating wb', 1)
! bvec = zero ! bvec = zero
! wb = zero ! wb = zero
CALL errore ('vmebloch2wan','You selected vme =.true. but error opening' // tempfile, 0) CALL errore ('vmebloch2wan','You selected vme =.true. but error opening' // tempfile, 1)
ELSE ELSE
READ(iubvec,*) tempfile READ(iubvec,*) tempfile
READ(iubvec,*) nkstot_tmp, nnb READ(iubvec,*) nkstot_tmp, nnb
@ -785,7 +785,7 @@
! !
IF (ios /= 0) THEN IF (ios /= 0) THEN
! if it doesn't exist, then we just set the mmn to zero ! if it doesn't exist, then we just set the mmn to zero
CALL errore ('vmebloch2wan','error opening' // tempfile, 0) CALL errore ('vmebloch2wan','error opening' // tempfile, 1)
ELSE ELSE
! !
DO ik = 1, nkstot DO ik = 1, nkstot