AbstractUserSetServices Derived Type

type, public, abstract :: AbstractUserSetServices


Inherited by

type~~abstractusersetservices~~InheritedByGraph type~abstractusersetservices AbstractUserSetServices type~childspec ChildSpec type~childspec->type~abstractusersetservices user_setservices type~dsosetservices DSOSetServices type~dsosetservices->type~abstractusersetservices type~outermetacomponent OuterMetaComponent type~outermetacomponent->type~abstractusersetservices user_setservices type~childspecpair ChildSpecPair type~childspecpair->type~childspec second type~map_s_node~7 map_s_Node type~map_s_node~7->type~childspecpair value type~map_s_node~7->type~map_s_node~7 parent type~map_setiterator~7 map_SetIterator type~map_setiterator~7->type~map_s_node~7 node

Type-Bound Procedures

procedure(I_RunSetServices), public, deferred :: run

  • subroutine I_RunSetServices(this, gridcomp, rc) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractUserSetServices), intent(in) :: this
    type(ESMF_GridComp) :: gridcomp
    integer, intent(out) :: rc

generic, public :: write(formatted) => write_formatted

  • private subroutine write_formatted_proc(this, unit, iotype, v_list, iostat, iomsg)

    Arguments

    Type IntentOptional Attributes Name
    class(ProcSetServices), intent(in) :: this
    integer, intent(in) :: unit
    character(len=*), intent(in) :: iotype
    integer, intent(in) :: v_list(:)
    integer, intent(out) :: iostat
    character(len=*), intent(inout) :: iomsg

procedure(I_write_formatted), public, deferred :: write_formatted

  • subroutine I_write_formatted(this, unit, iotype, v_list, iostat, iomsg) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractUserSetServices), intent(in) :: this
    integer, intent(in) :: unit
    character(len=*), intent(in) :: iotype
    integer, intent(in) :: v_list(:)
    integer, intent(out) :: iostat
    character(len=*), intent(inout) :: iomsg

Source Code

   type, abstract :: AbstractUserSetServices
   contains
      procedure(I_RunSetServices), deferred :: run
      procedure(I_write_formatted), deferred :: write_formatted
      generic :: write(formatted) => write_formatted
   end type AbstractUserSetServices