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