~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportV4IOTest/export_matrix_element_v4_madevent_group/matrix1.f

  • Committer: olivier-mattelaer
  • Date: 2021-05-31 14:46:34 UTC
  • mfrom: (965.1.13 3.1.1)
  • Revision ID: olivier-mattelaer-20210531144634-0qfepzcamyo7cy8u
pass to 3.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
83
83
      INTEGER NB_SPIN_STATE_IN(2)
84
84
      COMMON /NB_HEL_STATE/ NB_SPIN_STATE_IN
85
85
 
86
 
      INTEGER IMIRROR
87
 
      COMMON/TO_MIRROR/ IMIRROR
 
86
      INTEGER IMIRROR,IPROC
 
87
      COMMON/TO_MIRROR/ IMIRROR,IPROC
88
88
 
89
89
      DOUBLE PRECISION TMIN_FOR_CHANNEL
90
90
      INTEGER SDE_STRAT  ! 1 means standard single diagram enhancement strategy,
343
343
      COMPLEX*16 DUM0,DUM1
344
344
      DATA DUM0, DUM1/(0D0, 0D0), (1D0, 0D0)/
345
345
 
 
346
      DOUBLE PRECISION FK_WZ
346
347
      DOUBLE PRECISION FK_ZERO
347
 
      DOUBLE PRECISION FK_WZ
 
348
      SAVE FK_WZ
348
349
      SAVE FK_ZERO
349
 
      SAVE FK_WZ
350
350
 
351
351
      LOGICAL FIRST
352
352
      DATA FIRST /.TRUE./