"Source: Text/Geometry/Lseries.text";
"Line: 1901";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Lseries.text, line: 1901
// Example: H136E23 ()
print "Example: H136E23";
ei := GetEchoInput();
SetEchoInput(true);
H := HypergeometricData([2,3],[1,6]);
MValue(H);
L := LSeries(H,4);
BadPrimeData(L);
LCfRequired(L); // approx for old CheckFunctionalEquation
CFENew(L);
M := ChangeLocalInformation(L,[* <3,4,1> *]);
LCfRequired(M);
CFENew(M);
#L`cfvec; // length 260
CopyCoefficients(M,L); // M back to L
#L`cfvec; // now length 450
SetEchoInput(ei);
