Commit 98fb8a3e authored by Andreas Marek's avatar Andreas Marek

Cleanup of some interfaces

parent 40de4b47
......@@ -64,11 +64,8 @@
&MATH_DATATYPE&
&_&
&PRECISION &
(na, a, &
a_dev, &
lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
tmat_dev, &
wantDebug, useGPU, success &
(na, a, a_dev, lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
tmat_dev, wantDebug, useGPU, success &
#if REALCASE == 1
, useQR)
#endif
......
......@@ -291,14 +291,12 @@
&_&
&PRECISION &
(na, a, &
a_dev, &
lda, nblk, nbw, matrixCols, num_blocks, mpi_comm_rows, mpi_comm_cols, tmat, &
tmat_dev, &
wantDebug, do_useGPU, success &
a_dev, lda, nblk, nbw, matrixCols, num_blocks, mpi_comm_rows, mpi_comm_cols, tmat, &
tmat_dev, wantDebug, do_useGPU, success &
#if REALCASE == 1
, useQRActual &
, useQRActual &
#endif
)
)
if (.not.(success)) return
ttt1 = MPI_Wtime()
if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
......@@ -441,10 +439,7 @@
&_&
&PRECISION &
(na, nev, nblk, nbw, a, &
a_dev, &
lda, tmat, &
tmat_dev, &
q, &
a_dev, lda, tmat, tmat_dev, q, &
#if REALCASE == 1
q_dev, &
#endif
......
......@@ -54,11 +54,7 @@
&MATH_DATATYPE&
&_&
&PRECISION &
(na, nqc, nblk, nbw, a, &
a_dev, &
lda, tmat, &
tmat_dev, &
q, &
(na, nqc, nblk, nbw, a, a_dev, lda, tmat, tmat_dev, q, &
#if REALCASE == 1
q_dev, &
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment