real4_container Derived Type

  1. container.f90
  2. container_mod
  3. real4_container

type, public, extends(container) :: real4_container

type~~real4_container~~InheritsGraph type~real4_container real4_container type~container container type~container->type~real4_container
Help


A container for holding the 4 byte real type.


Type-Bound Procedures

procedure, private :: typeguard => real4_guard

  • private function real4_guard(this, lhs) result(ret)

    Arguments

    Type IntentOptional AttributesName
    class(real4_container), intent(in) :: this
    class(*), intent(inout) :: lhs

    Return Value logical

    Description

    Author
    Chris MacMackin
    Date
    December 2015

    Transfers the container's contents to the variable on the left hand side of the equals sign if it is of the correct type.

Source Code

  type, extends(container) ::  real4_container
    !! Author: Chris MacMackin
    !! Date: December 2015
    !!
    !! A container for holding the 4 byte real type.
  contains
    private
    procedure   ::  typeguard => real4_guard
  end type real4_container