print structure improved

src/elpa_impl.F90

@@ -1084,7 +1084,7 @@ module elpa_impl
       implicit none
       class(elpa_impl_t), intent(inout) :: self
 
-      print *, "The following parameters have been set"
+      !print *, "The following parameters have been set"
       if (elpa_index_print_all_parameters_c(self%index) /= 1) then
         stop "This should not happen (in elpa_print_all_parameters())"
       endif

src/elpa_index.h

@@ -90,6 +90,7 @@ typedef struct {
         char *env_force;
         int once;
         int readonly;
+        int print_flag;
 } elpa_index_entry_t;
 
 
@@ -116,6 +117,12 @@ enum NOTIFY_FLAGS {
         NOTIFY_ENV_FORCE   = (1<<1),
 };
 
+enum PRINT_FLAGS {
+        PRINT_STRUCTURE,
+        PRINT_YES,
+        PRINT_NO,
+};
+
 struct elpa_index_struct {
 #define STRUCT_MEMBERS(TYPE, ...) \
         struct { \