divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`F_PTR',`(long) ( $1 - F77_COM(zstakz) + 1)') # C pointer to index on stack
define(`F_CH_PTR',`(long) ($1 - F77_COM(zcstkz) + 1)') # C pointer to index on CHaracter stack
define(`C_PTR',`(long *) (F77_COM(zstakz) + (int) ($1) - 1)') # (value of) FORTRAN index to  (long *) pointer
define(`C_CH_PTR',`(char *) (F77_COM(zcstkz) + (int)($1) - 1)') # FORTRAN character stack index to pointer
ifdef(`apollo',
`divert(3)
char *S_ok_calloc();
divert(1)
long F77_COMDECL(zstakz)[];  char F77_COMDECL(zcstkz)[];
divert(3)',
`divert(0)
char *S_ok_calloc();
EXTERN long F77_COMDECL(zstakz)[];  EXTERN char F77_COMDECL(zcstkz)[];')
SCCS_ID(91984,`@(#)'cstack.m 3.19 last edit 2/23/93 StatSci. From BASEFILE)
