unused variables in serial version

cp2k · Jun 17, 2019 · 18b7828 · 18b7828
1 parent 29d30b5
commit 18b7828
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/fm/cp_fm_basic_linalg.F b/src/fm/cp_fm_basic_linalg.F
@@ -2126,6 +2126,7 @@ SUBROUTINE cp_fm_pdgeqpf(matrix, tau, nrow, ncol, first_row, first_col)
       ALLOCATE (work(2*nrow))
       ALLOCATE (ipiv(ncol))
       info = 0
+      tau = 0
 
 #if defined(__SCALAPACK)
       descc(:) = matrix%matrix_struct%descriptor(:)
@@ -2140,6 +2141,11 @@ SUBROUTINE cp_fm_pdgeqpf(matrix, tau, nrow, ncol, first_row, first_col)
       ! Call SCALAPACK routine to get QR decomposition of CTs
       CALL pdgeqpf(nrow, ncol, a, first_row, first_col, descc, ipiv, tau, work, lwork, info)
       CPASSERT(INFO == 0)
+#else
+      ! NIY
+       ii = 1 
+       tau(first_row) = 0
+       tau(first_col) = 0       
 #endif
 
       DEALLOCATE (work)
@@ -2199,6 +2205,11 @@ SUBROUTINE cp_fm_pdorgqr(matrix, tau, nrow, first_row, first_col)
       ! Call SCALAPACK routine to get Q
       CALL pdorgqr(nrow, nrow, nrow, a, first_row, first_col, descc, tau, work, lwork, info)
       CPASSERT(INFO == 0)
+#else
+      ! NIY
+       ii = 1
+       tau(first_row) = 0
+       tau(first_col) = 0
 #endif
 
       DEALLOCATE (work)