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

Cleanup of some interfaces

parent 40de4b47
...@@ -64,11 +64,8 @@ ...@@ -64,11 +64,8 @@
&MATH_DATATYPE& &MATH_DATATYPE&
&_& &_&
&PRECISION & &PRECISION &
(na, a, & (na, a, a_dev, lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
a_dev, & tmat_dev, wantDebug, useGPU, success &
lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
tmat_dev, &
wantDebug, useGPU, success &
#if REALCASE == 1 #if REALCASE == 1
, useQR) , useQR)
#endif #endif
......
...@@ -291,14 +291,12 @@ ...@@ -291,14 +291,12 @@
&_& &_&
&PRECISION & &PRECISION &
(na, a, & (na, a, &
a_dev, & a_dev, lda, nblk, nbw, matrixCols, num_blocks, mpi_comm_rows, mpi_comm_cols, tmat, &
lda, nblk, nbw, matrixCols, num_blocks, mpi_comm_rows, mpi_comm_cols, tmat, & tmat_dev, wantDebug, do_useGPU, success &
tmat_dev, &
wantDebug, do_useGPU, success &
#if REALCASE == 1 #if REALCASE == 1
, useQRActual & , useQRActual &
#endif #endif
) )
if (.not.(success)) return if (.not.(success)) return
ttt1 = MPI_Wtime() ttt1 = MPI_Wtime()
if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) & if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
...@@ -441,10 +439,7 @@ ...@@ -441,10 +439,7 @@
&_& &_&
&PRECISION & &PRECISION &
(na, nev, nblk, nbw, a, & (na, nev, nblk, nbw, a, &
a_dev, & a_dev, lda, tmat, tmat_dev, q, &
lda, tmat, &
tmat_dev, &
q, &
#if REALCASE == 1 #if REALCASE == 1
q_dev, & q_dev, &
#endif #endif
......
...@@ -54,11 +54,7 @@ ...@@ -54,11 +54,7 @@
&MATH_DATATYPE& &MATH_DATATYPE&
&_& &_&
&PRECISION & &PRECISION &
(na, nqc, nblk, nbw, a, & (na, nqc, nblk, nbw, a, a_dev, lda, tmat, tmat_dev, q, &
a_dev, &
lda, tmat, &
tmat_dev, &
q, &
#if REALCASE == 1 #if REALCASE == 1
q_dev, & q_dev, &
#endif #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