← Back to branch summary

~maddevelopers/mg5amcnlo/FKS_EW_flattened_dsig_merged2.3.3

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%parton_lum_chooser.f

  • Committer: Marco Zaro
  • Date: 2016-05-24 12:48:05 UTC
  • mfrom: (78.337.150 2.4.1)
  • Revision ID: marco.zaro@gmail.com-20160524124805-d0y3ij808wdroloh
merged with 2.4.1 rev 410

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%parton_lum_chooser.f
 
1
      DOUBLE PRECISION FUNCTION DLUM()
 
2
      IMPLICIT NONE
 
3
      INCLUDE 'timing_variables.inc'
 
4
      INTEGER NFKSPROCESS
 
5
      COMMON/C_NFKSPROCESS/NFKSPROCESS
 
6
      CALL CPU_TIME(TBEFORE)
 
7
      IF (NFKSPROCESS.EQ.1) THEN
 
8
        CALL DLUM_1(DLUM)
 
9
      ELSEIF (NFKSPROCESS.EQ.2) THEN
 
10
        CALL DLUM_1(DLUM)
 
11
      ELSEIF (NFKSPROCESS.EQ.3) THEN
 
12
        CALL DLUM_2(DLUM)
 
13
      ELSEIF (NFKSPROCESS.EQ.4) THEN
 
14
        CALL DLUM_3(DLUM)
 
15
      ELSE
 
16
        WRITE(*,*) 'ERROR: invalid n in dlum :', NFKSPROCESS
 
17
        STOP
 
18
      ENDIF
 
19
      CALL CPU_TIME(TAFTER)
 
20
      TPDF = TPDF + (TAFTER-TBEFORE)
 
21
      RETURN
 
22
      END
 
23