create_block_data_r_sp Subroutine

private subroutine create_block_data_r_sp(block, sizes, array)

Create block from array, array can be n-dimensional.

Arguments

Type	Intent	Optional	Attributes		Name
type(block_nd),	intent(out)			::	block
integer,	intent(in),		DIMENSION(:)	::	sizes
real(kind=real_4),	intent(in),		DIMENSION(PRODUCT(sizes))	::	array