← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« 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: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

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
6
6
      INTEGER NFKSPROCESS
7
7
      COMMON/C_NFKSPROCESS/NFKSPROCESS
8
8
      IF (NFKSPROCESS.EQ.1) THEN
9
 
        CALL SMATRIX_1(P, WGT)
 
9
        CALL SMATRIX1(P, WGT)
10
10
      ELSEIF (NFKSPROCESS.EQ.2) THEN
11
 
        CALL SMATRIX_1(P, WGT)
 
11
        CALL SMATRIX1(P, WGT)
12
12
      ELSEIF (NFKSPROCESS.EQ.3) THEN
13
 
        CALL SMATRIX_1(P, WGT)
 
13
        CALL SMATRIX1(P, WGT)
14
14
      ELSEIF (NFKSPROCESS.EQ.4) THEN
15
 
        CALL SMATRIX_1(P, WGT)
 
15
        CALL SMATRIX1(P, WGT)
16
16
      ELSEIF (NFKSPROCESS.EQ.5) THEN
17
 
        CALL SMATRIX_2(P, WGT)
 
17
        CALL SMATRIX2(P, WGT)
18
18
      ELSEIF (NFKSPROCESS.EQ.6) THEN
19
 
        CALL SMATRIX_3(P, WGT)
 
19
        CALL SMATRIX3(P, WGT)
20
20
      ELSE
21
21
        WRITE(*,*) 'ERROR: invalid n in real_matrix :', NFKSPROCESS
22
22
        STOP