/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/surfpack/src/surfaces/nkm/ |
H A D | NKM_PivotChol.f | 178 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 D | NKM_BlockPivotChol.f | 96 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 D | dbnfac.f | 68 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 D | bnfac.f | 80 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 D | dbnfac.f | 82 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 D | bnfac.f | 66 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 D | bnfac.f | 66 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 D | dlasr.f | 1 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 D | clasr.f | 201 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 D | zlasr.f | 201 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 D | slasr.f | 200 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 D | dlasr.f | 200 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 D | zlasr.f | 199 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 D | clasr.f | 199 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 D | slasr.f | 198 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 D | dlasr.f | 198 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 D | zlasr.f | 199 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 D | dlasr.f | 198 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 D | clasr.f | 199 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 D | slasr.f | 198 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 D | dlasr.f | 200 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 D | zlasr.f | 201 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 D | slasr.f | 1 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 D | dlasr.f | 198 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 D | zlasr.f | 199 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
|