hec_ped_ana2.f     [#]

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    ( is called by:   hec_ped_pass2.f  )
 

    includes the following commons:

    hec_par.inc
    hec_datacard.inc
    hec_geo.inc
    hec_ped.inc
    hec_ped_sys.inc
 

    This routine calculates the pedestal and variance.
    Here, in pass2, it also does pedestal rejection by filling
    the   ped_rej(ic)    array:

        if (i_adc0_1(ic) .gt. 0) then
          ped_rej(ic) = 1. - real(i_adc0_2(ic))/real(i_adc0_1(ic))
        else
          ped_rej(ic) = 0.
        endif
 

    If all is ok, a summary is printed by calling:
    hec_ped_summary.f