INTEGER FUNCTION IALLOC(NITEMS,ISIZE) C CALL I0TK01 IALLOC = ISTKGT(NITEMS,ISIZE+2) C RETURN C END