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