REAL FUNCTION DLAMCH ( CMACH )
Argument Definitions (+ indicates altered content)
CHARACTER          CMACH
Description
   DLAMCH function with its dependencies 
 
-- 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:dlamchplus.f
External Functions and Subroutines Called
LOGICAL            LSAME
SUBROUTINE         DLAMC2
Parameter Variables Used
REAL*8             ONE                (ONE = 1.0D+0)
REAL*8             ZERO               (ZERO = 0.0D+0)
Local Variables (+ indicates altered content)
INTEGER            BETA,       IMAX,       IMIN,       IT
LOGICAL           +FIRST,      LRND
REAL*8            +BASE,      +EMAX,      +EMIN,      +EPS
REAL*8            +PREC,      +RMACH,      RMAX,       RMIN
REAL*8            +RND,       +SFMIN,     +SMALL,     +T

SUBROUTINE DLAMC1 ( BETA, T, RND, IEEE1 )
Argument Definitions (+ indicates altered content)
INTEGER           +BETA,      +T
LOGICAL           +IEEE1,     +RND
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:dlamchplus.f
External Functions and Subroutines Called
REAL*8             DLAMC3
Local Variables (+ indicates altered content)
INTEGER           +LBETA,     +LT
LOGICAL           +FIRST,     +LIEEE1,    +LRND
REAL*8            +A,         +B,         +C,         +F
REAL*8            +ONE,       +QTR,       +SAVEC,     +T1
REAL*8            +T2

SUBROUTINE DLAMC2 ( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
Argument Definitions (+ indicates altered content)
INTEGER           +BETA,      +EMAX,      +EMIN,      +T
LOGICAL           +RND
REAL*8            +EPS,       +RMAX,      +RMIN
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:dlamchplus.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               6          SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC            ABS,        MAX,        MIN
External Functions and Subroutines Called
REAL*8             DLAMC3
SUBROUTINE         DLAMC1,     DLAMC4,     DLAMC5
Local Variables (+ indicates altered content)
INTEGER            GNMIN,      GPMIN,     +I,          LBETA
INTEGER            LEMAX,     +LEMIN,      LT,         NGNMIN
INTEGER            NGPMIN
LOGICAL           +FIRST,     +IEEE,      +IWARN,      LIEEE1
LOGICAL            LRND
REAL*8            +A,         +B,         +C,         +HALF
REAL*8            +LEPS,       LRMAX,     +LRMIN,     +ONE
REAL*8            +RBASE,     +SIXTH,     +SMALL,     +THIRD
REAL*8            +TWO,       +ZERO

REAL FUNCTION DLAMC3 ( A, B )
Argument Definitions (+ indicates altered content)
REAL*8             A,          B
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:dlamchplus.f

SUBROUTINE DLAMC4 ( EMIN, START, BASE )
Argument Definitions (+ indicates altered content)
INTEGER            BASE,      +EMIN
REAL*8             START
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:dlamchplus.f
External Functions and Subroutines Called
REAL*8             DLAMC3
Local Variables (+ indicates altered content)
INTEGER           +I
REAL*8            +A,         +B1,        +B2,        +C1
REAL*8            +C2,        +D1,        +D2,        +ONE
REAL*8            +RBASE,     +ZERO

SUBROUTINE DLAMC5 ( BETA, P, EMIN, IEEE, EMAX, RMAX )
Argument Definitions (+ indicates altered content)
INTEGER            BETA,      +EMAX,       EMIN,       P
LOGICAL            IEEE
REAL*8            +RMAX
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:dlamchplus.f
Intrinsic Functions Called
GENERIC            MOD
External Functions and Subroutines Called
REAL*8             DLAMC3
Parameter Variables Used
REAL*8             ZERO               (ZERO = 0.0D0)
REAL*8             ONE                (ONE = 1.0D0)
Local Variables (+ indicates altered content)
INTEGER           +EXBITS,    +EXPSUM,    +I,         +LEXP
INTEGER           +NBITS,     +TRY,       +UEXP
REAL*8            +OLDY,      +RECBAS,    +Y,         +Z

LOGICAL FUNCTION LSAME ( CA, CB )
Argument Definitions (+ indicates altered content)
CHARACTER          CA,         CB
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:dlamchplus.f
Intrinsic Functions Called
INTEGER            ICHAR
Local Variables (+ indicates altered content)
INTEGER           +INTA,      +INTB,      +ZCODE