Remove some debug prints

src/GPU/check_for_gpu.F90

@@ -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

@@ -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

@@ -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