C                                           *--> FROM COMMON.ETSDAT
      COMMON/ETSDAT/LTSDAT,TSDAT(124)
C