MVR5
I,Riegeom/forR6'%"AG%"BG%$indG%&atribG%%SYMMG6*%%ind1G%%ind2G%"iG%"jG%"kG%"lG%"
LG%%SymmG6#%BCopyright~1995~by~Renato~PortugalG6"C%>%0Riegeom/switch1G%%trueG@/
/9(.%'nosymmGC$>8$-%$mapG6$%,Riegeom/absG9&-%3Riegeom/for/nosymmG6)9$9%FA7"9'""
"F=/F<.%%symmGC%>FA-%'selectG6%%%typeGFF%3contravariantindexG>8%-FC6$FE-FU6%FWF
F%/covariantindexG-%1Riegeom/for/symmG6)FJFKFAFZFMFNFP/F<.%)antisymmGC%>FAFT>FZ
Fen-%5Riegeom/for/antisymmG6)FJFKFAFZFMFNF^o/F<.%(RiemannGC+>FA7#-%#opG6$;FN""%
FF>FZ-FC6$FE7#-F]p6$;""&-%%nopsG6#FFFF>8*-FC6$R6#%"xGF5F5F5@%/-F]p6$FNFJ!""FgqF
NF5F5F5FA>FA-FC6$FEFA>8&-F]p6$FNFA>8'-F]p6$""#FA>8(-F]p6$""$FA>8)-F]p6$F`pFA@--
%'memberG6$F]q<$7&FNFNFNFN7&FgqFgqFgqFgq-%4Riegeom/for/RiemannG6)FJFKFAFZFMFNF=
-F_s6$F]q<&7&FNFgqFgqFgq7&FgqFNFgqFgq7&FNFgqFNFN7&FgqFNFNFN-Fdo6)FJFK7$FerFjr7%
F\rF`r-F]p6#FZFMFNF=3-F_s6$F]q<$7&FNFNFgqFgq7&FgqFgqFNFN/FZFL-Fdo6)FJFK7$F\rF`r
F`tFMFNF^o-F_s6$F]q<&7&FNFNFNFgq7&FNFNFgqFN7&FgqFgqFNFgq7&FgqFgqFgqFN-Fdo6)FJFK
F]u7%FerFjrFbtFMFNF=3-F_s6$F]q<$7&FNFgqFNFgq7&FgqFNFgqFNFjt-F[o6)FJFK7$F\rFer7$
F`rFjrFMFNFP-FH6)FJFK7$-F]p6#FAFbtFLFMFNF=-FW6$F<.%(indexedGC(>8+-F]p6$""!F<>F\
r-F]p6$FNF<>F`r-F]p6$FcrF<>Fer-F]p6$F\rFF>Fjr-F]p6$F`rFF@%/-F]p6$FN*&FerFNFjrFN
Fgq-FH6)FJFKFBFLFMFNF=C%>FA7$-FE6#Fer-FE6#Fjr>FZ-FC6$FE-%'subsopG6%/F\r%%NULLG/
F`rFbyFF-(%-Riegeom/for/GF]wFfs5/F<.%)diagonalG/F<.%)identityG-%5Riegeom/for/di
agonalGFcx-%&ERRORG6#%4wrong~symmetry~nameG@$3F8%6Riegeom/DisplayTensorG-%&prin
tG6#/-%/Riegeom/printtG6#FJF`wF56#F8F5F5,
I9Riegeom/tools/sort_listsR6$%#L1G%#L2G6#F-6#%TCopyright~1997~by~R.~Portugal.~A
ll~rights~reserved.GF5C$@$%2Riegeom/TestArgs2GC%@$09#Fcr-Faz6%%*TESTARGS:G%;exp
ecting~2~arguments,~gotGF]\l-%1Riegeom/TestArgsG6%9!7#9".7$%%listG-Fj\l6#<$%(nu
mericG%'symbolG@$0-FjpF][l-Fjp6#FK-Faz6%F`\l%Cexpecting~lists~of~equal~size,~go
tGFg\l7#-%$seqG6$&FJ6#-%1Riegeom/positionG6$FAFK/FA-%3Riegeom/tools/sortGFd]lF5
F5F5F5,
I*RicciName%"RGF5,
I1Riegeom/symm_andR6#F1F5Fe[lF5C$@$Fi[lC$@$0F]\lFN-Faz6%F`\l%:expecting~1~argum
ent,~gotGF]\l-Fc\l6%Fe\lFf\l7#.-Fj\l6#%1Riegeom/symmetryG@%/FJ.7#F>F=-%3Riegeom
/symm_and/1G6#-F]pF][lF5F5F5F5,
I6Riegeom/defob_RiemannRF5F5F5F5C$>(%4index/Riegeom/calc_G%,RiemannNameG%;index
/Riegeom/calc_RiemannG-%4Riegeom/defob_coordG6-F`pFf`l%/CoordinateNameG%+Metric
NameG%*DimensionG.7#7$Fho7&FNFcrFhrF`p.7#7$%'cyclicG7%FcrFhrF`p.%'tensorG7&F`wF
`wF`wF`w7#%1Riegeom/Riemann1G7#Ff`lF5F5F5F5,
I=index/Riegeom/[symm,~[2,~3]]RF5F5F5F5-%9Riegeom/symm_inproc/symmG6$7$FcrFhrFg
\lF5F5F5F5,
I-D1MetricName%$d1gGF5,
I5Riegeom/ind_with_symR6$%%exprG%&sym_TG6%%"nG%)tens_symG%"TGFe[lF5C%@$Fi[lC$@$
52F]\lFN2FcrF]\l-Faz6%F`\l%@expecting~1~or~2~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l
.7$%/constanttensorGFe_l>FAFb]l@%2FAFcr<"C$@'/F]\lFNC$>F\r-%2Riegeom/mktennameG
6$FA-F]p6$F`wFJ>FZ&&F\r6#F`w6#Fhp/F]\lFcr>FZFK-Faz6#%ORiegeom~INTERNAL~ERROR:~e
xpecting~nargs=1~or~2G@%3-FW6$FZ.Fj\l0FZFj_lC$>%/_Env/Riegeom/nGFA-FC6%F]p<#-%7
Riegeom/ind_with_sym/1G6#Fbt7#F_`lF`dlF5F5F5F5,
I3type/Riegeom/-1..1RFaqF5F5F5-F_s6$FJ<%F`wFgqFNF5F5F5F5,
I4Riegeom/codiff/symbR6$FhblFbq6)%)ChristffGF0F'%"mG%&derivGF-%%connGFe[lF5C(>F
\r-F]p6$Fhr-%0Riegeom/indicesGF][l>FZ-F]pFd]l@'/%4Riegeom/g_is_activeGF9C$>F]q%
0ChristoffelNameG>Fer-%&tdiffG6$-%%subsG6$/.%'codiffG.FjflFJFK/%;Riegeom/Vierbe
in_is_activeGF9C%>F]q%/RicciCoeffNameG>F`r-%1Riegeom/genindexG6$7&-F]p6#-FC6$FE
F\rFZ-F]p6$F`wFKFJ%/CodiffSumIndexG>Fer*&-.Fbhl6$FJ-Fehl6$/FZF`rFKFN&%-Vierbein
NameG6$,$FZFgqF`rFNC$>F]q%/ConnectionNameG>FerFahl>F`r-Fbil6$7%FeilFZFiilF[jl>F
AR6'F-F_glF0FhblFaglF5F5F5@'-FW6$FJFX*&&F<6%FJ,$FKFgq,$FFFgqFN-Fehl6$/FJFKFMFN-
FW6$FJFin,$*&&F<6%FKFJFj[mFN-Fehl6$/,$FJFgqFKFMFNFgq-Faz6#%Oexpecting~a~covaria
nt~or~a~contravariant~indexGF5F5F5,&FerFN-%$addG6$-FA6'FjrF`rFZFJF]q/FjrF\rFNF5
6$F_hlF[jlF5F5,
I&tdiffR6$%&expr1G%#x1G6%FhblFbq%"XGFe[lF5C)@&2F]\lFcr-Faz6#%;wrong~number~of~a
rguments.GFdcl-%'RETURNG6#-&%(RiegeomG6#Fbhl6$-Fd^m6$FJFK&Fg\l6#;FhrF]\l@$-FW6$
FJ<%%"=G%$setGFj\l-Fa^m6#-%%evalG6#-FC6%..Fe\lFJ&Fg\l6#;FcrF]\l>FA-%8Riegeom/lt
ensor/ltensorGF][l>F\r(((((((%+Riegeom/1/GF[al.%"/GF[alF[amF\alF[amF]al>FZ-Fehl
6$/F\rF[al-Fa`mFd]l@&545-FW6$FZ.F_]l-FW6$FZF\dl3Fiam550-FjpFctFN0-FEFcflFbt0-F]
p6$F`wFZF[al-Faz6#%eqsecond~argument~must~be~of~the~form~CoordinateName[i],~whe
re~i~is~a~positive~index,~or~must~be~a~parameterG33Fiam-FW6$FbtFham-F_s6$,$FbtF
gq-%3Riegeom/allindicesG6#-Fehl6$/F_jl.F_jlFA-Faz6#%8wrong~choice~of~indicesG@$
-FW6$-F_jl6$FAFZ%1tensorexpressionG-%8Riegeom/tdiff/algebraicGF]dmF5F5F5F5,
I,type/posintR6#F[cl6"6#%aoCopyright~(c)~1992~by~the~University~of~Waterloo.~Al
l~rights~reserved.GFddm3-FW6$9$%(integerG2""!FjdmFddmFddmFddmFddm,
I3Riegeom/non_null_gR6%%"gGF_glF/F5F5F5@%/&FJ6$FKFFF`wFbyFKF5F5F5F5,
I?index/Riegeom/calc_in_vierbeinR6$F'F]cl6)F/%"sGF_gl%%kindG%#SNG%$kSNG%%nindGF
3F5@%F`el@%55-%)assignedG6#&FKF^`l-%(hastypeG6$FJFham30FJFL/&FJ6#FNF`w-Ff_mFefm
C&>F]qFb]l>Fer&FK6$F`wF`p?(FAF]qFgqFN/-F]p6$FAFer-RFaqF5F5F5@%Fd[mFNFgqF5F5F56#
-F]p6$FAFJF5@%/FAF`w@%-Fdfm6#&FK6$F`wFhr>Fffm-%6Riegeom/simp_functionG6#-FdhmF^
`lF_gmC'>FZF`w>FjrFggm>F`rF]hm?(F\rFNFNF]alF9C$&((Fhal%,MetricVNameGFcr6$F`r,$*
&FjrFNF\rFNFgq@$0.%"%GF`w>FZ,&FZFN*&FjimFN-Ff_m6#&-Fgdl6$F]q&&FKF^elF^gm6#-F]p6
#-F_y6$/FAFgimFJFNFN>Fffm-FhhmFct>Fffm-F]p6#&Fg\l6#FhrF5F5F5F5,
IFindex/Riegeom/[Riemann,~[1,~2,~3,~4]]RF5F5F5F5-%<Riegeom/symm_inproc/RiemannG
6$FaalFg\lF5F5F5F5,
I0RicciScalarNameFe^lF5,
I4Riegeom/indices/recR6#Fhbl6(F-F'F+%$op0GF[clFi]mFe[lF5@--FW6$FJFivF_`l-FW6$FJ
.%)functionGC$>F`rFidl@+-F_s6$F`r.<'%%DiffGFihl%'CodiffGFbhl%%diffGC%>FZ-Fggl6#
Feq>F\r-Fe\l6#-F]p6$FcrFJ@'Fay6&-F]p6#-F]p6$FNFZ-F]p6#-FC6$RFaqF5F5F5Fg\mF5F5F5
F\^n-F]p6#-F]p6$FhrFZ-F]p6#-F]p6$F`pFZ552FN-Fjp6#7#F\r-FW6$F\rFin3-FW6$,$F\rFgq
Fham-%$hasG6$FZFf_n-Faz6#%Fwrong~choice~of~indices~in~derivativeG6'Fj]n-F]p6#-F
C6$RFaqF5F5F5Fg\mF5F5F5F\^nFc^nFg^nFf_n-FW6$F`rFc\nC$-F]p6$F`wF`r@)/F[jm.%"DGC$
>FZ-Fggl6#-F]p6#F`r6$Fc^nFg^n3-FW6$F[jmFiv/-F]p6$F`wF[jmFj`nC%@$-Fhfm6$F[jmFin-
Faz6#%Fwrong~choice~of~indices~in~D~operatorG>FZF^an6%Fc^nFg^n-F]p6#-FC6$RFaqF5
6$%)operatorG%&arrowGF5Fg\mF5F5F57#-F]p6#F[jm4-FhfmFeanFby-Faz6#%0NOT~IMPLEMENT
EDG/Fb]lFNC$>FZ-Fj]l6$Fev/FA-F]p6$;FhrF`p-FgglF^`l@%/FZFbyFbyC$-%)userinfoG6%FN
.Fe^m((%8assuming~than~function~GF`r%;~is~linear~in~its~argumentGFZ2FNFb]l@%-Fh
fm6$FJF\dlC$>FZ-Fj]l6$Fev/FA-F]p6$FjcnFa]n@%F]dnFbyC$-F`dn6%FNFbdn(Fddn%F~has~t
ensors~in~its~1st~argument~onlyGFZFbyFby-FW6$FJ%"*GC&>F\r-Fj]l6$-FgglFfv/FAFJ>F
Z-Fj]l6$-F]p6#Ffr/FAF\r@$0-%*intersectG6$<#-Fj]l6$-F]p6#F]rFffn<#-Fj]l6$-FEFfv/
FAFZF`dl-Faz6#%Asummed~index~equal~to~free~indexG6$FZ-Fj]l6$-F]p6#F[sFffn-FW6$F
J%"+GC&>FZ-FC6$RFaqF5F5F5-F]p6$FjcnFfglF5F5F5Fdfl>Fer,$F_bm#FNFcr@$4/-Fjp6#<#-F
j]l6$<#-F]p6#-F]p6$,&FAFcrFgqFNFZ/FA;FNFerFNC$F[[l-Faz6#%infree~indices~do~not~
match~or~summing~tensors~of~different~typeG-Fe\lFb]n-FW6$FJ%"^GC$>FZ-FC6$FgglFd
fl@%3/-F]p6$FhrF\^nFL/-F]p6$Fhr-F]p6$FcrFZFLFbyC$F[[l-Faz6#%6free~indices~in~po
werGC$>FjrFc`m@%3-Fdfm6#&&FjrF^el6#"#_-F_s6$FJ&F\\o6#"#^-Fehl6$F[\oFJFbyF5F5F5F
5,
I-Riegeom/sinkRF[\n6&FaemFf]m%#iiGFi]mF3F5C&@%%2Riegeom/ZeroIndexGC$>FARFaqF5F5
F5@%-FW6$FJ%-numericindexG@+-FW6$FJ%'posintG,&FJFNFNFN-FW6$FJ%'negintG,&FJFNFgq
FN/FJ%"OGFN/FJ,$F^^oFgqFgqFJFJF5F5F5@'-FW6$FJ.<$%&indexG%*nonnegintG-FAF][l-FWF
jdnC$Fidl-Fehl6$/.F\r-F]p6#-FC6$FAFdfl.&F[jm6#F\r-Faz6%%0INTERNAL~ERROR:G%Wexpe
cting~type~index,~nonnegint~or~constanttensor,~gotGFJFJ>FZFjim>F`rFc`m@%%5Riege
om/CoordIndicesG@'-FW6$FZFd^o-Fehl6$&&F`rF^elF]\oFZFi^oC$Fcbm-Fehl6$/F^_o-F]p6#
-Fehl6$Fc`o7#FbtFc_oFf_oFZF5F5F5F5,
I,latextensorRFaqF5F3F5C%@$-Fdfm6#%4Riegeom/latex/printGC%-%(readlibG6#%&latexG
>%,latex/printG-Ff_mFcao>Fdao.Fdao-Ff_m6#-Fehl6$/%,t*e*n*s*o*rG%*l*a*t*e*xG-%,p
rinttensorGF][l-FiaoF\cnF56$F[boFdaoF5F5,
I2Riegeom/4/R/X/g/2=6$%@Riegeom/[Riemann,~[1,~2,~3,~4]]G%1Riegeom/calc_R_4G%&fa
lseGE\[l"F`w=F5F_coE\[l+FhrFaem""'Fcal""(Fhal"")FialF`wF`p""*FjalFNFe^lF`pFcrFh
pF_alFcrFi]mF5,
I:Riegeom/symmetrize/tensorR6#F]cl6%%#T2G%#T1G%"SGFe[lF5C%@$Fi[lC$@$F]_l-Faz6$F
`_lF]\l-Fc\l6%Fe\lFf\l7#.F\dl>FZ-Fgdl6$Fb]lFidl@%3-Fdfm6#&FZF^el0&F_eoF_elF=C$>
FA-%:Riegeom/numtenstonametensG6$FJF^_o-Fehl6$F\r-%3Riegeom/symmetrizeG6$FAFaeo
C$-F`dn6(FN%+symmetrizeG%'NoNameG%+the~tensorGFJ%0has~no~symmetryGFJF5F5F5F5,
I1Riegeom/usedind1F`dlF5,
I1Riegeom/usedind2F`dlF5,
I1Riegeom/nf/def3aR6$F1%)list_indGF5Fe[lF5C$@$Fi[lC$@$F\\l-Faz6%F`\l%:expecting
~2~arguments~gotGF]\l-Fc\l6%Fe\lFf\l7#.6$-Fj\l6#-Fj\l6#Ff^oFego@%/Fb]lF`wFK-Fe\
l6$&FJ6#;FcrFgq-%3Riegeom/nf/def3a/1G6$F]gmFKF5F5F5F5,
I1Riegeom/nf/def3bRFgfoF5Fe[lF5C$@$Fi[lC$@$F\\lF]goF`go@%FjgoFK-Fe\l6$F]ho-%3Ri
egeom/nf/def3b/1GFbhoF5F5F5F5,
I6Riegeom/DisplayTensorF9F5,
I,entertensorR6#'Ff]mF\dl6%%+tensornameG%"NGFhblF3F5C)>F\r-Fehl6%/FdboRFaqF5F5F
5FJF5F5F5/%!GRFaqF5F5F5FJF5F5F5FJ>FA-%3Riegeom/tensornameG6$F\rFZ@%-Fdfm6#&-Fgd
l6$FZFAF^el-%&clearGFe_o-Faz6#(%Guse~definetensor~to~define~the~tensor~GFA>%0Ri
egeom/historyG7%7#F`wFb[pFb[p-%&applyG6$%.Riegeom/enterGF\r@$Ffz-%%showGFe_o-%*
Riegeom/_GFe_oF56%FfzF`[pFf[pF5F5,
I3type/interfaceargs-Fj\l6#<$%%nameG/Fa\p%)anythingG6",
I=index/Riegeom/[symm,~[1,~2]]RF5F5F5F5-F`bl6$7$FNFcrFg\lF5F5F5F5,
I4Riegeom/induced_symR6$F1F]cl6#F\doFe[lF5C&@$Fi[lC%@$F\\lF^\l-Fc\l6%Fe\lFf\l.7
$-Fj\l6#Fg]o<#F\dl@$2Fc]l-%$maxGF^`l-Faz6$F`\l%>max~of~L~greater~than~nops(T)G@
$2Fb]lFcr-Fa^m6#7#F=>FA-Fgdl6$Fc]lFiil@%-Fdfm6#&FAF^elC$>%/_Env/Riegeom/LGFJ7#-
%6Riegeom/induced_sym/1G6#-F]p6#&F[_pF_elC$-F`dn6&FNFe\l%4tensor~not~defined:GF
KFd^pF5F5F5F5,
IERiegeom/symm_inproc/symm_in_blocks/1RFh^l6'F-%)n_lengthGF^fm%&L_ordGF[clFe[lF
5C%@$Fi[lC&@$F]_l-Faz6%F`\l%Bexpecting~1~or~more~argument,~gotGF]\l-Fc\l6%Fe\lF
f\l7#.-Fj\l6#-Fj\l6#Fe^o@$Fjgo-Faz6$%1INTERNAL~ERROR:~G%5expecting~nops(L)<>0G@
$0-Fjp6#<#-F]p6#-FC6$FjpFJFN-Faz6%Faap%Sexpecting~nops(L[i])~equal~for~all~list
s~L[i],~gotGFJ>FerFb]l@%/FerFNF_`lC&>F\r*&Fb]lFN-Fjp6#F]gmFN>F`r-%7Riegeom/sort
_contra_coG6#-FC6$F]pFJ>FZ,&-%'ilog10GFe_oFNFNFN-F]p6#-F_[l6$FJ-FC6$RFaqF5FgbnF
5-%&parseG6#-%$catGF^`lF5F5F5-Fehl6$<#-Fj]l6$/&F`rFfv,&)"#5FZFNFAFN/FA;FNF\rFJF
5F5F5F5,
I)switchesRF5F5F3F5C+-%'lprintG6#-F\dp6%%-CoordIndicesG%%~~-~G-%+Riegeom/swG6#F
]`o-F]ep6#-F\dp6%%*DiffAliasG%(~~~~~-~G-Fdep6#%2Riegeom/DiffAliasG-F]ep6#-F\dp6
%%.DisplayTensorG%$~-~G-Fdep6#Ffz-F]ep6#-F\dp6%%#ivG%/~~~~~~~~~~~~-~G-Fdep6#%+R
iegeom/ivG-F]ep6#-F\dp6%Fiao%,~~~~~~~~~-~G-Fdep6#%.Riegeom/latexG-F]ep6#-F\dp6%
%)lptensorG%)~~~~~~-~G-Fdep6#%1Riegeom/lptensorG-F]ep6#-F\dp6%%(ltensorG%*~~~~~
~~-~G-Fdep6#%0Riegeom/ltensorG-F]ep6#-F\dp6%Fgbo%&~~~-~G-Fdep6#%4Riegeom/printt
ensorG-F]ep6#-F\dp6%%*ZeroIndexGF[fp-Fdep6#F\]oF5F5F5F5,
I3type/numerictensorRFaqF56%%)rememberG%'systemG%SCopyright~1997~by~R.~Portugal
.~All~right~reserved.GF53-FW6$FJ.%2namenumerictensorG-%&evalbG6#/-FC6$F]p7#-F]p
6$;FNFcrFgglFLF5F5F5F5,
I7index/Riegeom/antisymmRFhem6$%(ind_ordG%%signGFe[lF5C$@$Fi[lC$@$F\^m-Faz6%F`\
l%Cexpecting~2~or~more~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7#.6$F\ap<$%&tableGF_]
l@%F\gm@%F`elF_gm>FffmF_[nC&>FA-FibpF][l>FZ-%5Riegeom/antisymm_indG6$FJFA@$0-Fj
fn6$<#-F]p6#-FU6%FWFA.%7contravariantnameindexG-FE6#<#-F]p6#-FU6%FWFA.%3covaria
ntnameindexGF`dl>FZF`w@%F`el@%/FZF`wF`w*&FZFN-Ff_m6#&FK6#FevFN@%3Fb^q0F_[nF`w-F
az6#%=cannot~assign~non-zero~valueG>Ff^q*&FZFN-F]p6#Fj^mFNF5F5F5F5,
I?index/Riegeom/calc_ChristoffelRFhem6*F-F.F/FjemF_gl%"FGFaemFdbl6#%>Copyright~
1997~by~R.~PortugalGF5@%F`el@%5FbfmF\gmF_gmC(>F]q(((((((%+Riegeom/2/GF\alF[amF[
alF[amF\alF[amF]al>F\rFeq>FAFf]n>FZ-F]p6$FhrFJ@%-FW6$F\rFX@%%2Riegeom/g_is_diag
G@%2FAFZ>F`r*&&F]q6$F\rF\rFN-Fe\l6$7%Ff_nFAFZFKFN>F`r*&FcaqFN-Fe\l6$7%Ff_nFZFAF
KFN@%F`aq>F`r-F]]m6$*&&F]q6$FerF\rFN-Fe\l6$7%,$FerFgqFAFZFKFN/Fer-Fj]l6$-F^emFc
bq/Fer;FNF]al>F`r-F]]m6$*&FbbqFN-Fe\l6$7%FgbqFZFAFKFNFhbqC$>F]w(((((((%+Riegeom
/3/GFcblF[amF[alF[amF\alF[amF]al@'5/F\rFA/F\rFZ>F`r,$&F]w6%F\rF\r,(F\rFgqFAFNFZ
FNFjhnF^aq@%Fegn>F`r,$&F]w6%FAFZF\r#FgqFcr>F`rF`w>F`r,(&F]w6%FAF\rFZFjhn&F]w6%F
ZF\rFAFjhnF[eqF]eq>Fffm-FhhmFaan>FffmF_[nF5F5F5F5,
I'codiffRF5F5Fe[lF5-F\[l6#-%6Riegeom/codiff/expandG6#Fg\lF5F5F5F5,
I7Riegeom/nf/class_ABC/1R6$%#syG%$p_iG6$F]doF-Fe[lF5C$@$Fi[lC$@$F\\lF^\l-Fc\l6%
Fe\lFf\l.7$Fg_lFg]o@%-FW6$FJFielC$>FA-Fj]l6$Fbt/FZF]ho-Fejp6#32-%$minGFfvFK2FK-
F\^pFfv.F_coF5F5F5F5,
I1Riegeom/tdiff/xsRF[\nF5Fe[lF5@%Fa\n@%3/FidlF_jl-FW6$Ff]nF\dl6$Ff]nF_jnFJFJF5F
5F5F5,
I/Riegeom/Ricci1R6$F-F.6#FaemF5F5C%>FA-Fgdl6$FcrF\al>%+_EnvfbnindG-FE6#<&F/FKFJ
F0-%3Riegeom/Ricci1/recG6'FAFJFKF/F0F5F5F5F5,
I6Riegeom/apply/RiemannR6'F%F+F,%+firstindexG%'p_nameG6+F-F.F/F0%"tG%#l1G%#l2G%
#l3G%#l4GF3F5C'>Fjr-F]p6$FNFK>F]q-F]p6$FcrFK>F]w-F]p6$FhrFK>8,-F]p6$F`pFK?(FAFN
FN,&F]alFNFgqFNF9?(FZ,&FAFNFNFNFNF]alF9?(F\rFAFNFa[rF9C$@%Fadq>FerFZ>Fer,&F\rFN
FNFN?(F`rFerFNF]alF9-(%/Riegeom/apply/GF<6(-Fehl6$<&/FjrFA/F]wF\r/F][rF`r/F]qFZ
.FJFFFLFNF=&Fg\l6#;FccoF]\lF5F5F5F5,
I:Riegeom/nf/cancel_class_AR6&F'%#ApG%#AmGFibl6%F-%)induced1G%)induced2GF5F5C'>
F^_p7#-Fj]l6$-F_^lF^hm/FAFK>FZ7#-Fa_p6#-F]p6#FM>F^_p7#-Fj]l6$Fg]r/FAFF>F\rFj]r-
Fejp6#/-%3Riegeom/merge_symmG6$FZF\rF`wF5F5F5F5,
I/type/nameindexRFaqF56%F\jpF]jpF4E\s"F`wF_co33-FW6$FJ.%*algebraicG4Fa]o5-FWFif
m-FW6$Fg\mFhamF5F5F5F5,
I2type/numericindexRFaq6#Fi]mF]_rF5C$>FAFc`m@+33F]`o-Fdfm6#&F[_pFb\o5-F_s6$FJFd
`r-F_s6$Fg\mFd`rF93F\]o5/FJ.F^^o/FJ,$F]arFgqF94-FW6$FJF[emF_co/FJF`wF]hqF9F5F5F
5F5,
I6Riegeom/summedindicesRF[\nF5F5F5<#-%8Riegeom/summedindices/1GF][lF5F5F5F5,
I7Riegeom/convert/matrixR6#F%60F-F.F_glF[clF&%"CGF^jqF_jq%#u1G%#u2G%"dGFbq%%att
rGFjem6#%aoCopyright~(c)~1990~by~the~University~of~Waterloo.~All~rights~reserve
d.GF5@+-FW6$FJ.%)listlistG@%/%-_EnvLinalg95GF9-%'matrixG6$-%&arrayGF][lFj\lF_cr
-FW6$FJ.%'vectorGC$>F`r-&%'linalgG6#.%(vectdimGF][l@%3Fjbr-FW6$FJFj\lC$>80--Fga
o6#%4linalg/getattributeGF][l@'/Fcdr.%$rowG-F]cr6&FNF`rFJFj\l/Fcdr.%'columnG-F]
cr6&F`rFN-FC6$RFaqF5FgbnF57#FJF5F5F5FJFj\lC$>Fer-%-setattributeG6$FJF_er-%/conv
ert/matrixGFhxC'@%-FW6$FJ.Fa\p>Fjr-Ff_mF][l>FjrFJ>81-F`cr6%;FN-FhcrFjx;FNFN-FC6
$RFaqF5FgbnF5FferF5F5F5-%(convertG6$FjrFj\l>Fgfr-Fehl6$/.FjrFJ-Ff_m6#Fgfr@$-Fh_
n6$FhgrFggr-Faz6#%7unnamed~matrix~elementG-Fa^m6#Fhgr-FW6$FJ.-%*transposeG6#Fdc
r-&Ficr6#.Ffhr6#-F]frF^`l-FW6$FJF`crC.@%-FW6$FJFa\p>8.7#-F]p6$FcrFdfr>Feir7#Ff]
n@%Fbir>8/-F]p6$FNFdfr>F]jrFeq@$0-Fjp6#FeirFcr-Faz6#%2invalid~argumentsG>F]q-F]
p6$FN&FeirF^gm>F][r-F]p6$FcrF[[s>F\r,(F][rFNF]qFgqFNFN>F]w-F]p6$FN&Feir6#Fcr>8-
-F]p6$FcrFd[s>F`r,(Fg[sFNF]wFgqFNFN>Fer-F`cr6%Fhdp;FNF`rF]jr?(FAF]qFNF][rF9?(FZ
F]wFNFg[sF9@$-Fdfm6#&FJF]dm>&Fer6$,(FAFNF]qFgqFNFN,(FZFNF]wFgqFNFNFe\s-F]pFhx-F
az6#%8expecting~array~or~listGF5F5F5F5,
I7Riegeom/tools/joinsetsR6#F]do6%%#S1G%#S2GFjemFe[lF5C$@$Fi[lC$@$F]_lF^_l-Fc\l6
%Fe\lFf\l.7#-Fb_m6#-Fb_mFg]p@%Fa^pFJC&>FA-Fe\l6#F]ho>F\rF]gm>FZ-FU6%Fh_nFAF\r-%
&unionG6$<#-Fj^s6$F\r-FC6$F]pFZ-%'removeG6%F_sFAFZF5F5F5F5,
I6Riegeom/Riemann_orderR6'F-F.F/F0%(seq_indGF5F3F5C$@$Fi[lC$@$0F]\lFhp-Faz6%F`\
l%;expecting~5~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7#.6'Fe^oFe^oFe^oFe^oF_]l@'3-F
W6$FJ%*nameindexG/FJFi[mF`w-%.Riegeom/orderGFi^m@'3-FW6$FFFi`s/FF,$FMFgqF`w-F\a
s6$FFFMC$@'3-FW6$FKFin5-FW6$7$FFFM-Fj\l6#FX3F^\m-FW6$FFFX>F<6&FFFMFJFK45-F\as6$
FJFF3-FW6$FKFX-FW6$FMFin>F<Fdbs@'-Fhfm6$7&FJFKFFFMFham>F<6&FJFKFFFM552*&FKFNFMF
NF`w3/FJFF-F\as6$FKFM30FJFFFgbs>F<Fdcs>F<FdbsFN,$-Fe\l6'FJFKFMFFF<Fgq,$-Fe\l6'F
KFJFFFMF<FgqF5F5F5F5,
I3Riegeom/for/nosymmR6)F%F&F+F,F(FjiqF[jq6&F-F^jq%&Lind1GFbqF3F5@%/FFFL@%/FMFLC
&>F`r-Ff_mFd]l@$3Ffz0F`rF`wC$-Fhz6#-F\[l6#/Ff\rF`r>F8F_co@$F<>FJF`rFby-(Ffy9*6)
FJFKFMFLF<FNF=C%>FZ-F]p6$FNFF>F\r-F_y6$/FNFbyFF?(FAFNFNF]alF9-Fe\l6(-F]p6#-Fehl
6$/FZFA.7$FJFKF\rFMF<FNFafsF5F^[lF5F5,
I:Riegeom/defob_ChristoffelRF5F5F5F5-Fi`l6-FhrF_hlF[alF\alF]al.7#7$FQFbblFL.%+c
onnectionG7%F`wFgqFgq7#%5Riegeom/Christoffel1G7#F_hlF5F5F5F5,
I4Riegeom/gtableasymm=%.antisymmetricGF_coE\[l!F5,
I/type/nonnegintR6#F[cl6"6#FfdmFihs3-FW6$9$F[em1""!F^isFihsFihsFihsFihs,
I1Riegeom/for/symmRFids6%F-F^jqF[esF3F5@%F]esF_fsC%>FZFefs>F\rFhfs?(FA9)FNF]alF
9-Fe\l6(F^gsF\rFMF<FAFafsF5F5F5F5,
I8Riegeom/tdiff/algebraicRF\gl6+%"uG%"vGF-%"pGF\doF'F,F.Fi]mFe[lF5C$>F][rFc`m@5
Fi^o@'3Fbcn/FidlF[al@)-FW6$FKFham@%3-Fdfm6#&&F][rF^elFb\o-F_s6$FKF_[t-Fe\l6$FJ&
F[al6#-Fehl6$&F`[tF]\oFK-F_jlF^fq-FW6$<$F_`lFigl-Fb_m6#Fc]o@%-Fehl6$Fi[tF]\mFNF
`w-Fdfm6#F\al&F\al6$F_`l,$FiglFgqFj[t333/Fb]lFcr/FidlF\al4-FW6$FJ%0covariantten
sorG4-FW6$FJ%4contravarianttensorGF`wFj[tF^hn-FC6%Fe\lFJFKFhenC%>FAFeq>FZ*&FJFN
FAFgq,&*&-Fe\lF`^lFNFZFNFN*&FAFN-Fe\l6$FZFKFNFN-FW6$FJ)FhalFc\p-Faz6#%=power~of
~tensor~not~expectedG3Fa\nFchq@%FijsC$>FZFf]n@'Ffam@%/7$FZFK-Fc^l6#F^_tFj[t-F_j
l6$-Fbhl6$FeqFKFZ/-F]p6$F`wFeqF[alF`wC$>FA-Fbil6#7$-F]p6#-FE6#-F]p6$Fhr-Fggl6#F
j[t.%"aG*&-Fbhl6$&F[alFfvFKFN-Fbhl6$FJFj`tFN@%-FW6$Ff]nFhamFj[tC$>Fjr7$-F]pFe]n
Figl@%/Fjr-Fc^lFjxFj[t-F_jl6$Fc_tFf]nF`fr@%3-Fdfm6#Fi[t-F_s6$FJF_[t-Fbhl6$&F[al
6#-Fehl6$Fi[tFJFKF`w34FidnFijs-F^]nFi^m5Fidn3F][t0-Fjfn6$-%'indetsGFifmF_[tF`dl
Fj[tFijs-F^]nF^fqF`wF5F5F5F5,
I4Riegeom/eta_is_diagF_coF5,
I%compR6#'Ff]mFhal6&F'FdioFeioFhblF3F5C'>F`r-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]jo
RFaqF5F5F5FJF5F5F5FJ>FZ-Fajo6$F`rF\r>FA-FgglFaan@%-Fdfm6#&-FgdlFbjoF^el>F`r-Feh
l6$/FZFgdt-Ff\oFaan>F`rF\et@%3/F]rFL/FfrFLC$-F[\pF][l-F\[l6#-Ff_mFaan-Faz6#%0no
t~a~componentGF5F5F5F5,
I,RiemannNameFe^lF5,
I+Riegeom/ivF9F5,
I<index/Riegeom/calc_in_coordRFhemFiemF3F5@%F`el@%FafmF_gmC&>F]qFb]l>FerFcgm?(F
AF]qFgqFN/Fggm-RFaqF5F5F5@%Fd[mFNFgqF5F5F5F\hmF5@%F`hm@%Fbhm>FffmFghmF_gmC'>FZF
`w>FjrFggm>F`rF]hm?(F\rFNFNF]alF9C$&((FhalF\alFcrFeim@$Fiim>FZF]jm>FffmF][n>Fff
mF_[nF5F5F5F5,
I.Riegeom/enterRF[br6)F-%#ffG%"eGFajs%'tquoteG%'dquoteG%&quoteGF3F5C,>FZRFaqF5F
5F5@'3F]`oFh_r-F\dp6$%"-GFg\m3F\]oF_^o-F\dp6$FghtF^^oFJF5F5F5>Fer-F]p6$FN-Ff_m6
$F`[pFN>Fjr-F]p6$FcrF^it>F]q-F]p6$FhrF^it>F`r-F\dp6(%1enter~component~GFidl%"[G
-FZ6#-%/Riegeom/emergeGFb]n-Fj]l6$-F\dp6$%",G-FZ6#-F^jtF\hm/FA;FcrFb]l%$]~:G>F\
r-%*traperrorG6#-%)readstatG6&F`rFerFjrF]q?(F5FNFNF5/F\r%*lasterrorGC$-F]epFe_o
>F\rF[[u@$0F\rFbyC&-%'assignG6#/&-.F\dp6%FhalFidlFb]lF^`lF\r>FerFjr>FjrF]q>F]qF
`_n>F`[p7%FerFjrF]qFbyF56#F`[pF5F5,
I4type/covariantindexRFaqF5F]_rF53Fa_r-FW6$Fg\m.<$%:contravariantnumericindexGF
a\pF5F5F5F5,
I-Riegeom/nf/*RFh^l6fo%$TTTGF-F.Fi\oFb[qFf`t%#fpG%#fmG%#siG%$siiGFiblF]cl%#TTG%
#jjGF'%(sum_indG%)free_indG%+tens_termsG%-N_tens_termsG%-scalar_termsGFe_qF]doF
c]s%*L_group_IG%+L_group_IIG%#F1G%#F2G%%nL_IG%,tensnames_IG%$N_IG%)N_free_IG%+n
ewnames_IG%-same_names_IG%&nL_IIG%-tensnames_IIG%%N_IIG%*N_free_IIG%-firstfree_
IIG%,newnames_IIG%.same_names_IIG%/tensnames_origG%'N_origG%$posG%,rep_sum_indG
%*s_subsop1G%*s_subsop2GFeioFajs%*tens_typeG%)ind_typeG%+same_namesG%(plain_IG%
)plain_IIG%#FGG%-sub_class_upG%/sub_class_downG%&ind_TG%,set_sym_indG%)class_Si
G%*class_SiiG%*sub_classG%$TABG%/sub_classes_SIG%*subs_downG%+induced_upGF\do%-
induced_downG%&n_subG%$SSSGF)Fb[lFc[l%"PG%#LLGFe[lF5Cen@$Fi[lC$@$F]_lF^_l-Fc\l6
%Fe\lFf\l.7#-Fj\l6#<$FbjnF\dl>82-Fggl6#-FagrFien>83-F]p6$FNFhau@$2F`w-Fjp6#&Fha
u6#F`p-Faz6#%MINTERNAL~ERRROR:~there~are~numerical~indicesG@$/F]buFL-Fa^m6#-FC6
%%+Riegeom/nfGFJF]hq>84-F]p6$FhrFhau>85-FU6%Fh_nFJ7$-F]p6#F]bu-F]p6#Facu>86-Fjp
6#Fecu>87-Fb_s6%F_sFJFecu@$3Fi[l0<#-F]p6#-FC6$RFaqF5FgbnF56$-F]p6#&FfglFe[s-F]p
6#&FfglFebuF5F5F5FbduF`dl-Faz6%%9Riegeom~INTERNAL~ERROR:~G%@some~term~of~type~n
ot~expected:GFbdu>Fbdu-FC6%F_cuFbduF]hq@$-F_s6$F`wFbdu-Fa^mF^el>88R6%FbqF.F-F5F
5F5@%-Fh_nFi^mFFFbyF5F5F5>89-F_]s6#<#-Fj]l6$<#-Fj]l6$-Fafu6%&FecuFctF\rFZ/FZ;FN
F^du/F\rF]bu@$2FN-Fjp6#FgfuC$>8:-%&minusG6$<#-%"$G6#Fdgu-FC6$F]pFgfu-Fa^m6#7%-F
]p6#Fbdu-Fj]l6$-F]p6#-Fe\l6#7#-Fj]l6$&FecuFe_oFbdq/FZFgfu-Fj]l6$-F_cu6$FbguF]hq
/FZF\hu>8;-FU6$%0Riegeom/has_symGFecu>8<-Fb_s6%F_sFecuF\ju>8=R6$F]clF[^uFd[lF5F
5,&Fb]lFN-Fjp6#-Fehl6%-Fj]l6$F`hmFh]r/F`wFbyFdflFgqF5F5F5>8>RFgjuFd[lF5F5C$?&FA
FdflF9@$-F_sF`^l-Fa^m6#Fdgn-Fa^m6#.F]joF5F5F5>8?-Fjp6#F\ju>8@-%%map2G6%F]pF`wF\
ju>8A-FC6$FjpF\ju>8B-FC6%FejuF\juFacu>8C7#-Fj]l6$(((((%.Riegeom/tens_G&Fa\vFctF
[am&Ff\vFctF[am&Fj\vFct/FZ;FNF]\v>8D-%:Riegeom/select_repetitionG6#F^]v>8E-Fjp6
#Faju>8F-Fc\v6%F]pF`wFaju>8G-FC6$FjpFaju>8H-FC6%FejuFajuFacu>8I-FC6%Fa[vFajuFac
u>8J7#-Fj]l6$(((((((Fg]v&Fg^vFctF[am&F[_vFctF[am&F__vFctF[am&Fc_vFct/FZ;FNFc^v>
8K-F`^v6#Fg_v>8LFL>8MFL@$0F^^vFLC,>8N-FC6%F_^lF^^vF^]v>F]av-FC6%F]pFdavFa\v>F_a
v-FC6%F]pFdavFf\v>8O<#-F]p6#-F`^v6#-FU6%FW-FC6$F]pF\ju.FX@$0F^bvF`dl>F\ju-FC6%%
1Riegeom/nf/*/repGF\juF^bv>8PFby>8QFby?&FZF^^vF9C,>Fdav7#-%2Riegeom/positionsG6
$FZF^]v>8R-Fjp6#Fdav>8S&Ff\v6#&FdavF^gm>F]jr-Fgdl6$F_dv&Fa\vFadv-F_ju6$&F\juFad
v.Feir@&-F_s6$Feir.<$7#FQ7#F_o>Feir7#7$-F]pFdjr7#-Fbhu6#;FNF_dv/Feir.7#Fho>Feir
7#7$Fgo7#-Fbhu6#F_p>Feir6$Feev-Fj]l6$-F]p6#-Fehl6$-Fj]l6$/F\r,&*&F`rFNF_dvFNFNF
\rFN/F\rFievFeir/F`r;FN,&F[dvFNFgqFN-Fi`l6-*&F_dvFNF[dvFNFZF[alF\alF]al7$Feir-%
3Riegeom/nf/*/mksymG6$F_dvF[dv&&F]jrF^el6#Fcco&F\hv6#Fdco-FC6$F]p7#-Fbhu6$&F\hv
6#FecoF[dvFLFL>F`cv6%F`cv-Fj]l6$Fay/F\r&FdavF^ho/Fbdv&FZ6#-Fj]l6$-F]p6#&F\juFig
r/FgfrFdav>Fbcv6$&F`cv6#;FN!"#/FbdvFZ>F\ju-F_y6$F`cvF\ju>F^]v-F_y6$FbcvF^]v@$0F
i`vFLC.>Fdav-FC6%F_^lFi`vFg_v>F]av7$-F]p6#F]av-F]p6#-FC6%F]pFdavFg^v>F_av7$-F]p
6#F_av-F]p6#-FC6%F]pFdavF[_v>F^bvF_bv@$Fjbv>Faju-FC6%F^cvFajuF^bv>FgfuFby>F`cvF
by?&FZFi`vF9C*>Fdav7#-Fhcv6$FZFg_v>F[dvF\dv>F_dv&F[_vFadv>F]jr-Fgdl6$F_dv&Fg^vF
adv@'-Fdfm6#F\hvC$>8TF[hv>8UF`hv%6Riegeom/AssumeTensorsGC$>Fb]wFgal>Fd]w7#-Fbhu
6$F`wFfgvC$>Fb]wFL>Fd]wFL-Fi`l6-FfgvFZF[alF\alF]al7#FhgvFLFb]wFd]wFLFL>F`cv6$F`
cv-Fj]l6$Fay/F\rFdav>Fgfu6$Fgfu&FZ6#-Fj]l6$-F]p6#&FajuFigrFeiv>Faju-F_y6$F`cvFa
ju>Fg_v-F_y6$F`cvFg_v>F\ju7$-F]pF_\vFgfu>F^]v7$-F]pFa^v-F]p6#Fi`v>8V7$-F]p6#F^^
vF\`w>F]\vF^\v>Fc^vFd^v@$/,&F]\vFNFc^vFNFNC$>F]jr-F_cu6%Fh_w-F]pFe^vF]hq@%/F]jr
F`wF_fu-Fa^m6#7$Fihu-%<Riegeom/nf/*/recov_merged_TG6&F]jrF_`wF]avF_av>Faju-F_[l
6$FajuFg_v@$/F]\vF`w-Fa^mFe^v>F\ju-F_[l6$F\juF^]v>8WFfbv>8X-FC6$F]pFaju>8YR6%Fb
qFi_uFj_u6$%#p1G%#p2GF5F5@%5-F_sFhbs33-F_s6%Fg\mFK.FZ-F_s6%FJFK.FA2FZFA/FJFg\mF
byF5F5F5>Fgfu-FC6&Febw<#FicuF_bwFabw>F\ju-Fehl6$FgfuF\ju>Faju-Fehl6$FgfuFaju>F_
bw-FE6#F_bw>Fabw-FE6#Fabw?(F\rFNFNF]\vF9C$>&8ZFe_oFby>&8enFe_oFby?(FZFNFNF]\vF9
C0>F]jr&F\juFct>8fn-Fggl6#F]jr>8gn-FeblFgew>8hn-FU6%F_s&FeewFb[n-Fjfn6%<#-F]pFd
dwF[dwFiew>8in-FU6%F_sF\fwFabw>F\fw-Fb_s6%F_sF\fwFefw>F][r-Fjp6#F\fw>F[dvFN@$0F
\fwFLC%?(F\r,&FZFNFNFNFNF]\vF9C$>&8jn6#F[dv-FU6%F_s-FE6#<#-F]p6#&F\juFe_oF\fw@$
0FfgwF`dlC%>F^ew6$F^ew-FC6$RFaqF5FgbnF5Fg\mF5F5F5Ffgw>&8[o6#FfgwF\r>F[dv,&F[dvF
NFNFN>&F\ewFct-Fj]l6$&FggwFe_o/F\rFbgv>&F_ewFctFfiw>Fefw-FU6%F_sFabwFefw@$4-F_j
u6$F]jrFjdv-Faz6%%8Riegeom~INTERNAL~ERROR:G%Fexpecting~a~tensor~with~symmetry,~
gotGF]jr>8\o7$F`iwFfiw>&FcdrFct-%2Riegeom/nf/tensorG6&F]jrFeirFcjwFefw@$/FfjwF`
wF_fu>F\ju7#-Fj]l6$FfjwF[^v@$0-F^ct6#<#-%(entriesG6#F\ewF`dlC%?(FZFNFNF]\vF9>&8
]oFctF`dl?(FZFNFNF]\vF9C&>F]jr-%3Riegeom/abs_tensorG6#Fcew>FgfuFby?&F\r7#F`iwF9
@$0F\rFLC3>8^o-Fj\p6$-%%sortG6#7#-F]p6#-FC6%F_^lF\r7#-F]pFgewF]jr>8_o-Fa\x6#&F\
ju6#&F[iwFe_o>8`o-Fj\p6$-F^]x6#7#-F]p6#-FC6%F_^l-FC6$RFaqF5FgbnF5Fg\mF5F5F5F\r7
#-F]p6#Fh]xFh]x>8ao-FjpFe_o>8bo-Fj]l6$/F`r,&F`_xFNF`rFN/F`r;FNF`_x>F_^x-Fehl6$F
c_xF_^x>8co-Fi^r6#-FC6$F]p7$Fj\xF_^x-Fi`l6-,$F`_xFcrFAF[alF\alF]alF^`xFLFgal7$-
Fbhu6$FNF`_x-Fbhu6$FgqF`_xFLFL>8do-FU6%F_sFe]xF\r>8eo-FU6%F_sF\_x-FC6$RFaqF5Fgb
nF5Fg\mF5F5F5F\r>Fcdr&FA6$-F]p6#F]ax-F]p6#Faax>%4_Env/Riegeom/statesGF]hq>Fcdr-
Fhjw6$FcdrF^`x@$/FcdrF`wF_fu>Fcdr-Fa\x6#Fcdr>&F\\xF\^x6$Fibx<#-Fj]l6$/,$&FaaxFa
anFgq,$-F]p6$Fg_xFcdrFgqFh_x>Fgfu6$Fgfu<#-Fj]l6$/&F]axFaan-F]p6$F`rFcdrFh_x>&8f
oFct-Fehl6$FgfuFcew>F\ju7#-Fj]l6$-Fehl6$F[\xF^dxF[^v@$0F_`wFLC%>8go-FU6%Fh_nF\j
uF_`w>F\hu<#-Fj]l6$/&F\exFct-Fcaw6&FdexF_`wF]avF_av/FZ;FN-Fjp6#F\ex>F\ju-Fehl6$
F\huF\ju-FC6$F]p7$F\juFajuF5F5F5F5,
I*l*a*t*e*xRFaqF5F3F5C$RFaqF5F5F5C$@$F\]o@&F]^o-Fa^m6#)%(\mbox|fr|hrG%"0GF_^o-F
a^m6#&F[gx6#F\gx@+/FJFN%*\mbox|fr|hr^1G/FJFgq%*\mbox|fr|hr_1GFd[m(%)\mbox|fr|hr
^GFJF^\m(%)\mbox|fr|hr_GFg\m-Faz6$FJ%@is~not~an~index~of~correct~typeGF5F5F5@'F
_\nC$-FC6$F[jmFdfl-F\dp6%Fdbo--Fgao6#.%-tools/gensymG6#FidlF[cnFa\nC$-FC6$F[jm7
#-F]pFhhx--F\dp6%Fdbo-Fdhx6#-F]p6$F`wFidlF[cn6#-F]p6#-FC6$Fe\lFdflFJF5F5F5F5,
I%amapR6$'%"fG<%Fa\pF^]l%*procedureGFf]m6)F'FdioFeioFhblF%F&F]clF3F5C$>F`rFaam@
'-FW6$F`rF\dlC*>FAFbdt>FZF_dt>F]qFgdt@&4-Fdfm6#&F]qF^el-Faz6$%Fuse~definetensor
~to~define~the~tensorGF`r0F]rFL-Faz6%FafoFK%;cannot~have~summed~indicesG-F[\pFd
]l@%3Fg_r/-%*substringG6$FJF\gr.F]jq(F]jqFJFJ6$-Fehl6$/FZF]qF\et-%,Riegeom/sumG
6#-Fjim6$F`rFj^m-F"6&FjimFfrF9-F]p6#&F_[yF_el-FW6$F`r/F\dlFd_rC.>Fer-%$lhsGFaan
>Fjr-%$rhsGFaan>FA-FgglFhx@$330<#Fdfn<#-F]p6#-F]p6$Fhr-FgglFjxF_gpFfz-F]ep6#%K*
**~warning:~the~free~indices~do~not~matchG>FZ-FajoFcbq>F]qFgdt@&F\[y-Faz6$Fb[yF
erFc[y-Faz6%FafoFer%3has~summed~indicesGFg[y>Fer-Fehl6$Fc\yFer@%Fi[yF_\yFJ>Fjr-
Fe\y6#-Fjim6$FjrFj^m-F"6'FerFjrFfrF9F[]y-Faz6$%fn2nd~argument~must~be~a~constan
t~tensor~or~a~tensor~equationG%>with~a~constant~tensor~in~lhsGF5F5F5F5,
I3Riegeom/seq/nosymmR6'FhblF+F,FjiqF[jqFcisF3F5@%/FKFL@%F]es@%-FW6$FJFa_m/Feq-F
f_mFe]nFdfr-(%-Riegeom/seq/GF<6'FJFFFLFNF=C%>FZFdjq>F\r-F_y6$FjfsFK-Fj]l6$-Fe\l
6'-Fehl6$FbgsFf\rF\rFFFNF</FAF]cqF5F5F5F5,
I,RIEGEOMPATH%+C:/tensor/GF5,
I4Riegeom/defob_RicciRF5F5F5F5C$>((Fe`lFd^l.%#_2G%9index/Riegeom/calc_RicciG-Fi
`l6-FcrFd^lF[alF\alF]al.7#7$FQFi\pFLFgal7$F`wF`w7#Fghq7#Fd^lF5F5F5F5,
I%TIMER6#'Fbq%'unevalG6$%#stG%$resGF5F5C&>FA-%%timeGF5>FZFdfr-Fhz6#((%+timing:~
~~G-Fagr6$,&FhcyFNFAFgqFham%)~secondsG-Fa^mFctF5F5F5F5,
I=Riegeom/nf/character_configsR6$%(class_AG%&set_TG6$F]do%#a1GFe[lF5C$@$Fi[lC$@
$F\\lF^\l-Fc\l6%Fe\lFf\l.7$Fggo-Fb_m6#F\dl@%/FJFLFKC%>FA-Fe\l6$&FJFiivFK>FZ&FJ6
#Fgq-Fj^s6$-Fehl6$/FZFgjlFAFAF5F5F5F5,
I/convert/symbolR6#Fbq6"6#%inCopyright~(c)~1997~by~Waterloo~Maple~Inc.~All~righ
ts~reserved.GFhfy@'/9#"""@%-FW6$9$F_]lFbgy-Fagr6$-%(sprintfG6$%#%aGFbgyF_]l/F]g
y""!F]jo-F\dp6%-Fefy6#FbgyFcjt-Fefy6#&9"6#;""#F]gyFhfyFhfyFhfyFhfy,
I+symmetrizeR6$'Ff]mFd_r'F)%)symmetryG6$FhblF1Fe[lF5C&@$/F]\lF`w-Faz6#%:wrong~n
umber~of~argumentsG>FAF``m@$4-FW6$FAF^dm-Faz6#%Vexpecting~1st~argument~to~be~of
~type~tensorexpressionG@'Fcdl-F\[l6#-Fehl6$-FC6$RFaqF5FgbnF5/FJ-FgcoF][lF5F5F5-
F^ct6$FAFgdoFAF`elC%>FZ-%2Riegeom/symm_listGFd]l@$/&FZF^gmF`w-Faz6#%Ethe~symmet
ries~cancel~the~expressionG-F\[l6#-Fjeo6$FAF__sF`iyF5F5F5F5,
I.Riegeom/applyR6&F)F'Fe_qF%F*F3F5@//FJF=C$>FA-FC6$FEFK-%5Riegeom/apply/nosymmG
6)FMFAFLFNF=FF&Fg\l6#;FhpF]\l/FJFPC%>FA-FU6%FWFKFX>FZ-FC6$FE-FU6%FWFKFin-%3Rieg
eom/apply/symmG6)FMFAFZFNFQFFFa\z/FJF^oC%>FAFg\z>FZFj\z-%7Riegeom/apply/antisym
mG6)FMFAFZFNF^oFFFa\z/FJFgoC+>FA7#-F]p6$F_pFK>FZ-FC6$FE7#-F]p6$;FhpFc]lFK>F]q-F
C6$RFaqF5F5F5@%FdqFgqFNF5F5F5FA>FAFiq>F\rF]r>F`rFar>FerFfr>FjrF[s@-F^s-Fgiq6)FM
FAFZFNF=FFFa\zFgs-Ff]z6)FMF`tFatFNF=FFFa\zFdt-Ff]z6)FMF]uF`tFNF^oFFFa\zF^u-Ff]z
6)FMF]uFguFNF=FFFa\zFhu-F_]z6)FMF`vFavFNFPFFFa\z-F_\z6)FMFdvFLFNF=FFFa\zF_\nC(>
F]wFidl>F\rFeq>F`rFf]n>Fer-F]p6$F\rFK>Fjr-F]p6$F`rFK@%F^x-F_\z6)FMF\\zFLFNF=FFF
a\zC%>FAFfx>FZ-FC6$FE-F_y6%FayFcyFK-(F]\rF]wFa_z5/FJFiy/FJF\z-%7Riegeom/apply/d
iagonalGFh`zF`zF5F5F5F5,
I7Riegeom/apply/diagonalRFiiq6$F-F[esF3F5@%Fd`y-F\\r6(FJFFFLFNF=Fg\r?(FAFNFNF]a
lF9C$>FZ-FC6%R6$FbqF-F5F5F5F]\mF5F5F5FKFA-Fe\l6(-Fehl6$FZFf\rFLFFFNF<Fg\rF5F5F5
F5,
I4Riegeom/v_is_activeF_coF5,
I6Riegeom/codiff/expandRF\gl6/F'%%ind3G%%ind4GF]doFc]sF\do%%ind0GF,%#x2G%"bGF.F
-%#T0GFe[lF5C$>F\r-F]p6$F`pFfgl@)/F\rFL-FjflFi^mF_\nC$>Fjr-%5Riegeom/codiff/num
erG6$FJF`r-Fehl6$F`r-Fjfl6$FjrFKFa\nC,>FjrFJ>F]qFby>F]wFby>F`rFby?(F]jrFNFNF5-F
W6$FjrFc\nC$>Fcdr-F]p6$F`wFjr@%55/FcdrF_jl/FcdrFhhl/Fcdr.F]]nC&>F]q6$FcdrF]q>F]
[r-F]p6$FcrFjr@%-FW6$-F]p6#F][rFc]oC%>Fg[s--Fgao6#Fghx6#-%&evalnG6#(Fg[sF]jr>F`
r6$F`r/Fg[sF^fz>F]w6$&-F]p6$F`wF][r6#Fg[sF]w>F]w6$F][rF]w>Fjr-F]p6$FNFjr-Fa^m6#
-FhhlFi^m@$4-FW6$FjrFiv-Faz6#%Lwrong~type~of~argument~in~nested~derivativeG>Fjr
-F\dz6$FjrFer>FA-F]pFjx?(FeirFNFN,&F]jrFNFgqFNF9>Fjr-Ff_m6#--Fehl6$/Fe`t-F]p6$F
eir7#F]q.Fe`t6$Fjr-F]p6$Feir7#F]w-Fehl6$<$F`rF[]sF`dz-Faz6#%Gfirst~argument~has
~a~type~not~expectedGF5Fb]mF5F5,
I4Riegeom/4/d2g/X/g/2=6$%7Riegeom/[symm,~[1,~2]]G%3Riegeom/calc_d2g_4GF_coE\[l"
F`w=F5F_coE\[l+FhrFaemFccoFLFdco%,partialdiffGFeco7&F`wF`wFgqFgqF`wF`pFfco7#%2R
iegeom/D2Metric1GFN%$d2gGF`pFcrFhpFibyFcrFi]mF5,
I1Riegeom/lptensorF_coF5,
I7Riegeom/defob_D2MetricRF5F5F5F5-Fi`l6-F`p%-D2MetricNameGF[alF\alF]alFhbyFL.Ff
jzFgjzFhjz7#F`[[lF5F5F5F5,
I5interface/autoassignFe^lFd\p,
I%calcR6$Ff]m%%arg2G6-FhblFeioF'FdioF%F&%#AAG%#BBG%"zG%#dtGF]clF3F5C&>FAF``m@'-
FW6$FAF\dlC1>F][rF9@$F`el@%/FK.%%noivG>F][rF_co-Faz6#%C2nd~argument~must~be~the
~name~noivG>F`r-FajoF]dm>Feir-Fgdl6$FZF`r@$4-Fdfm6#&FeirF^el-Faz6$Fb[yFA>F\rF_f
n@$0-F]p6$FNF\rFLC$-Fhz6#-F\[lFfv-Faz6#%Bcannot~have~summed~indices~in~lhsG>F\r
-F]p6$FhrF\r@$3Fg\x0FZFa_x-Faz6#%Iuse~all~components~or~just~one~componentG>Fer
-Fehl6$/F`rFeir-Ff\oFfv>Fg[sFfz>FfzF_co-F"6'FerFerF\rF9-F]p6#&Ff][lF_el>FfzFg[s
@$Ffz-F]ep6$%,Calculated~GFA-FW6$FAF`]yC1>F][rF9@$F`el@%Ff\[l>F][rF_coFj\[l>Fer
F]r>FjrFar>F`r-Fajo6$FerFZ>FeirF`][l@$Fc][lF\_y>F\rFi]y@$F[^[lC$F_^[lFb^[l>F\rF
f^[l@&33F][r0<#-F]pFe_oF_^yF_gpC$F_^[l-Faz6#%=wrong~choice~of~free~indicesGFi^[
lF[_[l>F]q-Fehl6$Fa_[l-Ff\oFhx>F]w-Fe\yFjx@%-%2Riegeom/hastensorGFdhz-F[\u6#7#-
%,Riegeom/seqG6%/F]qF]wF\rFg_[lC&>Fg[sFfz>FfzF_co-F"6'F]qF]wF\rF9Fg_[l>FfzFg[s@
$Ffz-F]ep6$F^`[lFer-Faz6$%Q1st~argument~must~be~a~tensor~or~tensor~equationGF_`
yFcetFbyF56$Ffz%0Riegeom/DEFINEDGF5F5,
I2Riegeom/D2Metric1R6%F-F.F/6$FbqFdblF5F5C%>FZFgcq>FAFc`m-Fbhl6$&FZ6%FJFKFF&FA6
#,$F0FgqF5F5F5F5,
I4Riegeom/seq/RiemannRFb`y6,F-F.F/F0F]jqF^jqF_jqF`jqFajqFjemF3F5C(>FjrFdjq>F]qF
gjq>F]wFjjq>F][rF^[r>Fg[sFby?(FAFNFNFa[rF9?(FZFc[rFNF]alF9?(F\rFAFNFa[rF9C$@%Fa
dq>FerFZ>FerFi[r?(F`rFerFNF]alF9>Fg[s6$Fg[s-F\ay6'F_\rFFFLFNF=F5F5F5F5,
I)symmetryR6#'F]clF\dlF]]pF5F5C$>FAFido@%Fi^p-Ff^l6#7$Fc_p-F]p6#&F[_pF]hvC$-F`d
n6&FNFe\lFi_pFJF=F5F5F5F5,
I<type/contravariantnameindexRFaqF5F]_rF53Fe_rFg_rF5F5F5F5,
I.Riegeom/latexF_coF5,
I+simpupdownR6#Ff]mF[\nFe[lF5C&@$F]_lFbdo>FAF``m@$4-FW6$FA.F^dm-Faz6#%Iexpectin
g~argument~type~tensorexpressionG-F\[l6#-%2Riegeom/updownindGFfvF5F5F5F5,
I8Riegeom/ltensor/ltensorRF5F56#%SCopyright~1997~by~R.~Portugal.~All~rights~res
ervedGF5-F]p6#-FC6$Ff_m-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F5F5Ff\
lF5F5F5F5,
I3Riegeom/apply/symmRFiiqFcisF3F5@%Fd`yF[bzC%>FZFdjq>F\rFbay?(FAFMFNF]alF9-Fe\l
6(FhayF\rFFFAF<Fg\rF5F5F5F5,
I-D2MetricNameFjjzF5,
I;index/Riegeom/calc_Gamma_3Fb_qF5,
I3Riegeom/symmetrizeRF\iy6%F[clF'F-Fe[lF5C&@$Fi[lC$@$F\\lFbdo-Fc\l6%Fe\lFf\l7#.
6$Fd_rFe_l>FZ-F]p6$FcrFfgl>FAF_bm-%5Riegeom/symmetrize/1G6$FJ-Fehl6$<#-Fj]l6$/F
\r&FZFe_o/F\r;FNFA-FC6%%5Riegeom/complete_symGFKFAF5F5F5F5,
I5Riegeom/for/diagonalRFidsFiazF3F5@%F]esF_fs?(FAFNFNF]alF9C$>FZ-FC6%RFcbzF5F5F
5F]\mF5F5F5FFFA-Fe\l6)Ffbz-FehlF`^tFLFMF<FNFafsF5F5F5F5,
I.Riegeom/orderR6$Fi\oFi]u6%F-F.F'Fe[lF5C&@$Fi[lC$@$F\\lF^\l-Fc\l6%Fe\lFf\l7#.6
$Fe^oFe^o>FA-Ff\oF][l>FZ-Ff\oFd]l@'-Fhfm6$7$FAFZFi`s@'3-FW6$FAFin-FW6$FZFXF]hq3
-FW6$FAFX-FW6$FZFin.F9-Fejp6#/Fj]\l-Fc^l6#Fj]\l2F`w*&FAFNFZFN-Fejp6#1-%$absGFfv
-Fb_\lFct-Fejp6#1FZFAF5F5F5F5,
I+index/fillR6$F]cl%%inivG6)%$lowG%%highG%(indicesG%'rangesG%&nvalsGF[clF-6#%ao
Copyright~(c)~1994~by~the~University~of~Waterloo.~All~rights~reserved.G6"C,>8'7
#-F]p6$""#-Ff_m6#9$@$/-Fjp6#Ff`\l,&9#"""!"#Fda\lC$>&F]a\l6#&9"6#;""$Fca\l9%-Fa^
mFc`\l@$4-FW6$F_b\lFj\l-Faz6#%Qinitialization~of~arrays~must~be~done~with~lists
G>8(-Fjp6#F_b\l>8$-F]p6$Fda\l&Ff`\l6#,&Fca\lFda\l!""Fda\l>8%-F]p6$Fj`\lF`c\l>8)
,(Fec\lFda\lF]c\lFcc\lFda\lFda\l@$2Fic\lFib\l-Faz6$((%-a~list~with~GFib\l%P~ent
ries~cannot~be~used~to~initialize~the~rangeGF`c\l>8&Fja\l@%/F`a\lFbc\lC$>F]c\l,
&F]c\lFda\lFcc\lFda\l?(8*Fda\lFda\lFib\lF9>&F]a\l6$Fdd\l,&F]c\lFda\lF[e\lFda\l&
F_b\l6#F[e\l?(F[e\lFda\lFda\lFib\lF9-9!6&F]a\lF`e\lFdd\l,(F[e\lFda\lFcc\lFda\lF
^c\lFda\lFc`\lFc`\lFc`\lFc`\l,
I9index/Riegeom/calc_d2g_4%<index/Riegeom/calc_D2MetricGF5,
I:Riegeom/rename_sumind/2_1R6)F-F+%#s1GF,%#s2GF\doF[doFhbwF5F5@'3Fccw-F_s6%Fg\m
FMFbcw@%3/-F]p6$F`wFiisF_hl2FNFA,$(((FFFAF<FZFgqFif\l3-F_s6%Fg\mFKFecw-F_s6%FJF
MFbcw@%Fcf\lFif\lFhf\l-Faz6'Fgeu%Oexpecting~i~and~-i~member~of~ind1~or~ind2,~go
tGFJFKFMF5F5F5F5,
I6type/Riegeom/symmetryR6#FbfqF5F5F553Fg_r-F_s6$FJ%6Riegeom/symmetrynamesG33333
F^gqFgdn-FW6$F]gmFham-F_s6$F]gmF\h\l-FW6$F]ho.-Fj\l6#-Fj\l6#<$F_]lFg]o2FN-Fjgq6
#-F]p6#-FC6$FjpF]hoF5F5F5F5,
I:Riegeom/rename_sumind/2_2R6'F-F+F\f\lF,F]f\lFhbwF5F5@'F_f\lFJF\g\lFg\mFbg\lF5
F5F5F5,
I5Riegeom/seq/diagonalRFb`yFd[lF3F5@%Fd`yF[ayC$-FC6%R6$FbqF.F5F5F5F]\mF5F5F5FKF
A-Fj]l6$-Fe\l6'-Fehl6$F[jmFf\rFLFFFNF<FjayF5F5F5F5,
I3Riegeom/symm_and/1RFaqF5Fe[lF5@%Fcdl@'Fg_rFJF^gq@%F[]t&F]gm6#-F]p6#&FJFe[s&-F
e\l6#F\fy6#-F]p6#F^fy-Faz6$%SINTERNAL~ERROR:~expecting~type~symbol~or~list,~got
GFJ3-Fe\l6#&Fg\lFiiv-Fe\l6#&Fg\lF_fyF5F5F5F5,
I0type/nametensorRFaqF5F[jpF53-FW6$FJFgal-FW6$Fdgl-Fj\l6#Fi`sF5F5F5F5,
I2Riegeom/nf/tensorR6&FhblFiblFd`u%*class_SIIG6`pFb[qF-Fi\oFh]uF'F_`u%)class_Fp
GFhdy%)class_FmGFd]uFf`tFe]uF]cl%*sym_procsGF1%&coefsGF\^u%)ind_exprGF[^u%(grou
p_IG%)group_IIGF_^uFc^uFd^uFe^uFf^uFg^uF`^uFi^uFj^uF[_uF\_uF]_uF^_uFa^uFb^u%#F3
GFh^u%)s_subsopGFb_uFeioFajs%)sort_newGF.Fi]u%"rG%'ind_TFGFe_q%*n_sym_indGFdcyF
dio%,pos_sym_indGF``u%/sub_classes_SiGFa`uFf]uFg]u%$ABCG%)class_BpG%)class_BmG%
)class_CpG%)class_CmG%(class_CG%#bpG%#bmG%#cpG%#cmG%"cGFc]sFd]s%)class_AmG%'up_
indG%)down_indG%(canon_TG%,totally_symG%-totally_asymGFidy%'list_TGFhfo%*list_s
ignG%*list_ind1GFb[l%%apbmG%&can_LGFe[lF5Cep@$Fi[lC$@$4-F_s6$F]\l<$F`pFcr-Faz6%
F`\l%@expecting~2~or~4~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7&FgdoFd_l.-Fj\l6#<$Fb
_mFf^o.Fggo>Fd]wFhcy-F`dn6'Fcr%+normalformGF`foFJ%7putting~in~normal~formG>FerF
fgl@$33/&FerF^gmFLF`el0%1Riegeom/TestProcGFf^\lC&-F`dn6&FhrFj`]lF`fo,&FhcyFNFd]
wFgq>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%Kclasses~A,B+,B-,C+,C-,Si~and~Sii~are~emptyG-F
a^m6#-%1Riegeom/applysymGF][l>F_`wFidl>Fjr-FeblFi^m>F_bw-F^]x6#7#-F]p6#-FC6%F_^
lFjrFdfl>Fb]w-FjpFjx>FcdrFJ@$2F`w-Fjp6#&FerFebuFfbu>F^du-FU6%F_s&FerFb[nFjr@'F`
elC'>FabwFL>FebwFL>F\ewFL>F]q-Fc^l6#-FU6%FWF^duFhbv>F][r-Fc^l6#-FU6%FWF^du.Fin/
F]\lF`pC'>Fabw-FC6$F]pFF>FebwFF>F\ewFM>F]q-Fc^l6#-FU6&R6%Fbq%#SiG%$SiiGF5FgbnF5
33-FW6$FJFhbv4-F_sFi^m4F]cwF5F5F5F^duFabwF\ew>F][r-Fc^l6#-FU6&RFde]lF5FgbnF533-
FW6$FJFfd]lF[f]lF]f]lF5F5F5F^duFabwF\ew-Faz6%%1INTERNAL~ERRROR:G%<expecting~nar
gs=2~or~4,~gotGF]\l>F]w-FU6%F_sFaa]lFix>Feir-Fjp6#F]w>F_ew-FjpFgdw@$3/FeirF`w/F
_ewF`wC$>%9_Env/Riegeom/class_orderG7%-F]p6#F]q-F]pFg[xF^fzF\b]l>Fg[s-FjpF]h]l>
F]jr-FjpF_fz>Feew-FjpFg[x>Fiew-%5Riegeom/nf/class_ABCG6&FdflFjrF]wFK>F]w&FiewF^
gm>F\fw&FiewFe[s>Fefw&FiewFb[n>Fggw&FiewFebu>F[iw&FiewF_el>Fcjw&FiewF]hv>FeirF`
g]l>F\\xF\gw>Fj\x-Fjp6#Fefw>Fh]x-Fjp6#Fggw>F_^x-Fjp6#F[iw>F`_x-Fjp6#Fcjw>Fc_x<#
-Fj]l6$/FgjlFZ/FZ-FU6%FWF\fwFfd]l>F^`x<#-Fj]l6$Fdfy/FZ-FU6%FWFefwFhbv>Fcdr-Fehl
6%Fc_xF^`xFcdr>F\fw-Fehl6$Fc_xF\fw>Fefw-Fehl6$F^`xFefw>Fjr-Fehl6%Fc_xF^`xFjr@$0
,4Fg[sFNF_ewFNFeewFNFeirFcrF\\xFNFj\xFNFh]xFNF_^xFNF]jrFNFb]w-Faz6$F`jw%Hfp+si+
sii+2*a+bp+bm+cp+cm+fm<>n_sym_indG>F]ax-FC6$RFaqF5FgbnF5Fg\mF5F5F5F]w>Faax7(F\h
]lF^h]l-F]pFag]l-F]pF]gw-F]pF\j]l-F]p6#-FU6%FWFabwFhbv>F_dx7'-F]p6#-FU6%FWFabwF
fd]l-F]pF_j]l-F]pFii]lFjaxF^fz>Fhau7$F\bx-F]p6#F_dx@$/F`_xF`w>F\ex&F_`w6#-F]p6#
-F_y6$-Fj]l6$/&F_bwFct&FhauFct/FZ;FNFb]w7#-F]pFgbx@%5-F_s6$FKF^ev33/Fc]lFN/-Fjp
6#FiglFcr-F_s6$&&FKF5F^gm.<$FQF_oC$>8hoFf^\l@$/-F^ctFd]l.<#F_o>8ioFf^\l>Fa`^lF]
hq@$3F^^^l5/FJF\exFa`^lC&Fea]l>Fd]wFhcy-F`dn6'FcrFj`]lF`foFJ%Pis~in~canonical~f
orm~or~is~totally~(a)symmetricG@%3-%6Riegeom/nf/cancel_symGFd]l-Fj\r6&FdflF]wF]
axFKF_fuC$@%/Fh`^lFf^\l>FA-Fi\q6$-FE6#Fhau-FE6#-FC6%F]pF_bwFdfl>FAFN-Fa^m6#*&FA
FNF\exFN@%5/F_bxF]hqFa`^l>8jo<#FcdrC&Fea]l>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%Mgenerat
ing~all~possible~state~configurationsG>F]c^l-Fedy6$F]wF^c^l@$Fea^lC&Fea]l>Fd]wF
hcy-F`dn6&FcrFj`]lF`fo%Vverifying~if~the~induced~symmetries~cancel~the~tensorG?
&FZF]c^lF9@$-Fj\r6&F]aoF]wF]axFKF_fu>F]c^l-Fedy6$FcjwF]c^l>Fjg]l-Fehl6$/F`dlFby
7,F\h]lF^h]l<#Fj\^lF[]^l-F]pFbj]l-F]p6#-FC6$RFaqF5FgbnF5Fg\mF5F5F5FcjwFh]^l-F]p
6#Febw<#FjaxF^fzFea]l>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%8applying~the~symmetriesG>8[p
7#-F]p6#-FC6$F_b]lF]c^l@$-F_s6$F`wFhe^lF_fu@$-Fh_n6$Fhe^lF\ex@'-F_s6$F\exFhe^l-
Fa^mFjex-F_s6$,$F\exFgqFhe^l-Fa^m6#Fjf^l-Faz6$F`jw%Oexpecting~canon_T~or~-canon
_T~member~of~list_TGFea]l>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%gnselecting~tensors~that~
are~in~character~normal~configurationG>8\p-FC6$%3Riegeom/ind_tensorGFhe^l>8]p-F
c\v6%F]pFNFeg^l>Feg^l-Fc\v6%F]pFcrFeg^l>8^p-Faho6$7#-F]p6#<$Fjd^lF\bxFeg^lFea]l
>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%Yselecting~tensors~that~are~in~index~normal~config
urationG>Fah^l-Fefo6$-Fehl6$/FLFby7,F]qF\ewF]wF\fwFggwFabwF[iwFefwF]axF][rFah^l
>Fah^l-Fcho6$-Fehl6$Fai^l7)F]qF\ewF\fwFggwF[iwFefwF][rFah^l>Fhau-FC6%F_^lFah^lF
eg^l>F]c^l<#*&&Fjg^l6#&FhauF^gmFN&F_`w6#-F]p6#&Fah^lF^gmFN@$2FeirFcr-Fa^m6#-F]p
6#F]c^lFea]l>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%Zgenerating~symmetric~configurations~o
f~indices~of~class~AG>Fhe^l7#-F]p6#-FC6&R6%FbqF]]rF^]rF5FgbnF5-F]p6#-%7Riegeom/
nf/sym_configsGFcd[lF5F5F5F]c^lF]wF]ax>Fhau-FC6%R6$F]clF\^]lF5FgbnF5-FC6%F]pFK&
-Fhg^lF][lFe[sF5F5F5Fhe^lF_bw>8_pFhau>8`p,.FeirFNF\\xFNFh]xFNF_ewFNF_^xFNFj\xFN
@$2F`wFeir>Fhau-FC6(%;Riegeom/nf/relabel_class_AGFhauF]w,&Fg[sFNFeewFNFeirFi\_l
@$2F`wF`_x>Fhau-FC6'%;Riegeom/nf/relabel_class_CGFhauFcjw,*Fg[sFNFeewFNFeirFNF\
\xFNF_ew>Fhau-Fehl6'<$-Fj]l6$/&F][rFct,,FZFNFg[sFNFeewFNFi\_lFNFeirFN/FZ;FNF]jr
-Fj]l6$/&F]qFctFZ/FZ;FNFg[s<#-Fj]l6$/&FabwFct,.Fg[sFNFeewFNFeirFNF\\xFNFh]xFNFZ
FN/FZ;FNF_ew<#-Fj]l6$/F`iw,&Fg[sFNFZFN/FZ;FNFeew<$-Fj]l6$/&F\fwFct,*FZFNFg[sFNF
eewFNFeirFN/FZ;FNF\\x-Fj]l6$/,$&FefwFctFgq,2FZFgqFg[sFgqFeewFgqFeirFgqF\\xFgqFh
]xFgqF_ewFgqF_^xFgq/FZ;FNFj\xFhauFea]l>Fd]wFhcy-F`dn6&FcrFj`]lF`fo%Jfinding~the
~index~canonical~configurationG>8ap-%7Riegeom/tools/min_listG6#<#-F]pF`b^lFea]l
>Fd]wFhcy&Fhe^l6#-F_^l6$F^a_lFhauF5F5F5F5,
I8Riegeom/tools/permute/1RFa[l6%F-F[clF1F5F5C'@$Fi[lC%@$F\\lF]go-Fc\l6%Fe\lFf\l
7$.<$-Fj\l6#Fin-Fj\l6#<$F[emF_]l-Fj\l6#<%FinF[emF_]l@$5550Fb]l-Fjp6#<#F_`l0Fc]l
-Fjp6#<#Figl2Fc]lFb]l0-Fj^s6$Fdc_lFhc_lFhc_l-Faz6$F`\l%Mthe~procedure~does~not~
apply~for~these~listsG>F\r-&%)combinatG6#%(permuteGF][l>FZFb]l@&/FZFc]l-Fa^mFe_
o2FZFcr-Fa^m6#7#FK-FC6'R6&F1Fb[lFc[lF[clFd[lF5F5-Fehl6$<#-Fj]l6$/&FJFfv&FKFfv/F
A;FNFMFFF5F5F5F\rFJFKFZ6#%aogenerates~all~permutations~of~the~operands~of~L2~th
at~are~member~of~L1GF5F5F5,
I8Riegeom/tools/permute/2RFa[lF[b_lF5F5C'@$Fi[lC%@$F\\lF]go-Fc\l6%Fe\lFf\l.7$Ff
]p-Fj\l6#Fc\p@$F_c_lF]d_l>FZFb]l@&Fhd_l-Fa^m6#-Fbd_lFd]lFjd_lF[e_l>F\rFad_l-FC6
'RFae_lFd[lF5F5-F_y6$-Fj]l6$/Fhe_l&FF6#Fie_lFje_lFFF5F5F5F\rFJFKFb]l6#%apgenera
tes~all~permutations~of~the~operands~of~L2~specified~by~the~list~of~positions~L
1GF5F5F5,
I2Riegeom/goodindexR6$FbqF]do6$Fi]mFi]]lF3F5C%>FAFc`m@%Fb`r>FZ333Fg_r4-Fh_n6$FK
FJ4-FdfmF][l4Ff`r>FZFfh_l@%33FZ4-F_s6$FJ%0Riegeom/usedindG4-F_s6$FJ%5Riegeom/fo
rbiddenindGC%@$2%3Riegeom/maxusedindG-Fjp6#Fei_lC$>Fei_l-F]p6#-Fb_s6$RFaqF5Fgbn
F5/FJ-Ff_m6$Fei_lFNF5F5F5.<$FcfoFdfo-F[\u6$Fhj_lF`dl-F[\u6$Fhj_l<$-F]pF_j_lFJFf
^\lF]hqF5F_j_lF5F5,
I3Riegeom/tensornameR6$F]clFeioF5F3F5@)F_\nC%@$F`el>FKFb]lFidl@%-FW6$FjimFiv-F\
dp6&-Fe\l6#FjimFjit-F]pF_\`l%"]GFjimFa\n@%F`el-Fe\l6$FidlFK-Fe\lFhhxFg_rC$@$F`e
l>FKF`wFJ-Faz6$%Dcannot~find~the~name~of~the~tensor~GFJF5F5F5F5,
I$offRFaq6#%*SwitchSetGF3F5C%>FA.<.F[gpFcfpFaepFehpFiaoFfipFgboF\hpFjep%,Codiff
IndexG%+DifftAliasG%0RenameSummedIndG@34-F_sFj\q-Faz6$%Pthe~argument~must~be~on
e~of~the~following~name:GFA-F_s6$FJ.<$FehpF\hpC'>F\[l-Ff_m6#%3Riegeom/printt_ol
dG>Fgbo-Ff_m6#%8Riegeom/printtensor_oldG>F`hpF_co>FihpF_co>FaipF9/FJ.FgboC&>F\[
lRF[\nF5F5F5C$-Fe^`lF][l-Ff_m6#-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF
5F5F5F[jmF5F5F5>FihpF9>F`hpF_co>FaipF_co/FJ.FiaoC&>Fdbo.Fdbo>FgboFg^`l>F\[lFc^`
l>FggpF_co/FJ.FaepC$-%2Riegeom/forgetallGF5>F]`oF_co/FJ.FfipC$Fj``l>F\]oF_co5/F
J.Fjep/FJ.Fe]`lC$>%+print/diffG.Fha`l>F^fpF_co/FJ.Ff]`lC$>%8Riegeom/rename_sumi
nd/1G%:Riegeom/rename_sumind/1_2G>%8Riegeom/rename_sumind/2GFei\l>(%)Riegeom/GF
JF_coFbyF561F\[lF]`oF_gpFfzF\]oFdboFgboFihpF`hpFaipFggpFha`lF^fpF_b`lFbb`lF5F5,
I8Riegeom/printtensor_oldRFaqF5F3F5C$Fcet-%3Riegeom/printt/recG6$F``mF_coF5F5F5
F5,
I0Riegeom/sum/sumR6%FhblFjem%*dimensionG6#%$dimGF3F5C$@%F`el>FAF]al>FAFF@%Fd`yF
J-Fe\l6%-%$sumG6$.Ff\r/&FKF^gmFf[\lFbayFAF5F5F5F5,
I9Riegeom/Vierbein_is_diagF_coF5,
I4Riegeom/defob_coordR6-%,IndexNumberG%+ObjectNameGF[alF\alF]al%-SymmetryNameG%
*CyclicSymG%+ObjectTypeG%*IndexTypeG%)FormulasG%-calc_FormulaG6'F]cl%&snameG%,i
ndfcn_symmG%,indfcn_calcG%#ssGF5F5C+@$Fi[lC$@$0F]\l"#6-Faz6$%<expecting~11~argu
ments,~gotGF]\l-Fc\l6%Fe\lFf\l7-.Fg^oFhamFhamFham.Fg]oFd_lFd_lFham.-Fj\l6#%.Rie
geom/-1..1G.-Fj\l6#F`jx.-Fj\l6#<$F_]lF`jx>F\r-%6Riegeom/mkindexingfcnG6#-F]p6#F
iis>F`rFby@$09.FL@)/-F]p6#Fcg`l.%,coordinatesG>F`r%7Riegeom/calc_in_coordsG/Ffg
`l.%(tetradsG>F`r%8Riegeom/calc_in_tetradsG/Ffg`lFK>F`r(((%.Riegeom/calc_GFK.%"
_GFJ-Faz6$%910th~argument~is~wrong:~GFcg`l>FA-FgdlFi^m-F[\u6$((F]joFA%&/symsG-F
`\qFe_o-F[\u6$FA-F`\q6%F\rF`r7#/F`w-F`\q6#7,/F`wFJ/FNFK/FcrFF/FhrFM/F`pF</FhpFi
is/FccoFafs/Fdco9+/Feco9,/Ffco9->Fii_l<$-F]p6#Fii_lFKFbyF5F][alF5F5,
I;index/Riegeom/[symm,[1,2]]RFhemFihq6#%MCopyright~1995~by~R.~Portugal~and~S.L.
~SautuGF5@%F\gm@%F`elF_gm>FffmF_[nC%>FAFeq>FZFf]n@'4-F\asF]dm@%F`el-Ff_m6#&FK6#
-F]p6#-F_y6%/FNFZ/FcrFAFJ>F^\alF_[nF`elF_gm>FffmF_[nF5F5F5F5,
I2Riegeom/mktennameR6$FeioF]clF5Fe[lF5C$@$Fi[lC$@$5F\^m2FhpF]\l-Faz6$%Aexpectin
g~2,3,4,5~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7#.6'Fg^oF_]lF_]lF_]lFg]o@*F`el((((
((((Fdb`lF[amFKF[amF[alF[amF\alF[amF]al/F]\lFhr((((&(F_^alFg\lFb[nF[amF\alF[amF
]alFgd]l((&(Ff^alFg\lFebuF[amF]al/F]\lFhp&(Fj^alFg\lF_elF5F5F5F5,
I7Riegeom/tools/min_listRFa]s6(F_glFb[lFc[lF-F.F[clFe[lF5C(@$Fi[lC%@$F]_lF^_l-F
c\l6%Fe\lFf\l.7#-Fb_m6#Ff]p@$Fdap-Faz6%F`\l%Bexpecting~lists~of~same~size,~gotG
FJ@$Fbcn-Fa^mF^`l>FjrFebp>F\rFdfl?(F`rFNFNFjrF9C&>FZ-Fc\v6%F]pF`rF\r>FA-FjgqFcf
l>F\r7#-Fj]l6$-F]pFcbq/Fer-FhcvF]dm@$/Fa_xFN%&breakGFfa[lF5F5F5F5,
I6type/tensorexpressionRFaq6*F'%,tensornamesGF]doFg]mF-Fe_q%$errG%&S_indG6%F\jp
F]jpFeh[lF5@%Fa_rC%@$0-FU6%FW-FC6$RFd[lF5FgbnF5FidlF5F5F5-F^ctFb\nFivF`dl-Faz6#
%<tensor~function~not~allowedG>FA-F\[u6#Ffgl@%0FAFc[u@%/-Fjfn6$-FdarF][l<#-F]p6
#FarF`dlC(>F\r-F^ctF`\n>F]w-FC6$F]pF\r@$-F_s6$F`wF]w@%F\]o-Faz6#%Ause~the~lette
r~O~instead~of~zeroG-Faz6#%Zzero~cannot~be~used~as~index~when~ZeroIndex~is~turn
ed~offG>FA-FE6#-FU6%FWF]wFi`s>FZ-FC6$RFd[lF5FgbnF5FidlF5F5F5F\r@%/-FjfnFhjoF`dl
C(>F`r-Fehl6$<#-Fj]l6$/F`aal-Fcfz6#-Fgfz6#(Ff`tFer/Fer;FNFa_xFJ?&FerFAF9@$-Fh_n
6$F`rFer-Faz6#(%Cvariable~and~index~have~same~name~GFer>FjrRF[\n6(F]clF\do%(ind
typeGF.F/F-F5F5C&>FAFidl@$-FW6$FAFiv-Faz6#%Tthe~name~of~a~tensor~cannot~be~and~
indexed~variableG>FZ-%7Riegeom/maketensornameG6$Fb]lFA@$F]eoC$>F\r&F_eoF_hv?(Fj
rFNFNFb]lF9C%>F`r-F]p6$FjrF\r>Fer*&F`rFN-F]p6$FjrFJFN@$3Fees0FgxFer-Faz6#(((%(t
ensor~G-FagrFifm%7~does~not~allow~index~G-Fagr6$*&F`rFNFerFNFhamF5F5F5>F]q-Fj]l
6$-F\[u6#-FjrFhx/FerF\r@$0<#F]qF`dlC$-F`dn6%FNFWF]q-Faz6#%:index~of~type~not~al
lowedGFf^\l-Faz6#%@tensor~and~index~have~same~nameGFfgn-Faz6#Fc[uF_coF5F5F5F5,
I7Riegeom/apply/antisymmRFiiqFcisF3F5@%Fd`yF[bzC%>FZFdjq>F\rFbay?(FAFMFNF]alF9-
Fe\l6(FhayF\rFFFc[rF<Fg\rF5F5F5F5,
I2Riegeom/g_is_diagF_coF5,
I4Riegeom/degree_symmR6$F1F[cl6&F0%)sym_nameG%%n_syGFbfqFe[lF5C$@$Fi[lC%@$F\\lF
^\l-Fc\l6%Fe\lFf\l.7$Fe_lFg]o@$Fjgo-Faz6%F`\l%Nexpecting~a~list~with~1~or~more~
elements,~gotGFJ@%FbcnC$>F`r&FJF5@'-FW6$F`rFham@)/F`rF=FN-F_s6$F`rF]`^l-%*facto
rialGFd]l/F`rFgoFeco-Faz6$%LRiegeom~INTERNAL~ERROR:~wrong~symmetry~nameGF`r-FW6
$F`rFielC%>FZ&F`rF^gm>F\r-FjpFaan@'/F\rFcr@'-F_s6$FZF]`^l-Fb]bl6#-Fjp6#&F`rFe[s
/FZFgoFeco-Faz6%F`jwFczF`r2FcrF\r-Fb]bl6#,&F\rFNFgqFN-Faz6%F`jw%<expecting~n_sy
>1,~got~n_sy=GF\r-Faz6%F`jw%Cexpecting~type~symbol~or~list,~gotGF`r-Fagr6$-FC6$
RFaqF5FgbnF5-Fd[bl6$FferT$F5F56$F[clFKFJFjenF5F5F5F5,
I6index/Riegeom/RiemannRFhem6$Fb[qFg_sFe[lF5C$@$Fi[lC$@$F\^mFg[qFj[q@'F\gm@%F`e
lF_gm>FffmF_[n5/FeqFf]n/Fh`q-F]p6$F`pFJ@%F`elF`w@%/F_[nF`w>FffmF`w-Faz6#%Vcanno
t~assign~non-zero~to~equal~antisymmetric~indicesGC$>FA-Fd_s6$F_`lFZ@'F`el*&FAFN
-Ff_m6#&FKFctFNFgfm-Faz6#%Hcannot~assign~to~non~numeric~componentsG>F\bbl*&FAFN
F_[nFNF5F5F5F5,
I2printhiddentensorRFaio6&FhblF]clFeioF\doFe[lF5C&>FAF``m>FZ-Fajo6$FAF^_o>F`rFg
dt@%-Fdfm6#Fd`o/F`rFfetC$-F]ep6#%,not~definedGFfetF5F5F5F5,
I2Riegeom/positionsR6$F-F16$F.Fe_qFe[lF5C%@$Fi[lC$@$F\\l-Faz6$Fa\lF]\l-Fc\l6%Fe
\lFf\l7#.6$Fc\p<$-Fb_mFif_lFhf_l>FZR6%F.F-F1F5F5F5@%/&FFF][lFKFJFbyF5F5F5-Fj]l6
$-FZ6%FAFJFK/FA;FNFc]lF5F5F5F5,
I2print/t*e*n*s*o*rRFaq6%%.printtensor_fGF[htF0F]_rF5C$>FARFaqF5F5F5C$@$F\]o@&F
]^o-Fa^m6#)-Fdhx6#F]joF\gxF_^o-Fa^m6#&F]fblF`gx@+Fbgx)F]fblT#Fdgx&F]fbl6#FdfblF
d[m)F]fblFJF^\m&F]fbl6#Fg\mFjgxF5F56$F0F\r@'F_\nC$>FZFa_o-Fagr6$7$FchxFbtFjen3F
a\n-FW6$FidlFivC$>FZ-FC6$FAF\ix-Fagr6$7%FaixFbt-F]fblF^`lFjenFJF5F5F5F5,
I%tmapRF\jx6*FhblF'FdioFeioF)F%F&FecyF3F5C$>FAFaam@1/FJ.FehpC&>F\[l-%"@G6$-Fghb
l6$Ff_mR6#%"yGF5F5F5-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F5F5FJF5F5
F5Fc^`l>F]w-F\hbl6$RFaqF5F5F5FJF5F5F5FK>F\[lFc^`lF]w/FJ.F\hpC&>F\[l-Fghbl6$-Fgh
bl6$-Fghbl6$F]epFf_mRF\iblF5F5F5-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJ
F5F5F5FJF5F5F5Fc^`l-F\hbl6$RFaqF5F5F5FJF5F5F5FK>F\[lFc^`lFbyF_``lC&>F\[lRFaqF5F
5F5-FiaoF][lF5F5F5-F\hbl6$RFaqF5F5F5FJF5F5F5FK>F\[lFc^`lFby/FJ.F^aoC&>F\[lRFaqF
5F5F5C$-Ff_m6#-Fehl6$FcboFc_`lFhboF5F5F5-F\hbl6$RFaqF5F5F5FJF5F5F5FK>F\[lFc^`lF
by-FW6$FAFhalC*>FZ-F]p6$FhrF_fn>F\r-Fajo6$FAF`r@%33-Fdfm6#&-FgdlF`dtF^el/F_bmF`
r-FW6$FZ.Feb_l>Fer&Fb]clF_el>FerF=Fg[y@%Fi[yF_\yFJ-Fe\y6#-Fjim6$FAFj^m@$Fjt-Fa^
m6#-F\[l6#-Ff_mF\cn-F"6'&%*componentGFcflFjimFZF_coFer-FW6$FAFd_rC(>FZFh\clFg[y
@%Fi[yF_\yFJF\^cl@$FjtFa^cl-F"6'Fh^clFjimFZF_coF=-FW6$FA/FhalFd_rC->Fjr-Fd]yFfv
>F]q-Fg]yFfv>FZFb^y@$330<#Fbt<#-F]p6#-F]p6$Fhr-FgglF]h]lF_gpFfzFe^y>F\r-Fajo6$F
jrF`r@%F`]cl>FerFi]cl>FerF=Fg[y@%Fi[yF_\yFJ>F]q-Fe\y6#-Fjim6$F]qFj^m@$Fjt-Fa^m6
#-F\[l6#/Fjr-Ff_mF]h]l-F"6'FjrF]qFZF_coFer-Faz6%%)argumentGFK%Smust~be~type~ten
sor,~algebraic~or~tensor=algebraicGF56$F\[lFdboF5F5,
I3Riegeom/printt/recR6$FhblF[\[l6&F-Fajs%"qGF]\nF3F5@+F_\nC&>F\rFidl>FZ-F\[u6#&
F]elF^gm@$Ffam>F\rFZ@%334FKF\]o4F]`o-Fdbo6#-Fehl6$Fffn&FAF^`l-Fdbo6#-Fehl6$Fffn
&FA6#-F]p6#-F^jt6#FdflFa\nC$>F`rFidl@-5/F`r.F^]n/F`r.F\]n-F`r6#-F]p6#-FC6%Fe\lF
dflFK/F`rF_jl-F_jl6$-Fe\lFd_tFf]n/F`rFhhlFJ-FW6$F`rFivC$-Fe\lFe`z-Ff`n6#-F`anF[
ecl-Fh_n6$F`rFj`n--Ff`n6#-Fe\l6$F`anFKF[eclFjdcl-FW6$FJ<'F`hnFa_mFb_mFj\lFjenFe
]tF`jn@%3-FW6$FeqFhal0Ff]nFgq)-F]jo6#Fcecl-Fe\l6$Ff]nFKFe]tFJF5F5F5F5,
I5Riegeom/forbiddenind<)FdblFjjz%&GammaG%&gammaG%#PiGFe^lF0F5,
I7Riegeom/ind_with_sym/1RFgg\lFd[lFe[lF5C$@$Fi[lC$@$Fccl-Faz6%F`\l%Cexpecting~1
~or~more~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l.7#Fg_l@%Fcdl@'Fg_r@)Fi[zFby-F_s6$FJ
F]`^l-Fbhu6#;FNF]flFh]z6&FNFcrFhrF`p-Faz6$Ff]blFJF^gq-Fj]l6$Fev/FAF]ho-Faz6%F`j
wFd_blFJ-Fj]l6$-Fe\lFfv/FAFg\lF5F5F5F5,
I0Riegeom/sum_indRF[\nF5F5F5<#-%2Riegeom/sum_ind/1G6#-%'expandGF][lF5F5F5F5,
I0Riegeom/indicesRF[\n6'%(nameindG%)repeatedGF'%'numindGFi]mF]_rF5C.@$F_iy-Fa^m
6#7%FLFLFL>F\r7#-Fi[nF][l>FA-FU6%FWF\rFi`s>F`r-FU6%FWF\rFc]o>FerFc`m@$-Fdfm6#&&
FerF^elF]\o>F`r-Fehl6$Ff[dlF`r@$0,&F]^blFN-FjpFfvFNFa_x-Faz6#%4index~of~wrong~t
ypeG@$0-Fjp6#<#FevF^\dlC$-Fhz6#F[[l-Faz6#%Pwrong~choice~of~indices~in~the~expre
ssion~aboveG-FC6$RFaqF5F5F5FcarF5F5F5<#-F]p6#-Fagr6$FAF`hn>FZ-FU6%FW-Fehl6$F_[v
-Fehl6$F[jmFAFham-Fehl6$F_[v-Fehl6$-FC6$RFaqF5F5F5FcarF5F5F5F[jmFA7&FZ-FC6$FEF[
jmF[jmF`rF5F5F5F5,
I&clearRFaio6(FdioFeioF]clFh]uFhbl%+symmetriesGF3F5C1@$2FNF]\lC$-Fe\l6#&Fg\lF^g
m-Fa^m6#-Fe\l6#F\`m>FerF``m>FAFi`[l>F\rFgjo@$4-Fdfm6#F]el-Faz6#%Athis~tensor~ha
s~not~been~definedG>F`r-Ff_mFe_o>Fjr-F]p6#-FU6%FW7#-F]p6#Ffa[lFham-F[\u6$Fgjo-F
`\q6$Fjr7%/F`wF]el/6$F`wFN&F\rF`adl/6$F`wFcr&F\rFcadl@$-Fdfm6#&F`rFehm>&F\rFehm
Fhadl@$-Fdfm6#&F`rFdgm>&F\rFdgmF^bdl@$-Fdfm6#&F`r6%F`wF`wFN>&F\rFebdlFdbdl@$-Fd
fm6#&F`r6%F`wF`wFcr>&F\rF\cdlF[cdl@$-Fdfm6#&F`r6%F`wF`wFhr>&F\rFccdlFbcdlFcetFb
yF5F5F5F5,
I<Riegeom/nf/*/recov_merged_TR6&Fh]uFh_uF`_uFa_u6(F-FajsF[clF\doF]clFb[qFe[lF5C
(@$Fi[lC$@$0F]\lF`p-Faz6%F`\l%;expecting~4~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7$
.<$-%#&*G6$FgqF\dlF\dl.6%-Fj\l6#F_]lF\edlFf]p>Fer-Fa\x6$FJFggr>FZ-F_^l6$-F]p6$F
`wFerFK>F`r-F]p6$FZFF>F\r-F]p6$FZFM6$Fjr-Fj]l6$&F`r6#-F]p6$;,&*&F\rFNFAFNFNFNFN
*&F\rFNFc[rFNFer/FA;F`w,&*&-FjpFhxFNF\rFgqFNFgqFNF5F5F5F5,
I=Riegeom/symm_inproc/antisymmR6%F+F,F]cl6(%)ind1_ordG%)ind2_ordGF-%#n1GFb[q%&i
nd2LGFe[lF5C$@$Fi[lC%@$2F]\lFhr-Faz6%F`\l%Cexpecting~3~or~more~arguments,~gotGF
]\l-Fc\l6%Fe\lFf\l7#.6%Ff]pF\apF_\q@$30F_d`lF`wFj]p-Faz6$F`\l%Pnumber~of~indice
s~less~than~prescribed~symmetryG@%/F_d`lF`w@%Fb^al-Ff_m6#&FFFh_^l>F\idl-F]p6#&F
g\lFebuC&>F`rFb]l@%/F`rFc]lC%>FjrFK>FZ-FibpFd]l>Fer-Fi\q6$FKFZC&>Fjr-FC6%F]pFJF
K>FA-FibpFjx>Fer-Fi\q6$FAFjr>FZ-F_y6$-Fj]l6$/-F]p6$F\rFJ-F]p6$F\rFA/F\r;FNFb]lF
K@$0-Fjfn6$<#-F]p6#-FU6%FWFjrFd]q-FE6#<#-F]p6#-FU6%FWFjrF]^qF`dl>FerF`w@%Fb^al@
%/FerF`wF`w*&FerFN-Ff_m6#&FFFcflFN@%3Fd\el0F^idlF`wF[_q>Fh\el*&FerFN-F]p6#&Fg\l
6#;F`pF]\lFNF5F5F5F5,
I<index/Riegeom/calc_D2MetricRFhem6(F-F.F/F0FbqFdblF`[alF5@%F`el@%Fj_qF_gmC)>FA
Feq>FZFf]n>F\rFh`q>F`rF[abl>FjrFgcq>FerFc`m@%Fj[al>Fffm-F^]n6$&FjrF\eq&Fer6#,$F
`rFgq>Fffm-F^]n6$&Fjr6%FZFAF\rFd^el>FffmF_[nF5F5F5F5,
I3Riegeom/nf/def3b/1RFa[l6$F1F_glFe[lF5C$@$Fi[lC$@$F\\lF]go-Fc\l6%Fe\lFf\l7#.6$
FggoFego@%FgeyFKC%>FA-Fc\v6%RFa[lF5FgbnF5-FC6%F_^lFJFKF5F5F5FJFK>FZ-F`a_lFe\dl-
FC6%F]p7#-FhcvFhjoFKF5F5F5F5,
I7index/Riegeom/calc_R_2FebyF5,
I*sharename%;C:\R-5_share\windows\shareGF5,
I7index/Riegeom/calc_R_4Fg`lF5,
I(canformFj`]lF5,
I2Riegeom/DiffAliasF_coF5,
I5Riegeom/for/antisymmRFidsFcisF3F5@%F]esF_fsC%>FZFefs>F\rFhfs?(FAFiisFNF]alF9-
Fe\l6(F^gsF\rFMF<Fc[rFafsF5F5F5F5,
I&evaltRFf[[l6)FhblFeioF'FdioF%F&F)F3F5C$>FAF``m@)Fd\clC)>F`rF^][l>F\rFh\cl@%33
-Fdfm6#&F`][lF^el/Fa_xFZ-FW6$F\rFg]cl>F]q&FdbelF_el>F]qF=Fcet-Fe\yFfv@$FgczFa^c
l-F"6'FAFjimF\rF_coF]qFj^clC'>F\rFh\clFcetF[cel@$FgczFa^cl-F"6'&Fi^clFh`dlFjimF
\rF_coF=Fb_clC+>FerFg_cl>FjrFi_cl>F`rFi`[l>F\r-F]p6$FhrFi]y@$3F_gpFda[l@%F`el@$
0FKFg\[l-Faz6#%:2nd~argument~must~be~noivGC$F_^[lFha[l@%Fbbel>F]qFibel>F]qF=Fce
t6$-Fe\yFhxF`b[l-F"6&FjimF\rF_coF]q-Faz6#%Pargument~must~be~a~tensor~or~a~tenso
r~equation~GF56#F>F5F5,
IGRiegeom/symm_inproc/antisymm_in_blocksR6%F[clF'F]clF5F5F5-Faz6#%WNOT~IMPLEMEN
TED~Riegeom/symm_inproc/antisymm_in_blocksGF5F5F5F5,
I2Riegeom/hastensorR6$FhblF]cl6%FdioFeioF-F3F5C&>FA-FajoF[jdl@$4-Fh_nFj\q-Fa^m6
#F_co?&F\r-F^ct6$FJFhalF9@$-%.Riegeom/equalGFb`z-Fa^m6#F9F_coF5F5F5F5,
I)applysymRFbg[l6$Fe_qFhblFe[lF5C&@$F]_lFbdo>FZF``m@$4-FW6$FZFjg[lF[h[l-F\[l6#-
Fehl6$-FC6$RFaqF5FgbnF5/FJF^b]lF5F5F5-F^ct6$FZFgdoFZF5F5F5F5,
I9Riegeom/symm_inproc/symmRF^gdl6&F`gdlFagdlF-FbgdlFe[lF5C$@$Fi[lC%@$FhgdlFigdl
F\hdl@$FbhdlFdhdl@%Fhhdl@%Fb^alFjhdl>F\idlF^idlC%>F`rFb]l@%Fdidl>FZFhidlC$>FA-F
ibp6#F^jdl>FZ-F_y6$-Fj]l6$Fjjdl/F\rF_\sFK@%Fb^alFf\el>Fh\elF^]elF5F5F5F5,
I5Riegeom/seq/antisymmRFb`yFcisF3F5@%Fd`yF[ayC%>FZFdjq>F\rFbay-Fj]l6$-Fe\l6'Fha
yF\rFFFc[rF</FA;FMF]alF5F5F5F5,
I0Riegeom/permuteR6%'F0Fj\lFbq'%'resultGFa\p6+F]do%#nlG%#f1G%#f2G%%roddG%&reven
G%*oddresultG%+evenresultGF^jqFe[lF5C$>FZFb]l@'Fjd_l-Faz6#%F1st~arg~must~have~a
t~least~2~elementsG/FZFcr@'/FK.%$oddGC$@$Fb^al>FFFfer7#7$F`[]lF]gm/FK.%%evenGC$
@$Fb^al>FFFa\flFfer-Faz6#%E2nd~arg~must~be~the~name~odd~or~evenGC+>F\rR6%F0F\[f
lF^jqFd[lF5F5-Fj]l6$7%-F]p6$;FN,$FAFcrFJFF-F]p6$;,&FAFcrFNFN,&FKFNFgqFNFJ/FA;F`
w-%%iquoG6$F[^flFcrF5F5F5>F`rRF_]flFd[lF5F5-Fj]l6$7%-F]p6$;FNFj]flFJFF-F]p6$;,&
FAFcrFcrFNF[^flFJ/FA;F`w-F_^fl6$,&FKFNF[jvFNFcrF5F5F5>F][rF]gm>FA-F_y6$FjfsFJ>F
er-Fe\l6$FAF\\fl>Fjr-Fe\l6$FAFd\fl>F]q7$-F]p6#-FC6&F\rFerFZF][r-F]p6#-FC6&F`rFj
rFZF][r>F]w7$-F]p6#-FC6&F\rFjrFZF][r-F]p6#-FC6&F`rFerFZF][r@'F[\flC$@$Fb^al>FFF
]wF]qFc\flC$@$Fb^al>FFF]qF]w%%FAILGF5F5F5F5,
I;Riegeom/nf/relabel_class_AR6'FbqFhdy%'fp_siiGFf`tFb_]lFi\\lFe[lF5C%@$Fi[lC$@$
F\`sF]`s-Fc\l6%Fe\lFf\l.7'FggoFggoFg^oFg^oFg^o>F\r-F_[l6$FKFd]r-Fehl6%<#-Fj]l6$
/,$&F\rFctFgq,(FZFNFFFNF<FN/FZF[f_l<#-Fj]l6$/F^cfl,&FZFNFFFNF`cflFJF5F5F5F5,
I,Riegeom/absRFaqF5F3F5@+-FW6$FJ<#.6$Fj\lFb_m-FC6$Fe\lFJ-FW6$FJ<$FhamF^f`lFJ-FW
6$Fg\mFbdflFg\mFcar@%F\]oFadalFddal-Faz6#%1wrong~index~typeGF5F5F5F5,
I(simptenR6#'%&expr_GFd_r6/F-FhblFf]m%&expr2G%)sum_ind1G%(expr1_1GFc]sF]doFd]s%
#S3G%)sum_ind2GFbgdl%#n2GF5F5C->FZF``m>F\r-F]jcl6#-%&numerGFct>F`r-F]jcl6#-%&de
nomGFct>Fer-FficlFe_o>Fjr-Fj`]lFe_o@$-Fh_n6$FjrFf`lC&-F^ct6$FjrFgdo-FU6%Fh_nF[j
mFf`l>F]q-FU6$RFaqF5FgbnF5/Fb]lF`pF5F5F5F[jm@$0F]qF`dlC$@'-FW6$Fjr<$F`hnFbjn>F]
w-FU6%Fh_n<#FfhzF]q-FW6$FjrFjen>F]w<#Fjr>F]wF`dl@$0F]wF`dlC&>F][r-FC6$RFicoF5Fg
bnF5/FJ-Fjeo6$FJFcalF5F5F5F]q>Fg[s-FC6$Fj`]l-FehlFdgz>Fjr-%)simplifyG6$Fjr-FC6$
RFaqF5FgbnF5FcarF5F5F5Fg[s>Fjr-Fj`]lFjx>Feir-FficlFjx>F]jrF[gdl>FcdrFcjr@$2F]jr
Fcdr>Fer<$-Fj]l6$(%#_kGFA/FA;FN,&FcdrFNF]jrFgqF[]s-F\[l6#*&-Fehl6$<#-Fj]l6$/&Fe
irFfv&FerFfv/FA;FNFcdrFjrFNF`rFgqF5F5F5F5,
I6Riegeom/mkindexingfcnRFgg\l6&F`e`lFh[blF1F[clFe[lF5C$@$Fi[lF^hcl@'F_iy-Faz6#%
;wrong~number~of~symmetriesGFcdl@)Fi[zFbyFg_rC$@$4-Fdfm6#(%/index/Riegeom/GFJ-F
az6$%?Cannot~find~indexing~function~GFd\glFdb`lF^gqC$@$4-F_s6$FA.<$%-[symm,[2,3
]]G%-[symm,[1,2]]GC'>FAF`ial>FZF]gm>F\rF]ho>F`rFa_x@'/F`rFN>(Fe\glFA-Fehl6%/.F-
&F\rF5/.Fe_q(%5Riegeom/symm_inproc/GFZRF5F5F5F5-Fe_q6$F-Fg\lF5F5F52FNF`r>Fj]gl-
Fehl6%/.F[auF\r/Fa^gl(Fb^gl.%+_in_blocksGRF5F5F5F5-Fe_q6$F[auFg\lF5F5F5-Faz6#%>
INTERNAL~ERROR:~expecting~n>0G(Feb`lFA-Faz6$%Fexpection~type~symbol~or~indexed,
~gotGFJ-F]p6#-FC6$Fe\lFf\lF5F5F5F5,
I;Riegeom/nf/relabel_class_CR6&FbqFc^]l%&fp_bpGFf]u6&F-%#CpGFf^]l%#CmGFe[lF5C'@
$Fi[lC$@$F^ddlF]`s-Fc\l6%Fe\lFf\l.7&FggoFggoFg^oFg^o>FZ-FU6%F_sFKFJ>F\rF_bm>F`r
-FU6%F_sFK-FC6$RF\iblF5FgbnF5Fg\mF5F5F5FJ-Fehl6%<#-Fj]l6$/&FZFfv,&FAFNFFFNFgdp<
#-Fj]l6$/Fcdp,*FAFgqFFFgqF\rFgqFMFgq/FA;FNF]^blFJF5F5F5F5,
I;Riegeom/Vierbein_is_activeF_coF5,
I&acompR6#'Ff]mF`]y6(FhblFdioFeioF%F&F]clF3F5C,@$F\_dlC$-Fe\lF][lFa_dl>FAF``m>F
`rF]r>FerFar@&4-FW6$-F]p6$F`pFbdt-Fj\lF_\t-Faz6#%Tthe~tensor~in~lhs~must~have~i
ndices~of~numeric~typeG0-Fjp6#-F]p6$FcrFi]yF`w-Faz6#%=rhs~cannot~have~free~indi
cesG>FZF_dt>FjrFgdt@$4-Fdfm6#F\\oF`[y-F[\u6#-Fehl6$/FZFjr/F\etFidelFcetF5F5F5F5,
I6Riegeom/simp_function%'normalGF5,
I7Riegeom/Latin_Alphabet<;%"KG%"EG%"GG%"HG%"MG%"ZG%"JGFj`u%"QG%"UG%"VG%"WGF]clF
%F^^oF&F1FeioFe^lF]brF[an*$FgqFjhnF]doFi]mFe_qF5,
I5Riegeom/apply/nosymmR6(F%F+F,FjiqF[jqFe_qFcisF3F5@%Fd`y@%F]es-Fiis6$FJ&Fg\l6#
;FdcoF]\lF[bzC%>FZFdjq>F\rFbay?(FAFNFNF]alF9-Fe\l6(FhayF\rFFFNF<Fg\rF5F^[lF5F5,
I7Riegeom/symmetrize/indR6$F+F'6$F[clF-F5F5C$@$Fi[lC$@$F\\lF`iy-Fc\l6%Fe\lFf\l7
#.6$FggoFggo@'-FW6$FJ-Fj\l6#Fd]qFJ-FW6$FJ-Fj\l6#F^f`lC%>FAFc]l?&FZFJF9@$F`aq-Fa
z6#%cpa~number~referred~in~the~symmetry~is~bigger~then~the~number~of~indices~of
~first~argumentGF^jdl-Faz6#%Xcoundn't~recognize~the~indices~involved~in~the~sym
metryGF5F5F5F5,
I;index/Riegeom/calc_RiemannRFhem60F-F.F/F0F_glFjemFaemFbgclFjjz%%sindGF^fmFe^l
%(freeindGFb[qFf_qF5@%F`el@'554%=Riegeom/AutomaticCalculationGFcfmF\gmF_gmFgfmC
%>Fg[s-Fjfn6$<#-F]p6#-FU6%FWFJFd]q-FE6#<#-F]p6#-FU6%FWFJF]^q>Feir-FjpFbgz@)Ffg]
lF_gm/FeirFNC&>FA-F]pFbgz>Fcdr-F]p6#-Fehl6%F`hmF_[vFJ@%/,&-F^`bl6$7%FAFcdr,$FAF
gqF]jrFN&F]jrF^`lFgqF`w>FgfrFN>FgfrFgq*(FgfrFN%*RicciSignGFN&Fd^lFgbxFN/FeirFcr
,$*&Fd\hlFN&Fh[nF5FNFgqFazC)>F]qF]`q>FAFeq>FZFf]n>F\rFh`q>F`rF[abl@+-FW6$F`rFX@
%F^aq>Fjr*&&F]q6$F`rF`rFN-Fe\l6$7&FAFZF\rFf^elFKFN>Fjr-F]]m6$*&&F]qFefalFN-Fe\l
6$7&FAFZF\rFgbqFKFN/Fer-Fj]l6$-F^em6%F]qFerF`rF\cqF[aq@%F^aq@%2F\rFf^el>Fjr*&Fc
aqFN-Fe\l6$7&FAFZFf_nF`rFKFN>Fjr,$*&FcaqFN-Fe\l6$7&FAFZF`rFf_nFKFNFgqC$>FjrF`w?
(FerFNFNF]alF9@$0FerFf^el@$0&F]q6$F\rFerF`w@%2FerFf^el>Fjr,&FjrFN*&F]`hlFN-Fe\l
6$7&FAFZFgbqF`rFKFNFN>Fjr,&FjrFN*&F]`hlFN-Fe\l6$7&FAFZF`rFgbqFKFNFgqF_^\l@%F^aq
>Fjr*&&F]q6$FZFZFN-Fe\l6$7&FAFgjlF\rF`rFKFN>Fjr-F]]m6$*&&F]q6$FZFerFN-Fe\l6$7&F
AFgbqF\rF`rFKFN/Fer-Fj]l6$-F^em6%F]qFerFZF\cqFb^\l@%F^aq@%2FAFgjl>Fjr*&&F]q6$FA
FAFN-Fe\l6$7&F_\hlFZF\rF`rFKFN>Fjr,$*&FhbhlFN-Fe\l6$7&FZF_\hlF\rF`rFKFNFgqC$>Fj
rF`w?(FerFNFNF]alF9@$0FerFgjl@$0&F]qFhgmF`w@%2FerFgjl>Fjr,&FjrFN*&FjchlFN-Fe\l6
$7&FgbqFZF\rF`rFKFNFN>Fjr,&FjrFN*&FjchlFN-Fe\l6$7&FZFgbqF\rF`rFKFNFgqC%>F]w-Fgd
l6$FhrF_hl>F][r-Fgdl6$F`pF`[[l>Fjr*&%,RiemannSignGFN,,&F][r6&FAF\rF`rFZFjhn&F][
r6&FZF\rFAF`rF]eq&F][r6&FAF`rFZF\rF]eq&F][r6&FZF`rFAF\rFjhn-F]]m6$,&*&&F]w6%Fgb
qFAF\rFN&F]w6%FerFZF`rFNFN*&&F]w6%FgbqFAF`rFN&F]w6%FerFZF\rFNFgqF\cqFNFN>Fffm-F
hhmFjx>FffmF_[nF5F5F5F5,
I5Riegeom/nf/class_ABCR6&F'F_`uFhdyFibl6,F-F]]r%#BpGFd`glF^]r%#BmGFe`gl%%p_ipG%
%p_imGF]brFe[lF5C/@$Fi[lC$@$F^ddlF_ddl-Fc\l6%Fe\lFf\l.7&Fggo-Fb_mFhgoFggoFe_l>F
ZFby>F\rFby>F`rFby>FerFby>FjrFby>F]qFby?&FAFFF9@)3Ff[v-F_s6$F_\hlFK>FZFhjoFf[vC
$>F][r-F_^l6$F_\hlFJ@%-F_s6$Ff^\l-FC6%F_fqFMF][r>F`r6$F`rFAC$>F]wFg]r@'2F]wF][r
>F\rF^[el2F][rF]w>Fjr6$FjrFA-Faz6#%BRiegeom~INTERNAL~ERROR:~p_ip=p_imGFfhhlC$>F
][rFg]r@%F^ihl>F]q6$F]qF_\hlC$>F]wF[ihl@'Fgihl>F\r6$F\rF_\hlFiihl>Fjr6$FjrF_\hl
F\jhl-Faz6$F`jw%Hexpecting~i~or~-i~member~of~set_sym_indG>FZ7#FZ>F\r-F_[l6$F`_n
7#-Fj]l6$F[ihlFffn>Fjr-F_[l6$7#Fjr7#-Fj]l6$F[ihl/FAFjr>Fg[s-FE6#-FU6%F_sFJ-FC6$
RFaqF5FgbnF5Fg\mF5F5F5<$F`rF]q7(FZF\rFjr7#F`rFbizFg[sF5F5F5F5,
I3index/Riegeom/symmRFhemF5Fe[lF5C$@$Fi[lC$@$F\^mFg[qFj[q@%F\gm@%F`elF_gm>FffmF
_[n@%F`el-Ff_m6#&FK6#-F]p6#Ff\q>Fe]ilF`_qF5F5F5F5,
I5Riegeom/Riemann1/recR6'FaemF-F.F/F06$F_glFbgclF5F5@+-FW6$F<FXC$>FA-Fbil6#F`iq
*&&FJ6$F<FAFN-Fe\l6'FJFKFFFMF_\hlFN-FW6$FMFXC$>FAFc^il*&&FJ6$FMFAFN-Fe\l6'FJFKF
FF_\hlF<FNFabsC$>FAFc^il*&&FJ6$FFFAFN-Fe\l6'FJFKF_\hlFMF<FNFjbsC$>FAFc^il*&&FJ6
$FKFAFN-Fe\l6'FJF_\hlFFFMF<FNC%>FZF[ehl>FAFc^il*&FbehlFN,.-Fbhl6%&FJF\ds&Fi]m6#
,$F<Fgq&Fi]m6#Fj[mFjhn-Fbhl6%&FJFdas&Fi]m6#Fi[mFi`ilF]eq-Fbhl6%&FJ6$FKF<F\ail&F
i]m6#FbasF]eq-Fbhl6%&FJ6$FFF<FaailFgailFjhn*&&FZ6%F_\hlFKFMFN&FZ6%FAFFF<FNFN*&&
FZ6%F_\hlFKF<FN&FZ6%FAFFFMFNFgqFNF5F5F5F5,
I0Riegeom/usedindFcfoF5,
I5Riegeom/iv_is_activeF_coF5,
I.context/cfgetR6$'Fbq<$-Fj\l6#%'stringGF`cil'F]iblFd\n6$%'valuesG%(OptionsG6#F
jfyF5C&@$F_drC$>FAFe]t-Fa^mFg^q>FZ-FU6%FWFhc_l/F`cilFc\p>FA-Fehl6$FZFJ@%F`fn-Fa
^m6#Fgafl-Fa^mFfvF5F5F56",
I/Riegeom/emergeRF[\n6$FaemFi]mF3F5@'F]`oC%>FZFc`m>FARFaqF5F5F5@%Faar&&&FdfblF^
el6#"#`F][lFJF5F56$Fi]mFZ-FCF^hmF\]oC$>FARFaqF5F5F5@%Fa]o@+FbgxF^^oFdgxF`^oFe]o
F\^oFi]oFh]oFJFJF5F5F5FfeilFJF5F5F5F5,
I:Riegeom/remove_repetitionR6#'F1Fj\l6&Fc]sFb[lFb_uF-F3F5C$>FAFdc_l@%/F^\dlFb]l
FJC%>FZ7#-Fbhu6$..FbyFb]l?&F`rFAF9C$-F_s6%F`rFJF^_o>FZ-F_y6$/F\rF`rFZ-Ff_mFctF5
F5F5F5,
I%initRF5F5Fe[lF5C?@$55-FdfmF_eel-Fdfm6#FQ-Fdfm6#F_o-Faz6#%enThe~variables~nosy
mm,~symm~and~antisymm~must~be~unassignedG-%(protectG6#.6%F>FQF_o>FjjlFbgcl>F[al
Fi]m>F[jlF`dl>FhhmFcegl>FfzF9>F\]oF_co>F]`oF_co>F_gpF9>FihpF_co>F`hpF_co>FaipF9
>FggpF_co>F^fpF_co>%4Riegeom/x_is_activeGF_co>F\hlF_co>%6Riegeom/eta_is_activeG
F_co>F^aqF_co>F`ctF_co>F`d`lF_co>FfiilF_co>F\hlF_co>FiiilF_co>F\ilF_co>FhbzF_co
>FhbilF_co>%/Riegeom/detetaG.FdjilFbyF56:F]alFjjlF[alF[jlFhhmFfzF\]oF]`oF_gpFih
pF`hpFaipFggpF^fpFfiilF\hlFiiilF^aqF`ctF`d`lF\ilFhbzFhbilFdjilF5F5,
I6Riegeom/3/Gamma/X/g/2=6$%7Riegeom/[symm,~[2,~3]]G%5Riegeom/calc_Gamma_3GF_coE
\[l"F`w=F5F_coE\[l+FhrFaemFccoFLFdcoF]hsFecoF^hsF`wFhrFfcoF_hsFNFbgclF`pFcrFhpF
jgsFcrFi]mF5,
I7Riegeom/defob_D1MetricRF5F5F5F5-Fi`l6-FhrFcblF[alF\alF]alFhbyFLFa[[l7%F`wF`wF
gq7#%2Riegeom/D1Metric1G7#FcblF5F5F5F5,
I7Riegeom/2/R/X/g/2/syms=FajzF_coE\[l!F5,
I+Riegeom/swR6#F[\[lF5F5F5@%FJ%#onGF\]`lF5F5F5F5,
I;Riegeom/3/Gamma/X/g/2/syms=FjjilF_coE\[l!F5,
I2Riegeom/ZeroIndexF_coF5,
I6Riegeom/eta_is_activeF_coF5,
I,type/tensorRFaqF5F\balF535F_\nFagbl-FW6$FJFjg[lF5F5F5F5,
I*RicciSignFNF5,
I+MetricNameFaemF5,
I3Riegeom/maxusedind"#]F5,
I5Riegeom/codiff/numerR6$Ff]mF]do6(FajsF'F]czF-Ff`tFc]sFe[lF5C(>FZFdfl>F\r-FU6%
FWFZFc]o>FjrFby?&F`rF\rF9@%-F_s6%F`rFZFecwC$>Fer-Fcfz6#(FerFA@%Fa]hlC$>FZ-F_y6$
/FAFerFZ>Fjr6$Fjr/FerF`rC$>FZ-F_y6$/FAFgbqFZ>Fjr6$Fjr/FerFf^el-Faz6#%5implement
ation~errorG>FKF`hfl&FidlFcflF5F5F5F5,
I6Riegeom/AssumeTensorsF9F5,
I:Riegeom/rename_sumind/1_1R6%F-F'FjemFhbwF5F5@%3FccwF`cw@%Ffcw,$((FFFZFAFgq(F[
g\lFZ-Faz6&Fgeu%Fexpecting~i~and~-i~member~of~ind,~gotGFJFKF5F5F5F5,
I:Riegeom/rename_sumind/1_2RFj_jlFhbwF5F5@%F\`jl@%FfcwFg\mFJFb`jlF5F5F5F5,
I#onRFaqF^]`lF3F5C%>FAFb]`l@9Fh]`lFj]`lFiiblC'>F\[lRF[\nF5F5F5C$Fc_`l-F]ep6#-Ff
_m6#-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F5F5F[jmF5F5F5>Fgbo-Ff_m6#
F\[l>FihpF_co>F`hpF9>FaipF_coFbhblC'>F\[lRF[\nF5F5F5C$Fc_`l-Ff_m6#-Fehl6%/FdboR
FaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F5F5F[jmF5F5F5>FgboF]bjl>FihpF9>F`hpF_co>Fa
ipF_coF]_`lC(>F\[lFc^`l>FgboFg^`l>FdboFc``l>FihpF_co>F`hpF_co>FaipF9F_``lC&>Fdb
o-Ff_m6#Febo>FgboRFaqF5F5F5C$-Fi^`lF][lFhboF5F5F5>F\[lRFaqF5F5F5C$Fc_`lFhboF5F5
F5>FggpF9Fg``lC%@$4/FfiilF9-Faz6#%FThe~coordinates~have~not~been~definedGFj``l>
F]`oF9F]a`lC$Fj``l>F\]oF9Fba`lC$>Fha`l-Ff_m6#%4Riegeom/print/diff1G>F^fpF9Fda`l
>Fha`l-Ff_m6#%4Riegeom/print/diff2G/FJ.Fd]`lC$-F]ep6#%\oWarning:~expressions~wi
th~wrong~type~of~indices~can~be~generated.G>%4Riegeom/CodiffIndexGF9F[b`lC$>F_b
`lFh_jl>Fbb`lFie\l>Fdb`lF9FbyF562F\[lF]`oF_gpFfzF\]oFdboFgboFihpF`hpFaipFggpFha
`lF^fpF_b`lFbb`lF`fjlF5F5,
I*newsumindRFbg[l6&F'Fe_qFhblF]doFe[lF5C)@$F]_lFbdo>F\rF``m@$4-FW6$F\rFjg[lF[h[
l>F`r-%3Riegeom/alltensorsGFe_o>FA-FE6#-FC6$F]pF`r>FZRFaqF5F5F5@%2Fhp-%'lengthG
F][l/FJ-Fbil6#-Fj^s6$Fdfbl-Fc\v6%F]pF`wT%FbyF5F56&F'FAF]doF`r-F\[l6#-Fehl6$-FCF
hjoF\rF5F5F5F5,
I,coordinatesRF56)FbqF-%+entercoordGF%%)coordsetG%.coord->numberG%.number->coor
dGF3F5C1@&4-FW6$Ff\l-Fj\l6#Fham-Faz6#%>The~coordinates~must~be~namesG-F_s6$F[al
<#Fg\l-Faz6#%TCoordinateName~and~one~of~the~coordinates~are~equalG>F]`oF_co@$45
-Fdfm6#F[al-FdfmFfv>F[alFi]m@$F_iyC&>F\rR6$F%F-6$F\htFajsF5F5C(>FZ((((%6enter~t
he~coordinate~GF[alFjit-F^jtFd]l%#]:G>FA-F\[u6#-F_[uFct@$/FAFby>FAF[\[m?(F5FNFN
F54-FW6$FAFhamC%-F]ep6#-F\dp6$%F***~enter~a~name~not~a~variable~type~G-%)whatty
peGFfv-F]epF^fbl>FAF[\[m?(F5FNFNF5/FAFc[uC$-F]epFfv>FAF[\[m>&FJFd]lFAF5F5F5>F`r
-F`cr6$F]cqFL?(FZFNFNF]alF9-F\r6$F`rFZ-Fa^m6#-Fe\l6#-Fj]l6$&F`rFct/FZF]cq@%/F]\
lF]alC%>FerF_jjl>Fjr<#-Fj]l6$/&Fg\lFctFZFc^[m>F]q-F`cr6$;,$F]alFgqF]al7%-Fj]l6$
,$&Fg\l6#,(F]alFNFNFNFZFgqFgqFc^[mF`wFg\l-Faz6#%Uthe~number~of~coordinates~must
~be~equal~to~DimensionG-Fi`l6-FNF[alF[alF\alF]alFd^pFL.%+coordinateG7#FNFLFL>FA
Fc`m-F[\u6$Fd`rFer-F[\u6$&F[_pF]\oFjr-F[\u6$&F[_pFceilFhacl?(FZFNFNF]alF9-F[\u6
$&FAFctF]_[m@$FfzC$-Fhz6#%5The~coordinates~are:G?(FZFNFNF]alF9-Fhz6#-F\[l6#/&(F
]joF[alFctF]_[m>FfiilF9-F^\jl6#Fh``lFbyF56%F]`oFfiilF[alF5F5,
I9index/Riegeom/calc_RicciRFhemFdiglFf_qF5@%F`el@'FiiglF_gmFgfm@%/F]gm,$F`[]lFg
qFi\hlF_gm-Faz6#%*NOT~IMPL.G>FffmF_[nF5F5F5F5,
I4Riegeom/3/d1g/X/g/2=6$Fajz%3Riegeom/calc_d1g_3GF_coE\[l"F`w=F5F_coE\[l+FhrFae
mFccoFLFdcoFfjzFecoFc[jlF`wFhrFfcoFd[jlFNFdblF`pFcrFhpFibyFcrFi]mF5,
I+savetensorR6$Fbio'%)filenameGF_]l6*FhblFdioFeioF]clFajsF\ht%)FilenameG%%pathG
F3F5C)>FA-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F5F5FJ>FZ-Fajo6$FAF\r
>F`rFgdt@$4F\cblF\`dl@%-Fdfm6#%4Riegeom/tensor_pathG>F]w((F]joF[e[mF\am>F]wF]jo
@'FcdlC&>Fer%<Enter~the~name~of~the~file:G>Fjr-F_[uFhx?(F5FNFNF54-FW6$FjrFhamC$
-F]ep6#%>The~filename~must~be~a~stringG>FjrFee[m>F]qFjrF`el>F]qFKF`iyB6$(((((((
((Feb`lF\rF[amFZF[amF[alF[amF\alF[amF]al((F]joF]wF]qF5Fjd[mF5F5,
I/CoordinateNameFi]mF5,
I7index/Riegeom/calc_g_2%:index/Riegeom/calc_MetricGF5,
I6Riegeom/tensortypeindR6$F\doFeioFicoF5F5C%@$Fi[lC$@$F\\lF`iy-Fc\l6%Fe\lFf\l7#
.6$F_]lFg^o>FA-FgdlFjh_l@'Fi^p-FC6$RFaqF5F5F5-Fejp6#FcarF5F5F5&F[_pFfhvFe]w7#-F
bhu6$Ff^\lFK7#-Fbhu6$F]hqFKF5F5F5F5,
I1Riegeom/positionRFecbl6#FajsFe[lF5C$@$Fi[lC$@$F\\lF[dblF]dbl@%FccwFAFbyF5F5F5
F5,
I0Riegeom/has_symR6$FhblFajs6%FjemF[clF]clFe[lF5C%@$Fi[lC$@$3FcclFdcl-Faz6%F`\l
%>expecting~1~or~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l7#.6$F\dlF_]l>FZFb]l@%Fjd_lF
_coC$>F\r-Fgdl6$FZFidl@%Fj_dlC%>FAF\el@$F`el>FKFA-Fejp6#0FAF=F_coF5F5F5F5,
I4type/constanttensorRFaqF5F]_rF53F_\nFh\jlF5F5F5F5,
I5Riegeom/Christoffel1RF[d[l6$FaemFdblF5F5C$>FZFgcq@%-FW6$FJ.%.contravariantGC$
>FAF]`q,$*&&FA6$FJFjeglFN,(&FZ6%FjeglFFFKFN&FZ6%FKFFFjeglFN&FZ6%FjeglFKFFFgqFNF
jhn,(&FZ6%FJFFFKFjhn&FZ6%FKFFFJFjhnFbd[lF]eqF5F5F5F5,
I+readtensorR6#Fec[m6#Fic[mF3F5C%@'F_iy-Faz6#%Hthe~argument~must~be~the~name~of
~a~fileG3Fid[m0F[e[mF]jo>FAF]e[m>FAF]joA(Fai`lFJFbyF5Fjd[mF5F5,
I8index/Riegeom/automaticRFhemF5F3F5C$@$F\gmC$@%F`elF_gm>FffmF_[n-Fa^mF_\`l@%F`
el@%334FcfmFbhm-FW6$FJ-Fj\l6#F[em>Fffm-Ff_mFihmF_gm>FffmF`_qF5F5F5F5,
I7Riegeom/Greek_Alphabet<:%$ChiG%#XiGFbgcl%%BetaG%(EpsilonG%%IotaG%&KappaG%'Lam
bdaG%(OmicronG%&SigmaG%(UpsilonG%&OmegaG%$EtaG%#MuG%#NuG%$RhoG%$TauG%$PhiG%&The
taG%&DeltaG%&AlphaGFdgcl%$PsiG%%ZetaGF5,
I7Riegeom/nf/sym_configsR6%F]clF]]rF^]r6'F\doF1F`]rFa]rFb[qFe[lF5C)@$Fi[lC$@$0F
]\lFhr-Faz6%F`\l%;expecting~3~arguments,~gotGF]\l-Fc\l6%Fe\lFf\l.7%FfddlFggoFgg
o@$32Fc]lFcr2FipFcr-Fa^m6#<#FJ>FA-Fa\x6$FJ.Fer>F\r-Fj\p6$-F^]x6#-FC6%F_^lFK7#Fe
vFA>F`r-Fj\p6$-F^]x6#-FC6%F_^lFFF_c\mFA>FZ-%2Rigeom/nf/configsG6%F`rFFFfer-FC6%
Fjen<#-F]p6#-Fic\m6%F\rFKFZFerF5F5F5F5,
I5index/Riegeom/calc_RFg`lF5,
I2Riegeom/symm_listRFgg\l6%F1Fb[lFc[lFe[lF5C'@$Fi[lC$@$F]_lF^_l-Fc\l6%Fe\lFf\l7
#.F[iy>FA7#-%4Riegeom/symm_list/1GF][l>F\r-FU6%Fh_nFA<#.6$Feal%+anticyclicG>FZ-
Fi^r6#-Fb_s6%F_sFAF\r@%3/FZFj_lFg\x7$FLF\r7$FZF\rF5F5F5F5,
I3Riegeom/allindicesRFheel6#Fi]]lFe[lF5C%>FAFical@$F`el>FK-FC6$RFaqF5FgbnF5Fidl
F5F5F5FA-FC6$F]pFAF5F5F5F5,
I5Riegeom/antisymm_indR6$F+F,6$F[clFjem6#%>Copyright~1995~by~R.~PortugalGF5C$>F
A&FbhsF^`l@%F`hmF`wC$>FZ&FbhsFh_^l@'FegnFN/FAFgjlFgq-Faz6$Faap%Yindices~expecte
d~to~be~either~covariant~or~contravariantGF5F5F5F5,
I8type/contravariantindexRFaqF5F]_rF5-FW6$FJF]]uF5F5F5F5,
I2Riegeom/TestArgs2F9F5,
I1Riegeom/TestArgsR6%%)PROCNAMEG%%ARGSG%&TYPESGFd[lF5F5C$?(FAFNFN-Fjgq6$Fc]lFip
F9@$4-FW6$-F]pF`^l-F]p6$FAFF-Faz6&((((%*ARGUMENT~GFA%4~OF~THE~~PROCEDURE~GF`ial
%.~IS~NOT~TYPE~GFei\m((%8~THE~VALUE~OF~ARGUMENT~GFA%&~IS:~GFie_lFbyF5F5F5F5,
I,printtensorRFaqF5F3F5C$FcetFjb`lF5F5F5F5,
I7Riegeom/sort_contra_coR6#F'F5Fe[lF5-Fc^lF][lF5F5F5F5,
I0ChristoffelNameFbgclF5,
I5Riegeom/merge_symm/1RFa]sFh^lFe[lF5C%@$Fi[lC$@$F]_lF^_lFi]s>FA-FC6$RFaqF5Fgbn
F5-F^]xFadclF5F5F57#-F]p6#-F_]sF][l-F_[l6$FA-Fc\v6%F]pFNFAF5F5F5F5,
I5Riegeom/tools/sort/1R6%FbqF1F]do6$FajsFjemFe[lF5C$@$Fi[lC$@$Fea\mFfa\m-Fc\l6%
Fe\lFf\l.7%Fi`s-Fj\l6#<%-Fb_mFi\]lF_^sFi`s-Fj\l6#<$F^]]mF_^s@%FccwFAC$>FZ-F]p6#
-FU6%R6$F]iblFbqF5FgbnF5-F_sFjh_lF5F5F5FFFJ@%-F_s6%FZFKFecwFA-Faz6&Fgeu%=expect
ing~s~member~of~L,~gotG/FbcwFZ/.FKFKF5F5F5F5,
I5Riegeom/tools/sort/2R6$F1Fb[lFd[lFe[lF5C$@$Fi[lC%@$F\\lF^\l-Fc\l6%Fe\lFf\l.7$
-Fj\l6#F^]lFh\]l@$Fj]p-Faz6&F`\l%Jmax(op(L))~>~nops(L1)~where~L~and~L1~are:GFJF
K@%FbcnFffm-Fj]l6$Fdi\mF`fnF5F5F5F5,
I/Riegeom/printtRFaqF5F3F5@%3Fg`y4-Fhfm6$Ff]nFiv/F_jnFf]n-F[c`l6$FJF9F5F5F5F5,
ICRiegeom/symm_inproc/symm_in_blocksR6%F1F'F]cl6'F-Fb[l%%n_L1GFa[qFc[lFe[lF5C$@
$Fi[lC$@$FhgdlFigdl-Fc\l6%Fe\lFf\l7#.6%-Fj\lF\`alF\apF_\q@%Fhhdl@%Fb^alFjhdl>F\
idlF^idlC)>FZ-FC6%R6$F1F'F5F5F5F^jdlF5F5F5FJFK>F\r-FC6$RFaqF5F5F5-Fjp6#-FU6%FWF
J.<$FinF[^oF5F5F5FZ>F`r-FC6$F]p7#-Fj]l6$-Fj_p6#-FC6%F]p7#-FhcvFdd[mFZ/FA-F^]x6#
7#-F]p6#Fea[l>FerF[cp>F`r-F_[lFefal>F`r-F_y6$-Fj]l6$/Fb[glFcdpFebglFK@%Fb^al-Ff
_m6#&FFF_an>Fcd]mF^]elF5F5F5F5,
I8Riegeom/summedindices/1RF[\nFd[lFe[lF5@'F_\n-F]p6#-F]p6$FNFfgl-FW6$FJ<&F`hnFc
\nFbjnFjen6$Fhd]m-Fj]l6$FdiclF`fnFbyF5F5F5F5,
I4Riegeom/symm_list/1RFgg\lFa[lFe[lF5C$@$Fi[lC$@$F]_lF^_lFjd\m@)Fg_r@%Fh]z.F`al
FJF_\n@%/FidlFgo@%Fagfl7$FgoFdfl-Faz6%F`jw%:expecting~nops(sy)=4,~gotGFJ7$-F]p6
#Fe\`lFdfl-FW6$FJ.%$andG6$F_jnFd]n-Faz6#%2not~expected~typeGF5F5F5F5,
I0with/getpackageR6$'F%<&-%)specfuncG6$Fc\p.FgaoF`\qFa\pF`jx'%)initprocGFa\p6/F
f`tF-%$idxG%$pkgG%$tblG%+local_initGF]jq%,DescriptionG%*ShareNameG%*ShareTypeG%
(AuthorsG%)nAuthorsG%-FunctionListG6%F]jpF\jpFjfyE\s#6$Fe^m%)initprocG=F5F_coE\
[lGFbbblFcbblFactFbctFehpRF[\nF5F3F5C$Fcet-Ff_m6#-Fehl6%/FdboRFaqF5F5F5FJF5F5F5
/F]joRFaqF5F5F5FJF5F5F5FJF5F5F5%)complistGRFf[[lFhaelF3F5C$>FAF``m@)Fd\clC'>F`r
F^][l>F\rFh\cl@%Fbbel>F]qFibel>F]qF=Fcet-F\[l6#7#-Fhb[l6%F[celF\rF]qFj^clC%>F\r
Fh\clFcet-F\[l6#7#-Fhb[l6%F[celF\rF=Fb_clC*>FerFg_cl>FjrFi_cl>F`rFi`[l>F\rFjcel
@$3Fda[lF_gp@%F`el@$F`delFadelC$F_^[lFha[l@%Fbbel>F]qFibel>F]qF=Fcet-F\[l6#7#-F
hb[l6%/FerF`b[lF\rF]q-Faz6#%inargument~must~be~a~tensor,~an~expression~or~a~ten
sor~equation~GF5F_eelF5%%sumtGRFbg[lF[\nF3F5C$>FAF``m@'Fj^clC$Fcet-F\[l6#-Ff_m6
#F[cel-FW6$FAFa_m-FC6$Fe\lFA-Faz6#%Nargument~must~be~an~expression~or~an~equati
onGF5F5F5%-dalembertianGRFbg[lF[\nFe[lF5C%@$F]_l-Faz6#(%;expecting~1~argument,~
got~GF]\l>FAF``m@$-FW6$-.Fa]^mFfvF^dm-%?Riegeom/dalembertian/algebraicGFfvF5F5F
5%*clearcompGRFaio6)%(newexprGF'FdioFeioFhblF[clF]clF3F5C-@$F\_dlC$F^_dlFa_dl>F
erF``m>F\r-Fajo6$FerF`r>F]qFc]cl>FZFjcel>FjrF_bm@$30FjrF`r0FjrF`w-Faz6%%6all~in
dices~of~tensorGFer%Jmust~be~type~numericindex~or~free~indicesG@$F\[yF\`dl>FA-F
ehl6$/F\rF]qF^b[l@%/FjrF`w-F[\uFibhl-F[\u6#-F]p6#-FC6$RF\iblF5F5F5/FeqFeqF5F5F5
7#-Fhb[l6%F`hmFZF[]yFcetF5F5F5FgboFej\mFjixF[jxFhbglFibglFjjoFg^dlFihlFieq%'met
ricGRF56*FaemF-F.F[clFjegl%%MinvG%+enterentryG%(historyGF`[alF5C-@$3Fcdl-FW6$Fg
\lFgdo-Fa^m6#-Fj`^m6#-F]p6#-Fci]mF^fq@$34FfiilFfzC$-F]ep6#%A***~first~define~th
e~coordinatesG-Fa^m6#Fby>FAF]`q-Fi`l6-FcrF\alF[alF\alF]alFhbyFLFgalF[cyFL7#F\al
>Fer-F`cr6&F]cqF]cq.%*symmetricG.%'sparseG@+F_iyC(>F]qR6&F%F-F.F_a^m6'F\htFajsF
]htF^htF_htF5F5C+>F\r-F]p6$FNFM>F`r-F]p6$FcrFM>Fer-F]p6$FhrFM>FZ-F\dp6)FiitF\al
FjitFi[mFcjtFj[mFijt>FA-F\[u6#-F_[u6&FZF\rF`rFer@$/FA.%%exitG-Faz6#%:interactiv
e~enter~abortedG?(F5FNFNF5F`][mC$Fb][m>FAFdd^m@$0FAFbyC&>FdemFA>F\rF`r>F`rFer>F
er7#FA7%F\rF`rFerF5F5F5>F]wFa[p-Fhz6#%<ENTRY~THE~DIAGONAL~ELEMENTSG?(FZFNFNF]al
F9C$>F]w-F]q6&FerFZFZF]w>&FA6$FgjlFgjl&FerFaahl-Fhz6#%@ENTRY~THE~NON~DIAGONAL~E
LEMENTSG?(FZFNFNFa[rF9?(F\rFcgwFNF]alF9C$>F]w-F]q6&FerFZF\rF]w>&FA6$FgjlFf_n&Fe
rFj^rFe^[mC$?(FZFNFNF]alF9>Fef^mF]_[m?(FZFNFNFa[rF9?(F\rFcgwFNF]alF9>Fbg^mF`w/F
]\l,$*&F]alFN,&F]alFNFNFNFNFjhnC$>F`rFN?(FZFNFNF]alF9?(F\rFZFNF]alF9C%>Fdg^m&Fg
\lFaan>Fbg^mFdg^m>F`r,&F`rFNFNFN/F]\l*$F]alFcr?(FZFNFNF]alF9?(F\rFNFNF]alF9C$>F
dg^m&Fg\l6#,&*&F]alFN,&FZFNFgqFNFNFNF\rFN>Fbg^mFdg^m-Faz6#%Dwrong~number~(or~ty
pe)~of~argumentsG@%/<#-Fj]l6$-Fj]l6$Fbg^m/F\r;FcgwF]al/FZ;FNFa[r<#F`wC$>F^aqF9>
%-Riegeom/detgG.Fgj^mC&>F^aqF_co>Fgj^m-&Ficr6#%$detGFhx>Fjr-%&evalmG6#*$FerFgq?
(FZFNFNF]alF9?(F\rFZFNF]alF9>&FAFj^r-Fhhm6#&FjrFj^r>F\hlF9>FiiilF_co@$FfzC&>FZF
bcw>F\rF^_o-Fhz6#%BThe~components~of~the~metric~are:G-Fi[p6#&F\alFcg^mFbyF56&Fg
j^mF^aqF\hlFiiilF5F\hblF]hblFffjlFgfjlF_ioF`ioFidflFjdflF^\jlFj`jl%(simpsumGRFb
g[l6$F1FhblFe[lF5C'@$F]_lFbdo>FZF``m@$FagelF[h[l>FA-%5Riegeom/simpsum/CRSIG6#7$
-F]jcl6#-Fa`mFctF`dl-Fa^m6#-F\[lF`gnF5F5F5FbhlFd]mFjfelF[gelFd[pRF\gel6&FdioFei
oF'F)F3F5C%@'-FW6$FKF\dlC$>FAF\fel>F\r-F]p6$Fhr-FgglFd]l-FW6$FKFd_clC%Fdjq>FA-F
ajo6$F[jmFZ>F\r-F]p6$Fhr-Fggl6#%#%%G-Faz6#%\othe~2nd~argument~must~be~type~cons
tanttensor~or~a~tensor~equationG@%Fdjo>F`r&FfjoF_el>F`rF=-Fe[z6%F`rF\rFg\lF5F5F
5Fig`lF]ijlFegilFfgilF`g[lFag[lFb]\mFc]\mFd[[lFe[[lF\]`lF]]`lFfaelFgaelF_foFghy
FidpFjdpF\hpRF[\nF5F3F5C$Fcet-F]ep6#F``mF5F5F5Fbc[mFcc[mFic[mR6$F[clFbq6#%&_pat
hGF3F5C$@)F_iyC%@%Fid[m-F]ep6#(%?path~to~save/read~tensors:~~~~GF[e[m-F]ep6#(F[
a_m%,current~dirG@%-Fdfm6#%4Riegeom/metric_pathG-F]ep6#(%?path~to~save/read~met
rics:~~~~GFca_m-F]ep6#(Fga_mF_a_m@%-Fdfm6#%6Riegeom/vierbein_pathG-F]ep6#(%?pat
h~to~save/read~vierbeins:~~GF^b_m-F]ep6#(Fbb_mF_a_mFcdlC%>F[e[mFJ>Fca_mFJ>F^b_m
FJF`el@%-F_s6$FK.<%FhalFj`^m%)vierbeinG>((Feb`lFKFAFJ-Faz6#%Y2nd~argument~must~
be~the~name~metric,~vierbein~or~tensorGF`iyFbyF56%F[e[mFca_mF^b_mF5Fi[pRFcct6(F
'FdioFeioF)FhblF]clF3F5C*>Fer-Fehl6%/FdboRFaqF5F5F5FJF5F5F5/F]joRFaqF5F5F5FJF5F
5F5FJ>FZFi^y>FjrFgdt>FAFi]y@%FjdglC$>F`r-F]p6#&F\\oF_el>Fer-Fehl6$F`eglF^b[lC$>
F`rF=>FerF^b[l@'F_etC$Fcet-Fa^m6#-F\[l6#/Fer-Ff_mFhx/-FjpFefnF\r-F"6'FerFge_mFf
rF_coF`r-Faz6#%Kprint~all~components~or~just~one~componentGFcetFbyF5F5F5F[iyF]f
[l%,cleartensorGRFaio6&FdioFeioF]clFhblF3F5C)@$F\_dlC$F^_dlFa_dl>F`rF``m>FA-Faj
oF[^[m>F\rFgjo-F[\u6$FgjoF\rFcetFbyF5F5F5%-definetensorGR6$Ff]mFjhy60FhblF'F%F&
FdioF2%&SYMM1G%&SYMM2GFeio%.verifyindicesGFd[[l%.automatic_fcnG%+ind_signalG%&S
YMM3GF3F5C)@&F_iyFcb^mF_dr@%4-FW6$Ff\l-Fj\l6#Fj\l-Faz6#%aoto~define~more~than~1
~tensor,~the~argument~must~be~a~sequence~of~listsGC$-Fe\l6#-F]pF__dlFa_dl>FAF``
m>Fg[sF_gp@-4-FW6$F]alFg^o-Faz6#%EDimension~must~be~a~positive~integerG2FhrF]\l
-Faz6$%Xthe~1st~argument~must~be~a~tensor~or~a~tensor~equation,G%Lthe~2nd~the~s
ymmetry~and~3rd~the~name~noiv.G3Fb^al0Fa[nFg\[l-Faz6#%en3rd~argument~must~be~th
e~name~noiv~(no~index~verification)G3F`elFf\[lC%>Fg[sF_co>F]qFby>F]wFj_lF\_dlC&
>F]wFijy>Fgfr-F]p6$FcrF]w>F]w-F]p6$FNF]w@$/F]wF`w-Faz6#%Athe~symmetries~cancel~
the~tensorGC$>F]qFby>F]wFj_l@'F`\[lC'>Fer-Fajo6$FAF][r>FZF_fn@&0F\^nFLC$F_^[l-F
az6#Ff[y0-Fjp6#F_[oF][rC$F_^[l-Faz6#%<cannot~have~numeric~indicesG@)5-F_s6$Fer<
'%-MetricVName1GF[alFejlFdimF\al/F][rF`w>FeirFbyF[hlC$>Feir%6Riegeom/calc_in_co
ordG>Fcdr-FC6$RFaqF5F5F5@%FdqFgqFNF5F5F5Fe^n/FiiilF9C$>Feir%9Riegeom/calc_in_vi
erbeinG>Fcdr-FC6$RFaqF5F5F5@%FdqFgqFNF5F5F5Fe^nC$>FeirFby>FcdrFL-Fi`l6-F][rFerF
[alF\alF]alF]wFgfrFgal7#-FbhuFagzFLFLF_`[lC+>F\rFg_cl>F`rFi_cl>Fer-Fajo6$F\rF][
r>FZ-FgglFe_o@(Fc[`mC$F_^[lFb^[lFg[`mC$F_^[l-Faz6#%Ccannot~have~numeric~indices
~in~lhsG330<#Fc^n<#-F]p6#-F]p6$FhrFbdtF_gpFg[sC$F_^[lFha[l@)F_\`m>FeirFbyF[hlC$
>FeirFh\`m>Fcdr-FC6$RFaqF5F5F5@%FdqFgqFNF5F5F5Fe^nF^]`mC$>FeirFa]`m>Fcdr-FC6$RF
aqF5F5F5@%FdqFgqFNF5F5F5Fe^nC$>Feir%2Riegeom/automaticG>FcdrFL-%$zipG6%R6$FbqF]
iblF5FgbnF5F]\mF5F5F5F_[oFe^n>F]jr-%(unapplyG6$-Fehl6$F[jm-Fe\yFaan-F]pFi[`m-Fi
`l6-F][rFerF[alF\alF]alF]wFgfrFgalF\^`m7#F]jrFia`m-Faz6$%fn1st~argument~must~be
~a~constant~tensor~or~a~tensor~equationGF_`yFcetFa^[lF56$%/Riegeom/dummy1G%/Rie
geom/dummy2GF56$Fe^m%)initprocGFgh]mC--F`dn6&""#%%withG%+working~onG9$>8)Fgafl@
%3/-F_s6$Fhb`m%,with/loadedGF_co-Fdfm6#&%1with/_ShareTableG6#FJ>%'_ShareGFcc`m>
Fgc`m.Fgc`m@%-Fh_n6$Fhb`mFeg]mC$-F`dn6&""%Ffb`m%2clearing~readlibsGFhb`m>8$-Ff_
mFec`m>Fcd`mFhb`m@'-Fh_n6$Fcd`m.Fcd`mC$-F`dn6&F`d`mFfb`m%2unnamed~procedureGFhb
`m>8'-Ff_m6#Fcd`m-FW6$F`e`m<$.F`\q.%(packageGC$-F`dn6&F`d`mFfb`m%5a~table~or~pr
ocedureGFhb`m>F_e`mFcd`mC$-F`dn6&F`d`mFfb`m%*name~caseGF`e`m@%-FW6$F`e`mFjvC&-F
`dn6&""&Ffb`m%-indexed~nameGF`e`m>8&7#-F]pFae`m@$2"""-Fjp6#Fjf`mC$>Fcd`m-F]p6$"
"!Fcd`m?(8%F_g`mF_g`mF`g`mF9>Fcd`m&Fcd`m6#&Fjf`m6#Fhg`m@%-F_s6$Fdg`mF`c`mC$-F`d
n6&Fgf`mFfb`m%-looking~for~G-F]p6$F_g`mFcd`m>F_e`m-9!6$Feh`m.Fjb`mC&-F`dn6&Fgf`
mFfb`mFdh`mFcd`m>8(-Fih`m6$Fdg`mF[i`m@$4-Fdfm6#&F`i`m6#Feh`m-Faz6$%2undefined~p
ackageGFhb`m>F_e`m-Fih`m6$-Ff_mFfi`mF[i`mC%-F`dn6&F`d`mFfb`m%/trying~readlibGF`
e`m>F_e`m-F\[u6#-FgaoFae`m@$/F_e`mFc[u>F_e`m-F\[u6#-Fgao6#-F\dp6%Fcd`mF\amFcd`m
-F`dn6&""'Ffb`m%'pkg~=~GF_e`m-Fgao6#Fibil@$-Fdfm6#Fgc`mC+-%'ASSERTG6#-FW6$Fgc`m
-Fcg]m6$Fc\p.%*SHAREINFOG>Fcc`mFgc`m>8,-Fibil6$Q*ShareName6"Fgc`m>8--Fibil6$Q*S
hareTypeFj\amFgc`m>8.-Fibil6$Q(AuthorsFj\amFgc`m>8/-Fjp6#Fa]am>8+-Fibil6$Q,Desc
riptionFj\amFgc`m>80-Fibil6$Q-FunctionListFj\amFgc`m@$3-FW6$Fhb`mFa\p5/Fhb`mFf\
am/-Fagr6$Fhb`mF`cilFf\amC'-%'printfG6$Q4Share~Library:~~%s|+Fj\amFf\am@%2F_g`m
Ff]am-F^_am6#Q*Authors:~Fj\am-F^_am6#Q)Author:~Fj\am?(Fhg`mF_g`mF_g`mFf]amF9C$-
F^_am6$Q#%sFj\am&Fa]amF]h`m@'2Fhg`m,&Ff]amF_g`m!""F_g`m-F^_am6#Q#,~Fj\am/Fhg`mF
a`am-F^_am6#Q&~and~Fj\am-F^_am6#Q#.|+Fj\am-F^_am6$Q2Description:~~%s|+Fj\amFj]a
m@$0F\]amQ-MaplePackageFj\amC$>9%-Faa`m6#F_^am-Fa^m6#Q3Share~Library~CodeFj\am@
&-FW6$7#F_e`m7#Ffe`mC&>8*-F\[u6#-F_e`m6#.%*_InitFileG@$30FbbamFc[u4-Fh_n6$Fbbam
Fgbam>Fjb`m-Ff_m6#Fbbam>F_e`m-F\[u6#-F_e`m6#.%._PackageTableG@$4-FW6$F^bam7#Fee
`m-Faz6$%9procedure~is~not~packageGFcd`mFjcamC$>FeaamFgafl-Faz6$%3undefined~pac
kage~GFhb`m>Feaam-Ff_m6#Fjb`m-Fa^m6#-Ff_m6#F_e`mFj\am6%%1_EnvShareMessageGFgc`m
Fdc`mFj\amFj\am,
I/ConnectionNameFbgclF5,
I3Riegeom/nf/def3a/1RFa[lF__elFe[lF5C$@$Fi[lC$@$F\\lF]goFd_el@%FgeyFKC%>FA-Fc\v
6%RFa[lF5FgbnF5-F^]x6#F_`elF5F5F5FJFK>FZFb`elFc`elF5F5F5F5,
I<index/Riegeom/calc_D1MetricRFhem6'F-F.F/FbqFaemF`[alF5@%F`el@%Fj_qF_gmC(>FAFe
q>FZFf]n>F\rFh`q>F`rFc`m>FerF]`q@%Fj[al>Fffm-F^]n6$&FerF]dm&F`r6#Ff_n>&FKF[_el-
F^]n6$&FerFhjoF_gam>FffmF_[nF5F5F5F5,
I2Rigeom/nf/configsR6%%%L_syGF+F__]lF5F5F5C$@$Fi[lC$@$Fea\m-Faz6%F`\l%:expectin
g~3~arguments~gotGF]\l-Fc\l6%Fe\lFf\l7#.6%Fe_lF\ap-Fj\l6#Ffddl@%FjgoFF-Fe\l6%F]
hoFK-FC6&%4Rigeom/nf/configs/1GFFFKF]gmF5F5F5F5,
I4Riegeom/symmetrize2RFja]m6$F+F]\nF5F5C$@$Fi[lC$@$F\\lF[dbl-Fc\l6%Fe\lFf\l7#.6
$Fe_lFggo@'Fg_r@%Fjg\lC$@'-F_s6$FJ<#.6&%)symmpairG%-antisymmpairG%(symmbvtG%,an
tisymmbvtGC%-F`dn6'FNF_fo%6assuming~the~symmetryGFJ%Gover~the~first~2~pairs~of~
free~indicesG@$2Fc]lF`p-Faz6%%.the~symmetry~GFJ%Arequires~at~least~4~free~indic
esG>FA6$7#-F]p6$F][qFK7#-F]p6$FjcnFKFh]zC%-F`dn6'FNF_foF[[bmFJ%>over~the~first~
4~free~indicesG@$F^[bmF_[bm>FAF[^zC$-F`dn6'FNF_foF[[bmFJ%6over~all~free~indices
G>FAFK7$FJFA-Faz6#(%Othe~name~for~symmetry~must~belongs~to~the~set~G-Fagr6$F\h\
l.F`cilF_\nC$>FZFidl@)-FW6$FZFiv@%-F_s6$Fcbm<#.6$FdjamFejam7%Fcbm-Fbggl6$F]aoFK
-Fbggl6$FdflFK-Faz6#%]tthe~symmetries~with~two~sets~of~indices~are~symmpair[i,j
,...][k,l,...]~or~antisymmpair[i,j,...][k,l,...],~where~i,j,k,l,...~are~indices
~or~numbersG-F_s6$FidlF\h\l7$FidlF\^bmFfamFe\`l-Faz6#%@coundn't~recognize~the~s
ymmetryG-Faz6#%dothe~symmetry~is~of~wrong~form.~It~must~be~a~string~or~an~index
ed~variableGF5F5F5F5,
I3index/FillInitValsR6$F[h]mFj_\l6(F]clF_`\lF-F.F0F[\[l6#%ipCopyright~(c)~1994~
Gaston~Gonnet,~Wissenschaftliches~Rechnen,~ETH~Zurich.~All~rights~reserved.GFc`
\lC%>F]c\lF]a\l@)-FW6$F_b\l<$-Fb_m6#Fa_m-Fj\lFg_bm?&Fic\lF_b\lF9>&F]c\l6#-F]p6$
Fda\lFic\l-F]p6$Fj`\lFic\l-FW6$F]c\lF`crC$>Fec\l7#-F]p6$Fj`\l-Ff_m6#F]c\l@'333/
-Fjp6#Fec\lFda\l/-F]p6$Fda\l&Fec\l6#Fda\lFda\lFcb\l/-F]p6$Fj`\lFdabmFjb\l?(Fdd\
lFda\lFda\lFjb\lF9>&F]c\l6#Fdd\l&F_b\lF\bbm33333/F_abmFj`\lFaabm/-F]p6$Fda\l&Fe
c\l6#Fj`\lFda\l-FW6$F_b\lFhbrFfabm/-F]p6$Fj`\lFgbbm-Fjp6#&F_b\lFeabm?(Fdd\lFda\
lFda\lFjb\lF9C$>Fib\lF]bbm?(Ff`\lFda\lFda\l-Fjp6#Fib\lF9>&F]c\l6$Fdd\lFf`\l&Fib
\lFaa\l-Fg_\l6$F]c\lF_b\l-FW6$F_b\l<$Fj\lFb_m?(Fdd\lFda\lFda\lFjb\lF9>F[bbmF]bb
m-Faz6#%Iinvalid~initialization~of~table~or~arrayGFbyFc`\lFc`\lFc`\lFc`\l,
I*Riegeom/_RF[\nF5F3F5C$@%Fg`y>Fhh`lFeq>Fhh`lFJFbyF56#Fhh`lF5F5,
I9type/contravarianttensorRFaqF5F[jpF53Fd\]l-FW6$-FC6$F]p7#Ffhn-Fj\l6#FhbvF5F5F
5F5,
I3Riegeom/merge_symmRFa[l6,F-%#nLG%&LsymmG%&LasymG%&SsymmG%&SasymGF1F[au%)LRiem
annG%%restGFe[lF5C&@$Fi[lC$@$5FdclFccl-Faz6%F`\l%?expecting~1~or~2~argument,~go
tGF]\l-Fc\l6%Fe\lFf\l7$Fd_lFe_l@%Fcdl>F]q-Fehl6$/F=Fby7#-F]pFcc_l>F]q-Fehl6$F_g
bm7#-F]p6#F]\t>FZF`h]l@+Fb^qFd^p/FZFNF]q-F_s6$FPF]q@%5-Fh_n6$F]qF^o-Fh_n6$F]qFg
oF`w7#FP-F_s6$F^oF]q@%5-Fh_n6$F]qFPFahbmF`w7#F^oC+>F]w-FU6$RFaqF5FgbnF53F^gqF[]
tF5F5F5F]q>F\r-FU6$RFaqF5FgbnF5/F]gmFPF5F5F5F]w>F`r-FU6$RFaqF5FgbnF5/F]gmF^oF5F
5F5F]w>F][r-Fb_s6%F_sF]w<$F`anFfa[l>Fg[s-Fb_s6%F_sF]qF]w>Fer-FC6$RFaqF5FgbnF5<#
F^[]lF5F5F5F\r>Fjr-FC6$RFaqF5FgbnF5FfjbmF5F5F5F`r?&FAFerF9@$0-Fj^s6$<#-F]p6#-FC
6%-Fghbl6$FjpFjfnFjrFA<$F`wFNFg[cmF_fu7&-F]p6#-FC6$RFaqF5FgbnF57$FPFJF5F5F5-F\[
]m6#-FC6%Fagr-Fc\v6%F]pFcrFea[lFb_m-F]p6#-FC6$RFaqF5FgbnF57$F^oFJF5F5F5-F\[]m6#
-FC6%Fagr-Fc\v6%F]pFcr<#F`anFb_mF^fzFc[hlF5F5F5F5,
I,Riegeom/seqR6%FhblF'F)F*F3F5@//FFF=C$>FAF\\z-F``y6'FJFAFLFNF=/FFFPC%>FAFg\z>F
ZFj\z-%1Riegeom/seq/symmG6'FJFAFZFNFP/FFF^oC%>FAFg\z>FZFj\z-Fiiel6'FJFAFZFNF^o/
FFFgoC+>FAF[^z>FZF_^z>F]q-FC6$RFaqF5FgbnF5@%FdqFgqFNF5F5F5FA>FAFiq>F\rF]r>F`rFa
r>FerFfr>FjrF[s@-F^s-Fgd[l6'FJFAFZFNF=Fgs-Fiiel6'FJF`tFatFNF=Fdt-Fiiel6'FJF]uF`
tFNF^oF^u-Fiiel6'FJF]uFguFNF=Fhu-F`^cm6'FJF`vFavFNFP-F``y6'FJFdvFLFNF=-FW6$FFFi
vC(>F]w-F]p6$F`wFF>F\rFefs>F`r-F]p6$FcrFF>FerFa`z>FjrFd`z@%F^x-F``y6'FJF\\zFLFN
F=C%>FAFfx>FZF\az-(F]ayF]wFh_cm5/FFFiy/FFF\z-Fii\lFaacmF`zF5F5F5F5,
I3type/indexedtensorRFaqF5F]_rF533F_\n-FW6$FidlFham-FW6$Fdfl-Fj\l6#.<$Ff^oFg]oF
5F5F5F5,
I4type/tensorialindexR6$F-F]cl6$FaczFajsFe[lF5C'@$Fi[lC$@$F\\lF^\l-Fc\l6%Fe\lFf
\l.7$Ff^oF\dl>FAFf^p>FZ-F_^l6$FJ7#Figl@$F]dn-F`dn6)FNFe^mF`fo%'~indexGFJ%7not~p
resent~in~tensor:GFK@'Fi^p-Fejp6#/-F]p6$FZ&F[_pF_hvF`wFe]wFf^\lF]hqF5F5F5F5,
I-definetensorF\g_mF5,
I5Riegeom/simpsum/CRSIRFh^l6>FhblFf]mFd]sFc]sF'F+F,F\doF[do%#N1G%#N2G%#e1G%#e2G
FibwFjbwF-F.%&inv_iG%#gsGFb[l%&orderGFe_qFj]]l%(ind_TF1G%(ind_TF2G%&s_indG%$nm1
G%$nm2GFe[lF5C&@$Fi[lC$@$F]_lF`iy-Fc\l6%Fe\lFf\l7#.-Fj\l6#<$F^dm-Fb_m6#-Fa_m6$F
_]lF_]l>FAFeq>Feju-F]p6$FNF_fn@)F`\[lC)@$/FejuFL-Fa^mF][l>F]w-Fajo6$FA.Fg[s>F\h
u-Fag[m6$F]wFg[s>F]qF_c\m>FgfuR6'F-F,F\doFhdcmFj]]lF5FgbnF5@%3333-F_s6%FJFK.Fdf
bl-F_s6%Fg\mFK.Fehjl2FehjlFdfbl-F]p6$FdfblF<-F]p6$FehjlF<,$((((((%#/#GFFFMFgh`l
FehjlFgh`lFdfblFgq(((F[icmFdfblFgh`lFehjlF5F56&FibwFgfrFjbwFhau>F\r7#-Fj]l6$-Fg
fu6'F]buF]qF]wFg[sF\hu/F]buFeju7$-Fehl6$-F[a`m6%RF^a`mF5FgbnF5F]\mF5F5F5FejuF\r
FA<$Fcat-F]p6#-F[a`m6%RF^a`mF5FgbnF5/-FEF][lFKF5F5F5F\rFeju-FW6$FAFjenC(>Fbdu-F
j]l6$-Fb]_m6#7$F]buF`dl/F]buFA>FZ-%$mulG6$-F]p6$FNF]bu/F]buFbdu>F\r-Fj]l6$-F]p6
#-F]p6$FcrF]buFh[dm>F`rFby?&F]buFejuF9C&>F^du-FU6%Fh_nF]aoF]bu@$0-Fjp6#F^duFcr-
Faz6#(%@expecting~two~terms~with~index~GF]bu>F^du-FC6$%6Riegeom/simpsum/tdiffGF
^du@%-FW6$F^du7$F\dlF\dlC1>F]jr-F]p6$FNF^du>Fcdr-F]p6$FcrF^du>FjrFe]x>F]qF]_^l>
F]w-Fajo6$F]jrF_gcm>F][r-Fajo6$FcdrFjdv@$/F]wF][rC$>Fa[v-F\dp6#-F]p6#-Fehl6$-Fj
]l6$/FacuFby/FacuFejuFix>F]\v-F\dp6#-F]p6#-Fehl6$F__dm-FEF]h]l@$53Ff^dm07$Fa[vF
]\v-F^]x6#F_`dm30F]wF][r07$F]wF][r-F^]x6#Fe`dmC*>F^duF]w>F]wF][r>F][rF^du>F^duF
g[s>Fg[sFeir>FeirF^du>FjrF]q>F]qFe]x>F\juFagcm>Faju-Fag[m6$F][rFeir@%333-F_s6%,
$F]buFgqFjr.Fgfr-F_s6%F]buF]q.Fhau-F]p6$FgfrF\ju-F]p6$FhauFaju>FafuFgqC%-F_s6%F
]buFjrF\bdm-F_s6%F[bdmF]qF_bdm>FafuFN>Fecu(((((((((F^icmF]wFg[sFgh`lFgfr.%"#GF]
[rFeirFgh`lFhau@$-Fh_n6$<#F\rFecuC$?(FacuFNFNF5-Fh_n6$Fjcdm(((F]joFecu.%":GFacu
F5>FecuF_ddm>F\r6$F\r/FecuF]bu>F`r6$F`r/F]bu*&FafuFNFecuFN-Faz6$%Nexpecting~pro
duct~of~tensor~type~terms,~got:~G-Fb_s6%FWF^duF\dl7$-Fehl6$<#F`rFZ-Fj^s6$FjcdmF
f]n-FWFd]dlC&>Fbdu-Fj]l6$-Fe\lF_[dmFa[dm>FA-F]]mFe[dm>F\rFj[dm7$FAFjcdmFJF5F5F5
F5,
I:Riegeom/numtenstonametensR6$F]clF]do6&F-F'F+Fe_qFe[lF5C%@$Fi[lC$@$Fbcl-Faz6$F
gclF]\lF`j[m>FZFdfl@%-Fhfm6$FZ.Fc]oC&>F`rR6$F-FbqF5F5F5@%-FW6$FKFc]o-Fcfz6#-Fgf
z6#(Ff`tFJFKF5F5F5>F\r7#-Fj]l6$-F`r6$FA-F]pF]dm/FA;FNF_bm@$F`el>FK<#-F]p6#-F[a`
m6%RFihqF5FgbnF5@%Fa]o/FKFJFbyF5F5F5FZF\r&FidlFh`dlC$@$F`el>FKF`dlFJF5F5F5F5,
I3Riegeom/Ricci1/recR6%FaemF-F.F]^ilF5F5@+-FW6$F0FXC$>FAFc^il*&&FJ6$F0FAFN-Fe\l
6'FJFKFFF/F_\hlFN-FW6$F/FXC$>FAFc^il*&&FJ6$F/FAFN-Fe\l6'FJFKFFF_\hlF0FNFabsC$>F
AFc^il*&Ff_ilFN-Fe\l6'FJFKF_\hlF/F0FNFjbsC$>FAFc^il*&F]`ilFN-Fe\l6'FJF_\hlFFF/F
0FNC%>FZF[ehl>FAFc^il*&Fd\hlFN,.-Fbhl6%&FJ6$FKF/&Fi]mFed[lF\ailFjhn-Fbhl6%&FJ6$
FFF/FaailF\\emF]eq-Fbhl6%&FJ6$FKF0F\ail&Fi]m6#,$F/FgqF]eq-Fbhl6%&FJ6$FFF0FaailF
e\emFjhn*&&FZ6%F_\hlFKF/FN&FZ6%FAFFF0FNFN*&&FZ6%F_\hlFKF0FN&FZ6%FAFFF/FNFgqFNF5
F5F5F5,
I,cleartensorF`f_mF5,
I7Riegeom/latin_alphabet<;FdbclF.F/%"hG%"oG%"wGFh^]lF-F\htFjemF_glFaemF[clF[\[l
FbqF^jxF`brF`jsFf`tF`czF_jsF0Fi]]lF]jqFajsF5,
I)S_cyclicRFbg[lF5F5F5@'F^hn-FU6%FhfmFdc_l.FealF`jn-Fj^sFif]mF`dlF5F5F5F5,
I4Riegeom/latex/printR6#F\ht60%(texlistGFcjtFjitFa\`l%"|frG%"|hrG%'\left~G%(\ri
ght~G%#\|frG%#\|hrG%"(G%")G%#eeG%#seG6#%JCopyright~1993~by~Waterloo~Maple~Softw
areGF5C$@EF_iy>FAFbyF\_dl>FA-%6latex/latex/commalistG6&Ff\lFZFerFjr-FW6$FJ.F^]l
>FA-%4latex/latex/numericGF][lFg_rC%>FcdrF\hjl>Fgfr-F\\y6$FJ;FNFfe`l@%32FfdpFcd
r/FgfrFdbo>FA-F\\y6$FJ;"#7Fcdr>FA-%3latex/latex/stringGF][lF_\n>FA-%4latex/late
x/indexedGF][l-FW6$FJ.F`hn>FA-%.latex/latex/+GF][l-FW6$FJ.Fjen>FA-%.latex/latex
/*GF][l-FW6$FJ.Fbjn>FA-%/latex/latex/**GF][lFa\n>FA-%5latex/latex/functionGF][l
-FW6$FJ.%)relationG>FA6%-F[boFb]n-%5latex/latex/relationGF][l-F[boFe]n-FW6$FJ.F
b_m>FA-Fi_em6&FdflFZ7$F]qF][r7$F]wFg[sF^gq>FA-Fi_em6&FdflFZF\rF`r-FW6$FJ.F`\q>F
A-%2latex/latex/tableGF][l333-FW6$FJ.F`jx4F`fr-F_s6$Fhbn7#Fh`q-F_s6$%&angleGF_e
em>FA-%:latex/latex/angleoperatorGF][l3Fgdem-F_s6$FibnF_eem>FA-%:latex/latex/ar
rowoperatorGF][l-FW6$FJ.%'seriesGC%>%<_LatexSmallFractionConstantGFN>FA6%Feir-%
3latex/latex/seriesGF][lF]jr>FbfemF]]jl-FW6$FJ.%&rangeG>FA-%2latex/latex/rangeG
F][l-Faz6$.%5Cannot~handle~type:~G-F\][mF][lFedilF56#FbfemF5F5,
I%sumtFa\^mF5,
I3Riegeom/printt_oldRFaqF5F3F5@%F\`]mF``]mFa`]mF5F5F5F5,
I&applyF[^_mF5,
I)complistFdi]mF5,
I.Riegeom/equalR6$F\doF[do6'FhdcmFidcmF+F,F^jxF3F5C&>FerRFaqF5F5F5@%FdqFgqFNF5F
5F5>F\r-FC6$FerFdgl>F`r-FC6$FerFd^_m-Fejp6#3Fcgil/-FajoFj\qF\felF5F5F5F5,
I2Riegeom/updownindRF[\n6/F'F+F-F.%#j1GF]ecm%$ngsGF]clF\doF[doFhdcmFaemFibwFe[l
F5C&@$Fi[lC$@$F]_lFbdo-Fc\l6%Fe\lFf\l7#Fjg[l>F]jrF]`q@$4F^]wF[gcm@)Fi^oC$>FZFjd
]m@%Fjt@%3F\]tF[]t@%3-FW6$FeqFin-FW6$Ff]nFX&F\al6$Ff]nFeqFJFJ@%FbjemF]alFJF^hnF
^dflFhenC'>FZFjd]m@$Fjt-Fa^m6#F^dfl>F]wFJ?&F\rFZF9C&>Fjr-FU6%RFcbzF5FgbnF5333Fi
^oF\]tF[]t5Fefu-Fh_n6$FJFi[mF5F5F57#Fj\^lF\r>F]qF\c]l@&/F]qFNC*>FjrFfhz>F\r-F]p
6#-FU6%Fh_n7#FfhzF\r>F`r-F]p6#-Fb_sFh\fm>F][r-FU6%Fh_n*&F]wFNFjrFgq<$Ff_nF\r>Fg
[s-Fajo6$F][rFjdv>Fg[s-Fgdl6$FeirFg[s@&-Fdfm6#&Fg[sF^elC%-F_s6%F\r7#F^fz.Fcdr-F
_s6%Ff_nF`^fmFa^fm@$0-F]p6$Fcdr&F\^fmFfhvF`w%%nextG4Fe]wFi^fm@'F[aq>F]w-Fehl6$/
F\rFf^elFa]fmFa_n>F]w-Fehl6$/Ff_nF`rFa]fm-Faz6#%8type~index~not~expectedG/F]qFc
r>F]w*(-Fe\l6#&F\al6#-F]p6#-Fehl6%/F\rF`wF_[v-FC6$F]pFjrFNF]wFN-FagrF^hflFgq@$4
-FW6$F]wFjenFeaal@%Fh`fm-FC6$Fe\lF]w-Fe\lFag]lFJF5F5F5F5,
I,RiemannSignFNF5,
I6Riegeom/SummedIndicesFg]emF5,
I,with/loaded7#Fe^mF5,
I.type/symmetryRFaqF5F5F5@)Fg_rFjg\l3F_\n0FidlF=33Fe\`l-FW6$Fdfl.F[i\l/Fb]lFbc_
l-FW6$FJFhf]mF^dflF]hqF5F5F5F5,
I+type/indexRFaqF5F]_rE\s"F`wF_co-FW6$FJ<$Fc]oFi`sF5F5F5F5,
I?type/contravariantnumericindexRFaqF\`rF]_rF5C%@$4Fa_r-Fa^m6#F]hq>FAFc`m@-3Fa`
rFf`rF93F\]oF]^oFf^\l4-FW6$FJFg^oF]hq52FJFb_[m2F]alFJF]hqFcarF]hqF9F5F5F5F5,
I:Riegeom/select_repetitionRFh^lF[\nFe[lF5C$@$Fi[lC$@$F]_lFbdo-Fc\l6%Fe\lFf\l7#
.F\edl@%F\bfmFLC$>FA-FagrF_hn@'Fhjcm7#-Fb_s6%FWFAF[emFgedm-Fc\v6&Fb_sFW7#-F]p6#
-FU6%FWFAFjenF[em-Faz6$%KInternal~error:~expecting~type~*~or~+,~gotGF[][mF5F5F5
F5,
I5Riegeom/CoordIndicesF_coF5,
I/CodiffSumIndexF`dlF5,
I5Riegeom/for/symm_seqR6%FhblF1Fjiq6$F-Fb[lF3F5@%/Fc]lF`wFdfrC$>FZFbay-Fj]l6$-F
e\l6%-Fehl6$/F_d`lFAFf\rFZFA/FA;FFF]alF5F5F5F5,
I,Riegeom/sumRF[\n6'F]\nF'FeioFdioF-F3F5@+F_\nC%>FZFfgl>F`r-Fajo6$FJF\r@%-Fdfm6
#&-Fgdl6$F\rF`rF^elC$-Fehl6$/F`rFbgfmFd]\l-F]c`l6$FjimF\^nC$Fd]\lFhgfmFa\nC$>FA
Fidl@)Fagal-FdiclF^`l-FW6$FAFc\nC$-F]p6$F`wFA@&Fi`n--Fj`n6#-Fe\lFg^qF^`lFcan-F]
c`l6$--FjimFghfmF^`lFjd]m33Fc\[m/-F\\y6$FAF\grF^\y0FAF_jlC$-F\\y6$FA;Fcr-F]hjlF
fv-F]c`l6$-Fjim6#-Fj]l6$-Fe\lFhx/FerFJFjd]mFhifmFhen-F]c`l6$F^dflFjd]m-FW6$FJFh
gflF^dflFJF5F5F5F5,
I3Riegeom/alltensorsRF[\nF5Fe[lF5FcfelF5F5F5F5,
I6Riegeom/induced_sym/1RFgg\l6,F-%(nL_symmGF1Fh[blF]doF[clFb[lFe_q%&sym_LGFe^lF
e[lF5C%@$Fi[lC%@$Fccl-Faz6%F`\l%Eexpecting~at~least~one~argument,~gotGF]\l-Fc\l
6%Fe\lFf\l7#.Fg_l@$2Fb]lFN-Faz6%F`\l%Qexpecting~a~list~with~at~least~one~symmet
ry,~gotGFJ@$2-Fjp6#F^_pFcr-Fa^m6#F=@%Fcdl@'Fg_r@)Fi[zF=FehclFJFh]z-Fe\l6%7$F_oF
i\p7$F_o7$FhrF`p7%FQFi\pFh\gm-Faz6#%4NOT~IMPLEMENTED:125GF^gqC&>FjrFb]l@$2FjrFc
r-Faz6#%URiegeom~INTERNAL~ERROR:~list-symmetry~with~1~elementG>F`rF]gm@%/FjrFcr
@'F_]blC%>F\rF^_p>FerFfjbm@%/-Fj^s6$Fea[lFerFer7$F`r7#-Fbhu6#FafalC$>F]q-FU6%F_
sF\rFer@%2F`h]lFcrF=7$F`r7#-Fj]l6$-F_^lFdd[m/FAF]qFc]bl-Fe\l6%7$F_o&F`[]l6#F][q
7$F_o&F`[]l6#Fjcn7%FQFb_gmFe_gm-Faz6#%HRiegeom~INTERNAL~ERROR:~not~implementedG
C&>F]wR6$%%sy_LGF1F5F5F5-Fejp6#/-Fjfn6$Fhc_lFdc_lFdc_lF5F5F5>F\rF^_p>F][r-FU6%F
]wF]hoF\r@%2FNFbh]l-Fehl6$<#-Fj]l6$/&F\rFfvFA/FAFafal7$F`rF^fzF=-Faz6$%enRiegeo
m~INTERNAL~ERROR:~expecting~type~symbol~or~list,~gotGFJC$>Fg[s-Fehl6$F_gbmF]`gl
@%/F^[hlF`wF=Fc[hlF5F5F5F5,
I(simpsumFj\_mF5,
I8index/Riegeom/calc_detgRFhem6$F-FaemF`[alF5@%F`el@'5FcfmF[gmFffmF^aqC$>FZF]`q
>F\`^l-Fhhm6#-Fd[dm6$&FZ6$F_\hlF_\hlFjay@%-Fdfm6#Fgj^m>F\`^l-FhhmF_cgmF\`^l>Fff
mF_[nF5F5F5F5,
I)lptensorF\`_mF5,
I5type/covarianttensorRFaqF5F[jpF53Fd\]l-FW6$Faebm-Fj\l6#Ffd]lF5F5F5F5,
I7type/namenumerictensorRFaqF5F[jpF53Fd\]l-Fejp6#0-F]p6$F`pFgglFLF5F5F5F5,
I2Riegeom/sum_ind/1RF[\nFd[lF5F5@)FbjfmF`e]mFhen6$-F]p6#&FfglF^gmF`e]m-FW6$FJFg
doFgdgmFbyF5F5F5F5,
I1Riegeom/seq/symmRFb`yFcisF3F5@%Fd`yF[ayC%>FZFdjq>F\rFbay-Fj]l6$-Fe\l6'FhayF\r
FFFAF<FcjelF5F5F5F5,
I;index/Riegeom/[symm,[2,3]]RFhem6$F.F/F`[alF5@%F\gm@%F`elF_gm>FffmF_[nC%>FAFf]
n>FZFh`q@'Fi[al@%F`el-Ff_m6#&FK6#-F]p6#-F_y6%/FcrFZ/FhrFAFJ>FcfgmF_[nF`elF_gm>F
ffmF_[nF5F5F5F5,
I=Riegeom/AutomaticCalculationF9F5,
I8Riegeom/rename_sumind/1Fh_jlF5,
I8Riegeom/rename_sumind/2Fie\lF5,
I:index/Riegeom/calc_MetricRFhem6%F-F.FaemF`[alF5@%F`el@%Fj_qF_gmC%>FAFeq>FZFf]
n@)F]^\lF_gmFd^\l@%F]h\m>FffmFN>FffmF`wF^aqC$>F\rF]`q@%Fegn>Fffm*$&F\r6$F_\hlFg
jlFgq>FffmF`wFffm>FffmF_[nF5F5F5F5,
I6Riegeom/rename_sumindRFh^l6/F\doF[doF-F.%)ind_nameGFj]uF+F,%*ind_name1G%*ind_
name2G%(new_indGF]doFb[lFe[lF5C$@$Fi[lC%@$F]_lF^_l-Fc\l6%Fe\lFf\l7#<'.Fgddl.-Fj
\l6#<&FgddlFbjnF\dlF[emFbjnF[emFgdo@$3F^gqFa^p-Faz6%F`\l%Oexpecting~a~list~with
~at~least~2~elements,~gotGFJ@+-FW6$FJ.F[emFJF`jn-Fehl6$-Fj]l6$/F\r-Fe\lFe_o/F\r
-F^ctF[egmFJ-FW6$FJ.<$F\dlFjenC%>FA-Fa\xF][l>FjrFefcm@%/FjrFLFJC%>F]qF_c\m>Fer(
F]joFbhfm-Fehl6$<#-Fj]l6$/F\r-F_b`l6%F\rF]qFer/F\rFjrFJF^gqC'>Fjr-F]p6$FNFiau>F
]jrFby?&F\rFjrF9C->Fcdr-FU6%Fh_nFJF\r@$0-FjpFgbxFcr-Faz6%Fgeu%:expecting~nops(L
1)=2,~gotG/Fa^fmFcdr>FA-Fa\x6#&FcdrF^gm>FZ-Fa\x6#&FcdrFe[s>F]qF_c\m>F]wF]ao>F][
rFg[hm>Fg[s(F]joFcbm>Feir-Fbb`l6)F\rF]qF][rF]wFg[sFAFZ@$-F_s6$Feir<#F]jrC$?(F`r
FNFNF5-F_s6$(((F]joFeirFgh`lF`rFe^hmF5>FeirFj^hm>F]jr6$F]jrFeir>F]jrFia`m-Fehl6
$<#-Fj]l6$/&FjrFe_o&F]jrFe_o/F\r;FNF\c]l-Fagr6$F^dflFjen-Faz6%Fgeu%Pexpecting~L
~type~list~or~T[...]~or~-T[...],~gotGFJF5F5F5F5,
I*clearcompFb^^mF5,
I7Riegeom/4/R/X/g/2/syms=F]coF_coE\[l!F5,
I9Riegeom/3/d1g/X/g/2/syms=FajzF_coE\[l!F5,
I+Riegeom/nfR6$Fhbl%'renameG6&FiblFb]]lF-F\^uFe[lF5C$@$Fi[lC%@$F\\lF^\l-Fc\l6%F
e\lFf\l.7$Fd_r%)constantG@$4-F_s6$FK.<$F9F_co-Faz6%F`\l%Mexpecting~rename~equal
~to~true~or~false,~gotGFK@+Fjdgm@'FK-Fehgm6#-Fe\l6$FJF]hq-F_ju6$FJFecw-FhjwFj\q
FJFhenC%>FZ-Fb_s6%FhfmFJFgdo>F`r*&FJFNFZFgq@%-FW6$F`rFjen@%FK*&FZFN-Fehgm6#-F`]
u6#-FagrFh]blFN*&FZFN-Fagr6$FdchmFjenFN*&FZFNFheclFNF^hnFe]tF`jn-Fehl6$-Fj]l6$/
F\r-Fe\lFb`zFhjgmFJFJF5F5F5F5,
I9Riegeom/4/d2g/X/g/2/syms=FajzF_coE\[l!F5,
I4Riegeom/x_is_activeF_coF5,
I5Riegeom/symmetrize/1RF\iyF5Fe[lF5C$@$Fi[lC$@$F\\l-Faz6$%:expecting~2~argument
,~gotGF]\l-Fc\l6%Fe\lFf\l7#.6$Fd_rF[h_m@%Fd`yFJ-Fe\l6$-%5Riegeom/symmetrize/2G6
$FJF_d`l&FKF^hoF5F5F5F5,
I5Riegeom/symmetrize/2R6$FhblFbfq6.Fi[blF-%&L_oddG%'L_evenG%$ZIPGF)F[clFb[qF+F,
%#spGFb[lFe[lF5C)@$Fi[lC$@$Fccl-Faz6$%Dexpecting~more~than~1~argument,~gotGF]\l
-Fc\l6%Fe\lFf\l7#.6$Fd_rFj\l>FjrFdjq>FAFc]l@%/FAFhrC$>F][rFgjq>Fg[sFjjq>F][rFgj
q>F]qFbh]l@$2F]qFcrF[gcm@,5/FjrFa^em/Fjr.Fhe\mC%>FerR6%Fb[lFc[lF[clFd[lF5F5-Fj]
l6$Fge_l/FA;FNFFF5F5F5>F\r-Fejel6%F][rF]\fl.F`r@%F[hhm,$*&-Fb]blF]h]lFgq-F]]m6$
-Fehl6$<#-Fer6%F][rFZF]qFJFcjlFNFcr,$*&F]ihmFgq-F]]m6$F`ihm/FZF\rFNFcr5/FjrFP/F
jrF^o@%/FAFcrC&>FerRFahhmFd[lF5F5FbhhmF5F5F5@%F[jhm>F]wFN>F]wFgq>F\rFghhm*&F]ih
mFgq,&F^ihmFN*&F]wFNFgihmFNFNFNC)>FerRFa[lFd[lF5F5-Fj]l6$Fge_l/FAF`[elF5F5F5@%F
[jhm>F]wFN>F]wFgq>F]jrFiehm>F]q-FjpFgew>F][r-FC6$F]pF]jr>F\r-Fejel6%F]jrF]\flFi
hhm*&F]ihmFgq,&-F]]m6$-Fehl6$<#-Fer6$F][rF__sFJFcjlFN*&F]wFN-F]]m6$F_\imFiihmFN
FNFN5/Fjr.Fdjam/Fjr.FejamC&@$0F]qF^[hl-Faz6#%fothe~number~of~indices~of~each~se
t~in~symmpair~or~antisymmpair~must~be~equalG>FerRFahhmFd[lF5F5FbhhmF5F5F5@%/Fjr
Fdjam>F]wFN>F]wFgq,&FJFjhn*&F]wFN-Fehl6$<$-Fer6%Fg[sF][rF]q-Fer6%F][rFg[sF]qFJF
NFjhn5/Fjr.Ffjam/Fjr.FgjamC'@%Fb^imC$>F]wFN>FeirFPC$>F]wFgq>FeirF^o@$4-FW6$F]qF
d\fl-Faz6#%Qnumber~of~indices~to~be~symmetrized~must~be~evenG>Fg[s7#-F]p6$;,&F]
qFjhnFNFNF]qF][r>F][r7#-F]p6$;FN,$F]qFjhnF][r-Fe\l6&FJ7$FeirF][r7$FeirFg[s7%FPF
][rFg[s/FjrFhoC$@$0Fbh]lF`p-Faz6#%Tthe~number~of~indices~in~Riemann~symmetry~mu
st~be~4G-Fe\l6$,&FJFN-Fe\l6$FJ7$F^o7#-F]p6$;FcrF`pF][rFgq7$Fe^imF][rF5F5F5F5,
I(RiegeomFgh]mF5,
I2Riegeom/2/R/X/g/2=6$Fajz%1Riegeom/calc_R_2GF_coE\[l"F`w=F5F_coE\[l+FhrFaemFcc
oFLFdcoFhalFecoF[cyF`wFcrFfcoF\cyFNFe^lF`pFcrFhpFibyFcrFi]mF5,
I+normalformR6#Fihy6$FhblFe_qF5F5C&>FZF\[l>FZRFaqF5FgbnF5FJF5F5F5>FAF``m@%-Fhfm
FfjyC$>FA-Fehl6$-FC6$RFaqF5FgbnF5F[helF5F5F5FejyFA-FZ6#*&-F_cu6$-F]jcl6#-F[fflF
fvFf^\lFN-F_cu6$-F]jcl6#-F`fflFfvFf^\lFgq-Fa^m6#-FZFfvF5F5F5F5,
I7Riegeom/greek_alphabet<:%#xiG%&alphaG%%betaG%&deltaG%%zetaG%(epsilonG%&thetaG
%%iotaG%&kappaG%'lambdaG%(omicronG%&sigmaG%(upsilonG%&omegaG%$etaG%#muG%#nuG%#p
iG%$rhoG%$tauG%$phiG%$chiG%$psiGFcgclF5,
I4Riegeom/for/RiemannRFidsF\jqF3F5C'>FjrFefs>F]qF[acm>F]w-F]p6$FhrFF>F][r-F]p6$
F`pFF?(FAFNFNFa[rF9?(FZFc[rFNF]alF9?(F\rFAFNFa[rF9C$@%Fadq>FerFZ>FerFi[r?(F`rFe
rFNF]alF9-F`fs6(-F]p6#-Fehl6$Fa\rFcgsFMFLF<FNF=F5F5F5F5,
I-print/codiffRF\gl6#FihlFe[lF5@%Fi^o-&FA6#-F^jtFh_^l6#-F`eblF][l-FigimF][lF5F5
F5F5,
I2Riegeom/D1Metric1RF[d[l6$FbqFaemF5F5C%>FAFc`m>FZF]`q-Fbhl6$&FZFi^m&FAF]ailF5F
5F5F5,
I1Riegeom/Riemann1R6&F-F.F/F0FjhqF5F5C%>FAF]iq>F`iq-FE6#<&FKFFFMFJ-Fj]il6'FAFJF
KFFFMF5F5F5F5,
I1Riegeom/genindexR6$F]doFe^lFihqF3F5C(@$Fi[lC$@$4-F_s6$F]\l<$FcrFNF`iy-Fc\l6%F
e\lFf\l7#.6$<$-Fb_mF]edlF\edlFdjim@$Fcdl-Fa^m6#-Fe\l6$FJ-FU6%FWF_afmFham@$3F`el
-FW6$FK<$FielFgcem?(FZFNFNFc]lF9C$>FA-F]pF`^t@$-F]h_lF^hmFedil@$-F_s6$FeqFe_\mC
%?&FZFe_\mF9@$3-FW6$FdgilFham-F]h_lFadil@%/F`fjlFf^\lFddy-Fa^m6#(Fhh`lFZ?(FZFNF
NF54-F]h_l6$-Fgfz6#(Fh_\mFZFJF5@%Fc\jm-Fa^mF\]jm-Fa^m6#(%$_XiGFZ@$-F_s6$FeqFbdi
mC%?&FZFbdimF9@$F^\jm@%Fc\jmFddyFd\jm?(FZFNFNF54-F]h_l6$-Fgfz6#(FddimFZFJF5@%Fc
\jm-Fa^mF`^jm-Fa^m6#(%$_xiGFZ@'-F_s6$FAFg]emC%?&FZFg]emF9@$F^\jm@%Fc\jmFddyFd\j
m?(FZFNFNF54-F]h_l6$-Fgfz6#(F/FZFJF5@%Fc\jm-Fa^mFd_jm-Fa^m6#(FdjflFZ-F_s6$FAFde
glC%?&FZFdeglF9@$F^\jm@%Fc\jmFddyFd\jm?(FZFNFNF54-F]h_l6$-Fgfz6#(FfeglFZFJF5@%F
c\jm-Fa^mFf`jm-Fa^m6#(%#_KGFZ-Faz6#%Acound't~find~a~good~summed~indexGF5F5F5F5,
I-type/packageR6#F^jx6#F]jq6#%aoCopyright~(c)~1993~by~the~University~of~Waterlo
o.~All~rights~reserved.GFj\amC$>Fcd`mFdd`m@%3-FW6$Fcd`m.F`jx-Fh_n6$7#-F]p6$""$F
`e`mFfe`mF9F_coFj\amFj\amFj\amFj\am,
I/Riegeom/forgetR6#'FbqF_]lF5F5F5C$>FJ-F_y6$/F`pFbyFdfrFbyF5F5F5F5,
I(ltensorFih]mF5,
I4Riegeom/print/diff1R6$F^jxFbqF5F3F5@'Fa\n&Fidl6#(%#,~GFKF_\n&Fidl6$F_`lFK-Fgd
clFi^mF5F5F5F5,
I4Riegeom/print/diff2RF`cjmF5F3F5@)Fa\n@%3Fbcn/F_`lF^\y-F\dp6$Fidl%"'GFbcjmF_\n
FfcjmFg_r-F\dp6$FJFadjmFhcjmF5F5F5F5,
I8type/covariantnameindexRFaqF5F]_rF53F`_rFh_rF5F5F5F5,
I9index/Riegeom/calc_d1g_3F_famF5,
I6Riegeom/nf/cancel_symR6#Fibl6'F-F.FjemF[clF]doFe[lF5C)@$Fi[lC%@$F]_lF^_l-Fc\l
6%Fe\lFf\l.7#Fe_l@$/-Fjp6#Fb[lF`w-Faz6%F`\lFe\blFg\l>F`rFb]l@$Fh]glFjbfm>FerF]c
t@$/F[gdlFNFjbfm@$/Fer.<$FQFhoC%>F\rF_al>F\r6$Ffa[l-Fj]l6$-F]p6#-Fehl6$-Fj]l6$/
FZ,&FAF`pFZFN/FZF_pF\r/FA;FN,&F`rFNF[jvFN@$/FJ7$F\r-Figv6$F`p,&F`rFNFgqFNFjbfmF
f^\lF5F5F5F5,
I1Riegeom/nf/*/repR6$F]clFc_uFd[lFe[lF5C$@$Fi[lC$@$F\\lF^\l-Fc\l6%Fe\lFf\l.7$F\
dlF\hhl@%Fefu-Fehl6$<#-Fj]l6$/FA-FcfzFfvFh]rFJFJF5F5F5F5,
I3Riegeom/ind_tensorRF[\nF5Fe[lF5C$@$Fi[lC$@$F]_lF^_l-Fc\l6%Fe\lFf\l.7#Ffddl@'F
_\n7$FNFdfl-FW6$Fg\mFiv7$Fgq7#-F]pFifbl-Faz6%Fgeu%Yexpecting~type(expr,indexed)
~or~type(-expr,indexed),~gotGFJF5F5F5F5,
I2Riegeom/forgetallRF5F5F3F5C;-Fdbjm6#Ffaal-Fdbjm6#Fd\jl-Fdbjm6#Fc[\m-Fdbjm6#Fa
\]l-Fdbjm6#Fiip-Fdbjm6#F_bfm-Fdbjm6#Fj_r-Fdbjm6#F[_r-Fdbjm6#F\g[l-Fdbjm6#Fddjm-
Fdbjm6#Febfm-Fdbjm6#%;type/covariantnumericindexG-Fdbjm6#Fah\m-Fdbjm6#Fh\u-Fdbj
m6#Fggl-Fdbjm6#Fi[n-Fdbjm6#Fd_s-Fdbjm6#Fibp-Fdbjm6#Fi\q-Fdbjm6#F`bl-Fdbjm6#F\gd
l-Fdbjm6#F`ebl-Fdbjm6#F[c`l-Fdbjm6#Fajo-Fdbjm6#FgfelF5F5F5F5,
I<Riegeom/symm_inproc/RiemannRF^gdl6*F-Fh]uFa[qFb[q%(sym_indG%&nind1GF]doF1Fe[l
F5C$@$Fi[lC&@$FhgdlFigdlF\hdl@$0Fb]lF`p-Faz6%F`\l%Dexpecting~ind1~with~4~elemen
ts,~gotGFJ@$FbhdlFdhdl@%Fhhdl@%Fb^alFjhdl>F\idlF^idlC&>FerF^jdl>FZ-F^`blFj`[l@)
Fb^q>F`rF`wFa]bmC%>F`rFN>F\rF]ao>F\r-F_y6$-Fj]l6$/Fhe_lFaagm/FAF_pFK-FW6$FgjlFi
vC%>F`rFgq>F\r7#-F]p6#Fgjl>F\rFd_[n-Faz6$%VINTERNAL~ERROR:~expecting~T[...]~or~
-T[...]~or~0,~gotGFZ@%Fb^al@%/F`rF`wF`w*&F`rFN-Ff_m6#&FFFh`dlFN@%3Fh`[nF[]elF[_
q>F\a[n*&F`rFNF^]elFNF5F5F5F5,
I0Riegeom/ltensorF_coF5,
I3Riegeom/nf/*/mksymR6$FajsFeioFd[lFe[lF5C$@$Fi[lC$@$F\\lF^\l-Fc\l6%Fe\lFf\l.7$
Fg]oFg]o@%Fbgx7$FP7#-Fbhu6#;FNFK7$FP-Fj]l6$7#-Fbhu6#;,&*&FAFNFJFNFNFNFN*&Fc[rFN
FJFN/FA;F`wF[^flF5F]hilF5F5,
I1Riegeom/applysymRFico6$FaczF\doFe[lF5C&@$Fi[lC$@$F]_lF^_l-Fc\l6%Fe\lFf\l.7#F\
dl>FAFidl>FZ-FgdlFigal@'4F]eoFJ-Fhfm6$FdflFham-Fehl6$Fbgs-Ff_m6#-Fehl6$FegnFJ-F
ehl6$/((F]joFZFbi`lFA-Ff_m6#-Fehl6$/FAFjd[nFJF5F5F5F5,
I3Riegeom/tools/sortRFh^l6%Fb[lFc[lF-Fe[lF5C$@$Fi[lC&@$F]_lF^_l-Fc\l6%Fe\lFf\l.
7#-Fj\l6#<#Ff^o@$-F_sFjdl-Faz6%F`\l%?not~expecting~0~as~a~member~ofGFJ@$-Fdfm6#
Fjg]l@$34-Fhfm6$FJF^f`l0-Fj^s6$<#-F]p6#-FC6$RFaqF5FgbnF5@%FecemF_`lFJF5F5F5Fjg]
lFdc_l<#-F]p6#-FC6$RFaqF5FgbnF5@%FecemF_`lFJF5F5F5Fjg]l-Faz6%F`\l%W_Env/Riegeom
/class_order~must~contain~all~elements~of:GFJ@%Fef[nC&@$-FW6$FJ.Ff]p-Fa^m6#-F^]
xF][l>FA-FU6%FWFJ.Fi`s>FZ-FC6&F_\]mFAFjg]l-FU6%FWFjg]lFb_m7$-Fj]l6$-Fe^]m6$7#-F
hcvFbjoFA/F\r-F^]x6#7#-F]p6#F_`cl-F]p6#-F^]x6$-FU6%FWFJF^f`lF]`em7&-F]p6#-F^]x6
$Fdjgl.%)lexorderGF_j[n-F]p6#-FC6$RFaqF5FgbnF5Fg\mF5F5F5-F^]x6$-FC6$RFaqF5FgbnF
5Fg\mF5F5F5F[[hlFjj[n-F]p6#-FC6$RFaqF5FgbnF5Fg\mF5F5F5-F^]x6$-FC6$RFaqF5FgbnF5F
g\mF5F5F5-FU6%FWFJ.F[^oF]`emF5F5F5F5,
I4Riegeom/printtensorF9F5,
I6Riegeom/symmetrynames<,F>FQFhoFealFhe\mFgjamFdjamFejamFfjamF_oF5,
I4Riegeom/g_is_activeF_coF5,
I8Riegeom/for/Riemann_seqRF\iy6)F-F.F/F0F]jqFb[lFjemF3F5C%>Fjr&FK6#Fd^z>F]qFby?
(FAFNFNFa[rF9?(FZFc[rFNF]alF9?(F\rFAFNFa[rF9C$@%Fadq>FerFZ>FerFi[r?(F`rFerFNF]a
lF9>F]q6$F]q-%0Riegeom/for/seqG6$-Fehl6$<&Fbffm/&FKFe[sFZ/&FKFb[nF\r/&FKFebuF`r
FJFjrF5F5F5F5,
I%pathF``_mF5,
I'metricF[a^mF5,
I;type/covariantnumericindexRFaqF\`rF]_rF5C%@$FibfmFjbfm>FAFc`m@-3Fa`rFh`rF9Fhh
tFf^\l4-FW6$Fg\mFg^oF]hqFccfmF]hqFcarF]hqFf^\lF5F5F5F5,
I3Riegeom/abs_tensorR6$FhblFb[qF5Fe[lF5C$@$Fi[lC$@$FbclFeclFdijm@'F_\nC$@$F`el>
FKFNFJFjijmC$@$F`el>FKFgqFg\mF_jjmF5F5F5F5,
I5Riegeom/complete_symR6$FbfqF[cl6#%#n0GFe[lF5C$@$Fi[lC$@$F\\lF[dbl-Fc\l6%Fe\lF
f\l7#.6$Fg_lFg]o@+F^gqFJ-F_s6$FJ.<&FQFealFhe\mF_o7$FJF_b[nFh]zC$@$0FKF`p-Faz6%%
7Riegeom~INTERNAL~ERRORG%3expecting~n=4,~gotGFK7$FgoFaal-F_s6$FJ.<&FgjamFdjamFe
jamFfjamC%>FA,$FKFjhn@$4-FW6$FAFg]o-Faz6%Fha\n%Cexpecting~n~even~and~positive,~
gotGFK7%FJ7#-Fbhu6#Ff[\l7#-Fbhu6#;Fc[rFK-Faz6%Fha\n%<not~expecting~the~symmetry
:GFJF5F5F5F5,
I<Riegeom/nf/*/non_tens_indexR6%FbqF_^uF`^u6(F1Fb[lFc[lFbgdlFdeflFajsFe[lF5C)@$
Fi[lC$@$Fea\mFfa\m-Fc\l6%Fe\lFf\l.7%Ff^o-Fj\lFeeyF`d\n>FA-FU6%Fh_nFKFJ>FZ-FU6%F
h_nFAFg\m>F\r-FU6%Fh_nFFFJ>F`rF_bm>FerFa_x@&Fh]gl@'Fabp@$3-FW6$Fg\m-.%/tensoria
lindexGFcfl-FW6$FJ-Fce\nFh`dlFgcwFd\elC$>Fjr-F_^l6$FbtFA@$33/FjrFNF`e\n-FW6$FJ-
Fce\n6#&FAFe[sFgcw-Faz6%F`jw%9expecting~n2=1~or~0,~gotGFer/F^\dlF`wC%>FA-FU6%Fh
_nF\rFg\m>Fjr-F_^l6$FevF\r@$33F_f\n-FW6$Fg\m-Fce\nFg^q-FW6$FJ-Fce\n6#&F\rFe[sFg
cwF5F5F5F5,
I/convert/matrixR6#%#A1G6%F%F'Fi]]lFe[lF5C$>FAF``m@%Fd\clC$>FZF_fn@%/-FC6$FjpFZ
7&F`wFcrFcrF`w-&Ficr6#F]cr6%F]alF]al-F\[l6#7#-Fhb[l6%F[celF_[oF=-Faz6#%Xwrong~n
umber~or~type~of~indices~in~conversion~to~matrixGC$>F\r-F\[u6#-FiarFfv@%/F\rF^]
s((F]joF\r%+~or~tensorGFhjalF5F5F56",
I?Riegeom/dalembertian/algebraicRF[\n6&F_jsF`jsF-Fi]mFe[lF5@/-FW6$FJ.FdahmF`w-F
WFdfel-F^^^mF^fqF`frC$>F`rFc`m@%3-Fdfm6#Fc`o-F_s6$FJ&Fd`oFb\o-F^^^m6#&F[al6#-Fe
hl6$Fc`oFJF`wF^hnF^dflFhenC%>FAFeq>FZFj]t,&*&FdiclFNFZFNFN*&FAFN-Fe\lFctFNFNFa^
tFd^tFij\nF5F5F5F5,
I%showFgc_mF5,
I6Riegeom/simpsum/tdiffRF[\n6)F]\nF]clF\doFhdcm%$T1NGF[do%+T1NindtypeGF5F5C(@$F
i[lC$@$F]_lF`iy-Fc\l6%Fe\lFf\l7#.<$-Fd\n6#<$F\dlFd\nF\dl@$FjdgmF[gcm>FZFeq>FAFi
dl@$4-F_s6$FA.<&F\]nFihlFbhlF^]n-Faz6$%Uthe~following~function~is~not~known~in~
the~package:~GFA@'-FWF]helC(>F\r-Fajo6$FZFihhm>FerFc]cl@'-Fdfm6#Fg[dl>F]q&Fg[dl
FfhvFe]w>F]q7#-FbhuFg`n>F]q7#-Fbhu6$FNF`r>Fjr(((FfcdmFAFecdmF\r-Fi`l6-Fhh^mFjrF
[alF\alF]alFLFLFgal7$F\h]lFgqFLFL&Fjr6$Fbt,$FcatFgq-FW6$FZFc\n-Fe\l6#-Fidl6$F_j
nFf]n-Faz6#%Zinternal~error:~expecting~type~constanttensor~or~functionGF5F5F5F5,
I*DimensionFcrF5,
I-dalembertianFb]^mF5,
I4Rigeom/nf/configs/1R6%F]cl%&ind_1GFbfq65F-F.F/F0Fi\oFi]u%#kkG%#llGF[clFh[blF+
%(pos_indGF,FdioF\doFb[qFb[lFc[lF1F5F5C(@$Fi[lC$@$Fea\mF_ham-Fc\l6%Fe\lFf\l7#.6
%FfddlF\apFg_l>Fhau-Fa\x6$FJ.F]bu>Fgfr-F]p6$F`wFhau>Fcdr7#Fca_l>Feir-FU6%F_sFcd
rFK@'-FW6$FFFham@+Ff]cmFJF[^cm-F]p6#-FC6%R6$FbqFb[qF5FgbnF5*&FKFN&FdfblF^`lFNF5
F56$FdioFgfr-F^f_l6$-FC6%F_^lFeirFcdrFcdrF]buFb^cm-F]p6#-FC6&R6%FbqF,Fb[qF5F5F5
*(FFFN-Fi\qFjh_lFNF^c]nFNF5F5F_c]nF`c]nFcdrF]buFh^cmC,>F]jrFbc]n>FA-F]p6$FNF]jr
>Fer&FcdrFfv>FZ-F]p6$FcrF]jr>FjrFfjw>F\r-F]p6$FhrF]jr>F]q&FcdrFe_o>F`r-F]p6$F`p
F]jr>F]w&FcdrFaan6**&F]buFNFhauFN,$*&F]buFN-F_y6%F]\il/FZFerFhauFNFgq,$*&F]buFN
-F_y6%/F\rF]w/F`rF]qFhauFNFgq*&F]buFN-F_y6'F]\ilFge]nF\f]nF]f]nFhauFN*&F]buFN-F
_y6'F^_gm/FZF]w/F\rFer/F`rFjrFhauFN,$*&F]buFN-F_y6'F^_gmFdf]nF`\hm/F`rFerFhauFN
Fgq,$*&F]buFN-F_y6'/FAF]wFc\yFef]nFff]nFhauFNFgq*&F]buFN-F_y6'F`g]nFc\yF`\hmF[g
]nFhauFN-Faz6$Ff]blFF-FW6$FFFielC%>Fg[s&FFF^gm>F][rFip@'/F][rFcr@)/Fg[sFP-F]p6#
-FC6%RF\c]nF5FgbnF5F]c]nF5F5F_c]n-F^f_l6$-FC6%F_^l-FC6%F]p&FFFe[sFeirFcdrFcdrF]
bu/Fg[sF^o-F]p6#-FC6&RFic]nF5F5F5Fjc]nF5F5F_c]nFeh]nFcdrF]bu/Fg[sFgo-Fe\l6%*&F]
buFN&Fgfr6#F^_^lFN-FC6%F]pF[i]nFcdrFgo-Faz6$Ff]blFg[s2FcrF][rC%>F^du-Fehl6$<#-F
j]l6$/FAFa[gl/FA;FNFcjr&FFF^ho>Facu-Fbd_lFi\dm@'F_h]nC$>Fecu-FC6$RFaqF5FgbnF5F[
cpF5F5F5Facu-F]p6#-FC6)R6(F1%$opLGF,F[clFdioFb[qFd[lF5F5*&FiisFN&F<6#-F]p6#-F_y
6$-Fj]l6$/-F_^l6$Fhe_lFFFie_lFje_lFFFNF5F5F5Fecu-FC6$F]pF^duFcdr-Fjp6#&FecuF^gm
FgfrF]buF\i]n-F]p6#-FC6)R6(Fb[lF1Ff[^nF,FdioFb[q6%F-F[clF[auF5F5C%>F\rF[cp>FZFi
p*(F[d]nFNFiisFN&F<6#-F]p6#-F_y6$-Fj]l6$/-F_^l6$FaagmFM&FFFfv/FA;FNFZFMFNF5F5F5
FacuF^duFc\^nFcdrFgfrF]buFji]n-Faz6$%NRiegeom~INTERNAL~ERROR:~expecting~n>1,~go
t~n=GF][r-Faz6$FfagmFFF5F5F5F5
