block_buffer_get_next_block_r_sp Subroutine

private subroutine block_buffer_get_next_block_r_sp(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,	intent(out),		DIMENSION(ndims_buffer(buffer))	::	index
real(kind=real_4),	intent(out),	optional,	DIMENSION(:), ALLOCATABLE	::	block
logical,	intent(in),	optional		::	advance_iter