Bug fix: when the write/read option is used in pwcond for the case of different leads. (A. Smogunov)

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7782 c92efa57-630b-4861-b058-cf58834340f0

PWCOND/do_cond.f90

@@ -263,14 +263,14 @@ IF (lread_cond) THEN
   call save_cond (.false.,1,efl,nrzl,nocrosl,noinsl,   &
                   norbl,rl,rabl,betarl)
   if(ikind.eq.1) then
-    call save_cond (.false.,2,efs,nrzs,-1,      &
+    call save_cond (.false.,2,efs,nrzs,ik,      &
                              noinss,norbs,rs,rabs,betars)
     norbr = norbl
     nocrosr = nocrosl
     noinsr = noinsl
   endif
   if(ikind.eq.2) then
-    call save_cond (.false.,2,efs,nrzs,-1,      &
+    call save_cond (.false.,2,efs,nrzs,ik,      &
                              noinss,norbs,rs,rabs,betars)
 
     call save_cond (.false.,3,efr,nrzr,nocrosr,&

PWCOND/save_cond.f90

@@ -352,7 +352,7 @@ subroutine save_cond (lwrite, lsr, ef, nrz, nocros, noins,  &
       else
         allocate( zpseur(2, norb, norb) )
       endif
-      vppotr = vppotr
+      vppotr = vppot
       zr = z
       taunewr = taunew
       tblmr = tblm