00001 character*3 LEPTONflag 00002 integer iLEP,iwarnings,LFLAG 00003 real *8 pi,pi2,ln2,zeta2,zeta3,zeta5 00004 real *8 alp,adp,adp2,adp3,ml(3) 00005 real *8 small,large,large_3 00006 real *8 st2,als,mtop 00007 real *8 dalept,dahadr,daltop 00008 common /consts/pi,pi2,ln2,zeta2,zeta3,zeta5 00009 common /params/ALP,adp,adp2,adp3,ml 00010 common /switch/small,large,large_3 00011 common /lepton/iLEP,iwarnings,LEPTONflag 00012 common /parm/st2,als,mtop 00013 common /resu/dalept,dahadr,daltop