From 69097d99087c310c23843dfece5ce897d84a06ab Mon Sep 17 00:00:00 2001 From: nvarini Date: Wed, 21 Mar 2012 12:06:56 +0000 Subject: [PATCH] bug fixed in stres_us git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8808 c92efa57-630b-4861-b058-cf58834340f0 --- PW/src/stres_us.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/PW/src/stres_us.f90 b/PW/src/stres_us.f90 index 12c8c5709..0827bc56f 100644 --- a/PW/src/stres_us.f90 +++ b/PW/src/stres_us.f90 @@ -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(:,:)