ctotal:='((wavefunl nil) (nfn 0) (nz 0) (nz0 0) (nout 1) (
state 0) (nsy 1) (hand 0) (xi 3) (nauto 0) (escale wm));
 
group:='(((36 36)))$
 
maslist:='nil$
 
ndiagfile:='100$
 
alldiagram:='(((0 a1a0a1)))$
 
coupling_order_list:='(((g . 3)))$
 
array aa(100),aaaa(100)$
 
rangelist:='nil$
 
gresonance_list:='(((plus p2 p3 p4) (24 p5m (plus p1 p5)) (
23 p5m (plus p1 p5)) (22 p6m (plus p1 p5)) (21 p6m (plus p1
p5)) (20 p7m (plus p1 p5)) (19 p7m (plus p1 p5)) (18 p8m (
plus p1 p5)) (17 p8m (plus p1 p5)) (16 p9m (plus p1 p5)) (15
p9m (plus p1 p5)) (14 p10m (plus p1 p5)) (13 p10m (plus p1 
p5)) (12 p11m (plus p1 p5)) (11 p11m (plus p1 p5)) (10 p11m
(plus p1 p5)) (9 p11m (plus p1 p5)) (8 p12m (plus p1 p5)) (7
p12m (plus p1 p5)) (6 p12m (plus p1 p5)) (5 p12m (plus p1 p5
)) (2 p4m (plus p1 p5)) (1 p4m (plus p1 p5))) ((plus p2 p4)
(34 p13m (plus (minus p2) (minus p4))) (32 p13m (plus (minus
p2) (minus p4))) (28 p13m (plus (minus p2) (minus p4))) (26
p13m (plus (minus p2) (minus p4))) (23 p13m (plus (minus p2)
(minus p4))) (21 p13m (plus (minus p2) (minus p4))) (19 p13m
(plus (minus p2) (minus p4))) (17 p13m (plus (minus p2) (
minus p4))) (15 p13m (plus (minus p2) (minus p4))) (13 p13m
(plus (minus p2) (minus p4))) (11 p14m (plus (minus p2) (
minus p4))) (9 p13m (plus (minus p2) (minus p4))) (7 p14m (
plus (minus p2) (minus p4))) (5 p13m (plus (minus p2) (minus
p4))) (4 p13m (plus (minus p2) (minus p4))) (1 p13m (plus (
minus p2) (minus p4)))) ((plus p2 p3) (36 p13m (plus p2 p3))
(31 p13m (plus p2 p3)) (30 p13m (plus p2 p3)) (25 p13m (plus
p2 p3)) (24 p13m (plus p2 p3)) (22 p13m (plus p2 p3)) (20 
p13m (plus p2 p3)) (18 p13m (plus p2 p3)) (16 p13m (plus p2
p3)) (14 p13m (plus p2 p3)) (12 p14m (plus p2 p3)) (10 p13m
(plus p2 p3)) (8 p14m (plus p2 p3)) (6 p13m (plus p2 p3)) (3
p13m (plus p2 p3)) (2 p13m (plus p2 p3))) ((plus p4 p5) (33
p15m (plus (minus p4) (minus p5))) (31 p17m (plus (minus p4)
(minus p5))) (27 p15m (plus (minus p4) (minus p5))) (25 p16m
(plus (minus p4) (minus p5))) (3 p15m (plus (minus p4) (
minus p5)))) ((plus p3 p5) (35 p15m (plus p3 p5)) (32 p17m (
plus p3 p5)) (29 p15m (plus p3 p5)) (26 p16m (plus p3 p5)) (
4 p15m (plus p3 p5))) ((plus p2 p4 p5) (34 p18m (plus p1 p3)
) (33 p18m (plus p1 p3)) (28 p17m (plus p1 p3)) (27 p17m (
plus p1 p3))) ((plus p2 p3 p5) (36 p18m (plus (minus p1) (
minus p4))) (35 p18m (plus (minus p1) (minus p4))) (30 p17m
(plus (minus p1) (minus p4))) (29 p17m (plus (minus p1) (
minus p4)))))$
 
nsum:='36$
 
nallterm:='36$
 
;end;
 
