File indexing completed on 2026-08-06 09:23:36
0001 integer memory
0002 parameter(memory=12)
0003 logical lwrite,ltest,l4also,ldc3c4,lmem,lwarn,ldot,onshel,lsmug,
0004 + lnasty
0005 integer nwidth,nschem,idot
0006 DOUBLE PRECISION xloss,precx,precc,xalogm,xclogm,xalog2,xclog2,
0007 + reqprc,x0,x05,x1,x2,x4,pi,pi6,pi12,xlg2,bf(20),
0008 + xninv(30),xn2inv(30),xinfac(30),
0009 + fpij2(3,3),fpij3(6,6),fpij4(10,10),fpij5(15,15),
0010 + fpij6(21,21),fdel2,fdel3,fdel4s,fdel4,fdl3i(5),
0011 + fdl3ij(6,6),fdl4i(6)
0012 COMPLEX c0,c05,c1,c2,c4,c2ipi,cipi2,
0013 + cfpij2(3,3),cfpij3(6,6),cfpij4(10,10),cfpij5(15,15),
0014 + cfpij6(21,21),cmipj(3,3),c2sisj(4,4),cfdl4s,ca1
0015 integer nevent,ner,id,idsub,inx(4,4),isgn(4,4),isgn34,isgnal,
0016 + iold(13,12),isgrot(10,12),irota3,irota4,irota5,irota6
0017 integer idum93(2)
0018 parameter(x0 = 0.d0,x1 = 1.d0,x05 = .5d0,x2 = 2.d0,x4 = 4.d0,
0019 + c0 = (0.E0,0.E0),c05 = (.5D0,0.E0),c1 = (1.E0,0.E0),
0020 + c2 = (2.E0,0.E0),c4 = (4.E0,0.E0))
0021 parameter(
0022 + c2ipi = (0.E+0,6.28318530717958647692528676655896D+0),
0023 + cipi2 = (0.E+0,9.869604401089358618834490999876D+0),
0024 + pi = 3.14159265358979323846264338327948D+0,
0025 + pi6 = 1.644934066848226436472415166646D+0,
0026 + pi12 = .822467033424113218236207583323D+0,
0027 + xlg2 = .6931471805599453094172321214581D+0)
0028 common /ffsign/isgn34,isgnal
0029 common /ffprec/ xloss,precx,precc,xalogm,xclogm,xalog2,xclog2,
0030 + reqprc
0031 common /ffflag/ lwrite,ltest,l4also,ldc3c4,lmem,lwarn,ldot,
0032 + nevent,ner,id,idsub,nwidth,nschem,onshel,idot
0033 common /ffcnst/ bf,xninv,xn2inv,xinfac,inx,isgn,iold,isgrot
0034 common /ffrota/ irota3,irota4,irota5,irota6
0035 common /ffdot/ fpij2,fpij3,fpij4,fpij5,fpij6
0036 common /ffdel/ fdel2,fdel3,fdel4s,fdel4,fdl3i,fdl3ij,fdl4i
0037 common /ffcdot/ cfpij2,cfpij3,cfpij4,cfpij5,cfpij6
0038 common /ffcdel/ cfdl4s
0039 common /ffsmug/ lsmug,lnasty,idum93,cmipj,c2sisj,ca1
