SUBROUTINE STINIT(NITEMS,ISIZE) C CALL I0TK01 CALL ISTKIN(NITEMS,ISIZE+2) C RETURN C END