Commit fb76c101 authored by Andreas Marek's avatar Andreas Marek

Merge branch 'remove_print_to_stdout' into 'master_pre_stage'

Remove some debug prints

See merge request !34
parents 7ffc87c0 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)
......
......@@ -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
......
......@@ -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
......
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