create_block_nodata Subroutine

private subroutine create_block_nodata(block, sizes, data_type)

Create block without data

Arguments

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