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