diff --git a/Analysis/cov_tau.f90 b/Analysis/cov_tau.f90
index 1b0ab6b6a858e608742a5c3c9ad883f9ffbb26a0..00f4821ea9955b049e5c7ef8d43dd68dd70fca8f 100644
--- a/Analysis/cov_tau.f90
+++ b/Analysis/cov_tau.f90
@@ -177,7 +177,7 @@
                write(File_out,'("g_",F4.2,"_",F4.2)')  Xk_p(1,n), Xk_p(2,n)
                Open (Unit=10,File=File_out,status="unknown")
                do nt = 1, LT
-                  Write(10,"(F14.7,2x,F16.8,2x,F16.8)") &
+                  Write(10,"(D14.7,2x,D16.8,2x,D16.8)") &
                        & dble(nt-1)*dtau,  dble(Xmean(nt)), sqrt(abs(dble(Xcov(nt,nt))))
                enddo
                If (N_cov == 1) Then ! print covarariance
@@ -204,7 +204,7 @@
          write(File_out,'("g_R0")') 
          Open (Unit=10,File=File_out,status="unknown")
          do nt = 1, LT
-            Write(10,"(F14.7,2x,F16.8,2x,F16.8)") &
+            Write(10,"(D14.7,2x,D16.8,2x,D16.8)") &
                  & dble(nt-1)*dtau,  dble(Xmean(nt)), sqrt(abs(dble(Xcov(nt,nt))))
          enddo
          If (N_cov == 1) Then ! Print  covariance