SUBROUTINE TINPUT(IN)
      DIMENSION INT(1)
      CALL TINSTR(1,INT)
      IN=INT(1)
      RETURN
      END