destroy_block Subroutine

public subroutine destroy_block(block)

Destroy block

Arguments

Type	Intent	Optional	Attributes		Name
type(block_nd),	intent(inout)			::	block