divert(-1) # macros for probability, quantile and random no. functions
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`NORMAL_TYPE',0)define(`NORM_DIST',1)
define(`CAUCHY_DIST',2)
define(`LNORM_DIST',3)
define(`LOGIS_DIST',4)
define(`F_TYPE',1)define(`F_DIST',11)
define(`BETA_DIST',12)
define(`CHISQ_TYPE',2)define(`CHISQ_DIST',21)
define(`GAMMA_DIST',22)
define(`T_TYPE',3)define(`T_DIST',31)
define(`UNIF_TYPE',4)define(`UNIF_DIST',41)
define(`STABLE_TYPE',5)define(`STABLE_DIST',51)
define(`TRANS_TYPE',6)define(`TRANSFORM',61)

# defines for the distribution local common block
define(`PAR1',qdpar1)define(`PAR2',qdpar2)define(`NVALUES',qdnval)
define(`NPAR1',qdnpr1)define(`NPAR2',qdnpr2)define(`WHICH',qdwhic)define(`NAFLAG',qdnafl)
divert(0)
common/dstcom/NVALUES,PAR1,NPAR1,PAR2,NPAR2,WHICH,NAFLAG
integer NVALUES,WHICH,NPAR1,NPAR2; POINTER PAR1,PAR2; logical NAFLAG
SCCS_ID(99199,`@(#)'dist.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
