diff --git a/GNUmakefile b/GNUmakefile index 1fdef7d..152056b 100644 --- a/GNUmakefile +++ b/GNUmakefile @@ -16,7 +16,7 @@ ifdef debug ifeq ($(F),ifx) F_OPTS += -g else -F_OPTS += -ggdb -debug-parameters used +F_OPTS += -ggdb endif endif diff --git a/app/main.f90 b/app/main.f90 index 0a67e80..fe02cee 100644 --- a/app/main.f90 +++ b/app/main.f90 @@ -614,7 +614,6 @@ contains case default ! Process constants first - print *,'apply_command: default' block integer :: lc,split_idx,end_idx character(len=:), allocatable :: re_comp, im_comp @@ -652,10 +651,8 @@ contains else if (constants%contains(command)) then x = constants%get_value(command) - print *,command//' is constant = ',x else if (stats%contains(command)) then x = stats%get_value(command) - print *,command//' is stats' else read(command,*,err=901,end=901) x end if