unused variables if serial

cp2k · Jun 17, 2019 · d219012 · d219012
1 parent a7e4ec8
commit d219012
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/qs_localization_methods.F b/src/qs_localization_methods.F
@@ -2021,12 +2021,16 @@ SUBROUTINE scdm_qrfact(vectors)
       CHARACTER(len=*), PARAMETER :: routineN = 'scdm_qrfact', routineP = moduleN//':'//routineN
 
       INTEGER                                            :: handle, info, lwork, ncolT, nrowT
-      INTEGER, ALLOCATABLE, DIMENSION(:)                 :: ipiv
       INTEGER, DIMENSION(9)                              :: descc
-      REAL(KIND=dp), DIMENSION(:), POINTER               :: tau, work
-      REAL(KIND=dp), DIMENSION(:, :), POINTER            :: a
+      REAL(KIND=dp), DIMENSION(:), POINTER               :: tau
       TYPE(cp_fm_struct_type), POINTER                   :: cstruct
       TYPE(cp_fm_type), POINTER                          :: CTp, Qf, tmp
+#if defined(__SCALAPACK)
+      INTEGER                                            :: lwork
+      INTEGER, ALLOCATABLE, DIMENSION(:)                 :: ipiv
+      REAL(KIND=dp), DIMENSION(:, :), POINTER            :: a
+      REAL(KIND=dp), DIMENSION(:), POINTER               :: work
+#endif
 
       CALL timeset(routineN, handle)