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

TypeIntentOptionalAttributesName
type(block_nd), intent(out) :: block
integer, intent(in), DIMENSION(:):: sizes
real(kind=real_4), intent(in), DIMENSION(PRODUCT(sizes)):: array

Contents

None