diff --git a/src/fock.F90 b/src/fock.F90
index 8674983984e20750b47644ef92f595b285444667..d5bfe2a11af579fa054ed164c92b1384541e4516 100644
--- a/src/fock.F90
+++ b/src/fock.F90
@@ -142,8 +142,8 @@ contains
     call intblock_free(ax)
 
     if ((prog_info%id_cpu .eq. 0) .and. (prog_info%iprint .gt. 1)) then
-       do j=i,ng+no+na+nv
-          do i=ng+1,ng+no+na+nv
+       do i=ng+1,ng+no+na+nv
+          do j=i,ng+no+na+nv
              write(f_fock,*) i,j,fock(i,j)
           enddo
        enddo