classical_modes.F90

Go to the documentation of this file.

!! Copyright (C) 2024 M. Lueders
!!
!! This Source Code Form is subject to the terms of the Mozilla Public
!! License, v. 2.0. If a copy of the MPL was not distributed with this
!! file, You can obtain one at https://mozilla.org/MPL/2.0/.
!!
#include "global.h"
 
 
 
module classical_modes_oct_m
 
  use, intrinsic :: iso_fortran_env
  use debug_oct_m
  use global_oct_m
  use namespace_oct_m
  use messages_oct_m
  use parser_oct_m
  use profiling_oct_m
 
  private
  public :: &
    classical_modes_t
 
  !
  type :: classical_modes_t
 
    ! All variables are public by default
 
    integer :: num_modes
    integer :: dim
    real(real64), allocatable :: frequencies(:)
    real(real64), allocatable :: eigenvectors(:,:)
 
  contains
 
    procedure :: end  => classical_modes_end  
 
  end type classical_modes_t
 
contains
 
 
 
  subroutine classical_modes_end(this)
    class(classical_modes_t), intent(inout) :: this
 
    push_sub(classical_modes_end)
    safe_deallocate_a(this%frequencies)
    safe_deallocate_a(this%eigenvectors)
    pop_sub(classical_modes_end)
  end subroutine classical_modes_end
 
end module classical_modes_oct_m