REAL ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL,
$ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP
COMPLEX ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2,
- $ CTEMP3, ESHIFT, RTDISC, S, SHIFT, SIGNBC, T1,
+ $ CTEMP3, ESHIFT, S, SHIFT, SIGNBC,
$ U12, X, ABI12, Y
* ..
* .. External Functions ..
COMPLEX CLADIV
LOGICAL LSAME
REAL CLANHS, SLAMCH
- EXTERNAL CLADIV, LLSAME, CLANHS, SLAMCH
+ EXTERNAL CLADIV, LSAME, CLANHS, SLAMCH
* ..
* .. External Subroutines ..
EXTERNAL CLARTG, CLASET, CROT, CSCAL, XERBLA
ILSCHR = .TRUE.
ISCHUR = 2
ELSE
+ ILSCHR = .TRUE.
ISCHUR = 0
END IF
*
ILQ = .TRUE.
ICOMPQ = 3
ELSE
+ ILQ = .TRUE.
ICOMPQ = 0
END IF
*
ILZ = .TRUE.
ICOMPZ = 3
ELSE
+ ILZ = .TRUE.
ICOMPZ = 0
END IF
*
DOUBLE PRECISION ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL,
$ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP
COMPLEX*16 ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2,
- $ CTEMP3, ESHIFT, RTDISC, S, SHIFT, SIGNBC, T1,
+ $ CTEMP3, ESHIFT, S, SHIFT, SIGNBC,
$ U12, X, ABI12, Y
* ..
* .. External Functions ..
ILSCHR = .TRUE.
ISCHUR = 2
ELSE
+ ILSCHR = .TRUE.
ISCHUR = 0
END IF
*
ILQ = .TRUE.
ICOMPQ = 3
ELSE
+ ILQ = .TRUE.
ICOMPQ = 0
END IF
*
ILZ = .TRUE.
ICOMPZ = 3
ELSE
+ ILZ = .TRUE.
ICOMPZ = 0
END IF
*