Remove cp_common_uses.f90

svn-origin-rev: 16197
vagabond92 · Oct 21, 2015 · 5178435 · 5178435
1 parent ffc5a1b
commit 5178435
Show file tree

Hide file tree

Showing 895 changed files with 776 additions and 946 deletions.
diff --git a/src/admm_dm_methods.F b/src/admm_dm_methods.F
@@ -21,6 +21,7 @@ MODULE admm_dm_methods
        cp_dbcsr_iterator_start, cp_dbcsr_iterator_stop, cp_dbcsr_multiply, &
        cp_dbcsr_p_type, cp_dbcsr_release, cp_dbcsr_scale, cp_dbcsr_set, &
        cp_dbcsr_type
+  USE cp_log_handling,                 ONLY: cp_logger_get_default_unit_nr
   USE input_constants,                 ONLY: do_admm_basis_projection,&
                                              do_admm_blocked_projection
   USE iterate_matrix,                  ONLY: invert_Hotelling
@@ -32,7 +33,6 @@ MODULE admm_dm_methods
   USE qs_rho_types,                    ONLY: qs_rho_get,&
                                              qs_rho_set,&
                                              qs_rho_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/admm_dm_types.F b/src/admm_dm_types.F
@@ -16,7 +16,6 @@ MODULE admm_dm_types
   USE input_constants,                 ONLY: do_admm_basis_projection,&
                                              do_admm_purify_mcweeny
   USE kinds,                           ONLY: dp
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/admm_methods.F b/src/admm_methods.F
@@ -46,6 +46,8 @@ MODULE admm_methods
                                              cp_fm_to_fm,&
                                              cp_fm_type
   USE cp_gemm_interface,               ONLY: cp_gemm
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_type
   USE cp_output_handling,              ONLY: cp_p_file,&
                                              cp_print_key_finished_output,&
                                              cp_print_key_should_output,&
@@ -78,7 +80,6 @@ MODULE admm_methods
                                              qs_rho_set,&
                                              qs_rho_type
   USE qs_vxc,                          ONLY: qs_vxc_create
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/admm_types.F b/src/admm_types.F
@@ -29,7 +29,6 @@ MODULE admm_types
   USE kinds,                           ONLY: dp
   USE qs_mo_types,                     ONLY: get_mo_set,&
                                              mo_set_p_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/admm_utils.F b/src/admm_utils.F
@@ -26,7 +26,6 @@ MODULE admm_utils
                                              do_admm_purify_mo_no_diag,&
                                              do_admm_purify_none
   USE kinds,                           ONLY: dp
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/al_system_types.F b/src/al_system_types.F
@@ -17,7 +17,6 @@ MODULE al_system_types
                                              section_vals_val_get
   USE kinds,                           ONLY: dp
   USE simpar_types,                    ONLY: simpar_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf.F b/src/almo_scf.F
@@ -38,6 +38,9 @@ MODULE almo_scf
        cp_dbcsr_release, cp_dbcsr_reserve_block2d, cp_dbcsr_set, &
        cp_dbcsr_type, cp_dbcsr_work_create, dbcsr_distribution_mp, &
        dbcsr_mp_mynode, dbcsr_type_no_symmetry, dbcsr_type_symmetric
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_get_default_unit_nr,&
+                                             cp_logger_type
   USE cp_para_env,                     ONLY: cp_para_env_release,&
                                              cp_para_env_retain
   USE domain_submatrix_methods,        ONLY: init_submatrices,&
@@ -62,7 +65,6 @@ MODULE almo_scf
                                              molecule_type
   USE qs_environment_types,            ONLY: get_qs_env,&
                                              qs_environment_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf_diis_types.F b/src/almo_scf_diis_types.F
@@ -18,14 +18,16 @@ MODULE almo_scf_diis_types
                                              cp_dbcsr_set,&
                                              cp_dbcsr_trace,&
                                              cp_dbcsr_type
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_get_default_unit_nr,&
+                                             cp_logger_type
   USE domain_submatrix_methods,        ONLY: add_submatrices,&
                                              copy_submatrices,&
                                              init_submatrices,&
                                              release_submatrices,&
                                              set_submatrices
   USE domain_submatrix_types,          ONLY: domain_submatrix_type
   USE kinds,                           ONLY: dp
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf_methods.F b/src/almo_scf_methods.F
@@ -26,6 +26,9 @@ MODULE almo_scf_methods
        cp_dbcsr_type, cp_dbcsr_work_create, dbcsr_distribution_mp, &
        dbcsr_mp_group, dbcsr_mp_numnodes, dbcsr_norm_maxabsnorm, &
        dbcsr_type_no_symmetry, dbcsr_type_symmetric
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_get_default_unit_nr,&
+                                             cp_logger_type
   USE domain_submatrix_methods,        ONLY: &
        add_submatrices, construct_dbcsr_from_submatrices, &
        construct_submatrices, copy_submatrices, copy_submatrix_data, &
