diff --git a/src/Contrl/Output.f90 b/src/Contrl/Output.f90
index eadd924..7ca9194 100644
--- a/src/Contrl/Output.f90
+++ b/src/Contrl/Output.f90
@@ -362,9 +362,9 @@ subroutine diagnostic1_Output(z,this,nchrg,nptlist)
           call flush(32)
         endif
 
-99      format(8(1x,g0))
-100      format(7(1x,g0))
-101     format(1x,g0,3I10)
+99      format(8(g0,1x))
+100      format(7(g0,1x))
+101     format(g0,1x,3I10)
 
         t_diag = t_diag + elapsedtime_Timer(t0)
 
@@ -1082,10 +1082,10 @@ subroutine diagnostic2_Output(this,z,nchrg,nptlist)
 !                     glmax(5),glmax(6)
         endif
 
-99      format(6(1x,g0))
-100      format(10(1x,g0))
-101     format(1x,g0,3I13)
-102      format(7(1x,g0))
+99      format(6(g0,1x))
+100      format(10(g0,1x))
+101     format(g0,1x,3I13)
+102      format(7(g0,1x))
 
         t_diag = t_diag + elapsedtime_Timer(t0)
 
@@ -1360,9 +1360,9 @@ subroutine diagnosticT_Output(z,this)
           call flush(40)
         endif
 
-99      format(6(1x,g0))
-100      format(7(1x,g0))
-101     format(1x,g0,3I10)
+99      format(6(g0,1x))
+100      format(7(g0,1x))
+101     format(g0,1x,3I10)
 
         t_diag = t_diag + elapsedtime_Timer(t0)
 
@@ -1724,7 +1724,7 @@ subroutine phaseout_Output(nfile,this)
         write(9)ptout(1:9,1:this%Nptlocal)
 
         close(9)
-100     format(9(1x,e14.7))
+100     format(9(g0,1x))
 
         deallocate(ptout)
 
@@ -2014,7 +2014,7 @@ subroutine dens3d_Output(nstep,nfile,this,totnptcls,xmni,xmxi,ymni,&
           call MPI_WAIT(req,status,ierr)
         endif
 
-100     format(4(1x,e14.7))
+100     format(4(g0,1x))
 
         deallocate(nptlist)
 
@@ -2550,7 +2550,7 @@ subroutine dens2d_Output(nstep,nfile,this,totnptcls,xmnin,xmxin,&
 
         deallocate(nptlist)
 
-100     format(3(1x,e14.7))
+100     format(3(g0,1x))
 
         end subroutine dens2d_Output
 
@@ -2770,7 +2770,7 @@ subroutine accdens1d_Output(nstep,nfile,this,nptot,rmxi,xmni,xmxi,&
           call MPI_WAIT(req,status,ierr)
         endif
 
-100     format(2(1x,e14.7))
+100     format(2(g0,1x))
 
         deallocate(nptlist)
 
@@ -2963,7 +2963,7 @@ subroutine dens1d_Output(nstep,nfile,this,nptot,rmxi,xmni,xmxi,&
           call MPI_WAIT(req,status,ierr)
         endif
 
-100     format(2(1x,e14.7))
+100     format(2(g0,1x))
 
         deallocate(nptlist)
 
@@ -3210,7 +3210,7 @@ subroutine sliceprocdep_Output(pts,innp,npt,nslice,qchg,pmass,nfile,&
 
       call flush(nfile)
 
-777   format(11(1x,e15.7))
+777   format(11(g0,1x))
 
       end subroutine sliceprocdep_Output