(* ::Package:: *)

(* ReyeCongrX *)
CY = "ReyeCongrX";
chi = -50; kappa = 35; c2 = 50; pmax = 4; lmax = 4;lmax2=10;
GVTab = {{50, 325, 1475, 15325, 148575, 1885575, 24310650, 
    348616525, 5158310775}, {0, 0, 275, 4400, 84866, 1583175, 30888200, 604676675, 
    12044071475}, {0, 0, 0, 0, 0, 4400 , 536200, 29838375, 1207458375}, {0, 0, 0, 0, 0, 
    0, -550, 14350, 11555950}};
    
DTTab = {{-4,-3,-2,-1,0,1,2,3,4,5},{0,0,0,0,1,50,1125,14750,120050,565260},{0,0,0,0,0,
50,2400,51400,632300,4686500},{0,0,0,0,0,325,16825,390350,5250525,43503500},{0,0,0,0,
275,15225,396425,6339650,67717850,484417000},{0,0,0,0,4400,249075,6472000,101000975,
1031770550,6912820000},{0,0,0,0,84866,4701250,119038350,1799752975,17659239000,
111862406170},{0,0,0,4400,1849925,94415150,2304436825,33889766525,323216996400,
1971179929875},{0,0,-550,506500,59468550,2406189225,52668606100,722552292050,
6519237733925,37518674556000},{0,0,14350,30585775,2235202375,72844831525,1397075702375,
17433226614350,145367526440125,770327341278375},{0,0,11555950,1833228425,92788099000,
2487938405025,41774047950150,469724624108750,3567696584867450,17004542170780125}};

h1={4,2,6};