Commit 60f4d764 authored by Pavel Kus's avatar Pavel Kus

print structure improved

parent de1f3bf2
......@@ -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
......
This diff is collapsed.
......@@ -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 { \
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment