test_motion – BlockTran

Uses

Variables

W H

Functions

initial test_floor left_wall right_wall block_hit

Subroutines

print_piece print_block

Variables

Type	Attributes		Name		Initial
integer,	parameter	::	W	=	10
integer,	parameter	::	H	=	10

Functions

function initial(next) result(failed)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	next

Return Value logical

function test_floor(next) result(failed)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	next

Return Value logical

function left_wall(next) result(failed)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	next

Return Value logical

function right_wall(next) result(failed)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	next

Return Value logical

function block_hit(next) result(failed)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	next

Return Value logical

Subroutines

subroutine print_piece(P)

Arguments

Type	Intent	Optional	Attributes		Name
class(Piece),	intent(in)			::	P

subroutine print_block(B)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	B(:,:)

test_motion Program

Contents

Variables

Functions

Subroutines

Uses

Contents

Variables

Functions

Subroutines

Variables

Functions

function initial(next) result(failed)

Arguments

Return Value logical

function test_floor(next) result(failed)

Arguments

Return Value logical

function left_wall(next) result(failed)

Arguments

Return Value logical

function right_wall(next) result(failed)

Arguments

Return Value logical

function block_hit(next) result(failed)

Arguments

Return Value logical

Subroutines

subroutine print_piece(P)

Arguments

subroutine print_block(B)

Arguments