/* @(#)Copyright (c), 1987, 19Thu May 20 12:44:01 PDT 1993 StatSci, Inc.  All rights reserved. */

#ifndef _S_INTERFACE_H_ /*(*/
#define _S_INTERFACE_H_

#include <sccs.h>
SCCS_ID_C(0039,@(#)interface.h 3.14 last edit 5/20/93 StatSci)

/* definitions for building & using interfaces to S functions */

#if !defined(APOLLO)
extern 
#endif
long F77_COMDECL(zstakz)[];
#if !defined(APOLLO)
extern 
#endif
char F77_COMDECL(zcstkz)[];


#define F_PTR(s) (long)( s - F77_COM(zstakz) + 1)
#define F_CH_PTR(s) (long)( s - F77_COM(zcstkz) + 1)
#define C_PTR(p) (long *)(F77_COM(zstakz) + (int) (p) - 1) 
	/* (value of) FORTRAN index to  (long *) pointer */
#define C_CH_PTR(p) (char *)(F77_COM(zcstkz) + (int)(p) - 1)

#define S_MODE_P(p) F77_COM(zstakz) [p]
#define S_LENGTH_P(p) F77_COM(zstakz) [p+1]
#define S_VALUE_P(p) F77_COM(zstakz) [p+2]
#define S_NAME_P(p) F77_COM(zstakz) [p-1]
#define S_STYPE_P(p) F77_COM(zstakz) [p+4]
#define S_SNAME_P(p) F77_COM(zstakz) [p+2]

#define STR 6
#define CHAINFUN 31
#define S_NOPRINT 9

#endif /* !_S_INTERFACE_H_ )*/