Subroutine ECAL_Reconst

Program logic
Super-Cluster ===> similar to individual Jet
Cluster ===> similar to hadronic/(particle) shower
Sub-Cluster ===> similar to one hadronic shower sub-clusters
THE ASSUMPTION -> ONE SUPER-CLUSTER EXIST WHATEVER

Find Super-Clusters
CALL FindEC_Sup_Clust

Find Clusters in Super-Clusters
CALL FindEC_Clust(I)

Cluster Axis fit and first definition of properties
call Eclust_axsis(i,j)

Join hits to Clusters
CALL EC_HIT_JOIN

Re-Calculate of new property of cluster
CALL Eclust_property(i,0)

Join Clusters
CALL EC_CLUST_JOIN

Re-Calculate of new property of cluster
CALL Eclust_property(i,0)

Second Join hits to Clusters
CALL EC_HIT_JOIN

Re-Calculate of new property of cluster
CALL Eclust_property(i,0)

Second Join Clusters
CALL EC_CLUST_JOIN

Re-Calculate of new property of cluster
CALL Eclust_property(i,0)

Final property calculation
CALL Eclust_property(i,1)