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