Home
last modified time | relevance | path

Searched refs:PIVOT (Results 1 – 25 of 332) sorted by relevance

12345678910>>...14

/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/surfpack/src/surfaces/nkm/
H A DNKM_PivotChol.f178 PIVOT=A(1,1)
185 PIVOT=A(J,J)
189 IF(PIVOT.LE.ZERO) THEN
211 MXPVIN=ONE/PIVOT
212 BETA=DSQRT(PIVOT)
215 PIVOT=ZERO
225 PIVOT=TMPDBL
235 TMPDBL=PIVOT*MXPVIN
253 BETA=DSQRT(PIVOT)
256 PIVOT=ZERO
[all …]
H A DNKM_BlockPivotChol.f96 DOUBLE PRECISION PIVOT, TMPDBL, MAXPIV, MINPIV
272 PIVOT=DWORK(1,1,3)
274 IF(PIVOT.LT.DWORK(1,J,3)) THEN
275 PIVOT=DWORK(1,J,3)
342 PIVOT=TMPDBL
366 MAXPIV=PIVOT
367 MINPIV=PIVOT
369 IF(MAXPIV.LT.PIVOT)
370 $ MAXPIV=PIVOT
371 IF(PIVOT.LT.MINPIV)
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/dbsplin/
H A Ddbnfac.f68 DOUBLE PRECISION W(NROWW,NROW), FACTOR, PIVOT
86 PIVOT = W(MIDDLE,I)
87 IF (PIVOT.EQ.0.0D0) GO TO 120
90 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
98 PIVOT = W(MIDDLE,I)
99 IF (PIVOT.EQ.0.0D0) GO TO 120
105 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
/dports/math/slatec/src/
H A Dbnfac.f80 REAL W(NROWW,*), FACTOR, PIVOT
98 PIVOT = W(MIDDLE,I)
99 IF (PIVOT.EQ.0.0E0) GO TO 120
102 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
110 PIVOT = W(MIDDLE,I)
111 IF (PIVOT.EQ.0.0E0) GO TO 120
117 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
H A Ddbnfac.f82 DOUBLE PRECISION W(NROWW,*), FACTOR, PIVOT
100 PIVOT = W(MIDDLE,I)
101 IF (PIVOT.EQ.0.0D0) GO TO 120
104 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
112 PIVOT = W(MIDDLE,I)
113 IF (PIVOT.EQ.0.0D0) GO TO 120
119 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
H A Dbnfac.f66 REAL W(NROWW,NROW), FACTOR, PIVOT
84 PIVOT = W(MIDDLE,I)
85 IF (PIVOT.EQ.0.0E0) GO TO 120
88 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
96 PIVOT = W(MIDDLE,I)
97 IF (PIVOT.EQ.0.0E0) GO TO 120
103 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
/dports/math/cmlib/cmlib-3.0_8/src/bspline/
H A Dbnfac.f66 REAL W(NROWW,NROW), FACTOR, PIVOT
84 PIVOT = W(MIDDLE,I)
85 IF (PIVOT.EQ.0.0E0) GO TO 120
88 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
96 PIVOT = W(MIDDLE,I)
97 IF (PIVOT.EQ.0.0E0) GO TO 120
103 W(MIDDLE+J,I) = W(MIDDLE+J,I)/PIVOT
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/
H A Ddlasr.f1 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
9 CHARACTER DIRECT, PIVOT, SIDE
168 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
169 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
194 IF( LSAME( PIVOT, 'V' ) ) THEN
220 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
246 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
277 IF( LSAME( PIVOT, 'V' ) ) THEN
303 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
329 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dclasr.f201 SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
209 CHARACTER DIRECT, PIVOT, SIDE
245 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
246 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
271 IF( LSAME( PIVOT, 'V' ) ) THEN
297 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
323 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
354 IF( LSAME( PIVOT, 'V' ) ) THEN
380 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
406 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dzlasr.f201 SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
209 CHARACTER DIRECT, PIVOT, SIDE
245 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
246 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
271 IF( LSAME( PIVOT, 'V' ) ) THEN
297 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
323 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
354 IF( LSAME( PIVOT, 'V' ) ) THEN
380 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
406 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dslasr.f200 SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
208 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Ddlasr.f200 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
208 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dzlasr.f199 SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
206 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dclasr.f199 SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
206 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dslasr.f198 SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
205 CHARACTER DIRECT, PIVOT, SIDE
239 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
240 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
265 IF( LSAME( PIVOT, 'V' ) ) THEN
291 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
317 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
348 IF( LSAME( PIVOT, 'V' ) ) THEN
374 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
400 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Ddlasr.f198 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
205 CHARACTER DIRECT, PIVOT, SIDE
239 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
240 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
265 IF( LSAME( PIVOT, 'V' ) ) THEN
291 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
317 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
348 IF( LSAME( PIVOT, 'V' ) ) THEN
374 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
400 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlasr.f199 SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
206 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Ddlasr.f198 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
205 CHARACTER DIRECT, PIVOT, SIDE
239 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
240 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
265 IF( LSAME( PIVOT, 'V' ) ) THEN
291 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
317 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
348 IF( LSAME( PIVOT, 'V' ) ) THEN
374 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
400 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dclasr.f199 SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
206 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dslasr.f198 SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
205 CHARACTER DIRECT, PIVOT, SIDE
239 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
240 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
265 IF( LSAME( PIVOT, 'V' ) ) THEN
291 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
317 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
348 IF( LSAME( PIVOT, 'V' ) ) THEN
374 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
400 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/
H A Ddlasr.f200 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
208 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
H A Dzlasr.f201 SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
209 CHARACTER DIRECT, PIVOT, SIDE
245 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
246 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
271 IF( LSAME( PIVOT, 'V' ) ) THEN
297 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
323 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
354 IF( LSAME( PIVOT, 'V' ) ) THEN
380 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
406 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dslasr.f1 SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
9 CHARACTER DIRECT, PIVOT, SIDE local
131 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
132 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
157 IF( LSAME( PIVOT, 'V' ) ) THEN
183 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
209 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
240 IF( LSAME( PIVOT, 'V' ) ) THEN
266 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
292 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddlasr.f198 SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
205 CHARACTER DIRECT, PIVOT, SIDE
239 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
240 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
265 IF( LSAME( PIVOT, 'V' ) ) THEN
291 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
317 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
348 IF( LSAME( PIVOT, 'V' ) ) THEN
374 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
400 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dzlasr.f199 SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) argument
206 CHARACTER DIRECT, PIVOT, SIDE
242 ELSE IF( .NOT.( LSAME( PIVOT, 'V' ) .OR. LSAME( PIVOT,
243 $ 'T' ) .OR. LSAME( PIVOT, 'B' ) ) ) THEN
268 IF( LSAME( PIVOT, 'V' ) ) THEN
294 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
320 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN
351 IF( LSAME( PIVOT, 'V' ) ) THEN
377 ELSE IF( LSAME( PIVOT, 'T' ) ) THEN
403 ELSE IF( LSAME( PIVOT, 'B' ) ) THEN

12345678910>>...14