COMMON/CELOSS/Eevent,Etot,Etot2, TrLen,TrLen2, XTrLen,XTrLen2,
     &              StepLen,StepLen2, NbStep,NbStep2, kcoef(3)