← Back to branch summary

~maddevelopers/mg5amcnlo/2.5.4_run_py8_at_evtgen

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%check_sa_born_splitOrders.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%check_sa_born_splitOrders.f
128
128
      WRITE(*,*) '1) Matrix element for (QCD=4) = ',MATELEMS(1)
129
129
C     
130
130
      IF (NCHOSEN.NE.NSPLITORDERS) THEN
131
 
        WRITE (*,*) 'Selected squared coupling orders combination fo'
132
 
     $   //'r the sum below:'
 
131
        WRITE (*,*) 'Selected squared coupling orders combination for'
 
132
     $   //' the sum below:'
133
133
        WRITE (*,*) (CHOSEN_SO_INDICES(I),I=1,NCHOSEN)
134
134
      ENDIF
135
 
      WRITE (*,*) 'Total Matrix element = ', MATELEM, ' GeV^',
136
 
     $ -(2*NEXTERNAL-8)
 
135
      WRITE (*,*) 'Total Matrix element = ', MATELEM, ' GeV^',-(2
 
136
     $ *NEXTERNAL-8)
137
137
      WRITE (*,*) '-----------------------------'
138
138
 
139
139
C     c
170
170
C     CALL SMATRIX(P,MATELEM)
171
171
C     
172
172
C     write (*,*) "-------------------------------------------------"
173
 
C     write (*,*) "Matrix element = ", MATELEM, " GeV^",-(2*nexternal-8
174
 
C     ) 
 
173
C     write (*,*) "Matrix element = ", MATELEM, " GeV^",-(2*nexternal-8)
 
174
C       
175
175
C     write (*,*) "-------------------------------------------------"
176
176
 
177
177
      END
293
293
      INTEGER NEXTERNAL, NINCOMING
294
294
      PARAMETER (NEXTERNAL=4,NINCOMING=2)
295
295
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
296
 
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4)
297
 
     $ , B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING)
298
 
     $ , E(NEXTERNAL-NINCOMING),V(NEXTERNAL-NINCOMING),IWARN(5)
 
296
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4),
 
297
     $  B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING),
 
298
     $  E(NEXTERNAL-NINCOMING),V(NEXTERNAL-NINCOMING),IWARN(5)
299
299
      SAVE ACC,ITMAX,IBEGIN,IWARN
300
300
      DATA ACC/1.D-14/,ITMAX/6/,IBEGIN/0/,IWARN/5*0/
301
301
C     *
425
425
      RETURN
426
426
C     *
427
427
 1001 FORMAT(' RAMBO FAILS: # OF PARTICLES =',I5,' IS NOT ALLOWED')
428
 
 1002 FORMAT(' RAMBO FAILS: TOTAL MASS =',D15.6,' IS NOT SMALLER THA'
429
 
     $ //'N TOTAL ENERGY =',D15.6)
 
428
 1002 FORMAT(' RAMBO FAILS: TOTAL MASS =',D15.6,' IS NOT SMALLER THAN'
 
429
     $ //' TOTAL ENERGY =',D15.6)
430
430
 1004 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY UNDERFLOW')
431
431
 1005 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY  OVERFLOW')
432
 
 1006 FORMAT(' RAMBO WARNS:',I3,' ITERATIONS DID NOT GIVE THE DESIRE'
433
 
     $ //'D ACCURACY =',D15.6)
 
432
 1006 FORMAT(' RAMBO WARNS:',I3,' ITERATIONS DID NOT GIVE THE DESIRED'
 
433
     $ //' ACCURACY =',D15.6)
434
434
      END
435
435
 
436
436
      FUNCTION RN(IDUMMY)