CellPoly.f90

Go to the documentation of this file.

module cellpolymodule
 
  use cellmodule, only: celltype
  use celldefnmodule, only: celldefntype, create_defn
  implicit none
 
  private
  public :: cellpolytype
  public :: create_cell_poly
 
  type, extends(celltype) :: cellpolytype
  contains
    procedure :: destroy => destroy_cell_poly
  end type cellpolytype
 
contains
 
  !> @brief Create a new polygonal cell
  subroutine create_cell_poly(cell)
    type(cellpolytype), pointer :: cell
    allocate (cell)
    call create_defn(cell%defn)
    allocate (cell%type)
    cell%type = 'poly'
  end subroutine create_cell_poly
 
  !> @brief Destroy the polygonal cell
  subroutine destroy_cell_poly(this)
    class(cellpolytype), intent(inout) :: this
    deallocate (this%defn)
    deallocate (this%type)
  end subroutine destroy_cell_poly
 
end module cellpolymodule