***********************************************************************;
*  Version 3.1 July 20, 1994                                          *;
***********************************************************************;
START _INITL_(OPT_ON, OPT_OFF,
             _ECODE_, _EPSL_, _OPT_,
             _PNAME_, _MNEMON_, _MODNMS_, _TGLHP1_ );
*___________________________________________________________________*
    LINMOD:  General Linear Multivariate Model Modules (Version 3)
    Written by:  Ronald W. Helms
                 James D. Hosking
                 David H. Christiansen
                 Keith E. Muller
                 Paul W. Stewart
                 Kevin B. Hunter
                                                                 
    Address all correspondence to the authors at:                  
    Department of Biostatistics
    CB# 7400
    University of North Carolina
    Chapel Hill, North Carolina, 27599-7400
                                                         
    This module is executed by the macro command &LINMOD, which also 
    loads all the other needed modules.
  *___________________________________________________________________*;
*Inputs   OPT_ON, OPT_OFF                        ;
*Outputs  _ECODE_, _EPSL_, _OPT_,
          _PNAME_, _MNEMON_, _MODNMS_, _TGLHP1_  ;
*   Section 1:  Initialize constants
    Section 2:  Create matrix of valid option names
    Section 3:  Initialize options to Default settings

* SECTION1 -- initialize constants;
_ECODE_  = J( 6 , 1 , 0 );
_EPSL_   = 1E-12;
_TGLHP1_ = 1;

* Section 2 -- Create matrix of valid mnemonics for each module;
_BLANK1_ = { "        " };
  
* Define SETOPT and General option names; 
_T1_ ={"AVAILOPT" "LISTINFO" "CURROPTS" "NEWOPTS" 
            "COMPRESS" };
_PNAME_ = _T1_ || J( 1 , 12 , _BLANK1_ );

* Define MAKESS option names ;
_T1_ = { "CHKMISS" "MPARMS" "MSS" };
_PNAME_ = _PNAME_ // ( _T1_ || J( 1 , 14 , _BLANK1_ ) );

* Define GETCORSS option names ;
_T1_ = { "CPARMS" "CSS" };
_PNAME_ = _PNAME_ // ( _T1_ || J( 1 , 15 , _BLANK1_ ) );

*Define FITMODEL option names ;
_T1_ = { "PARMIN" "SSIN"   "BETA"    "XPXINV" "UNIBETA" };
_T2_ = { "CHECK"  "EXBETA" "COVBETA" "SIGMA"  "SCORR"   };
_T3_ = { "SSSTEP" "SSFIT"  "LTFR"    "LINDEP" "PARMOUT" };
_PNAME_=_PNAME_ // ( _T1_ || _T2_ || _T3_ || J(1,2,_BLANK1_));

* Define TESTGLH option names ;
_T1_ = {"C"        "U"        "THETA0"   "THETA"  "MID"  };
_T2_ = {"EXTHETA"  "MATTHETA" "UNITHETA" "MSH"    "MSE"  };
_T3_ = {"ECORR"    "HEIVAL"   "CANVEC"   "CANRSQ" "EVEC2"};
_T4_ = {"MULTTEST" "RSQUARED" };
_PNAME_ = _PNAME_ // ( _T1_ || _T2_ || _T3_ || _T4_ );

* Define UNIREP option names ;
_PNAME_ = _PNAME_ // ({ "UNIREP" "UNIRPRNT" "UNIRWARN" "UNIRFORC"}
                   || J( 1 , 13 , _BLANK1_ ) );

* Define row labels for _PNAME_ ;
_MNEMON_=_NMLIST_("Option",17);

* Define column labels for _PNAME_ ;
_MODNMS_={"SETOPT+" "MAKESS" "GETCORSS" "FITMODEL" "TESTGLH"
            "UniRep"};

* Section 3 -- Initialize options matrix to default values;
RUN _DEFOPT_( _OPT_ ) ;
NOTEI_1={"LINMOD:  General Linear Multivariate Model Modules          "
       , "Version 3.0, Copyright (C) 1994, written by:                "
       , "R. W. Helms, J. D. Hosking, D. H. Christiansen, K.E. Muller,"
       , "P.W. Stewart, and K.B. Hunter"} ;
IF _OPT_(|1,5|)=0 THEN PRINT NOTEI_1, ;

FINISH _INITL_ ;