type_instructions Module Reference

Data Types
type	t_instructions
type	t_instructions_evaluator
interface	unalloc

Enumerations
enum	{   instruction_empty = 1 , instruction_boolean_expression , instruction_integer_expression , instruction_double_expression ,   instruction_if , instruction_elseif , instruction_else , instruction_exit ,   instruction_return_scalar , instruction_return_vector , instruction_while }

Functions/Subroutines
recursive subroutine	finalize_instructions (instruction)
subroutine	finalize_instructions_evaluator (evaluator)
subroutine	evaluate_scalar_instructions (instruction, x, y, z, t, return_value, has_returned)
subroutine	evaluate_vector_instructions (instruction, x, y, z, t, return_value, has_returned)
subroutine	evaluate_vector_component_instructions (instruction, x, y, z, t, component, return_value, has_returned)
recursive subroutine	evaluate_instructions (evaluator, instruction)
recursive subroutine	instruction_evaluate_double (evaluator, expr, double_value)
recursive subroutine	instruction_evaluate_integer (evaluator, expr, integer_value)
recursive subroutine	instruction_evaluate_boolean (evaluator, expr, boolean_value)
subroutine	check_scalar_vector_instructions (instruction, is_scalar, is_valid, message)
recursive subroutine	check_instructions (evaluator, instruction, is_valid, message)
recursive subroutine	check_valid_double_expression (evaluator, expr, is_valid, message)
recursive subroutine	check_valid_integer_expression (evaluator, expr, is_valid, message)
recursive subroutine	check_valid_boolean_expression (evaluator, expr, is_valid, message)

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
instruction_empty
instruction_boolean_expression
instruction_integer_expression
instruction_double_expression
instruction_if
instruction_elseif
instruction_else
instruction_exit
instruction_return_scalar
instruction_return_vector
instruction_while

Function/Subroutine Documentation

check_instructions()

recursive subroutine type_instructions::check_instructions	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_instructions), pointer	instruction,
		logical, intent(out)	is_valid,
		character(len=:), allocatable	message )

check_scalar_vector_instructions()

subroutine type_instructions::check_scalar_vector_instructions	(	type(t_instructions), pointer	instruction,
		logical, intent(in)	is_scalar,
		logical, intent(out)	is_valid,
		character(len=:), allocatable	message )

check_valid_boolean_expression()

recursive subroutine type_instructions::check_valid_boolean_expression	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		logical, intent(out)	is_valid,
		character(len=:), allocatable	message )

check_valid_double_expression()

recursive subroutine type_instructions::check_valid_double_expression	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		logical, intent(out)	is_valid,
		character(len=:), allocatable	message )

check_valid_integer_expression()

recursive subroutine type_instructions::check_valid_integer_expression	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		logical, intent(out)	is_valid,
		character(len=:), allocatable	message )

evaluate_instructions()

recursive subroutine type_instructions::evaluate_instructions	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_instructions), pointer	instruction )

evaluate_scalar_instructions()

subroutine type_instructions::evaluate_scalar_instructions	(	type(t_instructions), pointer	instruction,
		double precision, intent(in)	x,
		double precision, intent(in)	y,
		double precision, intent(in)	z,
		double precision, intent(in)	t,
		double precision, intent(out)	return_value,
		logical, intent(out)	has_returned )

evaluate_vector_component_instructions()

subroutine type_instructions::evaluate_vector_component_instructions	(	type(t_instructions), pointer	instruction,
		double precision, intent(in)	x,
		double precision, intent(in)	y,
		double precision, intent(in)	z,
		double precision, intent(in)	t,
		integer, intent(in)	component,
		double precision, intent(out)	return_value,
		logical, intent(out)	has_returned )

evaluate_vector_instructions()

subroutine type_instructions::evaluate_vector_instructions	(	type(t_instructions), pointer	instruction,
		double precision, intent(in)	x,
		double precision, intent(in)	y,
		double precision, intent(in)	z,
		double precision, intent(in)	t,
		double precision, dimension(3), intent(out)	return_value,
		logical, intent(out)	has_returned )

finalize_instructions()

recursive subroutine type_instructions::finalize_instructions

(

type(t_instructions), pointer

instruction

)

finalize_instructions_evaluator()

subroutine type_instructions::finalize_instructions_evaluator

(

type(t_instructions_evaluator)

evaluator

)

instruction_evaluate_boolean()

recursive subroutine type_instructions::instruction_evaluate_boolean	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		logical, intent(out)	boolean_value )

instruction_evaluate_double()

recursive subroutine type_instructions::instruction_evaluate_double	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		double precision, intent(out)	double_value )

instruction_evaluate_integer()

recursive subroutine type_instructions::instruction_evaluate_integer	(	type(t_instructions_evaluator), intent(inout)	evaluator,
		type(t_expression), pointer	expr,
		integer, intent(out)	integer_value )