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
integer(kind=ik), intent(out) :: numberOfDevices
integer(kind=ik) :: deviceNumber, mpierr, maxNumberOfDevices
logical :: gpuAvailable
character(len=1024) :: envname
!character(len=1024) :: envname
gpuAvailable = .false.
......
......@@ -95,9 +95,6 @@
l_cols_qreorg, np, l_idx, nqcols1, nqcols2
integer(kind=ik) :: my_proc, n_procs, my_prow, my_pcol, np_rows, &
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) :: idx(na), idx1(na), idx2(na)
integer(kind=ik) :: coltyp(na), idxq1(na), idxq2(na)
......
......@@ -586,7 +586,7 @@ subroutine solve_tridi_&
real(kind=REAL_DATATYPE), allocatable :: work(:), qtmp(:), ds(:), es(:)
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(:)
logical, intent(in) :: wantDebug
......
......@@ -142,7 +142,7 @@
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) :: 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
#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_
logical, parameter :: mat_vec_as_one_block = .true.
! 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) :: totalblocks, max_loc_block_rows, max_loc_block_cols, max_local_rows, &
max_local_cols
......
......@@ -90,7 +90,7 @@ subroutine elpa_reduce_add_vectors_&
integer(kind=ik) :: myps, mypt, nps, npt
integer(kind=ik) :: n, lc, k, i, ips, ipt, ns, nl, mpierr
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_&
&MATH_DATATYPE&
......
......@@ -836,7 +836,7 @@ module cuda_c_kernel
use iso_c_binding
implicit none
integer(kind=c_int) :: nev, nb, ldq, off, ncols
integer(kind=c_int) :: nev, nb, ldq, off, ncols
integer(kind=c_intptr_t) :: q
integer(kind=c_intptr_t) :: hh_dot
integer(c_intptr_t) :: hh_tau ,hh
......
......@@ -147,9 +147,6 @@
#endif
#endif /* COMPLEXCASE == 1 */
#if REALCASE == 1
real(kind=REAL_DATATYPE) :: eps
#endif
logical, intent(in) :: useGPU
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
......@@ -157,8 +154,10 @@
#if REALCASE == 1
integer(kind=ik) :: vmrCols
#endif
integer(kind=ik) :: mynlc
integer(kind=ik) :: i, j, lcs, lce, lrs, lre, lc, lr, cur_pcol, n_cols, nrow
#ifdef WITH_OPENMP
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) :: tile_size, l_rows_tile, l_cols_tile
......@@ -216,7 +215,7 @@
logical, intent(in) :: useQR
#endif
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_&
&PRECISION&
&_&
......
......@@ -69,11 +69,8 @@
logical :: useGPU
#if REALCASE == 1
logical :: useQR
#endif
logical :: useQRActual
integer(kind=c_int) :: bandwidth
#endif
integer(kind=c_int) :: kernel
#ifdef USE_ASSUMED_SIZE
......@@ -87,7 +84,10 @@
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) :: 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(:,:,:)
real(kind=C_DATATYPE_KIND), allocatable :: e(:)
#if COMPLEXCASE == 1
......
......@@ -114,8 +114,6 @@
integer(kind=c_intptr_t) :: q_dev
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) :: 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
......@@ -152,7 +150,7 @@
integer(kind=c_intptr_t) :: aIntern_dev
integer(kind=c_intptr_t) :: bcast_buffer_dev
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_group_dev
integer(kind=c_intptr_t) :: hh_tau_dev
......
......@@ -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) :: 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_prow, np_rows, my_pcol, np_cols
integer(kind=ik) :: ireq_ab, ireq_hv
......
......@@ -81,7 +81,7 @@
complex(kind=C_DATATYPE_KIND), intent(in) :: hh(1:nb)
#endif
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_&
!&MATH_DATATYPE&
......
......@@ -127,7 +127,7 @@ subroutine reverse_matrix_local_&
real(kind=C_DATATYPE_KIND) :: a(lda,*),work(*)
! local scalars
real(kind=C_DATATYPE_KIND) :: temp, dworksize(1)
real(kind=C_DATATYPE_KIND) :: dworksize(1)
integer(kind=ik) :: incx
integer(kind=ik) :: dimsize
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