diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index d0ea6c9c1a..5855aeb39b 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -354,7 +354,6 @@ list( mao_basis.F mao_methods.F mao_optimizer.F - mao_types.F mao_wfn_analysis.F matrix_exp.F maxwell_solver_interface.F diff --git a/src/mao_types.F b/src/mao_types.F deleted file mode 100644 index dff2e4c055..0000000000 --- a/src/mao_types.F +++ /dev/null @@ -1,64 +0,0 @@ -!--------------------------------------------------------------------------------------------------! -! CP2K: A general program to perform molecular dynamics simulations ! -! Copyright 2000-2025 CP2K developers group ! -! ! -! SPDX-License-Identifier: GPL-2.0-or-later ! -!--------------------------------------------------------------------------------------------------! - -! ************************************************************************************************** -!> \brief The types needed for the calculation of modified atomic orbitals (MAO) -!> \par History -!> 03.2016 created [JGH] -!> \author JGH -! ************************************************************************************************** -MODULE mao_types - -#include "./base/base_uses.f90" - IMPLICIT NONE - PRIVATE - - CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'mao_types' - -! ************************************************************************************************** -!> \brief Quantities needed for MAO's -!> \author JGH -! ************************************************************************************************** - TYPE mao_type - INTEGER :: ref_basis = -1 - END TYPE mao_type - -! ************************************************************************************************** - -CONTAINS - -! ************************************************************************************************** -!> \brief ... -!> \param mao_env ... -! ************************************************************************************************** - SUBROUTINE create_mao_type(mao_env) - TYPE(mao_type), POINTER :: mao_env - - IF (ASSOCIATED(mao_env)) THEN - CALL release_mao_type(mao_env) - END IF - - ALLOCATE (mao_env) - - END SUBROUTINE create_mao_type - -! ************************************************************************************************** -!> \brief ... -!> \param mao_env ... -! ************************************************************************************************** - SUBROUTINE release_mao_type(mao_env) - TYPE(mao_type), POINTER :: mao_env - - IF (ASSOCIATED(mao_env)) THEN - DEALLOCATE (mao_env) - END IF - - END SUBROUTINE release_mao_type - -! ************************************************************************************************** - -END MODULE mao_types