← Back to branch summary

~maddevelopers/mg5amcnlo/2.5.3

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uxu_ttx%real_me_chooser.f

  • Committer: olivier-mattelaer
  • Date: 2017-03-08 12:31:17 UTC
  • Revision ID: olivier-mattelaer-20170308123117-h0zkqjyh9sihsc61
empty version to have an effective freeze of the code

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uxu_ttx%real_me_chooser.f
1
 
      SUBROUTINE SMATRIX_REAL(P, WGT)
2
 
      IMPLICIT NONE
3
 
      INCLUDE 'nexternal.inc'
4
 
      DOUBLE PRECISION P(0:3, NEXTERNAL)
5
 
      DOUBLE PRECISION WGT
6
 
      INTEGER NFKSPROCESS
7
 
      COMMON/C_NFKSPROCESS/NFKSPROCESS
8
 
      IF (NFKSPROCESS.EQ.1) THEN
9
 
        CALL SMATRIX_1(P, WGT)
10
 
      ELSEIF (NFKSPROCESS.EQ.2) THEN
11
 
        CALL SMATRIX_1(P, WGT)
12
 
      ELSEIF (NFKSPROCESS.EQ.3) THEN
13
 
        CALL SMATRIX_1(P, WGT)
14
 
      ELSEIF (NFKSPROCESS.EQ.4) THEN
15
 
        CALL SMATRIX_1(P, WGT)
16
 
      ELSEIF (NFKSPROCESS.EQ.5) THEN
17
 
        CALL SMATRIX_2(P, WGT)
18
 
      ELSEIF (NFKSPROCESS.EQ.6) THEN
19
 
        CALL SMATRIX_3(P, WGT)
20
 
      ELSE
21
 
        WRITE(*,*) 'ERROR: invalid n in real_matrix :', NFKSPROCESS
22
 
        STOP
23
 
      ENDIF
24
 
      RETURN
25
 
      END
26