diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
index b0f0181c71deeea7fb1fd0c23c11406106de9870..3ec13931a243b0469159a09b0a1d30f9b465782b 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
@@ -448,7 +448,7 @@ subroutine read_multigrid_parameters(filename,mg_param)
     write(STDOUT,NML=parameters_multigrid)
     write(STDOUT,'("---------------------------------------------- ")')
     write(STDOUT,'("Multigrid parameters")')
-    write(STDOUT,'("    verbose      = ",L6)') verbose
+    write(STDOUT,'("    verbose      = ",I6)') verbose
     write(STDOUT,'("    levels       = ",I3)') n_lev
     write(STDOUT,'("    splitlevel   = ",I3)') lev_split
     !