r4fp64Stack Derived Type

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. r4fp64Stack

type, public, extends(feqparse_floatstack) :: r4fp64Stack


Contents

Variables

Finalization Procedures

Type-Bound Procedures

Source Code

r4fp64Stack

Components

TypeVisibilityAttributesNameInitial
real(kind=real64), public, allocatable:: tokens(:,:,:,:,:)
integer, public :: top_index

Finalization Procedures

final :: Finalize_r4fp64Stack


Type-Bound Procedures

procedure, public :: Construct => Construct_r4fp64Stack

  • public subroutine Construct_r4fp64Stack(stack, N, mold)

    Arguments

    TypeIntentOptionalAttributesName
    class(r4fp64Stack), intent(out) :: stack
    integer, intent(in) :: N
    real(kind=real64), intent(in) :: mold(:,:,:,:)

procedure, public :: Pop => Pop_r4fp64Stack

  • public subroutine Pop_r4fp64Stack(stack, tok)

    Arguments

    TypeIntentOptionalAttributesName
    class(r4fp64Stack), intent(inout) :: stack
    real(kind=real64), intent(out) :: tok(:,:,:,:)

procedure, public :: Push => Push_r4fp64Stack

  • public subroutine Push_r4fp64Stack(stack, tok)

    Arguments

    TypeIntentOptionalAttributesName
    class(r4fp64Stack), intent(inout) :: stack
    real(kind=real64), intent(in) :: tok(:,:,:,:)

Source Code

  type,extends(feqparse_floatstack) :: r4fp64Stack
    real(real64),allocatable :: tokens(:,:,:,:,:)

  contains

    procedure :: Construct => Construct_r4fp64Stack
    final :: Finalize_r4fp64Stack
    procedure :: Push => Push_r4fp64Stack
    procedure :: Pop => Pop_r4fp64Stack

  endtype r4fp64Stack