From 111e753133dd9ce5b7e2e5eedb6bf3ba2b5b570c Mon Sep 17 00:00:00 2001 From: Sergey Chulkov Date: Fri, 16 Feb 2018 10:05:59 +0000 Subject: [PATCH] Reduce the number of suppressed convention violations. svn-origin-rev: 18271 --- src/fm/cp_fm_diag.F | 10 +++- src/grid/xyz_to_vab_optimised.F | 82 ++++++++++++++++++++++++++++-- src/pw/fft/fft_lib.F | 10 ---- src/qs_integrate_potential_low.F | 19 +++++++ tools/conventions/conventions.supp | 71 -------------------------- 5 files changed, 106 insertions(+), 86 deletions(-) diff --git a/src/fm/cp_fm_diag.F b/src/fm/cp_fm_diag.F index 88634304a5..d11af759a1 100644 --- a/src/fm/cp_fm_diag.F +++ b/src/fm/cp_fm_diag.F @@ -121,6 +121,7 @@ CONTAINS #if defined (__ELPA) diag_type = 3 + MARK_USED(switched) #else ! ELPA library not linked, switch to SL diag_type = 1 @@ -130,6 +131,7 @@ CONTAINS #if defined (__SCALAPACK2) diag_type = 2 + MARK_USED(switched) #else ! SL2 library not linked, switch to SL diag_type = 1 @@ -426,8 +428,10 @@ CONTAINS CHARACTER(LEN=*), PARAMETER :: routineN = "cp_fm_syevx", & routineP = moduleN//":"//routineN - REAL(KIND=dp), PARAMETER :: orfac = -1.0_dp, & - vl = 0.0_dp, & +#if defined(__SCALAPACK) + REAL(KIND=dp), PARAMETER :: orfac = -1.0_dp +#endif + REAL(KIND=dp), PARAMETER :: vl = 0.0_dp, & vu = 0.0_dp TYPE(cp_blacs_env_type), POINTER :: context @@ -659,8 +663,10 @@ CONTAINS CHARACTER(LEN=*), PARAMETER :: routineN = "cp_fm_syevr", & routineP = moduleN//":"//routineN +#if (!defined(__SCALAPACK) || defined(__SCALAPACK2)) REAL(KIND=dp), PARAMETER :: vl = 0.0_dp, & vu = 0.0_dp +#endif CHARACTER(LEN=1) :: job_type INTEGER :: handle, ilow_local, & diff --git a/src/grid/xyz_to_vab_optimised.F b/src/grid/xyz_to_vab_optimised.F index 6fae95757b..47a16b441a 100644 --- a/src/grid/xyz_to_vab_optimised.F +++ b/src/grid/xyz_to_vab_optimised.F @@ -18,7 +18,6 @@ !> \author Ruyman Reyes ! ************************************************************************************************** ! We use the caller routine in libgrid.a (which may have a different range of la/lb_max_local implemented - #ifdef __HAS_LIBGRID #else @@ -47,8 +46,7 @@ SUBROUTINE call_to_xyz_to_vab(prefactor, coef_xyz, lp, & rp, ra, rab, vab, coset, & la_min_local, lb_min_local, & maxl, lvab, hvab) - - USE kinds, ONLY: dp + USE kinds, ONLY: dp REAL(KIND=dp), INTENT(IN) :: prefactor INTEGER, INTENT(IN) :: lp @@ -62,6 +60,84 @@ SUBROUTINE call_to_xyz_to_vab(prefactor, coef_xyz, lp, & INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & INTENT(IN) :: coset + INTERFACE + SUBROUTINE xyz_to_vab(prefactor, coef_xyz, lp, la_max_local, & + lb_max_local, rp, ra, rab, vab, coset, & + la_min_local, lb_min_local, maxl, lvab, hvab) + IMPORT :: dp + REAL(kind=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp, la_max_local, lb_max_local, & + la_min_local, lb_min_local, maxl, lvab, hvab + INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & + INTENT(in) :: coset + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + REAL(kind=dp), DIMENSION(3), INTENT(in) :: rp, ra, rab + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + END SUBROUTINE xyz_to_vab + + SUBROUTINE xyz_to_vab_0_0(prefactor, coef_xyz, lp, vab, lvab, hvab) + IMPORT :: dp + REAL(kind=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp, lvab, hvab + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + END SUBROUTINE xyz_to_vab_0_0 + +#:for name2 in range(1, 5) + SUBROUTINE xyz_to_vab_0_${name2}$(prefactor, coef_xyz, lp, rp, ra, rab, vab, & + coset, lb_min_local, maxl, lvab, hvab) + IMPORT :: dp + REAL(kind=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp, lb_min_local, maxl, lvab, hvab + INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & + INTENT(in) :: coset + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + REAL(kind=dp), DIMENSION(3), INTENT(in) :: rp, ra, rab + END SUBROUTINE xyz_to_vab_0_${name2}$ +#:endfor + +#:for name1 in range(1, 5) + SUBROUTINE xyz_to_vab_${name1}$_0(prefactor, coef_xyz, lp, rp, ra, vab, & + coset, la_min_local, maxl, lvab, hvab) + IMPORT :: dp + REAL(kind=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp, la_min_local, maxl, lvab, hvab + INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & + INTENT(in) :: coset + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + REAL(kind=dp), DIMENSION(3), INTENT(in) :: rp, ra + END SUBROUTINE xyz_to_vab_${name1}$_0 +#:endfor + +#:for name1 in range(1, 5) +#:for name2 in range(1, 5) + SUBROUTINE xyz_to_vab_${name1}$_${name2}$(prefactor, coef_xyz, lp, rp, ra, rab, vab, & + coset, la_min_local, lb_min_local, maxl, lvab, hvab) + IMPORT :: dp + REAL(kind=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp, lb_min_local, la_min_local, maxl, lvab, hvab + INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & + INTENT(in) :: coset + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + REAL(kind=dp), DIMENSION(3), INTENT(in) :: rp, ra, rab + END SUBROUTINE xyz_to_vab_${name1}$_${name2}$ +#:endfor +#:endfor + END INTERFACE + SELECT CASE (la_max_local) CASE (0) SELECT CASE (lb_max_local) diff --git a/src/pw/fft/fft_lib.F b/src/pw/fft/fft_lib.F index 6f24429429..d9f30b4dfa 100644 --- a/src/pw/fft/fft_lib.F +++ b/src/pw/fft/fft_lib.F @@ -170,9 +170,6 @@ CONTAINS !> \param stat ... ! ************************************************************************************************** SUBROUTINE fft_3d(plan, scale, zin, zout, stat) - - USE fft_plan, ONLY: fft_plan_type - USE fft_kinds, ONLY: dp TYPE(fft_plan_type), INTENT(IN) :: plan REAL(KIND=dp), INTENT(IN) :: scale COMPLEX(KIND=dp), DIMENSION(*), INTENT(INOUT) :: zin, zout @@ -213,9 +210,6 @@ CONTAINS !> \param plan_style ... ! ************************************************************************************************** SUBROUTINE fft_create_plan_1dm(plan, fft_type, fsign, trans, n, m, zin, zout, plan_style) - - USE fft_plan, ONLY: fft_plan_type - USE fft_kinds, ONLY: dp TYPE(fft_plan_type), INTENT(INOUT) :: plan INTEGER, INTENT(IN) :: fft_type, fsign LOGICAL, INTENT(IN) :: trans @@ -245,9 +239,6 @@ CONTAINS !> \param plan ... ! ************************************************************************************************** SUBROUTINE fft_destroy_plan(plan) - - USE fft_plan, ONLY: fft_plan_type - USE fft_kinds, ONLY: dp TYPE(fft_plan_type), INTENT(INOUT) :: plan ! Planning only needed for FFTW3 @@ -268,7 +259,6 @@ CONTAINS !> \param stat ... ! ************************************************************************************************** SUBROUTINE fft_1dm(plan, zin, zout, scale, stat) - TYPE(fft_plan_type), INTENT(IN) :: plan COMPLEX(KIND=dp), DIMENSION(*), INTENT(INOUT) :: zin, zout REAL(KIND=dp), INTENT(IN) :: scale diff --git a/src/qs_integrate_potential_low.F b/src/qs_integrate_potential_low.F index c403286842..b728a2d514 100644 --- a/src/qs_integrate_potential_low.F +++ b/src/qs_integrate_potential_low.F @@ -33,6 +33,25 @@ MODULE qs_integrate_potential_low PUBLIC :: integrate_pgf_product_rspace + INTERFACE + SUBROUTINE call_to_xyz_to_vab(prefactor, coef_xyz, lp, la_max_local, lb_max_local, & + rp, ra, rab, vab, coset, la_min_local, lb_min_local, & + maxl, lvab, hvab) + IMPORT :: dp + REAL(KIND=dp), INTENT(in) :: prefactor + INTEGER, INTENT(in) :: lp + REAL(kind=dp), DIMENSION(((lp+1)*(lp+2)*(lp+3))/6), & + INTENT(inout) :: coef_xyz + INTEGER, INTENT(in) :: la_max_local, lb_max_local, la_min_local, & + lb_min_local, maxl, lvab, hvab + REAL(kind=dp), DIMENSION(3), INTENT(in) :: rp, ra, rab + REAL(kind=dp), DIMENSION(lvab, hvab), & + INTENT(inout) :: vab + INTEGER, DIMENSION(-1:maxl, -1:maxl, -1:maxl), & + INTENT(in) :: coset + END SUBROUTINE call_to_xyz_to_vab + END INTERFACE + CONTAINS ! ************************************************************************************************** diff --git a/tools/conventions/conventions.supp b/tools/conventions/conventions.supp index c5ca8f98e3..6ed871a6e1 100644 --- a/tools/conventions/conventions.supp +++ b/tools/conventions/conventions.supp @@ -4,16 +4,6 @@ Data file MM_POTENTIAL copied to tests/QMMM/QS Data file POTENTIAL copied to tests/QMMM/QS Flag FD_DEBUG not mentioned in INSTALL Flag FD_DEBUG not mentioned in cp2k_flags() -Flag FLUSH_OPT not mentioned in INSTALL -Flag FLUSH_OPT not mentioned in cp2k_flags() -Flag FMG_INTEGRATE not mentioned in INSTALL -Flag FMG_INTEGRATE not mentioned in cp2k_flags() -Flag FMG_INTEGRATE_FULL not mentioned in INSTALL -Flag FMG_INTEGRATE_FULL not mentioned in cp2k_flags() -Flag FM_FLAT_GRID not mentioned in INSTALL -Flag FM_FLAT_GRID not mentioned in cp2k_flags() -Flag LIBMICSMM_HPP not mentioned in INSTALL -Flag LIBMICSMM_HPP not mentioned in cp2k_flags() Flag LIBMICSMM_USE_LIBXSMM not mentioned in INSTALL Flag LIBMICSMM_USE_LIBXSMM not mentioned in cp2k_flags() Flag LIBMICSMM_USE_MKLSMM not mentioned in INSTALL @@ -32,14 +22,10 @@ Flag LIBXSTREAM_PRINT not mentioned in INSTALL Flag LIBXSTREAM_PRINT not mentioned in cp2k_flags() Flag MKL_DIRECT_CALL_SEQ not mentioned in INSTALL Flag MKL_DIRECT_CALL_SEQ not mentioned in cp2k_flags() -Flag PARAMS_IN_SMEM_OPT not mentioned in INSTALL -Flag PARAMS_IN_SMEM_OPT not mentioned in cp2k_flags() Flag USE_NATIVE_64 not mentioned in INSTALL Flag USE_NATIVE_64 not mentioned in cp2k_flags() Flag XC_MAJOR_VERSION not mentioned in INSTALL Flag XC_MAJOR_VERSION not mentioned in cp2k_flags() -Flag XC_MINOR_VERSION not mentioned in INSTALL -Flag XC_MINOR_VERSION not mentioned in cp2k_flags() Flag __ACC_MIC not mentioned in INSTALL Flag __ACC_MIC not mentioned in cp2k_flags() Flag __CRAY_PM_FAKE_ENERGY not mentioned in INSTALL @@ -72,7 +58,6 @@ Flag __SCALAPACK2 not mentioned in INSTALL Flag __F2008 not mentioned in cp2k_flags() al_system_dynamics.F: Found WRITE statement with hardcoded unit in "dump_vel" almo_scf.F: Found WRITE statement with hardcoded unit in "almo_scf_init" -almo_scf_optimizer.F: Found WRITE statement with hardcoded unit in "almo_scf_xalmo_pcg" base_hooks.F: Found CALL m_abort in procedure "cp_abort" base_hooks.F: Found STOP statement in procedure "cp__a" base_hooks.F: Found STOP statement in procedure "cp__b" @@ -118,9 +103,6 @@ cp_dbcsr_cholesky.F: Routine PSPOTRI called with an implicit interface. cp_dbcsr_cholesky.F: Routine PSTRMM called with an implicit interface. cp_dbcsr_cholesky.F: Routine PSTRSM called with an implicit interface. cp_dbcsr_operations.F: Found CALL cp_fm_gemm in procedure "cp_dbcsr_plus_fm_fm_t" -cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "copy_dbcsr_to_cfm" -cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "copy_dbcsr_to_fm" -cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "copy_dbcsr_to_fm_bc" cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "cp_dbcsr_plus_fm_fm_t" cp_ddapc_util.F: Found WRITE statement with hardcoded unit in "debug_charge" cp_ddapc_util.F: Found WRITE statement with hardcoded unit in "debug_der_a_matrix" @@ -130,8 +112,6 @@ cp_files.F: Found CLOSE statement in procedure "close_file" cp_files.F: Found OPEN statement in procedure "open_file" cp_fm_basic_linalg.F: Found CALL cp_fm_gemm in procedure "cp_complex_fm_gemm" cp_fm_diag.F: Found CALL cp_fm_gemm in procedure "cp_fm_geeig_canon" -cp_fm_diag.F: Unused parameter 'vl' declared at (1) [-Wunused-parameter] -cp_fm_diag.F: Unused parameter 'vu' declared at (1) [-Wunused-parameter] cp_gemm_interface.F: Found CALL cp_fm_gemm in procedure "cp_gemm" cp_lbfgs.F: Found WRITE statement with hardcoded unit in "active" cp_lbfgs.F: Found WRITE statement with hardcoded unit in "cauchy" @@ -154,9 +134,6 @@ cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "create_bl_d cp_dbcsr_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_create_dist_block_cyclic" dbcsr_mm_dist_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_create_image_dist" dbcsr_mm_dist_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_reset_locals" -dbcsr_error_handling.F: Found WRITE statement with hardcoded unit in "dbcsr_int_assert" -dbcsr_error_handling.F: Found WRITE statement with hardcoded unit in "dbcsr_logical_assert" -dbcsr_error_handling.F: Found WRITE statement with hardcoded unit in "dbcsr_not_assert" dbcsr_example_1.F: Found WRITE statement with hardcoded unit in "dbcsr_example_1" dbcsr_example_2.F: Found CALL RANDOM_NUMBER in procedure "dbcsr_example_2" dbcsr_example_2.F: Found WRITE statement with hardcoded unit in "dbcsr_example_2" @@ -176,7 +153,6 @@ dbcsr_mm_accdrv.F: Found FLOAT in "setup_stackbuffers" dbcsr_mm_common.F: Found FLOAT in "count_mpi_statistics" dbcsr_mm_common.F: Found WRITE statement with hardcoded unit in "rec_sort_index" dbcsr_mm_cannon.F: Found FLOAT in "multiply_cannon" -dbcsr_mm_cannon.F: Found WRITE statement with hardcoded unit in "call_rec_sort_index" dbcsr_mm_cannon.F: Found WRITE statement with hardcoded unit in "multiply_cannon" dbcsr_mm_cannon.F: Found WRITE statement with hardcoded unit in "dbcsr_make_images_dense" dbcsr_mm_cannon.F: Found WRITE statement with hardcoded unit in "setup_rec_index_2d" @@ -190,10 +166,6 @@ dbcsr_mm_multrec.F: Found WRITE statement with hardcoded unit in "dbcsr_mm_multr dbcsr_mm_multrec.F: Found WRITE statement with hardcoded unit in "sparse_multrec" dbcsr_mm_sched.F: Found FLOAT in "stats_print_report" dbcsr_mm_sched.F: Found WRITE statement with hardcoded unit in "dbcsr_mm_sched_process" -dbcsr_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_trace_ab_c" -dbcsr_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_trace_ab_d" -dbcsr_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_trace_ab_s" -dbcsr_operations.F: Found WRITE statement with hardcoded unit in "dbcsr_trace_ab_z" dbcsr_performance_multiply.F: Found WRITE statement with hardcoded unit in "dbcsr_perf_multiply" dbcsr_performance_multiply.F: Found WRITE statement with hardcoded unit in "perf_multiply" dbcsr_ptr_util.F: Found WRITE statement with hardcoded unit in "ensure_array_size_c" @@ -232,15 +204,9 @@ eip_silicon.F: Found WRITE statement with hardcoded unit in "eip_lenosky_silicon eip_silicon.F: Found WRITE statement with hardcoded unit in "subfeniat_b" eip_silicon.F: Found WRITE statement with hardcoded unit in "subfeniat_l" erf_fn.F: Found GOTO statement in procedure "calerf" -ewalds_multipole_debug.F: Found WRITE statement with hardcoded unit in "debug_ewald_multipoles" -ewalds_multipole_debug.F: Found WRITE statement with hardcoded unit in "debug_ewald_multipoles_fields" -ewalds_multipole_debug.F: Found WRITE statement with hardcoded unit in "debug_ewald_multipoles_fields2" -ewalds_multipole_debug.h: Copyright banner malformed extended_system_init.F: Found WRITE statement with hardcoded unit in "init_barostat_variables" -f77_int.h: Copyright banner malformed farming_methods.F: Found CLOSE statement in procedure "farming_parse_input" farming_methods.F: Found OPEN statement in procedure "farming_parse_input" -fft_lib.F: Unused parameter 'dp' which has been explicitly imported at (1) [-Wunused-parameter] fparser.F: Copyright banner malformed fparser.F: Found WRITE statement with hardcoded unit in "parseerrmsg" free_energy_methods.F: Found WRITE statement with hardcoded unit in "ui_check_norm_sc" @@ -267,20 +233,11 @@ hfx_compression_methods.F: Found READ with unchecked STAT in "hfx_decompress_cac hfx_energy_potential.F: Found WRITE statement with hardcoded unit in "print_integrals" input_enumeration_types.F: Found WRITE statement with hardcoded unit in "enum_i2c" input_parsing.F: Found WRITE statement with hardcoded unit in "section_vals_parse" -k290.F: Found GOTO statement in procedure "mesh" -k290.F: Found GOTO statement in procedure "sppt2" -k290.F: Found WRITE statement with hardcoded unit in "atftm1" -k290.F: Found WRITE statement with hardcoded unit in "bzrduc" -k290.F: Found WRITE statement with hardcoded unit in "mesh" -k290.F: Found WRITE statement with hardcoded unit in "sppt2" library_tests.F: Found CALL RANDOM_NUMBER in procedure "copy_test" library_tests.F: Found CALL RANDOM_NUMBER in procedure "cp_fm_gemm_test" library_tests.F: Found CALL RANDOM_NUMBER in procedure "fft_test" library_tests.F: Found CALL RANDOM_NUMBER in procedure "rs_pw_transfer_test" library_tests.F: Routine PILAENV called with an implicit interface. -lri_debug_integrals.F: Found WRITE statement with hardcoded unit in "overlap_aabb_test_simple" -lri_debug_integrals.F: Found WRITE statement with hardcoded unit in "overlap_ab_test_simple" -lri_debug_integrals.F: Found WRITE statement with hardcoded unit in "overlap_abc_test_simple" machine.F: Found OPEN statement in procedure "m_cpuinfo" machine_internal.F: Found CALL m_abort in procedure "m_getarg" machine_internal.F: Found CALL m_abort in procedure "m_getcwd" @@ -332,7 +289,6 @@ qs_fb_filter_matrix_methods.F: Found WRITE statement with hardcoded unit in "fb_ qs_gspace_mixing.F: Found WRITE statement with hardcoded unit in "broyden_mixing_new" qs_gspace_mixing.F: Found WRITE statement with hardcoded unit in "multisecant_mixing" qs_initial_guess.F: Found WRITE statement with hardcoded unit in "calculate_first_density_matrix" -qs_integrate_potential_low.F: Routine CALL_TO_XYZ_TO_VAB called with an implicit interface. qs_integrate_potential_low.F: Routine INTEGRATE_CORE_0 called with an implicit interface. qs_integrate_potential_low.F: Routine INTEGRATE_CORE_1 called with an implicit interface. qs_integrate_potential_low.F: Routine INTEGRATE_CORE_2 called with an implicit interface. @@ -356,7 +312,6 @@ qs_loc_utils.F: Routine PZROT called with an implicit interface. qs_localization_methods.F: Routine PZROT called with an implicit interface. qs_ot.F: Found WRITE statement with hardcoded unit in "qs_ot_generate_rotation" qs_rho_atom_methods.F: Found WRITE statement with hardcoded unit in "init_rho_atom" -scptb_types.F: Found WRITE statement with hardcoded unit in "scp_vector_print" se_core_matrix.F: Found WRITE statement with hardcoded unit in "aa" se_core_matrix.F: Found WRITE statement with hardcoded unit in "makeds" se_core_matrix.F: Found WRITE statement with hardcoded unit in "makes" @@ -416,32 +371,6 @@ xml_parser.F: Found WRITE statement with hardcoded unit in "xml_report_details_s xml_parser.F: Found WRITE statement with hardcoded unit in "xml_report_errors_extern_" xml_parser.F: Found WRITE statement with hardcoded unit in "xml_report_errors_int_" xml_parser.F: Found WRITE statement with hardcoded unit in "xml_report_errors_string_" -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_0_0 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_0_1 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_0_2 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_0_3 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_0_4 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_1_0 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_1_1 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_1_2 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_1_3 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_1_4 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_2_0 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_2_1 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_2_2 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_2_3 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_2_4 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_3_0 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_3_1 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_3_2 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_3_3 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_3_4 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_4_0 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_4_1 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_4_2 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_4_3 called with an implicit interface. -xyz_to_vab_optimised.F: Routine XYZ_TO_VAB_4_4 called with an implicit interface. dbcsr_tensor_test.F: Found CALL RANDOM_NUMBER in procedure "dbcsr_t_random_dist" optimize_embedding_potential.F: Found FLOAT in "init_embed_pot" et_coupling_proj.F: Routine INFOG2L called with an implicit interface.