divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
divert(0)
common /globl/ fail,omega,theta,sigma
logical fail
real omega,theta,sigma
SCCS_ID(96932,`@(#)'gs.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
