FEQParse_FloatStacks Module

Uses

- iso_fortran_env

Contents

Derived Types

feqparse_floatstack r1fp32Stack r1fp64Stack r2fp32Stack r2fp64Stack r3fp32Stack r3fp64Stack r4fp32Stack r4fp64Stack sfp32Stack sfp64Stack

Subroutines

Construct_r1fp32Stack Construct_r1fp64Stack Construct_r2fp32Stack Construct_r2fp64Stack Construct_r3fp32Stack Construct_r3fp64Stack Construct_r4fp32Stack Construct_r4fp64Stack Construct_sfp32Stack Construct_sfp64Stack Finalize_r1fp32Stack Finalize_r1fp64Stack Finalize_r2fp32Stack Finalize_r2fp64Stack Finalize_r3fp32Stack Finalize_r3fp64Stack Finalize_r4fp32Stack Finalize_r4fp64Stack Finalize_sfp32Stack Finalize_sfp64Stack Pop_r1fp32Stack Pop_r1fp64Stack Pop_r2fp32Stack Pop_r2fp64Stack Pop_r3fp32Stack Pop_r3fp64Stack Pop_r4fp32Stack Pop_r4fp64Stack Pop_sfp32Stack Pop_sfp64Stack Push_r1fp32Stack Push_r1fp64Stack Push_r2fp32Stack Push_r2fp64Stack Push_r3fp32Stack Push_r3fp64Stack Push_r4fp32Stack Push_r4fp64Stack Push_sfp32Stack Push_sfp64Stack

Derived Types

type, public :: feqparse_floatstack

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	top_index

type, public, extends(feqparse_floatstack) :: r1fp32Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real32),	public,	allocatable	::	tokens(:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r1fp32Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r1fp32Stack
procedure, public :: Pop => Pop_r1fp32Stack
procedure, public :: Push => Push_r1fp32Stack

type, public, extends(feqparse_floatstack) :: r1fp64Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	tokens(:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r1fp64Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r1fp64Stack
procedure, public :: Pop => Pop_r1fp64Stack
procedure, public :: Push => Push_r1fp64Stack

type, public, extends(feqparse_floatstack) :: r2fp32Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real32),	public,	allocatable	::	tokens(:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r2fp32Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r2fp32Stack
procedure, public :: Pop => Pop_r2fp32Stack
procedure, public :: Push => Push_r2fp32Stack

type, public, extends(feqparse_floatstack) :: r2fp64Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	tokens(:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r2fp64Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r2fp64Stack
procedure, public :: Pop => Pop_r2fp64Stack
procedure, public :: Push => Push_r2fp64Stack

type, public, extends(feqparse_floatstack) :: r3fp32Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real32),	public,	allocatable	::	tokens(:,:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r3fp32Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r3fp32Stack
procedure, public :: Pop => Pop_r3fp32Stack
procedure, public :: Push => Push_r3fp32Stack

type, public, extends(feqparse_floatstack) :: r3fp64Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	tokens(:,:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r3fp64Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r3fp64Stack
procedure, public :: Pop => Pop_r3fp64Stack
procedure, public :: Push => Push_r3fp64Stack

type, public, extends(feqparse_floatstack) :: r4fp32Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real32),	public,	allocatable	::	tokens(:,:,:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r4fp32Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r4fp32Stack
procedure, public :: Pop => Pop_r4fp32Stack
procedure, public :: Push => Push_r4fp32Stack

type, public, extends(feqparse_floatstack) :: r4fp64Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	tokens(:,:,:,:,:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_r4fp64Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_r4fp64Stack
procedure, public :: Pop => Pop_r4fp64Stack
procedure, public :: Push => Push_r4fp64Stack

type, public, extends(feqparse_floatstack) :: sfp32Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real32),	public,	allocatable	::	tokens(:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_sfp32Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_sfp32Stack
procedure, public :: Pop => Pop_sfp32Stack
procedure, public :: Push => Push_sfp32Stack

type, public, extends(feqparse_floatstack) :: sfp64Stack

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	tokens(:)
integer,	public		::	top_index

Finalizations Procedures

final :: Finalize_sfp64Stack

Type-Bound Procedures

procedure, public :: Construct => Construct_sfp64Stack
procedure, public :: Pop => Pop_sfp64Stack
procedure, public :: Push => Push_sfp64Stack

Subroutines

public subroutine Construct_r1fp32Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp32Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real32),	intent(in)			::	mold(:)

public subroutine Construct_r1fp64Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp64Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real64),	intent(in)			::	mold(:)

public subroutine Construct_r2fp32Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp32Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real32),	intent(in)			::	mold(:,:)

public subroutine Construct_r2fp64Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp64Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real64),	intent(in)			::	mold(:,:)

public subroutine Construct_r3fp32Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp32Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real32),	intent(in)			::	mold(:,:,:)

