[cmsdy] in pp_dy3j.mad P0_gux_taptamggux, remove profiling for sample…

…_get_x

(NB: the previous commit was the branch point for cmsdyps...)

Revert "[cmsdy] in pp_dy3j.mad P0_gux_taptamggux, add profiling for sample_get_x: this seems to be more than half the Random2Momenta contribution"
This reverts commit 00f0a37.

CUDACPP_RUNTIME_DISABLEFPE=1 ./build.cuda_d_inl0_hrd0/madevent_cuda < /tmp/avalassi/input_dy3j_x1_cudacpp
 Found          997  events.
 Wrote           59  events.
 Actual xsec    5.9274488566377981
 [COUNTERS] PROGRAM TOTAL                         :    4.6537s
 [COUNTERS] Fortran Other                  (  0 ) :    0.1603s
 [COUNTERS] Fortran Initialise(I/O)        (  1 ) :    0.0673s
 [COUNTERS] Fortran Random2Momenta         (  3 ) :    3.4183s for  1170103 events => throughput is 2.92E-06 events/s
 [COUNTERS] Fortran PDFs                   (  4 ) :    0.1002s for    49152 events => throughput is 2.04E-06 events/s
 [COUNTERS] Fortran UpdateScaleCouplings   (  5 ) :    0.1307s for    16384 events => throughput is 7.98E-06 events/s
 [COUNTERS] Fortran Reweight               (  6 ) :    0.0505s for    16384 events => throughput is 3.08E-06 events/s
 [COUNTERS] Fortran Unweight(LHE-I/O)      (  7 ) :    0.0657s for    16384 events => throughput is 4.01E-06 events/s
 [COUNTERS] Fortran SamplePutPoint         (  8 ) :    0.1321s for  1170103 events => throughput is 1.13E-07 events/s
 [COUNTERS] CudaCpp Initialise             ( 11 ) :    0.4682s
 [COUNTERS] CudaCpp Finalise               ( 12 ) :    0.0257s
 [COUNTERS] CudaCpp MEs                    ( 19 ) :    0.0346s for    16384 events => throughput is 2.11E-06 events/s
 [COUNTERS] OVERALL NON-MEs                ( 21 ) :    4.6191s
 [COUNTERS] OVERALL MEs                    ( 22 ) :    0.0346s for    16384 events => throughput is 2.11E-06 events/s

epochX/cudacpp/pp_dy3j.mad/Source/dsample.f

@@ -1289,7 +1289,6 @@ subroutine sample_get_x(wgt, x, j, ipole, xmin, xmax)
 c-----
 c  Begin Code
 c-----
-      CALL COUNTERS_START_COUNTER( 10, 1 ) ! 10=PROGRAM-SampleGetX
       if (it_warned .ne. cur_it) then
          icount=0
          it_warned = cur_it
@@ -1407,7 +1406,6 @@ subroutine sample_get_x(wgt, x, j, ipole, xmin, xmax)
 
       wgt = wgt * xo * dble(xbin_max-xbin_min)
 c      print*,'Returning x',ij,ipole,j,x
-      CALL COUNTERS_STOP_COUNTER( 10 ) ! 10=PROGRAM-SampleGetX
       end
 
       subroutine sample_get_wgt(wgt, x, j, ipole, xmin, xmax)

epochX/cudacpp/pp_dy3j.mad/SubProcesses/P0_gux_taptamggux/driver.f

@@ -103,7 +103,6 @@ Program DRIVER
       CALL COUNTERS_REGISTER_COUNTER( 7, 'Fortran Unweight(LHE-I/O)'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 8, 'Fortran SamplePutPoint'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 9, 'Fortran MEs'//char(0) )
-      CALL COUNTERS_REGISTER_COUNTER( 10, 'PROGRAM SampleGetX'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 11, 'CudaCpp Initialise'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 12, 'CudaCpp Finalise'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 19, 'CudaCpp MEs'//char(0) )