SUBROUTINE DUMULTI ( Y, X, H, NADUM, IDUM, NAMY, NAMX, NUMY, NUMX, NOBS, NALT, NTOT, NDV, NIV, NH, NAD )
Argument Definitions (+ indicates altered content)
CHARACTER*10       NAMX(*),    NAMY(*)
DOUBLE PRECISION  +H(*),      +X(*),      +Y(*)
INTEGER            IDUM(*),    NAD,       +NADUM(*),   NALT
INTEGER            NDV,        NH,         NIV,        NOBS
INTEGER            NTOT,       NUMX(10,80),            NUMY(*)
Description
Detection of exact multicollinearity among the associated dummies 
in each alternative, using an inversion of the matrix of cross- 
products of the variables. 
 
Dimension y(nalt),x(ntot),h(nh),nadum(nad),idum(nad1) 
          namy(nalt),namx(ntot),numy(ndv),numx(ndv,niv)
Source file:dumulti.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  
               1          SEQ          A         
               1          SEQ   UNF          R   

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
SUBROUTINE         CORREL
Local Variables (+ indicates altered content)
CHARACTER*10      +NOMX(80)
DOUBLE PRECISION   S
INTEGER           +I,         +IJ,        +IK,        +IR
INTEGER           +J,         +JK,        +K,         +L
INTEGER           +N,         +NMULTI,    +NV,        +NVV