FEQParse_Function

type, public :: FEQParse_Function

Components

Type	Visibility	Attributes		Name		Initial
character,	public,	allocatable	::	caps
integer,	public		::	len
procedure(f32),	public,	nopass, pointer	::	ptr32	=>	null()
procedure(f64),	public,	nopass, pointer	::	ptr64	=>	null()
character,	public,	allocatable	::	str

Finalization Procedures

final :: Function_Finalize

private subroutine Function_Finalize(this)

Arguments

Type Intent Optional Attributes Name

type(FEQParse_Function), intent(inout) :: this

Type	Intent	Optional	Attributes		Name
type(FEQParse_Function),	intent(inout)			::	this

Type-Bound Procedures

generic, public :: assignment(=) => character_assign_function, character_array_assign_function

private subroutine character_assign_function(lhs, rhs)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(inout) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.
private subroutine character_array_assign_function(lhs, rhs)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(inout) :: lhs
Left hand side.

class(Tuple), intent(in) :: rhs
Right hand side.

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(inout)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(inout)			::	lhs	Left hand side.
class(Tuple),	intent(in)			::	rhs	Right hand side.

procedure, private, pass(lhs) :: character_array_assign_function

private subroutine character_array_assign_function(lhs, rhs)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(inout) :: lhs
Left hand side.

class(Tuple), intent(in) :: rhs
Right hand side.

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(inout)			::	lhs	Left hand side.
class(Tuple),	intent(in)			::	rhs	Right hand side.

procedure, private, pass(lhs) :: character_assign_function

private subroutine character_assign_function(lhs, rhs)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(inout) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(inout)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

procedure, private, pass(rhs) :: character_eq_function

private elemental function character_eq_function(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: lhs

class(FEQParse_Function), intent(in) :: rhs

Return Value logical

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(FEQParse_Function),	intent(in)			::	rhs

procedure, private, pass(rhs) :: character_neq_function

private elemental function character_neq_function(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: lhs

class(FEQParse_Function), intent(in) :: rhs

Return Value logical

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(FEQParse_Function),	intent(in)			::	rhs

procedure, private, pass(lhs) :: function_eq_character

private elemental function function_eq_character(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.

Return Value logical

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

procedure, private, pass(lhs) :: function_neq_character

private elemental function function_neq_character(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.

Return Value logical

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

generic, public :: invoke => invoke32, invoke64

private elemental function invoke32(this, x) result(fx)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: this

real(kind=real32), intent(in) :: x

Return Value real(kind=real32)
private elemental function invoke64(this, x) result(fx)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: this

real(kind=real64), intent(in) :: x

Return Value real(kind=real64)

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	this
real(kind=real32),	intent(in)			::	x

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	this
real(kind=real64),	intent(in)			::	x

procedure, private, pass(this) :: invoke32

private elemental function invoke32(this, x) result(fx)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: this

real(kind=real32), intent(in) :: x

Return Value real(kind=real32)

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	this
real(kind=real32),	intent(in)			::	x

procedure, private, pass(this) :: invoke64

private elemental function invoke64(this, x) result(fx)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: this

real(kind=real64), intent(in) :: x

Return Value real(kind=real64)

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	this
real(kind=real64),	intent(in)			::	x

generic, public :: operator(/=) => function_neq_character, character_neq_function

private elemental function function_neq_character(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.

Return Value logical
private elemental function character_neq_function(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: lhs

class(FEQParse_Function), intent(in) :: rhs

Return Value logical

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(FEQParse_Function),	intent(in)			::	rhs

generic, public :: operator(==) => function_eq_character, character_eq_function

private elemental function function_eq_character(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

class(FEQParse_Function), intent(in) :: lhs
Left hand side.

character(len=*), intent(in) :: rhs
Right hand side.

Return Value logical
private elemental function character_eq_function(lhs, rhs) result(ok)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: lhs

class(FEQParse_Function), intent(in) :: rhs

Return Value logical

Type	Intent	Optional	Attributes		Name
class(FEQParse_Function),	intent(in)			::	lhs	Left hand side.
character(len=*),	intent(in)			::	rhs	Right hand side.

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(FEQParse_Function),	intent(in)			::	rhs

Source Code

  type,public :: FEQParse_Function
    integer :: len
    character(:),allocatable :: str
    character(:),allocatable :: caps
    procedure(f32),public,nopass,pointer :: ptr32 => null()
    procedure(f64),public,nopass,pointer :: ptr64 => null()
  contains
    procedure,private,pass(lhs) :: character_array_assign_function
    procedure,private,pass(lhs) :: character_assign_function
    generic :: assignment(=) => character_assign_function,character_array_assign_function
    procedure,private,pass(lhs) :: function_eq_character
    procedure,private,pass(rhs) :: character_eq_function
    generic :: operator(==) => function_eq_character,character_eq_function
    procedure,private,pass(lhs) :: function_neq_character
    procedure,private,pass(rhs) :: character_neq_function
    generic :: operator(/=) => function_neq_character,character_neq_function
    procedure,private,pass(this) :: invoke32
    procedure,private,pass(this) :: invoke64
    generic :: invoke => invoke32,invoke64
    final :: Function_Finalize
  endtype FEQParse_Function

FEQParse_Function Derived Type

Contents

Variables

Finalization Procedures

Type-Bound Procedures

Source Code

type, public :: FEQParse_Function

Contents

Variables

Finalization Procedures

Type-Bound Procedures

Source Code

Components

Finalization Procedures

final :: Function_Finalize

private subroutine Function_Finalize(this)

Arguments

Type-Bound Procedures

generic, public :: assignment(=) => character_assign_function, character_array_assign_function

private subroutine character_assign_function(lhs, rhs)

Arguments

private subroutine character_array_assign_function(lhs, rhs)

Arguments

procedure, private, pass(lhs) :: character_array_assign_function

private subroutine character_array_assign_function(lhs, rhs)

Arguments

procedure, private, pass(lhs) :: character_assign_function

private subroutine character_assign_function(lhs, rhs)

Arguments

procedure, private, pass(rhs) :: character_eq_function

private elemental function character_eq_function(lhs, rhs) result(ok)

Arguments

Return Value logical

procedure, private, pass(rhs) :: character_neq_function

private elemental function character_neq_function(lhs, rhs) result(ok)

Arguments

Return Value logical

procedure, private, pass(lhs) :: function_eq_character

private elemental function function_eq_character(lhs, rhs) result(ok)

Arguments

Return Value logical

procedure, private, pass(lhs) :: function_neq_character

private elemental function function_neq_character(lhs, rhs) result(ok)

Arguments

Return Value logical

generic, public :: invoke => invoke32, invoke64

private elemental function invoke32(this, x) result(fx)

Arguments

Return Value real(kind=real32)

private elemental function invoke64(this, x) result(fx)

Arguments

Return Value real(kind=real64)

procedure, private, pass(this) :: invoke32

private elemental function invoke32(this, x) result(fx)

Arguments

Return Value real(kind=real32)

procedure, private, pass(this) :: invoke64

private elemental function invoke64(this, x) result(fx)

Arguments

Return Value real(kind=real64)

generic, public :: operator(/=) => function_neq_character, character_neq_function

private elemental function function_neq_character(lhs, rhs) result(ok)

Arguments

Return Value logical

private elemental function character_neq_function(lhs, rhs) result(ok)

Arguments

Return Value logical

generic, public :: operator(==) => function_eq_character, character_eq_function

private elemental function function_eq_character(lhs, rhs) result(ok)

Arguments

Return Value logical

private elemental function character_eq_function(lhs, rhs) result(ok)

Arguments

Return Value logical

Source Code