@@ -42,7 +45,6 @@ MODULE almo_scf_methods
                                              matrix_sqrt_Newton_Schulz
   USE kinds,                           ONLY: dp
   USE util,                            ONLY: sort
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf_optimizer.F b/src/almo_scf_optimizer.F
@@ -52,6 +52,9 @@ MODULE almo_scf_optimizer
   USE cp_external_control,             ONLY: external_control
   USE cp_files,                        ONLY: close_file,&
                                              open_file
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_get_default_unit_nr,&
+                                             cp_logger_type
   USE ct_methods,                      ONLY: analytic_line_search,&
                                              ct_step_execute,&
                                              diagonalize_diagonal_blocks
@@ -80,7 +83,6 @@ MODULE almo_scf_optimizer
                                              m_walltime
   USE qs_environment_types,            ONLY: get_qs_env,&
                                              qs_environment_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf_qs.F b/src/almo_scf_qs.F
@@ -41,6 +41,9 @@ MODULE almo_scf_qs
        dbcsr_distribution_row_clusters, dbcsr_distribution_row_dist, &
        dbcsr_mp_group, dbcsr_mp_mynode, dbcsr_mp_numnodes, &
        dbcsr_type_no_symmetry
+  USE cp_log_handling,                 ONLY: cp_get_default_logger,&
+                                             cp_logger_get_default_unit_nr,&
+                                             cp_logger_type
   USE cp_para_types,                   ONLY: cp_para_env_type
   USE cp_units,                        ONLY: cp_unit_to_cp2k
   USE input_constants,                 ONLY: &
@@ -75,7 +78,6 @@ MODULE almo_scf_qs
   USE qs_rho_methods,                  ONLY: qs_rho_update_rho
   USE qs_rho_types,                    ONLY: qs_rho_get,&
                                              qs_rho_type
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/almo_scf_types.F b/src/almo_scf_types.F
@@ -20,7 +20,6 @@ MODULE almo_scf_types
        cg_hestenes_stiefel, cg_liu_storey, cg_polak_ribiere, cg_zero, &
        optimizer_diis, optimizer_pcg, prec_default, prec_zero
   USE kinds,                           ONLY: dp
-#include "./common/cp_common_uses.f90"
 #include "./base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_angmom.F b/src/aobasis/ai_angmom.F
@@ -18,7 +18,6 @@ MODULE ai_angmom
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_contraction.F b/src/aobasis/ai_contraction.F
@@ -16,7 +16,6 @@
 MODULE ai_contraction
 
   USE kinds,                           ONLY: dp
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_coulomb.F b/src/aobasis/ai_coulomb.F
@@ -43,7 +43,6 @@ MODULE ai_coulomb
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
    IMPLICIT NONE

diff --git a/src/aobasis/ai_coulomb_test.F b/src/aobasis/ai_coulomb_test.F
@@ -18,7 +18,6 @@ MODULE ai_coulomb_test
                                              init_orbital_pointers,&
                                              nco,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_derivatives.F b/src/aobasis/ai_derivatives.F
@@ -34,7 +34,6 @@ MODULE ai_derivatives
   USE kinds,                           ONLY: dp
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_elec_field.F b/src/aobasis/ai_elec_field.F
@@ -39,7 +39,6 @@ MODULE ai_elec_field
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_eri_debug.F b/src/aobasis/ai_eri_debug.F
@@ -17,7 +17,6 @@ MODULE ai_eri_debug
   USE gamma,                           ONLY: fgamma_ref
   USE kinds,                           ONLY: dp
   USE mathconstants,                   ONLY: pi
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_fermi_contact.F b/src/aobasis/ai_fermi_contact.F
@@ -30,7 +30,6 @@ MODULE ai_fermi_contact
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_kinetic.F b/src/aobasis/ai_kinetic.F
@@ -21,7 +21,6 @@ MODULE ai_kinetic
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_moments.F b/src/aobasis/ai_moments.F
@@ -35,7 +35,6 @@ MODULE ai_moments
   USE orbital_pointers,                ONLY: coset,&
                                              indco,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_onecenter.F b/src/aobasis/ai_onecenter.F
