      INTEGER FUNCTION MTSTAK(NITEMS)
C
      CALL I0TK01
      MTSTAK = ISTKMD(NITEMS)
C
      RETURN
C
      END
