/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | qs_initial_guess.F | 1264 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 D | qs_initial_guess.F | 1357 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | sparseinv.c | 54 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 D | factor.c | 1128 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 D | factor.c | 1128 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 D | factor.c | 1128 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 D | factor.c | 1128 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 D | print.objects.R | 44 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 D | code_action.go | 62 pdiag, err := toProtocolDiagnostic(ctx, view, diag) 75 Diagnostics: []protocol.Diagnostic{pdiag},
|