Commit cce423fc authored by Andreas Marek's avatar Andreas Marek

Remove some unused variables

parent b97720fb
...@@ -58,7 +58,7 @@ module mod_check_for_gpu ...@@ -58,7 +58,7 @@ module mod_check_for_gpu
integer(kind=ik), intent(out) :: numberOfDevices integer(kind=ik), intent(out) :: numberOfDevices
integer(kind=ik) :: deviceNumber, mpierr, maxNumberOfDevices integer(kind=ik) :: deviceNumber, mpierr, maxNumberOfDevices
logical :: gpuAvailable logical :: gpuAvailable
character(len=1024) :: envname !character(len=1024) :: envname
gpuAvailable = .false. gpuAvailable = .false.
......
...@@ -95,9 +95,6 @@ ...@@ -95,9 +95,6 @@
l_cols_qreorg, np, l_idx, nqcols1, nqcols2 l_cols_qreorg, np, l_idx, nqcols1, nqcols2
integer(kind=ik) :: my_proc, n_procs, my_prow, my_pcol, np_rows, & integer(kind=ik) :: my_proc, n_procs, my_prow, my_pcol, np_rows, &
np_cols, mpierr np_cols, mpierr
#ifdef WITH_MPI
integer(kind=ik) :: my_mpi_status(mpi_status_size)
#endif
integer(kind=ik) :: np_next, np_prev, np_rem integer(kind=ik) :: np_next, np_prev, np_rem
integer(kind=ik) :: idx(na), idx1(na), idx2(na) integer(kind=ik) :: idx(na), idx1(na), idx2(na)
integer(kind=ik) :: coltyp(na), idxq1(na), idxq2(na) integer(kind=ik) :: coltyp(na), idxq1(na), idxq2(na)
......
...@@ -586,7 +586,7 @@ subroutine solve_tridi_& ...@@ -586,7 +586,7 @@ subroutine solve_tridi_&
real(kind=REAL_DATATYPE), allocatable :: work(:), qtmp(:), ds(:), es(:) real(kind=REAL_DATATYPE), allocatable :: work(:), qtmp(:), ds(:), es(:)
real(kind=REAL_DATATYPE) :: dtmp real(kind=REAL_DATATYPE) :: dtmp
integer(kind=ik) :: i, j, lwork, liwork, info, mpierr integer(kind=ik) :: i, j, lwork, liwork, info
integer(kind=ik), allocatable :: iwork(:) integer(kind=ik), allocatable :: iwork(:)
logical, intent(in) :: wantDebug logical, intent(in) :: wantDebug
......
...@@ -142,7 +142,7 @@ ...@@ -142,7 +142,7 @@
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
integer(kind=ik) :: totalblocks, max_blocks_row, max_blocks_col, max_local_rows, max_local_cols integer(kind=ik) :: totalblocks, max_blocks_row, max_blocks_col, max_local_rows, max_local_cols
integer(kind=ik) :: l_cols, l_rows, l_colh, nstor integer(kind=ik) :: l_cols, l_rows, l_colh, nstor
integer(kind=ik) :: istep, i, n, nc, ic, ics, ice, nb, cur_pcol integer(kind=ik) :: istep, n, nc, ic, ics, ice, nb, cur_pcol
integer(kind=ik) :: hvn_ubnd, hvm_ubnd integer(kind=ik) :: hvn_ubnd, hvm_ubnd
#if REALCASE == 1 #if REALCASE == 1
......
...@@ -134,7 +134,7 @@ call prmat(na,useGpu,a_mat,a_dev,lda,matrixCols,nblk,my_prow,my_pcol,np_rows,np_ ...@@ -134,7 +134,7 @@ call prmat(na,useGpu,a_mat,a_dev,lda,matrixCols,nblk,my_prow,my_pcol,np_rows,np_
logical, parameter :: mat_vec_as_one_block = .true. logical, parameter :: mat_vec_as_one_block = .true.
! id in processor row and column and total numbers of processor rows and columns ! id in processor row and column and total numbers of processor rows and columns
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, my_rank integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols
integer(kind=ik) :: mpierr integer(kind=ik) :: mpierr
integer(kind=ik) :: totalblocks, max_loc_block_rows, max_loc_block_cols, max_local_rows, & integer(kind=ik) :: totalblocks, max_loc_block_rows, max_loc_block_cols, max_local_rows, &
max_local_cols max_local_cols
......
...@@ -90,7 +90,7 @@ subroutine elpa_reduce_add_vectors_& ...@@ -90,7 +90,7 @@ subroutine elpa_reduce_add_vectors_&
integer(kind=ik) :: myps, mypt, nps, npt integer(kind=ik) :: myps, mypt, nps, npt
integer(kind=ik) :: n, lc, k, i, ips, ipt, ns, nl, mpierr integer(kind=ik) :: n, lc, k, i, ips, ipt, ns, nl, mpierr
integer(kind=ik) :: lcm_s_t, nblks_tot integer(kind=ik) :: lcm_s_t, nblks_tot
integer(kind=ik) :: auxstride, tylerk integer(kind=ik) :: auxstride
call obj%timer%start("elpa_reduce_add_vectors_& call obj%timer%start("elpa_reduce_add_vectors_&
&MATH_DATATYPE& &MATH_DATATYPE&
......
...@@ -147,9 +147,6 @@ ...@@ -147,9 +147,6 @@
#endif #endif
#endif /* COMPLEXCASE == 1 */ #endif /* COMPLEXCASE == 1 */
#if REALCASE == 1
real(kind=REAL_DATATYPE) :: eps
#endif
logical, intent(in) :: useGPU logical, intent(in) :: useGPU
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
...@@ -157,8 +154,10 @@ ...@@ -157,8 +154,10 @@
#if REALCASE == 1 #if REALCASE == 1
integer(kind=ik) :: vmrCols integer(kind=ik) :: vmrCols
#endif #endif
integer(kind=ik) :: mynlc #ifdef WITH_OPENMP
integer(kind=ik) :: i, j, lcs, lce, lrs, lre, lc, lr, cur_pcol, n_cols, nrow integer(kind=ik) :: mynlc, lrs, transformChunkSize
#endif
integer(kind=ik) :: i, j, lcs, lce, lre, lc, lr, cur_pcol, n_cols, nrow
integer(kind=ik) :: istep, ncol, lch, lcx, nlc integer(kind=ik) :: istep, ncol, lch, lcx, nlc
integer(kind=ik) :: tile_size, l_rows_tile, l_cols_tile integer(kind=ik) :: tile_size, l_rows_tile, l_cols_tile
...@@ -216,7 +215,7 @@ ...@@ -216,7 +215,7 @@
logical, intent(in) :: useQR logical, intent(in) :: useQR
#endif #endif
integer(kind=ik) :: mystart, myend, m_way, n_way, work_per_thread, m_id, n_id, n_threads, & integer(kind=ik) :: mystart, myend, m_way, n_way, work_per_thread, m_id, n_id, n_threads, &
ii, pp, transformChunkSize ii, pp
integer(kind=c_intptr_t), parameter :: size_of_datatype = size_of_& integer(kind=c_intptr_t), parameter :: size_of_datatype = size_of_&
&PRECISION& &PRECISION&
&_& &_&
......
...@@ -69,11 +69,8 @@ ...@@ -69,11 +69,8 @@
logical :: useGPU logical :: useGPU
#if REALCASE == 1 #if REALCASE == 1
logical :: useQR logical :: useQR
#endif
logical :: useQRActual logical :: useQRActual
#endif
integer(kind=c_int) :: bandwidth
integer(kind=c_int) :: kernel integer(kind=c_int) :: kernel
#ifdef USE_ASSUMED_SIZE #ifdef USE_ASSUMED_SIZE
...@@ -87,7 +84,10 @@ ...@@ -87,7 +84,10 @@
MATH_DATATYPE(kind=C_DATATYPE_KIND), allocatable :: hh_trans(:,:) MATH_DATATYPE(kind=C_DATATYPE_KIND), allocatable :: hh_trans(:,:)
integer(kind=c_int) :: my_pe, n_pes, my_prow, my_pcol, np_rows, np_cols, mpierr integer(kind=c_int) :: my_pe, n_pes, my_prow, my_pcol, np_rows, np_cols, mpierr
integer(kind=c_int) :: l_cols, l_rows, l_cols_nev, nbw, num_blocks integer(kind=c_int) :: nbw, num_blocks
#if COMPLEXCASE == 1
integer(kind=c_int) :: l_cols_nev, l_rows, l_cols
#endif
MATH_DATATYPE(kind=C_DATATYPE_KIND), allocatable :: tmat(:,:,:) MATH_DATATYPE(kind=C_DATATYPE_KIND), allocatable :: tmat(:,:,:)
real(kind=C_DATATYPE_KIND), allocatable :: e(:) real(kind=C_DATATYPE_KIND), allocatable :: e(:)
#if COMPLEXCASE == 1 #if COMPLEXCASE == 1
......
...@@ -114,8 +114,6 @@ ...@@ -114,8 +114,6 @@
integer(kind=c_intptr_t) :: q_dev integer(kind=c_intptr_t) :: q_dev
integer(kind=ik) :: np_rows, my_prow, np_cols, my_pcol integer(kind=ik) :: np_rows, my_prow, np_cols, my_pcol
integer(kind=ik) :: tmp
integer(kind=ik) :: i, j, ip, sweep, nbuf, l_nev, a_dim2 integer(kind=ik) :: i, j, ip, sweep, nbuf, l_nev, a_dim2
integer(kind=ik) :: current_n, current_local_n, current_n_start, current_n_end integer(kind=ik) :: current_n, current_local_n, current_n_start, current_n_end
integer(kind=ik) :: next_n, next_local_n, next_n_start, next_n_end integer(kind=ik) :: next_n, next_local_n, next_n_start, next_n_end
...@@ -152,7 +150,7 @@ ...@@ -152,7 +150,7 @@
integer(kind=c_intptr_t) :: aIntern_dev integer(kind=c_intptr_t) :: aIntern_dev
integer(kind=c_intptr_t) :: bcast_buffer_dev integer(kind=c_intptr_t) :: bcast_buffer_dev
integer(kind=c_intptr_t) :: num integer(kind=c_intptr_t) :: num
integer(kind=c_intptr_t) :: dev_offset, dev_offset_1, dev_offset_2 integer(kind=c_intptr_t) :: dev_offset, dev_offset_1
integer(kind=c_intptr_t) :: row_dev integer(kind=c_intptr_t) :: row_dev
integer(kind=c_intptr_t) :: row_group_dev integer(kind=c_intptr_t) :: row_group_dev
integer(kind=c_intptr_t) :: hh_tau_dev integer(kind=c_intptr_t) :: hh_tau_dev
......
...@@ -110,7 +110,7 @@ ...@@ -110,7 +110,7 @@
MATH_DATATYPE(kind=rck) :: hv(nb), tau, x, h(nb), ab_s(1+nb), hv_s(nb), hv_new(nb), tau_new, hf MATH_DATATYPE(kind=rck) :: hv(nb), tau, x, h(nb), ab_s(1+nb), hv_s(nb), hv_new(nb), tau_new, hf
MATH_DATATYPE(kind=rck) :: hd(nb), hs(nb) MATH_DATATYPE(kind=rck) :: hd(nb), hs(nb)
integer(kind=ik) :: i, j, n, nc, nr, ns, ne, istep, iblk, nblocks_total, nblocks, nt integer(kind=ik) :: i, n, nc, nr, ns, ne, istep, iblk, nblocks_total, nblocks, nt
integer(kind=ik) :: my_pe, n_pes, mpierr integer(kind=ik) :: my_pe, n_pes, mpierr
integer(kind=ik) :: my_prow, np_rows, my_pcol, np_cols integer(kind=ik) :: my_prow, np_rows, my_pcol, np_cols
integer(kind=ik) :: ireq_ab, ireq_hv integer(kind=ik) :: ireq_ab, ireq_hv
......
...@@ -81,7 +81,7 @@ ...@@ -81,7 +81,7 @@
complex(kind=C_DATATYPE_KIND), intent(in) :: hh(1:nb) complex(kind=C_DATATYPE_KIND), intent(in) :: hh(1:nb)
#endif #endif
integer(kind=ik) :: i integer(kind=ik) :: i
complex(kind=C_DATATYPE_KIND) :: h1, tau1, x(nq) complex(kind=C_DATATYPE_KIND) :: tau1, x(nq)
!call obj%timer%start("kernel_& !call obj%timer%start("kernel_&
!&MATH_DATATYPE& !&MATH_DATATYPE&
......
...@@ -127,7 +127,7 @@ subroutine reverse_matrix_local_& ...@@ -127,7 +127,7 @@ subroutine reverse_matrix_local_&
real(kind=C_DATATYPE_KIND) :: a(lda,*),work(*) real(kind=C_DATATYPE_KIND) :: a(lda,*),work(*)
! local scalars ! local scalars
real(kind=C_DATATYPE_KIND) :: temp, dworksize(1) real(kind=C_DATATYPE_KIND) :: dworksize(1)
integer(kind=ik) :: incx integer(kind=ik) :: incx
integer(kind=ik) :: dimsize integer(kind=ik) :: dimsize
integer(kind=ik) :: i integer(kind=ik) :: i
......
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