diff --git a/src/RelaxSE_diag.F90 b/src/RelaxSE_diag.F90
index 20c6a84b75e2be41d5c7ca42022b583e4408d914..28ca77dd43e733702262cd9effccb51459cf47fa 100644
--- a/src/RelaxSE_diag.F90
+++ b/src/RelaxSE_diag.F90
@@ -561,17 +561,19 @@ contains
 !!$ Sortie sans convergence
     if (prog_info%id_cpu.eq.0) then
        write(f_output,*) "   "  
-       write(f_output,*) ">>> No convergence after  ", iter+iter0-1, " iterations <<<" 
+       write(f_output,*) ">>> No convergence after  ", iter+iter0-1, " iterations <<<"
+       write(f_output,*) ">>> Vectors are not reordered by energy, but by convergence <<<"
        write(f_output,*) "   "
        flush(f_output)
     endif
-    goto 901
+    goto 903
 
 !!$ Sortie convergé    
 900 continue ! convergé
     if (prog_info%id_cpu.eq.0) then
        !write(f_output,*) "   "  
-       write(f_output,*) ">>> Convergence reached after ", iter+iter0-1, " iterations <<<" 
+       write(f_output,*) ">>> Convergence reached after ", iter+iter0-1, " iterations <<<"
+        write(f_output,*) ">>> Vectors reordered by energy <<<"
        write(f_output,*) "   "
        flush(f_output)
     endif
@@ -602,6 +604,7 @@ contains
     end do
 
     ! ecriture sur restart
+903 continue
     rewind(f_restart)
     write(f_restart) nvectot,ndet,nconv, iter+iter0
     write(f_restart) Ecoeur,PotNuc