ctotal:='((wavefunl nil) (nfn 0) (nz 0) (nz0 0) (nout 1) (
state 0) (nsy 1) (hand 0) (xi 3) (nauto 0) (escale wm));
 
group:='(((20 20)))$
 
maslist:='nil$
 
ndiagfile:='100$
 
alldiagram:='(((0 a1a0a1)))$
 
coupling_order_list:='(((g . 2)))$
 
array aa(100),aaaa(100)$
 
rangelist:='nil$
 
gresonance_list:='(((plus p3 p4) (19 p10m (plus (minus p3) (
minus p4))) (17 p12m (plus (minus p3) (minus p4))) (15 p3m (
plus (minus p3) (minus p4))) (13 p4m (plus (minus p3) (minus
p4))) (11 p5m (plus (minus p3) (minus p4))) (9 p6m (plus (
minus p3) (minus p4))) (7 p7m (plus (minus p3) (minus p4)))
(5 p8m (plus (minus p3) (minus p4))) (3 p9m (plus (minus p3)
(minus p4))) (1 p11m (plus (minus p3) (minus p4)))) ((plus 
p2 p4) (20 p10m (plus (minus p2) (minus p4))) (18 p12m (plus
(minus p2) (minus p4))) (16 p3m (plus (minus p2) (minus p4))
) (14 p4m (plus (minus p2) (minus p4))) (12 p5m (plus (minus
p2) (minus p4))) (10 p6m (plus (minus p2) (minus p4))) (8 
p7m (plus (minus p2) (minus p4))) (6 p8m (plus (minus p2) (
minus p4))) (4 p9m (plus (minus p2) (minus p4))) (2 p11m (
plus (minus p2) (minus p4)))))$
 
nsum:='20$
 
nallterm:='20$
 
;end;
 
