ource code cosmetics, moved appl_unix into a module

tproffen · May 3, 2018 · f6b3783 · f6b3783
1 parent f70fd37
commit f6b3783
Show file tree

Hide file tree

Showing 9 changed files with 11 additions and 0 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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