      SUBROUTINE TBMSET(X)
      CALL RANSET(X)
      RETURN
      END
