interactions_factory_abst.F90

Go to the documentation of this file.

!! Copyright (C) 2020-24 M. Oliveira
!!
!! This program is free software; you can redistribute it and/or modify
!! it under the terms of the GNU General Public License as published by
!! the Free Software Foundation; either version 2, or (at your option)
!! any later version.
!!
!! This program is distributed in the hope that it will be useful,
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!! GNU General Public License for more details.
!!
!! You should have received a copy of the GNU General Public License
!! along with this program; if not, write to the Free Software
!! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
!! 02110-1301, USA.
!!
 
module interactions_factory_abst_oct_m
  use interaction_oct_m
  use interaction_partner_oct_m
  use namespace_oct_m
  implicit none
 
  private
  public ::                         &
    interactions_factory_options_t, &
    interactions_factory_abst_t
 
  integer, parameter, public ::   &
    NO_PARTNERS   = -1,            &
    all_partners  = -2,            &
    only_partners = -3,            &
    all_except    = -4
 
 
  !
  type interactions_factory_options_t
    integer :: mode
    integer :: timing
    character(len=MAX_NAMESPACE_LEN), allocatable :: partners(:)
    !                                                             !! ONLY_PARTNERS and ALL_EXCEPT modes.
  end type interactions_factory_options_t
 
  type, abstract :: interactions_factory_abst_t
  contains
    procedure(interactions_factory_abst_create), deferred :: create
    
    procedure(interactions_factory_abst_options), deferred, nopass :: options
    
  end type interactions_factory_abst_t
 
  abstract interface
 
    !
    function interactions_factory_abst_create(this, type, partner) result(interaction)
      import :: interactions_factory_abst_t
      import interaction_partner_t
      import interaction_t
      class(interactions_factory_abst_t),         intent(in)    :: this
      integer,                                    intent(in)    :: type
      class(interaction_partner_t),       target, intent(inout) :: partner
      class(interaction_t),                       pointer       :: interaction
    end function interactions_factory_abst_create
 
    !
    function interactions_factory_abst_options(namespace, interactions) result(options)
      use namespace_oct_m
      import :: interactions_factory_options_t
      type(namespace_t),                    intent(in)  :: namespace
      integer,                              intent(in)  :: interactions(:)
      type(interactions_factory_options_t) :: options(size(interactions))
    end function interactions_factory_abst_options
  end interface
 
end module interactions_factory_abst_oct_m
 
!! Local Variables:
!! mode: f90
!! coding: utf-8
!! End: