                                                                                                                 
      COMMON/CELOSS/ ETOT,NTRAK0,NTRAK1,NSTEP0,NSTEP1,NBCALL(12),
     +                    NSTRK0,NSTRK1                                                        

