SUBROUTINE DGELQF ( M, N, A, LDA, TAU, WORK, LWORK, INFO )
Argument Definitions (+ indicates altered content)
INTEGER           +INFO,       LDA,        LWORK,      M
INTEGER            N
REAL*8             A(LDA,*),   TAU(*),    +WORK(*)
Description
   Some of DGELS dependency routines. The rest can be found in 
   dlamchplus.f 
 
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
INTEGER            ILAENV
SUBROUTINE         DGELQ2,     DLARFB,     DLARFT,     XERBLA
Parameter Variables Used
INTEGER            IZERO              (IZERO = 0)
INTEGER            IONE               (IONE = 1)
INTEGER            ITWO               (ITWO = 2)
INTEGER            ITHREE             (ITHREE = 3)
Local Variables (+ indicates altered content)
INTEGER           +I,         +IB,         IINFO,     +IWS
INTEGER           +K,         +LDWORK,    +LWKOPT,    +NB
INTEGER           +NBMIN,     +NX
LOGICAL           +LQUERY

SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO )
Argument Definitions (+ indicates altered content)
INTEGER           +INFO,       LDA,        LWORK,      M
INTEGER            N
REAL*8             A(LDA,*),   TAU(*),    +WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
INTEGER            ILAENV
SUBROUTINE         DGEQR2,     DLARFB,     DLARFT,     XERBLA
Parameter Variables Used
INTEGER            IZERO              (IZERO = 0)
INTEGER            IONE               (IONE = 1)
INTEGER            ITWO               (ITWO = 2)
INTEGER            ITHREE             (ITHREE = 3)
Local Variables (+ indicates altered content)
INTEGER           +I,         +IB,         IINFO,     +IWS
INTEGER           +K,         +LDWORK,    +LWKOPT,    +NB
INTEGER           +NBMIN,     +NX
LOGICAL           +LQUERY

