Skip to content
GitLab
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
43f5bc51
Commit
43f5bc51
authored
Apr 27, 2020
by
Wenzhe Yu
😎
Browse files
Remove some debug prints
parent
7ffc87c0
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/GPU/check_for_gpu.F90
View file @
43f5bc51
...
...
@@ -60,31 +60,31 @@ module mod_check_for_gpu
logical
::
gpuAvailable
!character(len=1024) :: envname
if
(
.not.
(
present
(
wantDebug
)))
then
wantDebugMessage
=
.false.
else
if
(
wantDebug
)
then
wantDebugMessage
=
.true.
else
wantDebugMessage
=
.false.
endif
endif
gpuAvailable
=
.false.
if
(
cublasHandle
.ne.
-1
)
then
gpuAvailable
=
.true.
numberOfDevices
=
-1
if
(
myid
==
0
)
then
if
(
myid
==
0
.and.
wantDebugMessage
)
then
print
*
,
"Skipping GPU init, should have already been initialized "
endif
return
else
if
(
myid
==
0
)
then
if
(
myid
==
0
.and.
wantDebugMessage
)
then
print
*
,
"Initializing the GPU devices"
endif
endif
if
(
.not.
(
present
(
wantDebug
)))
then
wantDebugMessage
=
.false.
else
if
(
wantDebug
)
then
wantDebugMessage
=
.true.
else
wantDebugMessage
=
.false.
endif
endif
! call getenv("CUDA_PROXY_PIPE_DIRECTORY", envname)
success
=
cuda_getdevicecount
(
numberOfDevices
)
...
...
src/elpa1/elpa1_template.F90
View file @
43f5bc51
...
...
@@ -387,10 +387,6 @@ function elpa_solve_evp_&
q_actual
=>
q_dummy
endif
! test only
l_cols
=
local_index
(
na
,
my_pcol
,
np_cols
,
nblk
,
-1
)
! Local columns of q
l_rows
=
local_index
(
na
,
my_prow
,
np_rows
,
nblk
,
-1
)
! Local rows of a and q
#if COMPLEXCASE == 1
l_rows
=
local_index
(
na
,
my_prow
,
np_rows
,
nblk
,
-1
)
! Local rows of a and q
l_cols
=
local_index
(
na
,
my_pcol
,
np_cols
,
nblk
,
-1
)
! Local columns of q
...
...
src/elpa2/elpa2_template.F90
View file @
43f5bc51
...
...
@@ -776,24 +776,6 @@
l_cols
=
local_index
(
na
,
my_pcol
,
np_cols
,
nblk
,
-1
)
! Local columns of q
l_cols_nev
=
local_index
(
nev
,
my_pcol
,
np_cols
,
nblk
,
-1
)
! Local columns corresponding to nev
! test only
l_cols
=
local_index
(
na
,
my_pcol
,
np_cols
,
nblk
,
-1
)
! Local columns of q
if
(
matrixCols
.ne.
l_cols
)
then
print
*
,
"DFDSF "
,
matrixCols
,
l_cols
else
print
*
,
"identical"
endif
l_rows
=
local_index
(
na
,
my_prow
,
np_rows
,
nblk
,
-1
)
! Local rows of a and q
if
(
matrixRows
.ne.
l_rows
)
then
print
*
,
"DFDSF rows "
,
matrixRows
,
l_rows
else
print
*
,
"identical rows"
endif
allocate
(
q_real
(
l_rows
,
l_cols
),
stat
=
istat
,
errmsg
=
errorMessage
)
check_allocate
(
"elpa2_template: q_real"
,
istat
,
errorMessage
)
#endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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