From ca1f797f811a19d23340f11492b0ac84c014ac12 Mon Sep 17 00:00:00 2001
From: cavazzon <cavazzon@c92efa57-630b-4861-b058-cf58834340f0>
Date: Mon, 17 Jul 2006 14:10:42 +0000
Subject: [PATCH] - 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
---
 CPV/fromscra.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CPV/fromscra.f90 b/CPV/fromscra.f90
index 9a13c4aae..7e049c314 100644
--- 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 )
     !