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

Oops ... 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10474 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2013-09-23 12:28:15 +00:00
parent ea106b8a04
commit 7c8362bcf9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GWW/pw4gww/pola_lanczos.f90
View File

@ -2008,9 +2008,9 @@ subroutine pc_operator_t_r(numpw,state,evc_r,ispin,fc)
INTEGER, INTENT(in) :: numpw!number of vectors
INTEGER, INTENT(in) :: ispin!spin channel
REAL(kind=DP), INTENT(inout) :: state(fc%nrxxt,numpw)!state to be projected
! REAL(kind=DP), INTENT(inout) :: evc_t(fc%nrxxt,num_nbndv(ispin))
! REAL(kind=DP), INTENT(inout) :: evc_r(fc%nrxxt,num_nbndv(ispin))
! above syntax not accepted by all compilers
REAL(kind=DP), INTENT(inout) :: evc_t(fc%nrxxt,*)!valence states
REAL(kind=DP), INTENT(inout) :: evc_r(fc%nrxxt,*)!valence states
INTEGER :: ii,iv,ig
REAL(kind=DP), ALLOCATABLE :: prod(:,:)