Home
last modified time | relevance | path

Searched refs:pdiag (Results 1 – 25 of 82) sorted by relevance

1234

/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dqs_initial_guess.F1264 ALLOCATE (pdiag(nao))
1265 pdiag(:) = 0.0_dp
1280 pdiag(:) = 0.0_dp
1318 pdiag(isgfa) = econf(0)
1365 pdiag(isgfa + 1) = 0._dp
1366 pdiag(isgfa + 2) = 0._dp
1434 pdiag(isgf) = paa
1450 IF (sdiag(isgf) > 0.0_dp) pdiag(isgf) = pdiag(isgf)/sdiag(isgf)
1463 IF (pdiag(isgf) < maxocc) pdiag(isgf) = rscale*pdiag(isgf)
1468 IF (pdiag(isgf) < maxocc) pdiag(isgf) = pdiag(isgf)/rscale
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dqs_initial_guess.F1357 ALLOCATE (pdiag(nao))
1358 pdiag(:) = 0.0_dp
1373 pdiag(:) = 0.0_dp
1411 pdiag(isgfa) = econf(0)
1458 pdiag(isgfa + 1) = 0._dp
1459 pdiag(isgfa + 2) = 0._dp
1527 pdiag(isgf) = paa
1543 IF (sdiag(isgf) > 0.0_dp) pdiag(isgf) = pdiag(isgf)/sdiag(isgf)
1556 IF (pdiag(isgf) < maxocc) pdiag(isgf) = rscale*pdiag(isgf)
1561 IF (pdiag(isgf) < maxocc) pdiag(isgf) = pdiag(isgf)/rscale
[all …]
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-config/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-amd/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-mongoose/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-graphblas/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-cholmod/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-ccolamd/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-camd/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-slip_lu/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-spqr/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-umfpack/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-rbio/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-btf/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-csparse/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/suitesparse-cxsparse/SuiteSparse-5.10.1/MATLAB_Tools/sparseinv/
H A Dsparseinv.c54 Int j, i, k, p, znz, pdiag, up, zp, flops = n ; in sparseinv() local
70 pdiag = -1 ; in sparseinv()
71 for (p = Zp [j] ; p < Zp [j+1] && pdiag == -1 ; p++) in sparseinv()
75 pdiag = p ; in sparseinv()
79 Zdiagp [j] = pdiag ; in sparseinv()
80 if (pdiag == -1) return (-1) ; /* Z must have a zero-free diagonal */ in sparseinv()
/dports/math/spooles-mpich/spooles.2.2_SHARED/Chv/src/
H A Dfactor.c1128 double *pdiag ; in Chv_maxabsInChevron() local
1142 pdiag = Chv_diagLocation(chv, ichv) ; in Chv_maxabsInChevron()
1146 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1150 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1161 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1165 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1194 double *pdiag ; in Chv_zeroOffdiagonalOfChevron() local
1211 DVzero(length, pdiag+1) ; in Chv_zeroOffdiagonalOfChevron()
1213 DVzero(length, pdiag + 1) ; in Chv_zeroOffdiagonalOfChevron()
1224 ZVzero(length, pdiag+2) ; in Chv_zeroOffdiagonalOfChevron()
[all …]
/dports/math/spooles-mpich/spooles.2.2/Chv/src/
H A Dfactor.c1128 double *pdiag ; in Chv_maxabsInChevron() local
1142 pdiag = Chv_diagLocation(chv, ichv) ; in Chv_maxabsInChevron()
1146 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1150 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1161 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1165 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1194 double *pdiag ; in Chv_zeroOffdiagonalOfChevron() local
1211 DVzero(length, pdiag+1) ; in Chv_zeroOffdiagonalOfChevron()
1213 DVzero(length, pdiag + 1) ; in Chv_zeroOffdiagonalOfChevron()
1224 ZVzero(length, pdiag+2) ; in Chv_zeroOffdiagonalOfChevron()
[all …]
/dports/math/spooles/spooles.2.2_SHARED/Chv/src/
H A Dfactor.c1128 double *pdiag ; in Chv_maxabsInChevron() local
1142 pdiag = Chv_diagLocation(chv, ichv) ; in Chv_maxabsInChevron()
1146 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1150 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1161 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1165 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1194 double *pdiag ; in Chv_zeroOffdiagonalOfChevron() local
1211 DVzero(length, pdiag+1) ; in Chv_zeroOffdiagonalOfChevron()
1213 DVzero(length, pdiag + 1) ; in Chv_zeroOffdiagonalOfChevron()
1224 ZVzero(length, pdiag+2) ; in Chv_zeroOffdiagonalOfChevron()
[all …]
/dports/math/spooles/spooles.2.2/Chv/src/
H A Dfactor.c1128 double *pdiag ; in Chv_maxabsInChevron() local
1142 pdiag = Chv_diagLocation(chv, ichv) ; in Chv_maxabsInChevron()
1146 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1150 *pdiagmaxabs = fabs(*pdiag) ; in Chv_maxabsInChevron()
1161 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1165 *pdiagmaxabs = Zabs(*pdiag, *(pdiag+1)) ; in Chv_maxabsInChevron()
1194 double *pdiag ; in Chv_zeroOffdiagonalOfChevron() local
1211 DVzero(length, pdiag+1) ; in Chv_zeroOffdiagonalOfChevron()
1213 DVzero(length, pdiag + 1) ; in Chv_zeroOffdiagonalOfChevron()
1224 ZVzero(length, pdiag+2) ; in Chv_zeroOffdiagonalOfChevron()
[all …]
/dports/math/R-cran-KFAS/KFAS/R/
H A Dprint.objects.R44 pdiag <- 1 + 0:(p - 1) * (p + 1) functionVar
66 print_this <- cbind(x$t[n, ], sqrt(x$P_theta[, , n][pdiag]))
71 print_this <- cbind(x$thetahat[n,], sqrt(x$V_theta[, , n][pdiag]))
80 print_this <- cbind(x$m[n, ], sqrt(x$P_mu[, , n][pdiag]))
85 print_this <- cbind(x$muhat[n,], sqrt(x$V_mu[, , n][pdiag]))
/dports/databases/cayley/cayley-0.7.5-2-gcf576ba/vendor/golang.org/x/tools/internal/lsp/
H A Dcode_action.go62 pdiag, err := toProtocolDiagnostic(ctx, view, diag)
75 Diagnostics: []protocol.Diagnostic{pdiag},

1234