sll_m_descriptors.F90

Go to the documentation of this file.

!This file was generated using the macro descriptors.m4
!Usage: m4 descriptors.m4 > sll_m_descriptors.F90
 
module sll_m_descriptors
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#include "sll_working_precision.h"
 
   implicit none
 
   public :: &
      sll_p_landau_diag, &
      sll_p_landau_prod, &
      sll_p_landau_sum, &
      sll_t_vlasovpoisson_sim
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   type sll_t_vlasovpoisson_sim
      sll_int32                  :: id
      character(len=32), private :: pname
   contains
      procedure, pass(self)      :: name => name_vlasovpoisson_sim
      procedure, pass(self)      :: parse => parse_vlasovpoisson_sim
   end type sll_t_vlasovpoisson_sim
 
   interface operator(.eq.)
      module procedure sll_vlasovpoisson_sim_compare
   end interface
 
   type(sll_t_vlasovpoisson_sim), parameter :: sll_p_landau_diag = sll_t_vlasovpoisson_sim(1, "sll_p_landau_diag")
   type(sll_t_vlasovpoisson_sim), parameter :: sll_p_landau_sum = sll_t_vlasovpoisson_sim(2, "sll_p_landau_sum")
   type(sll_t_vlasovpoisson_sim), parameter :: sll_p_landau_prod = sll_t_vlasovpoisson_sim(3, "sll_p_landau_prod")
   type(sll_t_vlasovpoisson_sim), parameter :: sll_twostream = sll_t_vlasovpoisson_sim(4, "SLL_TWOSTREAM")
   type(sll_t_vlasovpoisson_sim), parameter :: sll_bumpontail = sll_t_vlasovpoisson_sim(5, "SLL_BUMPONTAIL")
 
   type sll_boundary
      sll_int32                  :: id
      character(len=32), private :: pname
   contains
      procedure, pass(self)      :: name => name_boundary
      procedure, pass(self)      :: parse => parse_boundary
   end type sll_boundary
 
   interface operator(.eq.)
      module procedure sll_boundary_compare
   end interface
 
   type(sll_boundary), parameter :: open = sll_boundary(1, "OPEN")
   type(sll_boundary), parameter :: closed = sll_boundary(2, "CLOSED")
 
contains
 
   !----------------------------------------------------------------------
   !------------------- vlasovpoisson_sim -----------------------------------------
   pure function name_vlasovpoisson_sim(self) result(r)
      class(sll_t_vlasovpoisson_sim), intent(in) :: self
      character(len=10)     :: r
      r = self%pname(1:10)
   end function name_vlasovpoisson_sim
 
   pure function sll_vlasovpoisson_sim_compare(bc1, bc2) result(compare)
      type(sll_t_vlasovpoisson_sim), intent(in) :: bc1, bc2
      logical :: compare
      compare = bc1%id .eq. bc2%id
   end function sll_vlasovpoisson_sim_compare
 
   subroutine parse_vlasovpoisson_sim(self, str)
      class(sll_t_vlasovpoisson_sim), intent(inout) :: self
      character(len=*), intent(in) :: str
      character(len=3) :: strc
 
      !Remove blanks left and right
      strc = adjustl(trim(str))
 
      if (strc .eq. sll_p_landau_diag%name()) then
         self%id = sll_p_landau_diag%id
         self%pname = sll_p_landau_diag%pname
      elseif (strc .eq. sll_p_landau_sum%name()) then
         self%id = sll_p_landau_sum%id
         self%pname = sll_p_landau_sum%pname
      elseif (strc .eq. sll_p_landau_prod%name()) then
         self%id = sll_p_landau_prod%id
         self%pname = sll_p_landau_prod%pname
      elseif (strc .eq. sll_twostream%name()) then
         self%id = sll_twostream%id
         self%pname = sll_twostream%pname
      elseif (strc .eq. sll_bumpontail%name()) then
         self%id = sll_bumpontail%id
         self%pname = sll_bumpontail%pname
      elseif (.true.) then
      end if
 
   end subroutine parse_vlasovpoisson_sim
   !----------------------------------------------------------------------
 
   !----------------------------------------------------------------------
   !------------------- boundary -----------------------------------------
   pure function name_boundary(self) result(r)
      class(sll_boundary), intent(in) :: self
      character(len=10)     :: r
      r = self%pname(1:10)
   end function name_boundary
 
   pure function sll_boundary_compare(bc1, bc2) result(compare)
      type(sll_boundary), intent(in) :: bc1, bc2
      logical :: compare
      compare = bc1%id .eq. bc2%id
   end function sll_boundary_compare
 
   subroutine parse_boundary(self, str)
      class(sll_boundary), intent(inout) :: self
      character(len=*), intent(in) :: str
      character(len=3) :: strc
 
      !Remove blanks left and right
      strc = adjustl(trim(str))
 
      if (strc .eq. open%name()) then
         self%id = open%id
         self%pname = open%pname
      elseif (strc .eq. closed%name()) then
         self%id = closed%id
         self%pname = closed%pname
      elseif (.true.) then
      end if
 
   end subroutine parse_boundary
   !----------------------------------------------------------------------
 
end module sll_m_descriptors