[prof] in gg_tt.mad, profile ranmar (in ranmar.f: but this causes dou…

…ble counting in x2f for instance) - small contribution, will revert

The contribution is small because it does not make Fortran Other decrease... (while x2f increases due to profiling overhead)

./build.none_d_inl0_hrd0/madevent_cpp < /tmp/avalassi/input_ggtt_x1_cudacpp
 [COUNTERS] PROGRAM TOTAL               :    0.7472s
 [COUNTERS] Fortran Other        (  0 ) :    0.0105s
 [COUNTERS] Fortran X2F          (  1 ) :    0.0212s for    16399 events => throughput is 1.29E-06 events/s
 [COUNTERS] Fortran PDF          (  2 ) :    0.0943s for    32768 events => throughput is 2.88E-06 events/s
 [COUNTERS] Fortran final_I/O    (  3 ) :    0.2576s for    16399 events => throughput is 1.57E-05 events/s
 [COUNTERS] CudaCpp HEL          (  5 ) :    0.0007s
 [COUNTERS] CudaCpp MEs          (  6 ) :    0.0860s for    16384 events => throughput is 5.25E-06 events/s
 [COUNTERS] Fortran initial_I/O  (  7 ) :    0.0638s
 [COUNTERS] Fortran ranmar       ( 12 ) :    0.0057s for   114719 events => throughput is 4.93E-08 events/s
 [COUNTERS] Fortran scale        ( 13 ) :    0.0098s for    16384 events => throughput is 6.00E-07 events/s
 [COUNTERS] Fortran rewgt        ( 14 ) :    0.0508s for    16384 events => throughput is 3.10E-06 events/s
 [COUNTERS] Fortran unwgt        ( 16 ) :    0.1470s for    16384 events => throughput is 8.97E-06 events/s
 [COUNTERS] PROGRAM initial_I/O  ( 19 ) :    0.0638s
 [COUNTERS] PROGRAM sample_full  ( 20 ) :    0.6805s

epochX/cudacpp/gg_tt.mad/Source/ranmar.f

@@ -196,6 +196,7 @@ subroutine ranmar(rvec)
       common/ raset1 / ranu(97),ranc,rancd,rancm
       common/ raset2 / iranmr,jranmr
       save /raset1/,/raset2/
+      CALL COUNTERS_START_COUNTER( 12, 1 ) ! ranmar=12
       uni = ranu(iranmr) - ranu(jranmr)
       if(uni .lt. 0d0) uni = uni + 1d0
       ranu(iranmr) = uni
@@ -208,6 +209,7 @@ subroutine ranmar(rvec)
       uni = uni - ranc
       if(uni .lt. 0d0) uni = uni + 1d0
       rvec = uni
+      CALL COUNTERS_STOP_COUNTER( 12 ) ! ranmar=12
       end
 
       subroutine rmarin(ij,kl)

epochX/cudacpp/gg_tt.mad/SubProcesses/P1_gg_ttx/driver.f

@@ -102,7 +102,7 @@ Program DRIVER
       CALL COUNTERS_REGISTER_COUNTER( 5, 'CudaCpp HEL'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 6, 'CudaCpp MEs'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 7, 'Fortran initial_I/O'//char(0) )
-      CALL COUNTERS_REGISTER_COUNTER( 12, 'Fortran TEST12'//char(0) )
+      CALL COUNTERS_REGISTER_COUNTER( 12, 'Fortran ranmar'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 13, 'Fortran scale'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 14, 'Fortran rewgt'//char(0) )
       CALL COUNTERS_REGISTER_COUNTER( 15, 'Fortran TEST15'//char(0) )