RPA: minimal output on progress of calculation

cp2k · Jun 15, 2020 · c4ab5c3 · c4ab5c3
1 parent 3dcdb90
commit c4ab5c3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/rpa_main.F b/src/rpa_main.F
@@ -1731,6 +1731,9 @@ SUBROUTINE rpa_num_int(qs_env, Erpa, mp2_env, para_env, para_env_RPA, para_env_s
 
          DO jquad = 1, num_integ_points
 
+            IF (unit_nr > 0) WRITE (UNIT=unit_nr, FMT="(T3, A, 1X, I3, 1X, A, 1X, I3)") &
+               "INTEG_INFO| Started with Integration point", jquad, "of", num_integ_points
+
             IF (MODULO(jquad, num_integ_group) /= color_rpa_group) CYCLE
 
             CALL timeset(routineN//"_RPA_matrix_operations", handle3)