Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
cce423fc
Commit
cce423fc
authored
Sep 09, 2017
by
Andreas Marek
Browse files
Remove some unused variables
parent
b97720fb
Changes
13
Hide whitespace changes
Inline
Side-by-side
src/GPU/check_for_gpu.F90
View file @
cce423fc
...
...
@@ -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.
...
...
src/elpa1/elpa1_merge_systems_real_template.F90
View file @
cce423fc
...
...
@@ -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
)
...
...
src/elpa1/elpa1_solve_tridi_real_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa1/elpa1_trans_ev_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa1/elpa1_tridiag_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa1/elpa_reduce_add_vectors.F90
View file @
cce423fc
...
...
@@ -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&
...
...
src/elpa2/GPU/interface_c_kernel.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa2/elpa2_bandred_template.F90
View file @
cce423fc
...
...
@@ -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
&
&
_
&
...
...
src/elpa2/elpa2_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa2/elpa2_tridiag_band_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
src/elpa2/kernels/simple_template.F90
View file @
cce423fc
...
...
@@ -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&
...
...
src/elpa2/qr/qr_utils_template.F90
View file @
cce423fc
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment