dbcsr_t_allocate_and_get_4d_block_r_sp Subroutine

private subroutine dbcsr_t_allocate_and_get_4d_block_r_sp(tensor, ind, block, found)

allocate and get block

Arguments

Type	Intent	Optional	Attributes		Name
type(dbcsr_t_type),	intent(inout)			::	tensor
integer,	intent(in),		DIMENSION(4)	::	ind	block index
real(kind=real_4),	intent(out),		DIMENSION(:,:,:,:), ALLOCATABLE	::	block	block to get
logical,	intent(out)			::	found	whether block was found