mirror of https://gitlab.com/QEF/q-e.git
- fix for alpha compilation (and bad check anyway)
- Makefile updated git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2886 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
4eb458269c
commit
cf63a9b56f
|
@ -154,6 +154,7 @@ MODULES = \
|
|||
../Modules/splinelib.o \
|
||||
../Modules/stick_base.o \
|
||||
../Modules/shmem_include.o \
|
||||
../Modules/task_groups.o \
|
||||
../Modules/timestep.o \
|
||||
../Modules/uspp.o \
|
||||
../Modules/version.o \
|
||||
|
|
|
@ -52,16 +52,16 @@ SUBROUTINE openfilq()
|
|||
iuwfc = 20
|
||||
lrwfc = 2 * nbnd * npwx
|
||||
CALL diropn (iuwfc, 'wfc', lrwfc, exst)
|
||||
IF (.NOT.exst) THEN
|
||||
#if defined (__OLDPUNCH)
|
||||
IF (.NOT.exst) THEN
|
||||
ndr = 4
|
||||
kunittmp = kunit
|
||||
CALL readfile_new( 'wave', ndr, edum, wdum, kunittmp, lrwfc, iuwfc, ierr )
|
||||
#endif
|
||||
IF( ierr > 0 ) &
|
||||
CALL errore ('openfilq', 'file '//trim(prefix)//'.wfc not found', 1)
|
||||
twfcollect=.NOT.exst
|
||||
END IF
|
||||
#endif
|
||||
!
|
||||
! The file with deltaV_{bare} * psi
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue