C                                           *--> FROM COMMON.ETS
      COMMON/ETS/MTSESP,TSESP(10000)
C