- 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:
giannozz 2006-03-08 10:10:06 +00:00
parent 4eb458269c
commit cf63a9b56f
2 changed files with 3 additions and 2 deletions

View File

@ -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 \

View File

@ -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
!