SUBROUTINE ZES_TLT_FILL
      IMPLICIT NONE
#include "partap.inc"
#include "zescommon.inc"
#include "tltevt.inc"

      INTEGER I,II

      Call Fettab(TLTEVT,ID,1)

      ZES_TLTW1=TLTEVT_SUBTRG(1)


C 11.08.99: A. Fox-Murphy
C Added 14th TLT word
      DO I=3,14
         ZES_TLTW(I)=TLTEVT_SUBTRG(I)
      ENDDO

      END