( is called by: hec_crl_pass1.f )
includes no commons
For random triggers, his routine calls: hec_crl_correl.f
That's all it does.