SUBROUTINE DLASCL ( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER          TYPE
INTEGER           +INFO,       KL,         KU,         LDA
INTEGER            M,          N
REAL*8            +A(LDA,*),   CFROM,      CTO
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS,        MAX,        MIN
External Functions and Subroutines Called
LOGICAL            LSAME
REAL*8             DLAMCH
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IZERO              (IZERO = 0)
INTEGER            IONE               (IONE = 1)
REAL*8             ZERO               (ZERO = 0.0D0)
REAL*8             ONE                (ONE = 1.0D0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +ITYPE,     +J,         +K1
INTEGER           +K2,        +K3,        +K4
LOGICAL           +DONE
REAL*8            +BIGNUM,    +CFROM1,    +CFROMC,    +CTO1
REAL*8            +CTOC,      +MUL,       +SMLNUM

SUBROUTINE DLASET ( UPLO, M, N, ALPHA, BETA, A, LDA )
Argument Definitions (+ indicates altered content)
CHARACTER          UPLO
INTEGER            LDA,        M,          N
REAL*8            +A(LDA,*),   ALPHA,      BETA
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   October 31, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MIN
External Functions and Subroutines Called
LOGICAL            LSAME
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
Local Variables (+ indicates altered content)
INTEGER           +I,         +J

SUBROUTINE DORMLQ ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, WORK, LWORK, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER          SIDE,       TRANS
INTEGER           +INFO,       K,          LDA,        LDC
INTEGER            LWORK,      M,          N
REAL*8             A(LDA,*),   C(LDC,*),   TAU(*),    +WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
INTEGER            ILAENV
LOGICAL            LSAME
SUBROUTINE         DLARFB,     DLARFT,     DORML2,     XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
INTEGER            ITWO               (ITWO = 2)
INTEGER            NBMAX              (NBMAX = 64)
INTEGER            LDT                (LDT = NBMAX+1)
Local Variables (+ indicates altered content)
CHARACTER         +TRANST
INTEGER           +I,         +I1,        +I2,        +I3
INTEGER           +IB,        +IC,         IINFO,     +IWS
INTEGER           +JC,        +LDWORK,    +LWKOPT,    +MI
INTEGER           +NB,        +NBMIN,     +NI,        +NQ
INTEGER           +NW
LOGICAL           +LEFT,      +LQUERY,    +NOTRAN
REAL*8             T(LDT,NBMAX)

SUBROUTINE DORMQR ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, WORK, LWORK, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER          SIDE,       TRANS
INTEGER           +INFO,       K,          LDA,        LDC
INTEGER            LWORK,      M,          N
REAL*8             A(LDA,*),   C(LDC,*),   TAU(*),    +WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
INTEGER            ILAENV
LOGICAL            LSAME
SUBROUTINE         DLARFB,     DLARFT,     DORM2R,     XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
INTEGER            ITWO               (ITWO = 2)
INTEGER            NBMAX              (NBMAX = 64)
INTEGER            LDT                (LDT = NBMAX+1)
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +I3
INTEGER           +IB,        +IC,         IINFO,     +IWS
INTEGER           +JC,        +LDWORK,    +LWKOPT,    +MI
INTEGER           +NB,        +NBMIN,     +NI,        +NQ
INTEGER           +NW
LOGICAL           +LEFT,      +LQUERY,    +NOTRAN
REAL*8             T(LDT,NBMAX)

SUBROUTINE XERBLA ( SRNAME, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER*6        SRNAME
INTEGER            INFO
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   September 30, 1994 
 
   .. Scalar Arguments ..
Source file:dgelsdep.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

INTEGER FUNCTION ILAENV ( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
Argument Definitions (+ indicates altered content)
CHARACTER*(*)      NAME,       OPTS
INTEGER            ISPEC,      N1,         N2,         N3
INTEGER            N4
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
CHARACTER          CHAR
INTEGER            ICHAR,      INT
GENERIC            MIN,        REAL
External Functions and Subroutines Called
INTEGER            IEEECK
Parameter Variables Used
INTEGER            IZERO              (IZERO = 0)
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
CHARACTER         +C1
CHARACTER*2       +C2
CHARACTER*3       +C3
CHARACTER*2       +C4
CHARACTER*6       +SUBNAM
INTEGER           +I,         +IC,        +IZ,        +NB
INTEGER           +NBMIN,     +NX
LOGICAL           +CNAME,     +SNAME

SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB )
Argument Definitions (+ indicates altered content)
CHARACTER          DIAG,       SIDE,       TRANSA,     UPLO
INTEGER            LDA,        LDB,        M,          N
REAL*8             A(LDA,*),   ALPHA,     +B(LDB,*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +J,         +K
INTEGER           +NROWA
LOGICAL           +LSIDE,     +NOUNIT,    +UPPER
REAL*8            +TEMP

SUBROUTINE DLARFB ( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, T, LDT, C, LDC, WORK, LDWORK )
Argument Definitions (+ indicates altered content)
CHARACTER          DIRECT,     SIDE,       STOREV,     TRANS
INTEGER            K,          LDC,        LDT,        LDV
INTEGER            LDWORK,     M,          N
REAL*8            +C(LDC,*),   T(LDT,*),   V(LDV,*)
REAL*8             WORK(LDWORK,*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DCOPY,      DGEMM,      DTRMM
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
Local Variables (+ indicates altered content)
CHARACTER         +TRANST
INTEGER           +I,         +J

SUBROUTINE DLARFT ( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
Argument Definitions (+ indicates altered content)
CHARACTER          DIRECT,     STOREV
INTEGER            K,          LDT,        LDV,        N
REAL*8            +T(LDT,*),   TAU(*),    +V(LDV,*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DGEMV,      DTRMV
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +J
REAL*8            +VII

SUBROUTINE DLASSQ ( N, X, INCX, SCALE, SUMSQ )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       N
REAL*8            +SCALE,     +SUMSQ,      X(*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1999 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS
Parameter Variables Used
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +IX
REAL*8            +ABSXI

SUBROUTINE DGELQ2 ( M, N, A, LDA, TAU, WORK, INFO )
Argument Definitions (+ indicates altered content)
INTEGER           +INFO,       LDA,        M,          N
REAL*8            +A(LDA,*),   TAU(*),     WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
SUBROUTINE         DLARF,      DLARFG,     XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +K
REAL              +AII

SUBROUTINE DLARF ( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
Argument Definitions (+ indicates altered content)
CHARACTER          SIDE
INTEGER            INCV,       LDC,        M,          N
REAL*8             C(LDC,*),   TAU,        V(*),       WORK(*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DGEMV,      DGER
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)

SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY )
Argument Definitions (+ indicates altered content)
CHARACTER          TRANS
INTEGER            INCX,       INCY,       LDA,        M
INTEGER            N
REAL*8             A(LDA,*),   ALPHA,      BETA,       X(*)
REAL*8            +Y(*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +IX,        +IY
INTEGER           +J,         +JX,        +JY,        +KX
INTEGER           +KY,        +LENX,      +LENY
REAL*8            +TEMP

SUBROUTINE DTRMM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB )
Argument Definitions (+ indicates altered content)
CHARACTER          DIAG,       SIDE,       TRANSA,     UPLO
INTEGER            LDA,        LDB,        M,          N
REAL*8             A(LDA,*),   ALPHA,     +B(LDB,*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +J,         +K
INTEGER           +NROWA
LOGICAL           +LSIDE,     +NOUNIT,    +UPPER
REAL*8             ONE,       +TEMP,       ZERO

SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC )
Argument Definitions (+ indicates altered content)
CHARACTER          TRANSA,     TRANSB
INTEGER            K,          LDA,        LDB,        LDC
INTEGER            M,          N
REAL*8             A(LDA,*),   ALPHA,      B(LDB,*),   BETA
REAL*8            +C(LDC,*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +J,         +L
INTEGER           +NCOLA,     +NROWA,     +NROWB
LOGICAL           +NOTA,      +NOTB
REAL*8            +TEMP

SUBROUTINE DCOPY ( N, DX, INCX, DY, INCY )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       INCY,       N
REAL*8             DX(*),     +DY(*)
Description
copies a vector, x, to a vector, y. 
uses unrolled loops for increments equal to one. 
jack dongarra, linpack, 3/11/78. 
modified 12/3/93, array(1) declarations changed to array(*)
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MOD
Local Variables (+ indicates altered content)
INTEGER           +I,         +IX,        +IY,        +M
INTEGER           +MP1

SUBROUTINE DGEQR2 ( M, N, A, LDA, TAU, WORK, INFO )
Argument Definitions (+ indicates altered content)
INTEGER           +INFO,       LDA,        M,          N
REAL*8            +A(LDA,*),   TAU(*),     WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX,        MIN
External Functions and Subroutines Called
SUBROUTINE         DLARF,      DLARFG,     XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +K
REAL*8            +AII

SUBROUTINE DLABAD ( SMALL, LARGE )
Argument Definitions (+ indicates altered content)
REAL*8            +LARGE,     +SMALL
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   October 31, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            LOG10,      SQRT

SUBROUTINE DORML2 ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, WORK, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER          SIDE,       TRANS
INTEGER           +INFO,       K,          LDA,        LDC
INTEGER            M,          N
REAL*8            +A(LDA,*),   C(LDC,*),   TAU(*),     WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DLARF,      XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +I3
INTEGER           +IC,        +JC,        +MI,        +NI
INTEGER           +NQ
LOGICAL           +LEFT,      +NOTRAN
REAL*8            +AII

SUBROUTINE DORM2R ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, WORK, INFO )
Argument Definitions (+ indicates altered content)
CHARACTER          SIDE,       TRANS
INTEGER           +INFO,       K,          LDA,        LDC
INTEGER            M,          N
REAL*8            +A(LDA,*),   C(LDC,*),   TAU(*),     WORK(*)
Description
-- LAPACK routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   February 29, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DLARF,      XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +I3
INTEGER           +IC,        +JC,        +MI,        +NI
INTEGER           +NQ
LOGICAL           +LEFT,      +NOTRAN
REAL*8            +AII

SUBROUTINE DLARFG ( N, ALPHA, X, INCX, TAU )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       N
REAL*8            +ALPHA,     +TAU,        X(*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   September 30, 1994 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS,        SIGN
External Functions and Subroutines Called
REAL*8             DLAMCH,     DLAPY2,     DNRM2
SUBROUTINE         DSCAL
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +J,         +KNT
REAL*8            +BETA,      +RSAFMN,    +SAFMIN,    +XNORM

SUBROUTINE DGER ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       INCY,       LDA,        M
INTEGER            N
REAL*8            +A(LDA,*),   ALPHA,      X(*),       Y(*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +IX,        +J
INTEGER           +JY,        +KX
REAL*8            +TEMP

INTEGER FUNCTION IEEECK ( ISPEC, ZERO, ONE )
Argument Definitions (+ indicates altered content)
INTEGER            ISPEC
REAL*8             ONE,        ZERO
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   June 30, 1998 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Local Variables (+ indicates altered content)
REAL*8            +NAN1,      +NAN2,      +NAN3,      +NAN4
REAL*8            +NAN5,      +NAN6,      +NEGINF,    +NEGZRO
REAL*8            +NEWZRO,    +POSINF

SUBROUTINE DSCAL ( N, DA, DX, INCX )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       N
REAL*8             DA,        +DX(*)
Description
scales a vector by a constant. 
uses unrolled loops for increment equal to one. 
jack dongarra, linpack, 3/11/78. 
modified 3/93 to return if incx .le. 0. 
modified 12/3/93, array(1) declarations changed to array(*)
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MOD
Local Variables (+ indicates altered content)
INTEGER           +I,         +M,         +MP1,       +NINCX

REAL FUNCTION DLAPY2 ( X, Y )
Argument Definitions (+ indicates altered content)
REAL*8             X,          Y
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   October 31, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS,        MAX,        MIN,        SQRT
Parameter Variables Used
REAL*8             ZERO               (ZERO = 0.0D0)
REAL*8             ONE                (ONE = 1.0D0)
Local Variables (+ indicates altered content)
REAL*8            +W,         +XABS,      +YABS,      +Z

SUBROUTINE DTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
Argument Definitions (+ indicates altered content)
CHARACTER          DIAG,       TRANS,      UPLO
INTEGER            INCX,       LDA,        N
REAL*8             A(LDA,*),  +X(*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            MAX
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         XERBLA
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INFO,      +IX,        +J
INTEGER           +JX,        +KX
LOGICAL           +NOUNIT
REAL*8            +TEMP

REAL FUNCTION DNRM2 ( N, X, INCX )
Argument Definitions (+ indicates altered content)
INTEGER            INCX,       N
REAL*8             X(*)
Description
.. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS,        SQRT
Parameter Variables Used
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +IX
REAL*8            +ABSXI,     +NORM,      +SCALE,     +SSQ

REAL FUNCTION DLANGE ( NORM, M, N, A, LDA, WORK )
Argument Definitions (+ indicates altered content)
CHARACTER          NORM
INTEGER            LDA,        M,          N
REAL*8             A(LDA,*),  +WORK(*)
Description
-- LAPACK auxiliary routine (version 3.0) -- 
   Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 
   Courant Institute, Argonne National Lab, and Rice University 
   October 31, 1992 
 
   .. Scalar Arguments ..
Source file:dgelsdep.f
Intrinsic Functions Called
GENERIC            ABS,        MAX,        MIN,        SQRT
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DLASSQ
Parameter Variables Used
INTEGER            IONE               (IONE = 1)
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER           +I,         +J
REAL*8            +SCALE,     +SUM,       +VALUE