block_buffer_get_next_block_r_dp Subroutine

private subroutine block_buffer_get_next_block_r_dp(buffer, ndata, index, block, advance_iter)

get next block from buffer. Iterator is advanced only if block is retrieved or advance_iter.

Arguments

Type	Intent	Optional	Attributes		Name
type(block_buffer_type),	intent(inout)			::	buffer
integer,	intent(out)			::	ndata
integer(kind=int_8),	intent(out),		DIMENSION(2)	::	index
real(kind=real_8),	intent(out),	optional,	DIMENSION(:, :)	::	block
logical,	intent(in),	optional		::	advance_iter