polytensor_size Function

  1. mimic_tensors.f90
  2. mimic_tensors
  3. polytensor_size

public pure function polytensor_size(max_rank)

compute size of first degree polytensor with tensors up to maxmimum rank

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: max_rank

Return Value integer


Contents

Source Code

polytensor_size

Source Code

integer pure function polytensor_size(max_rank)

    integer, intent(in) :: max_rank

    polytensor_size = (max_rank + 3) * (max_rank + 2) * (max_rank + 1) / 6

end function polytensor_size