- bug fix, wave initialization with force pairing

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3276 c92efa57-630b-4861-b058-cf58834340f0
2006-07-17 14:10:42 +00:00 · 2006-07-17 14:10:42 +00:00 · ca1f797f81
parent b14a22be88
commit ca1f797f81
1 changed files with 1 additions and 1 deletions
--- a/CPV/fromscra.f90
+++ b/CPV/fromscra.f90
@ -182,7 +182,7 @@ CONTAINS
       !
    END DO

-    IF( force_pairing ) cm(1,iupdwn(2):iupdwn(2)+nupdwn(2)-1) = cm(1,1:nupdwn(2))
+    IF( force_pairing ) cm(:,iupdwn(2):iupdwn(2)+nupdwn(2)-1) = cm(:,1:nupdwn(2))
    !
    if( iprsta .ge. 3 ) CALL dotcsc( eigr, cm, ngw, nbsp )
    !