double precision dummy(-nf:nf,-nf:nf) ************************************************************************ * DEFINITIONS FOR EIKONALS WITH p7 * ************************************************************************ double precision . sub17_2(4),sub17_2v, . msq17_2(-nf:nf,-nf:nf),msq17_2v(-nf:nf,-nf:nf), . msq_struc17_2(8,-1:1,-1:1),msq_struc17_2v(8,-1:1,-1:1) double precision . sub27_1(4),sub27_1v, . msq27_1(-nf:nf,-nf:nf),msq27_1v(-nf:nf,-nf:nf), . msq_struc27_1(8,-1:1,-1:1),msq_struc27_1v(8,-1:1,-1:1) double precision . sub17_5(4),sub17_5v, . msq17_5(-nf:nf,-nf:nf),msq17_5v(-nf:nf,-nf:nf), . msq_struc17_5(8,-1:1,-1:1),msq_struc17_5v(8,-1:1,-1:1) double precision . sub27_6(4),sub27_6v, . msq27_6(-nf:nf,-nf:nf),msq27_6v(-nf:nf,-nf:nf), . msq_struc27_6(8,-1:1,-1:1),msq_struc27_6v(8,-1:1,-1:1) double precision . sub17_6(4),sub17_6v, . msq17_6(-nf:nf,-nf:nf),msq17_6v(-nf:nf,-nf:nf), . msq_struc17_6(8,-1:1,-1:1),msq_struc17_6v(8,-1:1,-1:1) double precision . sub27_5(4),sub27_5v, . msq27_5(-nf:nf,-nf:nf),msq27_5v(-nf:nf,-nf:nf), . msq_struc27_5(8,-1:1,-1:1),msq_struc27_5v(8,-1:1,-1:1) double precision . sub57_1(4),sub57_1v, . msq57_1(-nf:nf,-nf:nf),msq57_1v(-nf:nf,-nf:nf), . msq_struc57_1(8,-1:1,-1:1),msq_struc57_1v(8,-1:1,-1:1) double precision . sub67_2(4),sub67_2v, . msq67_2(-nf:nf,-nf:nf),msq67_2v(-nf:nf,-nf:nf), . msq_struc67_2(8,-1:1,-1:1),msq_struc67_2v(8,-1:1,-1:1) double precision . sub67_1(4),sub67_1v, . msq67_1(-nf:nf,-nf:nf),msq67_1v(-nf:nf,-nf:nf), . msq_struc67_1(8,-1:1,-1:1),msq_struc67_1v(8,-1:1,-1:1) double precision . sub57_2(4),sub57_2v, . msq57_2(-nf:nf,-nf:nf),msq57_2v(-nf:nf,-nf:nf), . msq_struc57_2(8,-1:1,-1:1),msq_struc57_2v(8,-1:1,-1:1) double precision . sub57_6(4),sub57_6v, . msq57_6(-nf:nf,-nf:nf),msq57_6v(-nf:nf,-nf:nf), . msq_struc57_6(8,-1:1,-1:1),msq_struc57_6v(8,-1:1,-1:1) double precision . sub67_5(4),sub67_5v, . msq67_5(-nf:nf,-nf:nf),msq67_5v(-nf:nf,-nf:nf), . msq_struc67_5(8,-1:1,-1:1),msq_struc67_5v(8,-1:1,-1:1) ************************************************************************ * DEFINITIONS FOR EIKONALS WITH p6 * ************************************************************************ double precision . sub16_2(4),sub16_2v, . msq16_2(-nf:nf,-nf:nf),msq16_2v(-nf:nf,-nf:nf), . msq_struc16_2(8,-1:1,-1:1),msq_struc16_2v(8,-1:1,-1:1) double precision . sub26_1(4),sub26_1v, . msq26_1(-nf:nf,-nf:nf),msq26_1v(-nf:nf,-nf:nf), . msq_struc26_1(8,-1:1,-1:1),msq_struc26_1v(8,-1:1,-1:1) double precision . sub16_5(4),sub16_5v, . msq16_5(-nf:nf,-nf:nf),msq16_5v(-nf:nf,-nf:nf), . msq_struc16_5(8,-1:1,-1:1),msq_struc16_5v(8,-1:1,-1:1) double precision . sub26_7(4),sub26_7v, . msq26_7(-nf:nf,-nf:nf),msq26_7v(-nf:nf,-nf:nf), . msq_struc26_7(8,-1:1,-1:1),msq_struc26_7v(8,-1:1,-1:1) double precision . sub16_7(4),sub16_7v, . msq16_7(-nf:nf,-nf:nf),msq16_7v(-nf:nf,-nf:nf), . msq_struc16_7(8,-1:1,-1:1),msq_struc16_7v(8,-1:1,-1:1) double precision . sub26_5(4),sub26_5v, . msq26_5(-nf:nf,-nf:nf),msq26_5v(-nf:nf,-nf:nf), . msq_struc26_5(8,-1:1,-1:1),msq_struc26_5v(8,-1:1,-1:1) double precision . sub56_1(4),sub56_1v, . msq56_1(-nf:nf,-nf:nf),msq56_1v(-nf:nf,-nf:nf), . msq_struc56_1(8,-1:1,-1:1),msq_struc56_1v(8,-1:1,-1:1) double precision . sub76_2(4),sub76_2v, . msq76_2(-nf:nf,-nf:nf),msq76_2v(-nf:nf,-nf:nf), . msq_struc76_2(8,-1:1,-1:1),msq_struc76_2v(8,-1:1,-1:1) double precision . sub76_1(4),sub76_1v, . msq76_1(-nf:nf,-nf:nf),msq76_1v(-nf:nf,-nf:nf), . msq_struc76_1(8,-1:1,-1:1),msq_struc76_1v(8,-1:1,-1:1) double precision . sub56_2(4),sub56_2v, . msq56_2(-nf:nf,-nf:nf),msq56_2v(-nf:nf,-nf:nf), . msq_struc56_2(8,-1:1,-1:1),msq_struc56_2v(8,-1:1,-1:1) double precision . sub56_7(4),sub56_7v, . msq56_7(-nf:nf,-nf:nf),msq56_7v(-nf:nf,-nf:nf), . msq_struc56_7(8,-1:1,-1:1),msq_struc56_7v(8,-1:1,-1:1) double precision . sub76_5(4),sub76_5v, . msq76_5(-nf:nf,-nf:nf),msq76_5v(-nf:nf,-nf:nf), . msq_struc76_5(8,-1:1,-1:1),msq_struc76_5v(8,-1:1,-1:1) ************************************************************************ * DEFINITIONS FOR EIKONALS WITH p5 * ************************************************************************ double precision . sub15_2(4),sub15_2v, . msq15_2(-nf:nf,-nf:nf),msq15_2v(-nf:nf,-nf:nf), . msq_struc15_2(8,-1:1,-1:1),msq_struc15_2v(8,-1:1,-1:1) double precision . sub25_1(4),sub25_1v, . msq25_1(-nf:nf,-nf:nf),msq25_1v(-nf:nf,-nf:nf), . msq_struc25_1(8,-1:1,-1:1),msq_struc25_1v(8,-1:1,-1:1) double precision . sub15_7(4),sub15_7v, . msq15_7(-nf:nf,-nf:nf),msq15_7v(-nf:nf,-nf:nf), . msq_struc15_7(8,-1:1,-1:1),msq_struc15_7v(8,-1:1,-1:1) double precision . sub25_6(4),sub25_6v, . msq25_6(-nf:nf,-nf:nf),msq25_6v(-nf:nf,-nf:nf), . msq_struc25_6(8,-1:1,-1:1),msq_struc25_6v(8,-1:1,-1:1) double precision . sub15_6(4),sub15_6v, . msq15_6(-nf:nf,-nf:nf),msq15_6v(-nf:nf,-nf:nf), . msq_struc15_6(8,-1:1,-1:1),msq_struc15_6v(8,-1:1,-1:1) double precision . sub25_7(4),sub25_7v, . msq25_7(-nf:nf,-nf:nf),msq25_7v(-nf:nf,-nf:nf), . msq_struc25_7(8,-1:1,-1:1),msq_struc25_7v(8,-1:1,-1:1) double precision . sub75_1(4),sub75_1v, . msq75_1(-nf:nf,-nf:nf),msq75_1v(-nf:nf,-nf:nf), . msq_struc75_1(8,-1:1,-1:1),msq_struc75_1v(8,-1:1,-1:1) double precision . sub65_2(4),sub65_2v, . msq65_2(-nf:nf,-nf:nf),msq65_2v(-nf:nf,-nf:nf), . msq_struc65_2(8,-1:1,-1:1),msq_struc65_2v(8,-1:1,-1:1) double precision . sub65_1(4),sub65_1v, . msq65_1(-nf:nf,-nf:nf),msq65_1v(-nf:nf,-nf:nf), . msq_struc65_1(8,-1:1,-1:1),msq_struc65_1v(8,-1:1,-1:1) double precision . sub75_2(4),sub75_2v, . msq75_2(-nf:nf,-nf:nf),msq75_2v(-nf:nf,-nf:nf), . msq_struc75_2(8,-1:1,-1:1),msq_struc75_2v(8,-1:1,-1:1) double precision . sub75_6(4),sub75_6v, . msq75_6(-nf:nf,-nf:nf),msq75_6v(-nf:nf,-nf:nf), . msq_struc75_6(8,-1:1,-1:1),msq_struc75_6v(8,-1:1,-1:1) double precision . sub65_7(4),sub65_7v, . msq65_7(-nf:nf,-nf:nf),msq65_7v(-nf:nf,-nf:nf), . msq_struc65_7(8,-1:1,-1:1),msq_struc65_7v(8,-1:1,-1:1)