~maddevelopers/mg5amcnlo/2.7.1.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: 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:
 
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