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

TypeIntentOptionalAttributesName
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

Contents

None