pfarm/gpu/src_mpi_gpu_atom/dist_mat.f90

@@ -174,8 +174,8 @@ contains
      deallocate (work, iwork, stat=status)
      call error_check (status, 'sh_diag: deallocation error')
 
-     write (fo,'(/,a,i0,a,i0,a,5g14.6)') ' Mesh ',imesh,', Sector ',sect,': first five eigenvalues = ', evals(1:5)
-     write (fo,'(a,i0,a,i0,a,5g14.6,/)') ' Mesh ',imesh,', Sector ',sect,': final five eigenvalues = ', evals(ny-4:ny)
+     write (fo,'(/,a,i0,a,i0,a,5f14.4)') ' Mesh ',imesh,', Sector ',sect,': first five eigenvalues = ', evals(1:5)
+     write (fo,'(a,i0,a,i0,a,5f14.4,/)') ' Mesh ',imesh,', Sector ',sect,': final five eigenvalues = ', evals(ny-4:ny)
 
      z = a
      evecs: do ii = 1, ny ! normalize eigenvectors

pfarm/gpu/src_mpi_gpu_mol/dist_mat.f90

@@ -174,8 +174,8 @@ contains
      deallocate (work, iwork, stat=status)
      call error_check (status, 'sh_diag: deallocation error')
 
-     write (fo,'(/,a,i0,a,i0,a,5g14.6)') ' Mesh ',imesh,', Sector ',sect,': first five eigenvalues = ', evals(1:5)
-     write (fo,'(a,i0,a,i0,a,5g14.6,/)') ' Mesh ',imesh,', Sector ',sect,': final five eigenvalues = ', evals(ny-4:ny)
+     write (fo,'(/,a,i0,a,i0,a,5f14.4)') ' Mesh ',imesh,', Sector ',sect,': first five eigenvalues = ', evals(1:5)
+     write (fo,'(a,i0,a,i0,a,5f14.4,/)') ' Mesh ',imesh,', Sector ',sect,': final five eigenvalues = ', evals(ny-4:ny)
 
      z = a
      evecs: do ii = 1, ny ! normalize eigenvectors