type_host Derived Type

type, public, abstract :: type_host

Contents

Type-Bound Procedures

julian_day calendar_date fatal_error log_message

Type-Bound Procedures

procedure(host_julian_day), public, deferred :: julian_day

• subroutine host_julian_day(self, yyyy, mm, dd, julian) Prototype

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_host),	intent(in)			::	self
  integer,	intent(in)			::	yyyy
  integer,	intent(in)			::	mm
  integer,	intent(in)			::	dd
  integer,	intent(out)			::	julian

procedure(host_calendar_date), public, deferred :: calendar_date

• subroutine host_calendar_date(self, julian, yyyy, mm, dd) Prototype

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_host),	intent(in)			::	self
  integer,	intent(in)			::	julian
  integer,	intent(out)			::	yyyy
  integer,	intent(out)			::	mm
  integer,	intent(out)			::	dd

procedure, public :: fatal_error => host_fatal_error

• private subroutine host_fatal_error(self, location, error)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_host),	intent(in)			::	self
  character(len=*),	intent(in)			::	location
  character(len=*),	intent(in)			::	error

procedure, public :: log_message => host_log_message

• private subroutine host_log_message(self, message)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_host),	intent(in)			::	self
  character(len=*),	intent(in)			::	message