divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`TEXT',`cs($1)')
define(`STACK_TOP',is(3)))define(`STACK_OUT',is(1))
divert(0)
common /zstakz/ds
common /zcstkz/ cs
double precision ds(DSIZE)
real rs(RSIZE)
integer is(ISIZE)
logical ls(LSIZE)
equivalence ( ds(1),rs(1),is(1),ls(1) )
CHARACTER(cs,1,ISIZE)
SCCS_ID(90702,`@(#)'stack.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
