write(*,*) 'IDPHOs=',IDPHO(1),IDPHO(2),IDPHO(3),IDPHO(4),IDPHO(5) write(*,*) 'IDPHOs=',pho.jdahep[1-i][1-i],npho write(*,*) 'hep.IDPHOs=',hep.IDhep(1),hep.IDhep(2),hep.IDhep(3),hep.IDhep(4),hep.IDhep(5)
923 double EMU, MCHREN, BETA, COSTHG, MPASQR, XPH;
924 double PW[4], PMU[4], PPHOT[4], PNE[4];
925 double B_PW[4], B_PNE[4], B_PMU[4];
927 int I, IJ, I3, I4, JJ;
928 double MB, MF1, MF2, QB, QF2;
937 if (abs(pho.idhep[1 - i]) == 24 &&
938 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i ]) >= 11 &&
939 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i ]) <= 16 &&
940 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i + 1]) >= 11 &&
941 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i + 1]) <= 16) {
944 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i ]) == 11 ||
945 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i ]) == 13 ||
946 abs(pho.idhep[pho.jdahep[1 - i][1 - i] - i ]) == 15) {
947 I = pho.jdahep[1 - i][1 - i];
949 I = pho.jdahep[1 - i][1 - i] + 1;
952 EMU = pho.phep[I - i][4 - i];
954 MCHREN = fabs(pho.phep[I - i][4 - i] * pho.phep[I - i][4 - i] - pho.phep[I - i][3 - i] * pho.phep[I - i][3 - i]
955 - pho.phep[I - i][2 - i] * pho.phep[I - i][2 - i] - pho.phep[I - i][1 - i] * pho.phep[I - i][1 - i]);
956 BETA = sqrt(1 - MCHREN / pho.phep[I - i][4 - i] * pho.phep[I - i][4 - i]);
957 COSTHG = ((pho.phep[I - i][3 - i] * pho.phep[pho.nhep - i][3 - i] + pho.phep[I - i][2 - i] * pho.phep[pho.nhep - i][2 - i]
958 + pho.phep[I - i][1 - i] * pho.phep[pho.nhep - i][1 - i]) /
959 sqrt(pho.phep[I - i][3 - i] * pho.phep[I - i][3 - i] + pho.phep[I - i][2 - i] * pho.phep[I - i][2 - i] + pho.phep[I - i][1 - i] *
960 pho.phep[I - i][1 - i]) /
961 sqrt(pho.phep[pho.nhep - i][3 - i] * pho.phep[pho.nhep - i][3 - i] + pho.phep[pho.nhep - i][2 - i] * pho.phep[pho.nhep - i][2 - i] +
962 pho.phep[pho.nhep - i][1 - i] * pho.phep[pho.nhep - i][1 - i]));
963 MPASQR = pho.phep[1 - i][4 - i] * pho.phep[1 - i][4 - i];
964 XPH = pho.phep[pho.nhep - i][4 - i];
968 SANC_INIT(phocop.alpha, phlun);
971 MB = pho.phep[1 - i][4 - i];
974 for (IJ = 1; IJ <= hep.nhep; IJ++) {
975 if (abs(hep.idhep[IJ - i]) == 24) { I3 = IJ;}
977 if (I3 == -1) {cout <<
" ERROR IN PHOBWnlo of PHOTS W-ME: I3= &2i" << I3 << endl;}
979 abs(hep.idhep[hep.jdahep[I3 - i][1 - i] - i ]) == 11 ||
980 abs(hep.idhep[hep.jdahep[I3 - i][1 - i] - i ]) == 13 ||
981 abs(hep.idhep[hep.jdahep[I3 - i][1 - i] - i ]) == 15) {
982 I4 = hep.jdahep[I3 - i][1 - i];
985 I4 = hep.jdahep[I3 - i][1 - i] + 1 ;
988 if (hep.idhep[I3 - i] == -24) QB = -1.0;
989 if (hep.idhep[I3 - i] == +24) QB = +1.0;
990 if (hep.idhep[I4 - i] > 0.0) QF2 = -1.0;
991 if (hep.idhep[I4 - i] < 0.0) QF2 = +1.0;
995 for (JJ = 1; JJ <= 4; JJ++) {
996 B_PW [(JJ % 4)] = hep.phep[I3 - i][JJ - i];
997 B_PNE[(JJ % 4)] = hep.phep[I3 - i][JJ - i] - hep.phep[I4 - i][JJ - i];
998 B_PMU[(JJ % 4)] = hep.phep[I4 - i][JJ - i];
1002 for (JJ = 1; JJ <= 4; JJ++) {
1003 PW [(JJ % 4)] = pho.phep[1 - i][JJ - i];
1004 PMU [(JJ % 4)] = pho.phep[I - i][JJ - i];
1005 PPHOT[(JJ % 4)] = pho.phep[pho.nhep - i][JJ - i];
1006 PNE [(JJ % 4)] = pho.phep[1 - i][JJ - i] - pho.phep[I - i][JJ - i] - pho.phep[pho.nhep - i][JJ - i];
1010 MF1 = sqrt(fabs(B_PNE[0] * B_PNE[0] * -B_PNE[1] * B_PNE[1] - B_PNE[2] * B_PNE[2] - B_PNE[3] * B_PNE[3]));
1011 MF1 = sqrt(fabs(PNE[0] * PNE[0] - PNE[1] * PNE[1] - PNE[2] * PNE[2] - PNE[3] * PNE[3]));
1013 SANC_INIT1(QB, QF2, MF1, MF2, MB);
1014 *WT = (*WT) * SANC_WT(PW, PNE, PMU, PPHOT, B_PW, B_PNE, B_PMU);