SUBROUTINE VARDEC ( X, XX, NAMX, N, NOBS, NB, NXX )
Argument Definitions (+ indicates altered content)
CHARACTER*10       NAMX(NB)
DOUBLE PRECISION   X(N,NB),   +XX(NXX)
INTEGER            N,          NB,         NOBS,       NXX
Description
INPUT: 
  X     (n x nb) Matrix of (original or transformed) Independent Varia 
        including the Constant, used in ESTIMATION. 
  NAMX  (nb) Vector of Names of the Independent Variables, including t 
        Constant, used in ESTIMATION. 
  N     Maximum Number of Observations as declared on the Parameter ca 
        in Subroutine FCN. 
  NOBS  Number of Observations used in ESTIMATION. 
  NB    Number of Independent Variables, including the Constant, used 
        ESTIMATION. 
  NXX   Maximum Number of Different Elements in the (nx x nx) Symmetri 
        Matrix XX, stored columnwise as an upper triangular matrix. 
        This number is declared on the Parameter card in Subroutine FC 
WORK VECTOR: 
  XX    (nx x nx) Symmetric Matrix, stored columnwise as an upper tria 
        matrix. 
OUTPUT: 
  D     (30) Vector of Eigenvalues in increasing order. 
  C     (30) Vector of Condition Indices. 
  Z     (30 x 30 = 900) Matrix of Variance-Decomposition Proportions, 
        columnwise. 
PURPOSE: 
  Compute the Table of Variance-Decomposition Proportions for the (ori 
  or transformed) Independent Variables X, including the Constant.
Source file:vardec.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
DOUBLE PRECISION   DSQRT
GENERIC            MOD
SUBROUTINE         LOC
External Functions and Subroutines Called
SUBROUTINE         EIGEN,      LOC
Local Variables (+ indicates altered content)
DOUBLE PRECISION  +C(30),     +D(30),     +Z(900)
INTEGER           +I,         +IR,        +J,         +J1
INTEGER           +J2,         JK1,        JK2,       +K
INTEGER           +NP
Referenced Common Block Variables (+ indicates altered content)
%BLANK             INTEGER            NOPRINT