SUBROUTINE NITEMS,CCALL CALL
Found at: ftp.icm.edu.pl:70/packages/netlib/port/stinit.f
SUBROUTINE STINIT(NITEMS,ISIZE)
C
CALL I0TK01
CALL ISTKIN(NITEMS,ISIZE+2)
C
RETURN
C
END
.
SUBROUTINE STINIT(NITEMS,ISIZE)
C
CALL I0TK01
CALL ISTKIN(NITEMS,ISIZE+2)
C
RETURN
C
END
.