@@ -32,7 +32,6 @@ MODULE ai_onecenter
                                              gamma0,&
                                              gamma1,&
                                              pi
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_oneelectron.F b/src/aobasis/ai_oneelectron.F
@@ -34,7 +34,6 @@ MODULE ai_oneelectron
   USE kinds,                           ONLY: dp
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_os_rr.F b/src/aobasis/ai_os_rr.F
@@ -8,7 +8,6 @@ MODULE ai_os_rr
   USE gamma,                           ONLY: fgamma=>fgamma_0
   USE kinds,                           ONLY: dp
   USE orbital_pointers,                ONLY: coset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap.F b/src/aobasis/ai_overlap.F
@@ -19,7 +19,6 @@ MODULE ai_overlap
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap3.F b/src/aobasis/ai_overlap3.F
@@ -47,7 +47,6 @@ MODULE ai_overlap3
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap3_debug.F b/src/aobasis/ai_overlap3_debug.F
@@ -15,7 +15,6 @@ MODULE ai_overlap3_debug
 
   USE kinds,                           ONLY: dp
   USE mathconstants,                   ONLY: pi
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap_aabb.F b/src/aobasis/ai_overlap_aabb.F
@@ -29,7 +29,6 @@ MODULE ai_overlap_aabb
   USE orbital_pointers,                ONLY: coset,&
                                              indco,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap_debug.F b/src/aobasis/ai_overlap_debug.F
@@ -15,7 +15,6 @@ MODULE ai_overlap_debug
 
   USE kinds,                           ONLY: dp
   USE mathconstants,                   ONLY: pi
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_overlap_ppl.F b/src/aobasis/ai_overlap_ppl.F
@@ -27,7 +27,6 @@ MODULE ai_overlap_ppl
   USE kinds,                           ONLY: dp
   USE mathconstants,                   ONLY: fac,&
                                              pi
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_shg_overlap.F b/src/aobasis/ai_shg_overlap.F
@@ -22,7 +22,6 @@ MODULE ai_shg_overlap
   USE orbital_pointers,                ONLY: indso,&
                                              indso_inv,&
                                              nsoset_pm
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_spin_orbit.F b/src/aobasis/ai_spin_orbit.F
@@ -38,7 +38,6 @@ MODULE ai_spin_orbit
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ai_verfc.F b/src/aobasis/ai_verfc.F
@@ -85,7 +85,6 @@ MODULE ai_verfc
   USE mathconstants,                   ONLY: pi
   USE orbital_pointers,                ONLY: coset,&
                                              ncoset
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/ao_util.F b/src/aobasis/ao_util.F
@@ -25,7 +25,6 @@ MODULE ao_util
                                              nsoset
   USE orbital_transformation_matrices, ONLY: orbtramat
   USE termination,                     ONLY: stop_memory
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/basis_set_container_types.F b/src/aobasis/basis_set_container_types.F
@@ -13,7 +13,6 @@ MODULE basis_set_container_types
   USE basis_set_types,                 ONLY: deallocate_gto_basis_set,&
                                              gto_basis_set_type
   USE kinds,                           ONLY: default_string_length
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/basis_set_types.F b/src/aobasis/basis_set_types.F
@@ -48,7 +48,6 @@ MODULE basis_set_types
   USE string_utilities,                ONLY: integer_to_string,&
                                              remove_word,&
                                              uppercase
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/orbital_pointers.F b/src/aobasis/orbital_pointers.F
@@ -28,7 +28,6 @@ MODULE orbital_pointers
 
   USE kinds,                           ONLY: int_size
   USE termination,                     ONLY: stop_memory
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/orbital_symbols.F b/src/aobasis/orbital_symbols.F
@@ -14,7 +14,6 @@ MODULE orbital_symbols
 ! Index:
 ! FUNCTION cgf_symbol(n,lxyz) RESULT(symbol)
 ! FUNCTION sgf_symbol(n,l,m) RESULT(symbol)
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
   IMPLICIT NONE
   CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'orbital_symbols'

diff --git a/src/aobasis/orbital_transformation_matrices.F b/src/aobasis/orbital_transformation_matrices.F
@@ -30,7 +30,6 @@ MODULE orbital_transformation_matrices
   USE orbital_symbols,                 ONLY: cgf_symbol,&
                                              sgf_symbol
   USE termination,                     ONLY: stop_memory
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE

diff --git a/src/aobasis/soft_basis_set.F b/src/aobasis/soft_basis_set.F
@@ -23,7 +23,6 @@ MODULE soft_basis_set
                                              nso
   USE orbital_symbols,                 ONLY: cgf_symbol,&
                                              sgf_symbol
-#include "../common/cp_common_uses.f90"
 #include "../base/base_uses.f90"
 
   IMPLICIT NONE