comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-27 13:45:19 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove unused module mao_types from 2016

Browse source
This commit is contained in:
Matthias Krack 2025-08-15 10:22:13 +02:00
parent 06a87a9398
commit 3c19a8c560
2 changed files with 0 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/CMakeLists.txt
View file

@ -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

64
src/mao_types.F
View file

@ -1,64 +0,0 @@
!--------------------------------------------------------------------------------------------------!
! CP2K: A general program to perform molecular dynamics simulations !
! Copyright 2000-2025 CP2K developers group <https://cp2k.org> !
! !
! 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