107       SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )  subroutine
115       INTEGER            INCX, N  local
116       COMPLEX            ALPHA, TAU
119       COMPLEX            X( * )
125       REAL               ONE, ZERO
129       INTEGER            J, KNT
130       REAL               ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM
133       REAL               SCNRM2, SLAMCH, SLAPY3
134       COMPLEX            CLADIV
172    10       CONTINUE
201 *     End of CLARFG  argument