FCLoopApplyTopologyMappings.m bugs

[ygtw1]

If[ TrueQ[!FreeQ[tmp,optHead]], in line 102 -> If[ TrueQ[!FreeQ[ex,optHead]],

tmp = Collect2[ex,GLI,Factoring->optFactoring,TimeConstrained->optTimeConstrained, FCParallelize->optFCParallelize]; in line 108 -> tmp = Collect2[ex,GLI, Head -> {Identity,optHead}, Factoring->optFactoring,TimeConstrained->optTimeConstrained, FCParallelize->optFCParallelize];

[ygtw1]

By the way, the following are small optimizations that may improve the program's performance,
Replacing the code
If[ OptionValue[ExpandScalarProduct], sps = Cases2[Last/@repRule, Pair,CartesianPair]; spsEval = ExpandScalarProduct[sps,FCI->True]; ruleSP = Thread[Rule[sps,spsEval]], ruleSP = {} ]; repRule = MapThread[Rule[First[#1],Last[#1]/. Dispatch[ruleSP] /. #2 ]&, {repRule,rulesToGLIFinal}];
from line 181 to line 188 with the code
If[ OptionValue[ExpandScalarProduct], sps = Cases2[Last[#], Pair,CartesianPair]&/@repRule; spsEval = ExpandScalarProduct[sps,FCI->True]; ruleSP = MapThread[Thread[#1->#2]&,{sps,spsEval}], ruleSP = {} ]; rulesToGLIFinal=If[ruleSP==={},rulesToGLIFinal, MapThread[Thread[#1->#2]&,{Keys[ruleSP],Collect2[MapThread[(#1/.Dispatch[#2])&,{Values[ruleSP],rulesToGLIFinal}],GLI,FCParallelize->optFCParallelize]}]]; repRule = MapThread[Rule[First[#1],Last[#1]/. Dispatch[ #2] ]&, {repRule,rulesToGLIFinal}];.

[ygtw1]

Another optimization:
line 251: Map[rule[#, # /. mappingRules[[2]] /. mappingRules[[3]]] &, terms] -> Map[rule[#, # /. Dispatch[mappingRules[[2]]] /. mappingRules[[3]]] &, terms]

[vsht]

Do you have some reproducible benchmarks for the optimizations from the first two posts?