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