create_block_nodata_r_sp Subroutine

private subroutine create_block_nodata_r_sp(block, sizes)

Create and allocate block, but no data.

Arguments

Type	Intent	Optional	Attributes		Name
type(block_nd_r_sp),	intent(out)			::	block
integer,	intent(in),		DIMENSION(:)	::	sizes