Home
last modified time | relevance | path

Searched refs:TLVLS (Results 1 – 25 of 137) sorted by relevance

123456

/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclaed7.f245 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f245 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlaed7.f245 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
H A Dclaed7.f245 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dzlaed7.f245 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
H A Dclaed7.f245 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dclaed7.f245 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f245 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS local
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclaed7.f247 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
259 $ TLVLS local
326 PTR = 1 + 2**TLVLS
328 PTR = PTR + 2**( TLVLS-I )
331 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
339 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f247 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
259 $ TLVLS
326 PTR = 1 + 2**TLVLS
328 PTR = PTR + 2**( TLVLS-I )
331 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
339 IF( CURLVL.EQ.TLVLS ) THEN
/dports/science/elk/elk-7.2.42/src/LAPACK/
H A Dzlaed7.f247 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
259 $ TLVLS
326 PTR = 1 + 2**TLVLS
328 PTR = PTR + 2**( TLVLS-I )
331 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
339 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dclaed7.f245 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f245 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
256 $ TLVLS
323 PTR = 1 + 2**TLVLS
325 PTR = PTR + 2**( TLVLS-I )
328 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
336 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dclaed7.f247 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
259 $ TLVLS
326 PTR = 1 + 2**TLVLS
328 PTR = PTR + 2**( TLVLS-I )
331 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
339 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f247 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
259 $ TLVLS
326 PTR = 1 + 2**TLVLS
328 PTR = PTR + 2**( TLVLS-I )
331 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
339 IF( CURLVL.EQ.TLVLS ) THEN
H A Ddlaed7.f258 SUBROUTINE DLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
270 $ QSIZ, TLVLS
347 PTR = 1 + 2**TLVLS
349 PTR = PTR + 2**( TLVLS-I )
352 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
360 IF( CURLVL.EQ.TLVLS ) THEN
H A Dslaed7.f258 SUBROUTINE SLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
270 $ QSIZ, TLVLS
347 PTR = 1 + 2**TLVLS
349 PTR = PTR + 2**( TLVLS-I )
352 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
360 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Dclaed7.f1 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS
214 PTR = 1 + 2**TLVLS
216 PTR = PTR + 2**( TLVLS-I )
219 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
227 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f1 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS local
214 PTR = 1 + 2**TLVLS
216 PTR = PTR + 2**( TLVLS-I )
219 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
227 IF( CURLVL.EQ.TLVLS ) THEN
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dclaed7.f1 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS local
206 PTR = 1 + 2**TLVLS
208 PTR = PTR + 2**( TLVLS-I )
211 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
219 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f1 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS local
206 PTR = 1 + 2**TLVLS
208 PTR = PTR + 2**( TLVLS-I )
211 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
219 IF( CURLVL.EQ.TLVLS ) THEN
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Dclaed7.f1 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS
206 PTR = 1 + 2**TLVLS
208 PTR = PTR + 2**( TLVLS-I )
211 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
219 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f1 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS
206 PTR = 1 + 2**TLVLS
208 PTR = PTR + 2**( TLVLS-I )
211 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
219 IF( CURLVL.EQ.TLVLS ) THEN
/dports/math/openblas/TIMING/EIG/EIGSRC/
H A Dclaed7.f1 SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS
214 PTR = 1 + 2**TLVLS
216 PTR = PTR + 2**( TLVLS-I )
219 CALL SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
227 IF( CURLVL.EQ.TLVLS ) THEN
H A Dzlaed7.f1 SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, argument
13 $ TLVLS
214 PTR = 1 + 2**TLVLS
216 PTR = PTR + 2**( TLVLS-I )
219 CALL DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR,
227 IF( CURLVL.EQ.TLVLS ) THEN

123456