SUBROUTINE I0TK00(LARG,NITEMS,ITYPE)
C
C INITIALIZES THE STACK TO NITEMS OF TYPE ITYPE
C
COMMON /CSTAK/DSTAK
C
DOUBLE PRECISION DSTAK(500)
INTEGER ISTAK(1000)
LOGICAL LARG,INIT
INTEGER ISIZE(5)
C
EQUIVALENCE (DSTAK(1),ISTAK(1))
EQUIVALENCE (ISTAK(1),LOUT)
EQUIVALENCE (ISTAK(2),LNOW)
EQUIVALENCE (ISTAK(3),LUSED)
EQUIVALENCE (ISTAK(4),LMAX)
EQUIVALENCE (ISTAK(5),LBOOK)
EQUIVALENCE (ISTAK(6),ISIZE(1))
C
DATA INIT/.FALSE./
C
LARG = .FALSE.
IF (INIT) RETURN
C
C HERE TO INITIALIZE
C
INIT = .TRUE.
C
C SET DATA SIZES APPROPRIATE FOR A STANDARD CONFORMING
C FORTRAN SYSTEM USING THE FORTRAN STORAGE UNIT AS THE
C MEASURE OF SIZE.
C
C LOGICAL
ISIZE(1) = 1
C INTEGER
ISIZE(2) = 1
C REAL
ISIZE(3) = 1
C DOUBLE PRECISION
ISIZE(4) = 2
C COMPLEX
ISIZE(5) = 2
C
LBOOK = 10
LNOW = LBOOK
LUSED = LBOOK
LMAX = MAX0( (NITEMS*ISIZE(ITYPE))/ISIZE(2), 12 )
LOUT = 0
C
RETURN
C
END
.