diff --git a/TDDFPT/src/lr_apply_liouvillian.f90 b/TDDFPT/src/lr_apply_liouvillian.f90
index 902ce3220..ae5715abd 100755
--- a/TDDFPT/src/lr_apply_liouvillian.f90
+++ b/TDDFPT/src/lr_apply_liouvillian.f90
@@ -170,8 +170,10 @@ SUBROUTINE lr_apply_liouvillian( evc1, evc1_new, sevc1_new, interaction )
               dv_pol(:) = 0.0d0
               dv_epsilon(:) = 0.0d0
               !
-              WRITE( stdout, '(5x,"ENVIRON: Calculate the response &
-                          & polarization and dielectric potentials")' )
+              IF (.not.davidson) THEN
+                 WRITE( stdout, '(5x,"ENVIRON: Calculate the response &
+                             & polarization and dielectric potentials")' )
+              ENDIF
               !
               CALL calc_vsolvent_tddfpt(dfftp%nnr, nspin, rho%of_r(:,1), &
                                        & rho_1(:,1), dv_pol, dv_epsilon)
diff --git a/TDDFPT/src/lr_dav_main.f90 b/TDDFPT/src/lr_dav_main.f90
index 4ea40b6f0..bf93382a1 100755
--- a/TDDFPT/src/lr_dav_main.f90
+++ b/TDDFPT/src/lr_dav_main.f90
@@ -36,6 +36,10 @@ PROGRAM lr_dav_main
   use lr_dav_routines
   use lr_dav_variables
   use lr_dav_debug
+#ifdef __ENVIRON
+  USE plugin_flags,          ONLY : use_environ
+  USE environ_info,          ONLY : environ_summary
+#endif
 
   !Debugging
   USE lr_variables, ONLY: check_all_bands_gamma, check_density_gamma,check_vector_gamma
@@ -55,6 +59,12 @@ PROGRAM lr_dav_main
 
   !   Reading input file and PWSCF xml, some initialisation
   CALL lr_readin ( )
+
+  ! Writing a summary to the standard output about Environ variables
+#ifdef __ENVIRON
+  IF ( use_environ ) CALL environ_summary()
+#endif
+ 
   CALL check_stop_init()
 
   CALL lr_init_nfo() !Initialisation of degauss/openshell related stuff