Home
last modified time | relevance | path

Searched refs:XNORM (Results 1 – 25 of 1887) sorted by relevance

12345678910>>...76

/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclarfgp.f146 XNORM = SCNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = SLAPY2( ALPHR, ALPHI )
172 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = SCNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
241 XNORM = SLAPY2( ALPHR, ALPHI )
242 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f146 XNORM = DZNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = DLAPY2( ALPHR, ALPHI )
172 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = DZNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
241 XNORM = DLAPY2( ALPHR, ALPHI )
242 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dslarfgp.f125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = SNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = SNRM2( N-1, X, INCX )
187 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
H A Ddlarfgp.f125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = DNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = DNRM2( N-1, X, INCX )
187 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlarfgp.f146 XNORM = DZNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = DLAPY2( ALPHR, ALPHI )
172 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = DZNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
241 XNORM = DLAPY2( ALPHR, ALPHI )
242 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dclarfgp.f146 XNORM = SCNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = SLAPY2( ALPHR, ALPHI )
172 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = SCNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
241 XNORM = SLAPY2( ALPHR, ALPHI )
242 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dslarfgp.f125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = SNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = SNRM2( N-1, X, INCX )
187 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
H A Ddlarfgp.f125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = DNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = DNRM2( N-1, X, INCX )
187 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dclarfgp.f146 XNORM = SCNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = SLAPY2( ALPHR, ALPHI )
172 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = SCNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
241 XNORM = SLAPY2( ALPHR, ALPHI )
242 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f146 XNORM = DZNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = DLAPY2( ALPHR, ALPHI )
172 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = DZNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
241 XNORM = DLAPY2( ALPHR, ALPHI )
242 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Ddlarfgp.f125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = DNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = DNRM2( N-1, X, INCX )
187 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
H A Dslarfgp.f125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = SNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = SNRM2( N-1, X, INCX )
187 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dclarfgp.f146 XNORM = SCNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = SLAPY2( ALPHR, ALPHI )
172 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = SCNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
241 XNORM = SLAPY2( ALPHR, ALPHI )
242 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f146 XNORM = DZNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = DLAPY2( ALPHR, ALPHI )
172 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = DZNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
241 XNORM = DLAPY2( ALPHR, ALPHI )
242 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Ddlarfgp.f125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = DNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = DNRM2( N-1, X, INCX )
187 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
H A Dslarfgp.f125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
144 XNORM = SNRM2( N-1, X, INCX )
146 IF( XNORM.EQ.ZERO ) THEN
168 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
186 XNORM = SNRM2( N-1, X, INCX )
187 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
195 ALPHA = XNORM * (XNORM/ALPHA)
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclarfgp.f149 XNORM = SCNRM2( N-1, X, INCX )
153 IF( XNORM.EQ.ZERO ) THEN
174 XNORM = SLAPY2( ALPHR, ALPHI )
175 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
179 ALPHA = XNORM
185 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
205 XNORM = SCNRM2( N-1, X, INCX )
216 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
244 XNORM = SLAPY2( ALPHR, ALPHI )
245 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f149 XNORM = DZNRM2( N-1, X, INCX )
153 IF( XNORM.EQ.ZERO ) THEN
174 XNORM = DLAPY2( ALPHR, ALPHI )
175 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
179 ALPHA = XNORM
185 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
205 XNORM = DZNRM2( N-1, X, INCX )
216 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
244 XNORM = DLAPY2( ALPHR, ALPHI )
245 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dclarfgp.f146 XNORM = SCNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = SLAPY2( ALPHR, ALPHI )
172 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = SCNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
241 XNORM = SLAPY2( ALPHR, ALPHI )
242 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f146 XNORM = DZNRM2( N-1, X, INCX )
150 IF( XNORM.EQ.ZERO ) THEN
171 XNORM = DLAPY2( ALPHR, ALPHI )
172 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
176 ALPHA = XNORM
182 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
202 XNORM = DZNRM2( N-1, X, INCX )
213 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
241 XNORM = DLAPY2( ALPHR, ALPHI )
242 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dclarfgp.f149 XNORM = SCNRM2( N-1, X, INCX )
153 IF( XNORM.EQ.ZERO ) THEN
174 XNORM = SLAPY2( ALPHR, ALPHI )
175 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
179 ALPHA = XNORM
185 BETA = SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
205 XNORM = SCNRM2( N-1, X, INCX )
216 ALPHR = ALPHR + XNORM * (XNORM/REAL( ALPHA ))
244 XNORM = SLAPY2( ALPHR, ALPHI )
245 TAU = CMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Dzlarfgp.f149 XNORM = DZNRM2( N-1, X, INCX )
153 IF( XNORM.EQ.ZERO ) THEN
174 XNORM = DLAPY2( ALPHR, ALPHI )
175 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
179 ALPHA = XNORM
185 BETA = SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
205 XNORM = DZNRM2( N-1, X, INCX )
216 ALPHR = ALPHR + XNORM * (XNORM/DBLE( ALPHA ))
244 XNORM = DLAPY2( ALPHR, ALPHI )
245 TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM )
[all …]
H A Ddlarfgp.f128 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
147 XNORM = DNRM2( N-1, X, INCX )
149 IF( XNORM.EQ.ZERO ) THEN
171 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
189 XNORM = DNRM2( N-1, X, INCX )
190 BETA = SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
198 ALPHA = XNORM * (XNORM/ALPHA)
H A Dslarfgp.f128 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM
147 XNORM = SNRM2( N-1, X, INCX )
149 IF( XNORM.EQ.ZERO ) THEN
171 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
189 XNORM = SNRM2( N-1, X, INCX )
190 BETA = SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
198 ALPHA = XNORM * (XNORM/ALPHA)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc_bamat.F117 REAL XNORM
122 DOUBLE PRECISION XNORM
373 WRITE (LUPRI,*) 'Norm of O^AOO:',XNORM
463 & XNORM
502 & XNORM
646 IF (.NOT.CCS) XNORM = XNORM +
648 IF (CCR12) XNORM = XNORM +
650 WRITE (LUPRI,*) 'Norm:', XNORM
703 IF (.NOT.CCS) XNORM = XNORM +
705 IF (CCR12) XNORM = XNORM +
[all …]

12345678910>>...76