Commit 037804ba authored by Andreas Marek's avatar Andreas Marek
Browse files

Pass a_dev from bandred to band_to_full

parent fb998f54
......@@ -65,9 +65,7 @@
&_&
&PRECISION &
(na, a, &
#if REALCASE == 1
a_dev, &
#endif
lda, nblk, nbw, matrixCols, numBlocks, mpi_comm_rows, mpi_comm_cols, tmat, &
#if REALCASE == 1
tmat_dev, &
......@@ -2027,14 +2025,14 @@
endif
endif
!#if COMPLEXCASE == 1
! successCUDA = cuda_free(umc_dev)
! if (.not.(successCUDA)) then
! print *,"bandred_complex: error in cudaFree"
!
! stop
! endif
!#endif
#if COMPLEXCASE == 1
successCUDA = cuda_free(umc_dev)
if (.not.(successCUDA)) then
print *,"bandred_complex: error in cudaFree"
stop
endif
#endif
if (useGPU) then
successCUDA = cuda_free(vmr_dev)
......
......@@ -291,10 +291,8 @@
&_&
&PRECISION &
(na, a, &
#if REALCASE == 1
a_dev, &
#endif
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, &
#if REALCASE == 1
tmat_dev, &
#endif
......@@ -445,9 +443,7 @@
&_&
&PRECISION &
(na, nev, nblk, nbw, a, &
#if REALCASE == 1
a_dev, &
#endif
lda, tmat, &
#if REALCASE == 1
tmat_dev, &
......
......@@ -55,9 +55,7 @@
&_&
&PRECISION &
(na, nqc, nblk, nbw, a, &
#if REALCASE == 1
a_dev, &
#endif
lda, tmat, &
#if REALCASE == 1
tmat_dev, &
......@@ -158,9 +156,7 @@
#endif
#endif
#if REALCASE == 1
integer(kind=C_intptr_T) :: a_dev ! passed from bandred_real at the moment not used since copied in bandred_real
#endif
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
integer(kind=ik) :: max_blocks_row, max_blocks_col, max_local_rows, &
......
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