mirror of https://gitlab.com/QEF/q-e.git
bug fixed in stres_us
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8808 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
d8f83e3866
commit
69097d9908
|
@ -72,7 +72,6 @@ SUBROUTINE stres_us( ik, gk, sigmanlc )
|
|||
nbnd_max, icur_blk, icyc, ibnd_begin, &
|
||||
nbands
|
||||
INTEGER, EXTERNAL :: ldim_block, lind_block, gind_block
|
||||
INTEGER :: istatus( mpi_status_size )
|
||||
REAL(DP) :: fac, xyz(3,3), q, evps, ddot
|
||||
REAL(DP), ALLOCATABLE :: qm1(:)
|
||||
COMPLEX(DP), ALLOCATABLE :: work1(:), work2(:), dvkb(:,:)
|
||||
|
|
Loading…
Reference in New Issue