(* ::Package:: *)

(* ReyeCongrY *)
CY = "ReyeCongrY";
chi = -50; kappa = 10; c2 = 40; pmax = 4; lmax = 2;lmax2=6;
GVTab = {{550, 19150, 1165550, 106612400, 12279982850, 1623505897500, 235773848446900, 
    36677428272627500, 6013303354178962900}, {0, 50, 8800, 2205050, 571891188, 
    145348456975, 36407863802400, 9007535459995025, 2206445978587108100}, {0, 0, 0, 
    1475, 3421300, 2866211100 , 1629661401800, 754167588991150, 306780142847805350}, 
    {0, 0, 0, 0, 100, 8187125, 19888077100, 23146244434500, 18532051742762800}};
    
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,550,26400,565400,6955300,51551500},{0,0,0,0,50,21650,1126425,27367450,389282225,
3442021250},{0,0,0,0,8800,1633050,77698900,1868328500,27204470300,253115883250},{0,0,
0,1475,2283025,224534500,8734892500,189483829075,2596447855550,23316229719125},{0,0,
100,3426700,751183138,46573850200,1444521752150,27161443246300,335314612435000,
2763258510183990},{0,0,8187125,3308444600,307354152800,13040943882375,321993895100050,
5154966697760750,55996181323806225,410747906320391250},{0,0,19888082100,2708306713950,
149556834731750,4628997572684800,91708088052842450,1238397521313339800,
11632949705079226450,73982094305261142250},{0,0,23146655757825,2015359017394775,
80590016151893675,1951062512882809425,31725876791552578575,361907693044990861250,
2906897851234285073525,15601302189138588074875},{0,147500,18533123468627800,
1320804978939863850,43972157311054196400,900159635926100052950,12523322967122190339500,
122910487195927074142150,844179732692818045352050,3720885800501255268213500}};

h1={};