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