align_tensor Subroutine

private subroutine align_tensor(tensor_in, contract_in, notcontract_in, tensor_out, contract_out, notcontract_out, indp_in, indp_out)

align tensor index with data

Arguments

Type	Intent	Optional	Attributes		Name
type(dbcsr_t_type),	intent(inout)			::	tensor_in
integer,	intent(in),		DIMENSION(:)	::	contract_in
integer,	intent(in),		DIMENSION(:)	::	notcontract_in
type(dbcsr_t_type),	intent(out)			::	tensor_out
integer,	intent(out),		DIMENSION(SIZE(contract_in))	::	contract_out
integer,	intent(out),		DIMENSION(SIZE(notcontract_in))	::	notcontract_out
character(len=1),	intent(in),		DIMENSION(ndims_tensor(tensor_in))	::	indp_in
character(len=1),	intent(out),		DIMENSION(ndims_tensor(tensor_in))	::	indp_out