mirror of https://gitlab.com/QEF/q-e.git
Update bloch2wan.f90
This commit is contained in:
parent
a6830c1b14
commit
dd04f145d2
|
@ -737,7 +737,7 @@
|
|||
! IF (ierr /= 0) CALL errore('vmebloch2wan', 'Error allocating wb', 1)
|
||||
! bvec = 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
|
||||
READ(iubvec,*) tempfile
|
||||
READ(iubvec,*) nkstot_tmp, nnb
|
||||
|
@ -785,7 +785,7 @@
|
|||
!
|
||||
IF (ios /= 0) THEN
|
||||
! 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
|
||||
!
|
||||
DO ik = 1, nkstot
|
||||
|
|
Loading…
Reference in New Issue