Clean up debug printing

src/RelaxSE_diag.F90

@@ -293,6 +293,7 @@ contains
        write(f_output,'(X,A6,X,A12,X,A12,X,A12,2X,A)') &
             '#Iter', 'tallCPU (s)', 'tCPU0 (s)', 'tWall0 (s)', "Energies"
        write(*,*) '#tCPU (s) : tWall (s) : tCPU/tWall : intkind : DblockI : DblockJ : spin'
+       write(*,*) 
 #else
        write(f_output,'(X,A6,X,A12,X,A12,2X,A)') '#Iter', 'tCPU (s)', 'tWall (s)', "Energies"
        write(667,*) '#tCPU (s) : tWall (s) : tCPU/tWall : intkind : DblockI : DblockJ : spin'
@@ -616,7 +617,7 @@ contains
     Ener_np1(:)  = 0.d0
     !if (.not.debugmat) then
 #ifdef VAR_MPI
-    if ((prog_info%id_cpu.eq.0).and.(prog_info%iprint.gt.0)) then
+    if ((prog_info%id_cpu.eq.0).and.(prog_info%iprint.gt.1)) then
        write(*,*) ''
        write(*,*) '>>>> Compute error'
        write(*,*) ''
@@ -910,7 +911,7 @@ contains
 
 
 #ifdef VAR_MPI
-    if ((prog_info%id_cpu.eq.0).and.(prog_info%iprint.gt.0)) then
+    if ((prog_info%id_cpu.eq.0).and.(prog_info%iprint.gt.1)) then
        write(*,*) ''
        write(*,*) '>>>> Iteration', iter
        write(*,*) ''
@@ -1427,7 +1428,7 @@ contains
 1000 continue
     
     if ((prog_info%id_cpu .eq. 0).and. (prog_info%iprint .ge. 0))  then
-       write(*,*) 'Final Sum Wall time on the dfifferent CPUs'
+       write(*,*) 'Final Sum Wall time on the different CPUs'
        write(*,*) sum_wall(:)
     endif
     

src/compute_hv.F90

@@ -277,7 +277,7 @@ contains
     cputime(i) = t2-t1
     wtime(i) = wt2-wt1
     
-    if (prog_info%iprint.gt.0) then
+    if (prog_info%iprint.gt.1) then
 
        if ((wt2-wt1) .gt. 1d-12) then
           write(*,'(3(F12.4,A),2A,I3,5(A,I3),A,I4,A,I3,A, F12.4)') &
@@ -347,7 +347,7 @@ contains
 
 #ifdef VAR_MPI    
     mem = prog_info%mem_reduction
-    write(*,*) 'mem', mem
+    !write(*,*) 'mem', mem
     read_time = 0.d0
     
     DblockI => det%detblock(indxI)%p