( is called by:   hec_crl_ini.f  
,  hec_crl_evt.f   )
 
includes the following commons:
   
hec_par.inc
   
hec_adc.inc
   
hec_geo.inc
   
hec_crl.inc
 
 
    This is
the introductory comment to hec_crl_correl:
    (why
this should be a `toy' program, I don't know)
 
c-    toy
program to calculate
c-
c-     
for each adc channel and for each time sampling:
c-     
- average signal and r.m.s. (pedestal and noise)
c-
c-     
for each adc channel:
c-     
- correlation coefficients between different time samplings
c-
c-     
for each time sampling:
c-     
- correlation coefficients between different adc channels
c-
c-    input: 
job - steering flag:
c-                 
<0 - initialization
c-                 
=0 - analysis of an event
c-                 
>0 - final anlysis after all events