public subroutine Construct_r3fp64Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp64Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real64),	intent(in)			::	mold(:,:,:)

public subroutine Construct_r4fp32Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp32Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real32),	intent(in)			::	mold(:,:,:,:)

public subroutine Construct_r4fp64Stack(stack, N, mold)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp64Stack),	intent(out)			::	stack
integer,	intent(in)			::	N
real(kind=real64),	intent(in)			::	mold(:,:,:,:)

public subroutine Construct_sfp32Stack(stack, N)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp32Stack),	intent(out)			::	stack
integer,	intent(in)			::	N

public subroutine Construct_sfp64Stack(stack, N)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp64Stack),	intent(out)			::	stack
integer,	intent(in)			::	N

public subroutine Finalize_r1fp32Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r1fp32Stack),	intent(inout)			::	stack

public subroutine Finalize_r1fp64Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r1fp64Stack),	intent(inout)			::	stack

public subroutine Finalize_r2fp32Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r2fp32Stack),	intent(inout)			::	stack

public subroutine Finalize_r2fp64Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r2fp64Stack),	intent(inout)			::	stack

public subroutine Finalize_r3fp32Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r3fp32Stack),	intent(inout)			::	stack

public subroutine Finalize_r3fp64Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r3fp64Stack),	intent(inout)			::	stack

public subroutine Finalize_r4fp32Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r4fp32Stack),	intent(inout)			::	stack

public subroutine Finalize_r4fp64Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(r4fp64Stack),	intent(inout)			::	stack

public subroutine Finalize_sfp32Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(sfp32Stack),	intent(inout)			::	stack

public subroutine Finalize_sfp64Stack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
type(sfp64Stack),	intent(inout)			::	stack

public subroutine Pop_r1fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(out)			::	tok(:)

public subroutine Pop_r1fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(out)			::	tok(:)

public subroutine Pop_r2fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(out)			::	tok(:,:)

public subroutine Pop_r2fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(out)			::	tok(:,:)

public subroutine Pop_r3fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(out)			::	tok(:,:,:)

public subroutine Pop_r3fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(out)			::	tok(:,:,:)

public subroutine Pop_r4fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(out)			::	tok(:,:,:,:)

public subroutine Pop_r4fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(out)			::	tok(:,:,:,:)

public subroutine Pop_sfp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(out)			::	tok

public subroutine Pop_sfp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(out)			::	tok

public subroutine Push_r1fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(in)			::	tok(:)

public subroutine Push_r1fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r1fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(in)			::	tok(:)

public subroutine Push_r2fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(in)			::	tok(:,:)

public subroutine Push_r2fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r2fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(in)			::	tok(:,:)

public subroutine Push_r3fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(in)			::	tok(:,:,:)

public subroutine Push_r3fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r3fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(in)			::	tok(:,:,:)

public subroutine Push_r4fp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(in)			::	tok(:,:,:,:)

public subroutine Push_r4fp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(r4fp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(in)			::	tok(:,:,:,:)

public subroutine Push_sfp32Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp32Stack),	intent(inout)			::	stack
real(kind=real32),	intent(in)			::	tok

public subroutine Push_sfp64Stack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(sfp64Stack),	intent(inout)			::	stack
real(kind=real64),	intent(in)			::	tok