Pass tmat_dev from bandred to band_to_full

16300a2e · Andreas Marek · 037804ba · 16300a2e · 16300a2e · 16300a2e
Commit 16300a2e authored Feb 04, 2017 by Andreas Marek
Showing with 0 additions and 8 deletions

src/elpa2_bandred_template.X90 src/elpa2_bandred_template.X90 +0 -2

src/elpa2_template.X90 src/elpa2_template.X90 +0 -4

src/elpa2_trans_ev_band_to_full_template.X90 src/elpa2_trans_ev_band_to_full_template.X90 +0 -2

No files found.
--- a/src/elpa2_bandred_template.X90
+++ b/src/elpa2_bandred_template.X90
@@ -67,9 +67,7 @@
    (na, a, &
     a_dev, &
     lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
-#if REALCASE == 1
     tmat_dev, &
-#endif
     wantDebug, useGPU, success &
 #if REALCASE == 1
     , useQR)

--- a/src/elpa2_template.X90
+++ b/src/elpa2_template.X90
@@ -293,9 +293,7 @@
      (na, a, &
       a_dev, &
       lda, nblk, nbw, matrixCols, num_blocks, mpi_comm_rows, mpi_comm_cols, tmat, &
-#if REALCASE == 1
      tmat_dev,  &
-#endif
      wantDebug, do_useGPU, success &
 #if REALCASE == 1
      , useQRActual &
@@ -445,9 +443,7 @@
       (na, nev, nblk, nbw, a, &
        a_dev, &
        lda, tmat, &
-#if REALCASE == 1
        tmat_dev,  &
-#endif
        q,  &
 #if REALCASE == 1
        q_dev, &

--- a/src/elpa2_trans_ev_band_to_full_template.X90
+++ b/src/elpa2_trans_ev_band_to_full_template.X90
@@ -57,9 +57,7 @@
    (na, nqc, nblk, nbw, a, &
    a_dev,                  &
    lda, tmat,              &
-#if REALCASE == 1
    tmat_dev,               &
-#endif
    q,                      &
 #if REALCASE == 1
    q_dev,                  &