/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | clarfgp.f | 146 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 D | zlarfgp.f | 146 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 D | slarfgp.f | 125 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 D | dlarfgp.f | 125 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 D | zlarfgp.f | 146 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 D | clarfgp.f | 146 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 D | slarfgp.f | 125 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 D | dlarfgp.f | 125 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 D | clarfgp.f | 146 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 D | zlarfgp.f | 146 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 D | dlarfgp.f | 125 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 D | slarfgp.f | 125 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 D | clarfgp.f | 146 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 D | zlarfgp.f | 146 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 D | dlarfgp.f | 125 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 D | slarfgp.f | 125 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 D | clarfgp.f | 149 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 D | zlarfgp.f | 149 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 D | clarfgp.f | 146 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 D | zlarfgp.f | 146 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 D | clarfgp.f | 149 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 D | zlarfgp.f | 149 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 D | dlarfgp.f | 128 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 D | slarfgp.f | 128 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 D | cc_bamat.F | 117 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 …]
|