SUBROUTINE TSEND
      DIMENSION ITEMP(1)
      CALL BUFFPK(0,ITEMP)
      RETURN
      END