Lines Matching defs:ZLARFG
107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) subroutine
115 INTEGER INCX, N local
116 COMPLEX*16 ALPHA, TAU
119 COMPLEX*16 X( * )
125 DOUBLE PRECISION ONE, ZERO
129 INTEGER J, KNT
130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM
133 DOUBLE PRECISION DLAMCH, DLAPY3, DZNRM2
134 COMPLEX*16 ZLADIV
172 10 CONTINUE
201 * End of ZLARFG argument