system_factory_abst.F90

Go to the documentation of this file.

!! Copyright (C) 2020 M. Oliveira
!!
!! 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/.
!!
 
module system_factory_abst_oct_m
  use namespace_oct_m
  use system_oct_m
  implicit none
 
  private
  public ::                        &
    system_factory_abst_t
 
  type, abstract :: system_factory_abst_t
  contains
    procedure(system_factory_abst_create),     deferred :: create
    procedure(system_factory_abst_block_name), deferred :: block_name
  end type system_factory_abst_t
 
  abstract interface
    function system_factory_abst_create(this, namespace, name, type) result(system)
      import :: system_factory_abst_t
      import system_t
      import namespace_t
      class(system_factory_abst_t), intent(in) :: this
      type(namespace_t),            intent(in) :: namespace
      character(len=*),             intent(in) :: name
      integer,                      intent(in) :: type
      class(system_t),              pointer    :: system
    end function system_factory_abst_create
 
    character(len=80) function system_factory_abst_block_name(this)
      import :: system_factory_abst_t
      class(system_factory_abst_t), intent(in)    :: this
    end function system_factory_abst_block_name
  end interface
 
end module system_factory_abst_oct_m
 
!! Local Variables:
!! mode: f90
!! coding: utf-8
!! End: