**********************************************************************;
*  Version 3.1 July 20, 1994                                         *;
*  File ZUSER.IML  --  simple module definitions                     *
* so that the user will only have to type RUN MODULENAME             *
* Input matrices will not have to be listed in the RUN statement.    *
**********************************************************************;

START FITMODEL;
IF (_OPT_(|1,5|)=0)&(_OPT_(|1,6|)=0) THEN PRINT , "Fit the Model" , ;
RUN  _FITMOD_(DEPVARS,INDVARS,
               _ECODE_,_EPSL_,_OPT_,_MODNMS_,_PARM_,
               _SS_,_SUMSQ_,_VNAME_,_VTYPE_,

               _BETA_,_BPVAL_,_BSE_,_BT_,_SCORR_,_LINDEP_,_PARM1_,
               _SIGMA_,_STAT_, _XPXINV_,
               _XNAME_,_YNAME_, _PM1CNM_,_STRNM_ ); 
FINISH FITMODEL;

START GETCORSS;
IF (_OPT_(|1,5|)=0)&(_OPT_(|1,6|)=0) THEN
    PRINT  "Retrieve SSCP Dataset and Create Matrix _SSCOR_" , ;
USE _CORRDS_ ;
READ ALL VAR _ALL_ INTO _SSCOR_ (| COLNAME = _CORNM_ |);
RUN _GETCSS_(INCLUDE,EXCLUDE,
             _SSCOR_,_CORNM_,
             _ECODE_,_OPT_,_PARM_,_VNAME_,_VTYPE_,_SS_,_SUMSQ_);
FINISH GETCORSS ;

START MAKESS;
RUN _MAKESS_(Z,ZNAMES,
             _ECODE_,_OPT_,
             _Z_,_INDX_,_MINDX_,
             _VNAME_,_VTYPE_,_NMISS_,_PARM_,_SS_,_SUMSQ_) ;
FINISH MAKESS ;

START SETOPT;
*Flip switches in options matrix according to selected options
 in OPT_ON & OPT_OFF, as defined by the user. ;
RUN _SETOPT_( OPT_ON, OPT_OFF, _ECODE_, _OPT_,
                _PNAME_, _MNEMON_, _MODNMS_ );
FINISH SETOPT ;

START TESTGLH;
IF (_OPT_(|1,5|)=0)&(_OPT_(|1,6|)=0) THEN  PRINT ,, "Test of GLH" , ;
RUN _TSTGLH_(C,U,THETA0,THETARNM,THETACNM,
               _EPSL_, _ECODE_, _OPT_,_PARM_, _SS_, _TGLHP1_,
               _VNAME_,_VTYPE_,

               _THETA_,_MSH_,_MSE_,_MID_,
               _SDTHTA_,_TTHTA_,_PVTHTA_,_FSTATS_,
               _HEIVAL_,_CANVEC_,_CANRSQ_,_STMAT1_,_TPARM1_,
               _NONM_,_FSTRNM_,_STMCNM_,_STMRNM_,_TPCNM1_,
               _THRNM_,_THCNM_,_CANNM_,
               _URESUL_,_UCOLNM_,_UROWNM_ );
FINISH TESTGLH ;