From f6b3783fca6887e4a999ef7ce8553245e5a4b62f Mon Sep 17 00:00:00 2001 From: rneder Date: Thu, 3 May 2018 21:10:59 +0200 Subject: [PATCH] ource code cosmetics, moved appl_unix into a module --- diffev/prog/diffev_setup.f90 | 1 + discus/prog/discus_setup.f90 | 1 + kuplot/prog/kuplot_setup.f90 | 1 + lib_f90/appl_unix.f90 | 3 +++ suite/prog/suite.f90 | 1 + suite/prog/suite_branch.f90 | 1 + suite/prog/suite_execute_cost.f90 | 1 + suite/prog/suite_kdo.f90 | 1 + suite/prog/suite_setup_mod.f90 | 1 + 9 files changed, 11 insertions(+) diff --git a/diffev/prog/diffev_setup.f90 b/diffev/prog/diffev_setup.f90 index b599da9f..e8c3bf64 100644 --- a/diffev/prog/diffev_setup.f90 +++ b/diffev/prog/diffev_setup.f90 @@ -13,6 +13,7 @@ SUBROUTINE diffev_setup(standalone) USE population USE run_mpi_mod ! +USE appl_env_mod USE prompt_mod USE lib_f90_default_mod ! diff --git a/discus/prog/discus_setup.f90 b/discus/prog/discus_setup.f90 index ecd337db..37a93eff 100644 --- a/discus/prog/discus_setup.f90 +++ b/discus/prog/discus_setup.f90 @@ -10,6 +10,7 @@ SUBROUTINE discus_setup (standalone) USE discus_allocate_appl_mod USE discus_init_mod ! + USE appl_env_mod USE errlist_mod USE prompt_mod USE lib_f90_default_mod diff --git a/kuplot/prog/kuplot_setup.f90 b/kuplot/prog/kuplot_setup.f90 index ca947e7d..7ed184da 100644 --- a/kuplot/prog/kuplot_setup.f90 +++ b/kuplot/prog/kuplot_setup.f90 @@ -10,6 +10,7 @@ SUBROUTINE kuplot_setup (standalone) USE lib_f90_default_mod USE kuplot_config USE kuplot_mod + USE appl_env_mod IMPLICIT none ! LOGICAL, INTENT(IN) :: standalone diff --git a/lib_f90/appl_unix.f90 b/lib_f90/appl_unix.f90 index 11eefcd7..babc8be1 100644 --- a/lib_f90/appl_unix.f90 +++ b/lib_f90/appl_unix.f90 @@ -1,5 +1,7 @@ +MODULE appl_env_mod !*****7*************************************************************** ! +CONTAINS ! SUBROUTINE appl_env (standalone, local_mpi_myid) !- @@ -509,3 +511,4 @@ SUBROUTINE program_files ENDIF ! END SUBROUTINE program_files +END MODULE appl_env_mod diff --git a/suite/prog/suite.f90 b/suite/prog/suite.f90 index be5132f8..5203455d 100644 --- a/suite/prog/suite.f90 +++ b/suite/prog/suite.f90 @@ -10,6 +10,7 @@ PROGRAM discus_suite USE diffev_mpi_mod USE run_mpi_mod ! +USE appl_env_mod USE prompt_mod USE envir_mod USE variable_mod diff --git a/suite/prog/suite_branch.f90 b/suite/prog/suite_branch.f90 index fc1e9915..87841553 100644 --- a/suite/prog/suite_branch.f90 +++ b/suite/prog/suite_branch.f90 @@ -10,6 +10,7 @@ RECURSIVE SUBROUTINE suite_branch(zeile, length) USE kuplot_setup_mod USE kuplot_loop_mod ! +USE appl_env_mod USE errlist_mod USE prompt_mod USE suite_init_mod diff --git a/suite/prog/suite_execute_cost.f90 b/suite/prog/suite_execute_cost.f90 index c195f317..16516431 100644 --- a/suite/prog/suite_execute_cost.f90 +++ b/suite/prog/suite_execute_cost.f90 @@ -28,6 +28,7 @@ SUBROUTINE suite_execute_cost( repeat, & USE kuplot_loop_mod USE suite_setup_mod ! +USE appl_env_mod USE errlist_mod USE mpi_slave_mod USE prompt_mod diff --git a/suite/prog/suite_kdo.f90 b/suite/prog/suite_kdo.f90 index c813aa78..f6c16910 100644 --- a/suite/prog/suite_kdo.f90 +++ b/suite/prog/suite_kdo.f90 @@ -20,6 +20,7 @@ SUBROUTINE suite_mache_kdo (line, lend, length) USE charact_mod !USE allocate_appl ! +USE appl_env_mod USE doact_mod USE errlist_mod USE class_macro_internal diff --git a/suite/prog/suite_setup_mod.f90 b/suite/prog/suite_setup_mod.f90 index b45e4cb7..c0ca33d7 100644 --- a/suite/prog/suite_setup_mod.f90 +++ b/suite/prog/suite_setup_mod.f90 @@ -10,6 +10,7 @@ SUBROUTINE setup_suite !USE allocate_appl !USE blk_appl ! +USE appl_env_mod USE run_mpi_mod USE prompt_mod USE lib_f90_default_mod