Fix FULL_TO_BAND_BLOCKING

289c35ac · Andreas Marek · 3c546600 · 289c35ac
Commit 289c35ac authored Jan 25, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 19 additions and 3 deletions

src/elpa2_trans_ev_band_to_full_template.X90 src/elpa2_trans_ev_band_to_full_template.X90 +19 -3

No files found.
--- a/src/elpa2_trans_ev_band_to_full_template.X90
+++ b/src/elpa2_trans_ev_band_to_full_template.X90
@@ -963,15 +963,31 @@
 !          tmp2 = tmp1
 	  call timer%start("blas")
          if (l_rows>0) then
+#ifdef BAND_TO_FULL_BLOCKING
+
 #if REALCASE == 1
-            call PRECISION_TRMM('L', 'U', 'T', 'N', n_cols, l_cols, ONE, tmat_complete, cwy_blocking, tmp1, n_cols)
+            call PRECISION_TRMM('L', 'U', 'T', 'N',        &
+#endif
+#if COMPLEXCASE == 1
+            call PRECISION_TRMM('L', 'U', 'C', 'N',        &
+#endif
+                                n_cols, l_cols, ONE, tmat_complete, cwy_blocking, tmp1, n_cols)
            call PRECISION_GEMM('N', 'N', l_rows, l_cols, n_cols, -ONE, hvm, ubound(hvm,dim=1), tmp1, n_cols, ONE, q, ldq)
+
+
+#else /* BAND_TO_FULL_BLOCKING */
+
+#if REALCASE == 1
+            call PRECISION_TRMM('L', 'U', 'T', 'N',        &
 #endif
 #if COMPLEXCASE == 1
-            call PRECISION_TRMM('L', 'U', 'C', 'N', n_cols, l_cols, ONE, tmat(1,1,istep), ubound(tmat,dim=1), tmp1, n_cols)
+            call PRECISION_TRMM('L', 'U', 'C', 'N',        &
+#endif
+                                n_cols, l_cols, ONE, tmat(1,1,istep), ubound(tmat,dim=1), tmp1, n_cols)
            call PRECISION_GEMM('N', 'N', l_rows, l_cols, n_cols, -ONE, hvm, ubound(hvm,dim=1), &
                                tmp1, n_cols, ONE, q, ldq)
-#endif
+
+#endif  /* BAND_TO_FULL_BLOCKING */
          endif
 	  call timer%stop("blas")
 #endif /* WITH_MPI */