divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`SCCS_M4_ID_CDEFS',
`SCCS_ID(90005,`@(#)'cdefs.m 3.15 last edit 7/23/93 StatSci. Basefile BASEFILE)')
define(`SCCS_M4_IDS', `SCCS_M4_ID_MACH'
`SCCS_M4_ID_CDEFS')
define(`BASE_LANG',`c')
define(`ROUTINE',`define(`PNAME',$1)') #used for documentation, error printing
define(`SUPPORT',`define(`PNAME',$1)') #used for documentation, error printing
define(`POINTER',`long int')
define(`FALSE',0)
define(`TRUE',1)
define(`REPEAT',while(1))
define(`REAL',3)
define(`INT',2)
define(`LGL',1)
define(`DBL',4)
define(`CHAR',5)
define(`STR',6)
define(`STACK',15)
define(`DATASET',16)
define(`NAME',`*($1)') define(`MODE',`*($1+1)')
define(`LENGTH',`*($1+2)') define(`VALUE',`*($1+3)')
define(`LHDR',2)define(`LENTRY',4)
define(`LACTUAL',`*($1+7)')define(`STYPE',`*($1+5)')
define(`SNAME',`*($1+3)')
define(`FATAL',`{extern F77_NAME(zzabt); fprintf(stderr,"Error: ifdef(`PNAME',< PNAME >) $1\n" ifelse($2,,,`,shift($*)')); F77_CALL(zzabt);}')
define(`WARNING',`fprintf(stderr,"Warning: ifdef(`PNAME',< PNAME >) $1\n" ifelse($2,,,`,shift($*)'));')
define(`MESSAGE',`fprintf(stderr,"$1\n" ifelse($2,,,`,shift($*)'));')
define(`TERMINAL',`{fprintf(stderr,"TERMINATING: ifdef(`PNAME',< PNAME >) $1\n" ifelse($2,,,`,shift($*)')); abort();}')
define(`SDEBUG',`fprintf(stderr,$*);')
define(`FREE',0L)define(`AUTO',1L)define(`ONERROR',2L)define(`PERM',3L)define(`SOURCE',4L)
divert(0)
#include <stdio.h>
ifelse(OpSys,MSDOS,`
#include <stdlib.h>
',`')
ifelse(OpSys,MSWIN,`
#include <stdlib.h>
#include <io.h>
',`')
