| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | /* | ||
| 2 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
| 3 | SLEPc - Scalable Library for Eigenvalue Problem Computations | ||
| 4 | Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain | ||
| 5 | |||
| 6 | This file is part of SLEPc. | ||
| 7 | SLEPc is distributed under a 2-clause BSD license (see LICENSE). | ||
| 8 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
| 9 | */ | ||
| 10 | /* | ||
| 11 | SLEPc singular value solver: "trlanczos" | ||
| 12 | |||
| 13 | Method: Thick-restart Lanczos | ||
| 14 | |||
| 15 | Algorithm: | ||
| 16 | |||
| 17 | Golub-Kahan-Lanczos bidiagonalization with thick-restart. | ||
| 18 | |||
| 19 | References: | ||
| 20 | |||
| 21 | [1] G.H. Golub and W. Kahan, "Calculating the singular values | ||
| 22 | and pseudo-inverse of a matrix", SIAM J. Numer. Anal. Ser. | ||
| 23 | B 2:205-224, 1965. | ||
| 24 | |||
| 25 | [2] V. Hernandez, J.E. Roman, and A. Tomas, "A robust and | ||
| 26 | efficient parallel SVD solver based on restarted Lanczos | ||
| 27 | bidiagonalization", Elec. Trans. Numer. Anal. 31:68-85, | ||
| 28 | 2008. | ||
| 29 | */ | ||
| 30 | |||
| 31 | #include <slepc/private/svdimpl.h> /*I "slepcsvd.h" I*/ | ||
| 32 | #include <slepc/private/bvimpl.h> | ||
| 33 | |||
| 34 | static PetscBool cited = PETSC_FALSE,citedg = PETSC_FALSE; | ||
| 35 | static const char citation[] = | ||
| 36 | "@Article{slepc-svd,\n" | ||
| 37 | " author = \"V. Hern{\\'a}ndez and J. E. Rom{\\'a}n and A. Tom{\\'a}s\",\n" | ||
| 38 | " title = \"A robust and efficient parallel {SVD} solver based on restarted {Lanczos} bidiagonalization\",\n" | ||
| 39 | " journal = \"Electron. Trans. Numer. Anal.\",\n" | ||
| 40 | " volume = \"31\",\n" | ||
| 41 | " pages = \"68--85\",\n" | ||
| 42 | " year = \"2008\"\n" | ||
| 43 | "}\n"; | ||
| 44 | static const char citationg[] = | ||
| 45 | "@Article{slepc-gsvd,\n" | ||
| 46 | " author = \"F. Alvarruiz and C. Campos and J. E. Roman\",\n" | ||
| 47 | " title = \"Thick-restarted {Lanczos} bidiagonalization methods for the {GSVD}\",\n" | ||
| 48 | " journal = \"J. Comput. Appl. Math.\",\n" | ||
| 49 | " volume = \"440\",\n" | ||
| 50 | " pages = \"115506\",\n" | ||
| 51 | " year = \"2024\"\n" | ||
| 52 | "}\n"; | ||
| 53 | |||
| 54 | typedef struct { | ||
| 55 | /* user parameters */ | ||
| 56 | PetscBool oneside; /* one-sided variant */ | ||
| 57 | PetscReal keep; /* restart parameter */ | ||
| 58 | PetscBool lock; /* locking/non-locking variant */ | ||
| 59 | KSP ksp; /* solver for least-squares problem in GSVD */ | ||
| 60 | SVDTRLanczosGBidiag bidiag; /* bidiagonalization variant for GSVD */ | ||
| 61 | PetscReal scalef; /* scale factor for matrix B */ | ||
| 62 | PetscReal scaleth; /* scale threshold for automatic scaling */ | ||
| 63 | PetscBool explicitmatrix; | ||
| 64 | /* auxiliary variables */ | ||
| 65 | Mat Z; /* aux matrix for GSVD, Z=[A;B] */ | ||
| 66 | } SVD_TRLANCZOS; | ||
| 67 | |||
| 68 | /* Context for shell matrix [A; B] */ | ||
| 69 | typedef struct { | ||
| 70 | Mat A,B,AT,BT; | ||
| 71 | Vec y1,y2,y; | ||
| 72 | PetscInt m; | ||
| 73 | PetscReal scalef; | ||
| 74 | } MatZData; | ||
| 75 | |||
| 76 | 542 | static PetscErrorCode MatZCreateContext(SVD svd,MatZData **zdata) | |
| 77 | { | ||
| 78 | 542 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 79 | |||
| 80 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
542 | PetscFunctionBegin; |
| 81 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(PetscNew(zdata)); |
| 82 | 542 | (*zdata)->A = svd->A; | |
| 83 | 542 | (*zdata)->B = svd->B; | |
| 84 | 542 | (*zdata)->AT = svd->AT; | |
| 85 | 542 | (*zdata)->BT = svd->BT; | |
| 86 | 542 | (*zdata)->scalef = lanczos->scalef; | |
| 87 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatCreateVecsEmpty(svd->A,NULL,&(*zdata)->y1)); |
| 88 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatCreateVecsEmpty(svd->B,NULL,&(*zdata)->y2)); |
| 89 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(VecGetLocalSize((*zdata)->y1,&(*zdata)->m)); |
| 90 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(BVCreateVec(svd->U,&(*zdata)->y)); |
| 91 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
106 | PetscFunctionReturn(PETSC_SUCCESS); |
| 92 | } | ||
| 93 | |||
| 94 | /* Update scale factor for B in Z=[A;B] | ||
| 95 | If matrices are swapped, the scale factor is inverted.*/ | ||
| 96 | 729 | static PetscErrorCode MatZUpdateScale(SVD svd) | |
| 97 | { | ||
| 98 | 729 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 99 | 729 | MatZData *zdata; | |
| 100 | 729 | Mat mats[2],normal; | |
| 101 | 729 | MatType Atype; | |
| 102 | 729 | PetscBool sametype; | |
| 103 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
729 | PetscReal scalef = svd->swapped? 1.0/lanczos->scalef : lanczos->scalef; |
| 104 | |||
| 105 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
729 | PetscFunctionBegin; |
| 106 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
729 | if (lanczos->explicitmatrix) { |
| 107 | /* Destroy the matrix Z and create it again */ | ||
| 108 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
122 | PetscCall(MatDestroy(&lanczos->Z)); |
| 109 | 122 | mats[0] = svd->A; | |
| 110 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
122 | if (scalef == 1.0) { |
| 111 | 46 | mats[1] = svd->B; | |
| 112 | } else { | ||
| 113 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
76 | PetscCall(MatDuplicate(svd->B,MAT_COPY_VALUES,&mats[1])); |
| 114 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
76 | PetscCall(MatScale(mats[1],scalef)); |
| 115 | } | ||
| 116 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
122 | PetscCall(MatCreateNest(PetscObjectComm((PetscObject)svd),2,NULL,1,NULL,mats,&lanczos->Z)); |
| 117 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
122 | PetscCall(MatGetType(svd->A,&Atype)); |
| 118 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
122 | PetscCall(PetscObjectTypeCompare((PetscObject)svd->B,Atype,&sametype)); |
| 119 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
122 | if (!sametype) Atype = MATAIJ; |
| 120 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
122 | PetscCall(MatConvert(lanczos->Z,Atype,MAT_INPLACE_MATRIX,&lanczos->Z)); |
| 121 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
122 | if (scalef != 1.0) PetscCall(MatDestroy(&mats[1])); |
| 122 | } else { | ||
| 123 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
607 | PetscCall(MatShellGetContext(lanczos->Z,&zdata)); |
| 124 | 607 | zdata->scalef = scalef; | |
| 125 | } | ||
| 126 | |||
| 127 | /* create normal equations matrix, to build the preconditioner in LSQR */ | ||
| 128 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
729 | PetscCall(MatCreateNormalHermitian(lanczos->Z,&normal)); |
| 129 | |||
| 130 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
729 | if (!lanczos->ksp) PetscCall(SVDTRLanczosGetKSP(svd,&lanczos->ksp)); |
| 131 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
729 | PetscCall(SVD_KSPSetOperators(lanczos->ksp,lanczos->Z,normal)); |
| 132 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
729 | PetscCall(KSPSetUp(lanczos->ksp)); |
| 133 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
729 | PetscCall(MatDestroy(&normal)); |
| 134 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
147 | PetscFunctionReturn(PETSC_SUCCESS); |
| 135 | } | ||
| 136 | |||
| 137 | 542 | static PetscErrorCode MatDestroy_Z(Mat Z) | |
| 138 | { | ||
| 139 | 542 | MatZData *zdata; | |
| 140 | |||
| 141 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
542 | PetscFunctionBegin; |
| 142 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatShellGetContext(Z,&zdata)); |
| 143 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(VecDestroy(&zdata->y1)); |
| 144 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(VecDestroy(&zdata->y2)); |
| 145 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(VecDestroy(&zdata->y)); |
| 146 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
542 | PetscCall(PetscFree(zdata)); |
| 147 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
106 | PetscFunctionReturn(PETSC_SUCCESS); |
| 148 | } | ||
| 149 | |||
| 150 | 1135245 | static PetscErrorCode MatMult_Z(Mat Z,Vec x,Vec y) | |
| 151 | { | ||
| 152 | 1135245 | MatZData *zdata; | |
| 153 | 1135245 | PetscScalar *y_elems; | |
| 154 | |||
| 155 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1135245 | PetscFunctionBegin; |
| 156 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(MatShellGetContext(Z,&zdata)); |
| 157 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecGetArray(y,&y_elems)); |
| 158 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecPlaceArray(zdata->y1,y_elems)); |
| 159 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecPlaceArray(zdata->y2,y_elems+zdata->m)); |
| 160 | |||
| 161 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(MatMult(zdata->A,x,zdata->y1)); |
| 162 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(MatMult(zdata->B,x,zdata->y2)); |
| 163 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecScale(zdata->y2,zdata->scalef)); |
| 164 | |||
| 165 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecResetArray(zdata->y1)); |
| 166 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecResetArray(zdata->y2)); |
| 167 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1135245 | PetscCall(VecRestoreArray(y,&y_elems)); |
| 168 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
229362 | PetscFunctionReturn(PETSC_SUCCESS); |
| 169 | } | ||
| 170 | |||
| 171 | 1137395 | static PetscErrorCode MatMultTranspose_Z(Mat Z,Vec y,Vec x) | |
| 172 | { | ||
| 173 | 1137395 | MatZData *zdata; | |
| 174 | 1137395 | const PetscScalar *y_elems; | |
| 175 | |||
| 176 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1137395 | PetscFunctionBegin; |
| 177 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(MatShellGetContext(Z,&zdata)); |
| 178 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecGetArrayRead(y,&y_elems)); |
| 179 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecPlaceArray(zdata->y1,y_elems)); |
| 180 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecPlaceArray(zdata->y2,y_elems+zdata->m)); |
| 181 | |||
| 182 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(MatMult(zdata->BT,zdata->y2,x)); |
| 183 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecScale(x,zdata->scalef)); |
| 184 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(MatMultAdd(zdata->AT,zdata->y1,x,x)); |
| 185 | |||
| 186 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecResetArray(zdata->y1)); |
| 187 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecResetArray(zdata->y2)); |
| 188 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1137395 | PetscCall(VecRestoreArrayRead(y,&y_elems)); |
| 189 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
229779 | PetscFunctionReturn(PETSC_SUCCESS); |
| 190 | } | ||
| 191 | |||
| 192 | 1555 | static PetscErrorCode MatCreateVecs_Z(Mat Z,Vec *right,Vec *left) | |
| 193 | { | ||
| 194 | 1555 | MatZData *zdata; | |
| 195 | |||
| 196 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1555 | PetscFunctionBegin; |
| 197 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1555 | PetscCall(MatShellGetContext(Z,&zdata)); |
| 198 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
1555 | if (right) PetscCall(MatCreateVecs(zdata->A,right,NULL)); |
| 199 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
1555 | if (left) PetscCall(VecDuplicate(zdata->y,left)); |
| 200 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
307 | PetscFunctionReturn(PETSC_SUCCESS); |
| 201 | } | ||
| 202 | |||
| 203 | 1078 | static PetscErrorCode SVDSetUp_TRLanczos(SVD svd) | |
| 204 | { | ||
| 205 | 1078 | PetscInt M,N,P,m,n,p; | |
| 206 | 1078 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 207 | 1078 | MatZData *zdata; | |
| 208 | 1078 | Mat aux; | |
| 209 | |||
| 210 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1078 | PetscFunctionBegin; |
| 211 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(MatGetSize(svd->A,&M,&N)); |
| 212 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(SVDSetDimensions_Default(svd)); |
| 213 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
1078 | PetscCheck(svd->ncv<=svd->nsv+svd->mpd,PetscObjectComm((PetscObject)svd),PETSC_ERR_USER_INPUT,"The value of ncv must not be larger than nsv+mpd"); |
| 214 |
3/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
1078 | PetscCheck(lanczos->lock || svd->mpd>=svd->ncv,PetscObjectComm((PetscObject)svd),PETSC_ERR_SUP,"Should not use mpd parameter in non-locking variant"); |
| 215 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
|
1915 | if (svd->max_it==PETSC_DETERMINE) svd->max_it = PetscMax(N/svd->ncv,100)*((svd->stop==SVD_STOP_THRESHOLD)?10:1); |
| 216 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
1078 | if (!lanczos->keep) lanczos->keep = 0.5; |
| 217 | 1078 | svd->leftbasis = PETSC_TRUE; | |
| 218 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(SVDAllocateSolution(svd,1)); |
| 219 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
1078 | if (svd->isgeneralized) { |
| 220 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatGetSize(svd->B,&P,NULL)); |
| 221 |
9/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 10 times.
✓ Branch 7 taken 5 times.
✓ Branch 8 taken 10 times.
✓ Branch 9 taken 10 times.
|
624 | if (lanczos->bidiag == SVD_TRLANCZOS_GBIDIAG_LOWER && ((svd->which==SVD_LARGEST && P<=N) || (svd->which==SVD_SMALLEST && M>N && P<=N))) { |
| 222 | 42 | SlepcSwap(svd->A,svd->B,aux); | |
| 223 | 42 | SlepcSwap(svd->AT,svd->BT,aux); | |
| 224 | 42 | svd->swapped = PETSC_TRUE; | |
| 225 | 582 | } else svd->swapped = PETSC_FALSE; | |
| 226 | |||
| 227 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(SVDSetWorkVecs(svd,1,1)); |
| 228 | |||
| 229 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
624 | if (svd->conv==SVD_CONV_ABS) { /* Residual norms are multiplied by matrix norms */ |
| 230 | ✗ | if (!svd->nrma) PetscCall(MatNorm(svd->A,NORM_INFINITY,&svd->nrma)); | |
| 231 | ✗ | if (!svd->nrmb) PetscCall(MatNorm(svd->B,NORM_INFINITY,&svd->nrmb)); | |
| 232 | } | ||
| 233 | |||
| 234 | /* Create the matrix Z=[A;B] */ | ||
| 235 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatGetLocalSize(svd->A,&m,&n)); |
| 236 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 237 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
624 | if (!lanczos->explicitmatrix) { |
| 238 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatDestroy(&lanczos->Z)); |
| 239 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatZCreateContext(svd,&zdata)); |
| 240 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatCreateShell(PetscObjectComm((PetscObject)svd),m+p,n,PETSC_DECIDE,PETSC_DECIDE,zdata,&lanczos->Z)); |
| 241 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatShellSetOperation(lanczos->Z,MATOP_MULT,(PetscErrorCodeFn*)MatMult_Z)); |
| 242 | #if defined(PETSC_USE_COMPLEX) | ||
| 243 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
259 | PetscCall(MatShellSetOperation(lanczos->Z,MATOP_MULT_HERMITIAN_TRANSPOSE,(PetscErrorCodeFn*)MatMultTranspose_Z)); |
| 244 | #else | ||
| 245 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
283 | PetscCall(MatShellSetOperation(lanczos->Z,MATOP_MULT_TRANSPOSE,(PetscErrorCodeFn*)MatMultTranspose_Z)); |
| 246 | #endif | ||
| 247 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatShellSetOperation(lanczos->Z,MATOP_CREATE_VECS,(PetscErrorCodeFn*)MatCreateVecs_Z)); |
| 248 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
542 | PetscCall(MatShellSetOperation(lanczos->Z,MATOP_DESTROY,(PetscErrorCodeFn*)MatDestroy_Z)); |
| 249 | } | ||
| 250 | /* Explicit matrix is created here, when updating the scale */ | ||
| 251 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatZUpdateScale(svd)); |
| 252 | |||
| 253 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
454 | } else if (svd->ishyperbolic) { |
| 254 |
7/8✓ Branch 0 taken 6 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
113 | PetscCall(BV_SetMatrixDiagonal(svd->swapped?svd->V:svd->U,svd->omega,svd->OP)); |
| 255 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(SVDSetWorkVecs(svd,1,0)); |
| 256 | } | ||
| 257 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(DSSetCompact(svd->ds,PETSC_TRUE)); |
| 258 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(DSSetExtraRow(svd->ds,PETSC_TRUE)); |
| 259 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1078 | PetscCall(DSAllocate(svd->ds,svd->ncv+1)); |
| 260 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
216 | PetscFunctionReturn(PETSC_SUCCESS); |
| 261 | } | ||
| 262 | |||
| 263 | 244 | static PetscErrorCode SVDOneSideTRLanczosMGS(SVD svd,PetscReal *alpha,PetscReal *beta,BV V,BV U,PetscInt nconv,PetscInt l,PetscInt n,PetscScalar* work) | |
| 264 | { | ||
| 265 | 244 | PetscReal a,b; | |
| 266 | 244 | PetscInt i,k=nconv+l; | |
| 267 | 244 | Vec ui,ui1,vi; | |
| 268 | |||
| 269 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
244 | PetscFunctionBegin; |
| 270 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVGetColumn(V,k,&vi)); |
| 271 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVGetColumn(U,k,&ui)); |
| 272 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(MatMult(svd->A,vi,ui)); |
| 273 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVRestoreColumn(V,k,&vi)); |
| 274 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVRestoreColumn(U,k,&ui)); |
| 275 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
244 | if (l>0) { |
| 276 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
220 | PetscCall(BVSetActiveColumns(U,nconv,n)); |
| 277 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
1248 | for (i=0;i<l;i++) work[i]=beta[i+nconv]; |
| 278 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
220 | PetscCall(BVMultColumn(U,-1.0,1.0,k,work)); |
| 279 | } | ||
| 280 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVNormColumn(U,k,NORM_2,&a)); |
| 281 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVScaleColumn(U,k,1.0/a)); |
| 282 | 244 | alpha[k] = a; | |
| 283 | |||
| 284 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
1268 | for (i=k+1;i<n;i++) { |
| 285 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(V,i,&vi)); |
| 286 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(U,i-1,&ui1)); |
| 287 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(MatMult(svd->AT,ui1,vi)); |
| 288 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(V,i,&vi)); |
| 289 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(U,i-1,&ui1)); |
| 290 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVOrthonormalizeColumn(V,i,PETSC_FALSE,&b,NULL)); |
| 291 | 1024 | beta[i-1] = b; | |
| 292 | |||
| 293 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(V,i,&vi)); |
| 294 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(U,i,&ui)); |
| 295 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(MatMult(svd->A,vi,ui)); |
| 296 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(V,i,&vi)); |
| 297 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(U,i-1,&ui1)); |
| 298 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(VecAXPY(ui,-b,ui1)); |
| 299 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(U,i-1,&ui1)); |
| 300 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(U,i,&ui)); |
| 301 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVNormColumn(U,i,NORM_2,&a)); |
| 302 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVScaleColumn(U,i,1.0/a)); |
| 303 | 1024 | alpha[i] = a; | |
| 304 | } | ||
| 305 | |||
| 306 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVGetColumn(V,n,&vi)); |
| 307 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVGetColumn(U,n-1,&ui1)); |
| 308 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(MatMult(svd->AT,ui1,vi)); |
| 309 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVRestoreColumn(V,n,&vi)); |
| 310 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVRestoreColumn(U,n-1,&ui1)); |
| 311 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVOrthogonalizeColumn(V,n,NULL,&b,NULL)); |
| 312 | 244 | beta[n-1] = b; | |
| 313 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
244 | PetscFunctionReturn(PETSC_SUCCESS); |
| 314 | } | ||
| 315 | |||
| 316 | /* | ||
| 317 | Custom CGS orthogonalization, preprocess after first orthogonalization | ||
| 318 | */ | ||
| 319 | 2536 | static PetscErrorCode SVDOrthogonalizeCGS(BV V,PetscInt i,PetscScalar* h,PetscReal a,BVOrthogRefineType refine,PetscReal eta,PetscReal *norm) | |
| 320 | { | ||
| 321 | 2536 | PetscReal sum,onorm; | |
| 322 | 2536 | PetscScalar dot; | |
| 323 | 2536 | PetscInt j; | |
| 324 | |||
| 325 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2536 | PetscFunctionBegin; |
| 326 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
2536 | switch (refine) { |
| 327 | ✗ | case BV_ORTHOG_REFINE_NEVER: | |
| 328 | ✗ | PetscCall(BVNormColumn(V,i,NORM_2,norm)); | |
| 329 | break; | ||
| 330 | 1268 | case BV_ORTHOG_REFINE_ALWAYS: | |
| 331 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVSetActiveColumns(V,0,i)); |
| 332 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVDotColumn(V,i,h)); |
| 333 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVMultColumn(V,-1.0,1.0,i,h)); |
| 334 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVNormColumn(V,i,NORM_2,norm)); |
| 335 | break; | ||
| 336 | 1268 | case BV_ORTHOG_REFINE_IFNEEDED: | |
| 337 | 1268 | dot = h[i]; | |
| 338 | 1268 | onorm = PetscSqrtReal(PetscRealPart(dot)) / a; | |
| 339 | 1268 | sum = 0.0; | |
| 340 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
10956 | for (j=0;j<i;j++) { |
| 341 | 9688 | sum += PetscRealPart(h[j] * PetscConj(h[j])); | |
| 342 | } | ||
| 343 | 1268 | *norm = PetscRealPart(dot)/(a*a) - sum; | |
| 344 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
1268 | if (*norm>0.0) *norm = PetscSqrtReal(*norm); |
| 345 | ✗ | else PetscCall(BVNormColumn(V,i,NORM_2,norm)); | |
| 346 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
1268 | if (*norm < eta*onorm) { |
| 347 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVSetActiveColumns(V,0,i)); |
| 348 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVDotColumn(V,i,h)); |
| 349 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVMultColumn(V,-1.0,1.0,i,h)); |
| 350 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1268 | PetscCall(BVNormColumn(V,i,NORM_2,norm)); |
| 351 | } | ||
| 352 | break; | ||
| 353 | } | ||
| 354 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
416 | PetscFunctionReturn(PETSC_SUCCESS); |
| 355 | } | ||
| 356 | |||
| 357 | 488 | static PetscErrorCode SVDOneSideTRLanczosCGS(SVD svd,PetscReal *alpha,PetscReal *beta,BV V,BV U,PetscInt nconv,PetscInt l,PetscInt n,PetscScalar* work) | |
| 358 | { | ||
| 359 | 488 | PetscReal a,b,eta; | |
| 360 | 488 | PetscInt i,j,k=nconv+l; | |
| 361 | 488 | Vec ui,ui1,vi; | |
| 362 | 488 | BVOrthogRefineType refine; | |
| 363 | |||
| 364 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
488 | PetscFunctionBegin; |
| 365 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVGetColumn(V,k,&vi)); |
| 366 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVGetColumn(U,k,&ui)); |
| 367 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(MatMult(svd->A,vi,ui)); |
| 368 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVRestoreColumn(V,k,&vi)); |
| 369 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVRestoreColumn(U,k,&ui)); |
| 370 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
488 | if (l>0) { |
| 371 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
440 | PetscCall(BVSetActiveColumns(U,nconv,n)); |
| 372 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2496 | for (i=0;i<l;i++) work[i]=beta[i+nconv]; |
| 373 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
440 | PetscCall(BVMultColumn(U,-1.0,1.0,k,work)); |
| 374 | } | ||
| 375 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVGetOrthogonalization(V,NULL,&refine,&eta,NULL)); |
| 376 | |||
| 377 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2536 | for (i=k+1;i<n;i++) { |
| 378 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVGetColumn(V,i,&vi)); |
| 379 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVGetColumn(U,i-1,&ui1)); |
| 380 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(MatMult(svd->AT,ui1,vi)); |
| 381 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVRestoreColumn(V,i,&vi)); |
| 382 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVRestoreColumn(U,i-1,&ui1)); |
| 383 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVNormColumnBegin(U,i-1,NORM_2,&a)); |
| 384 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2048 | if (refine == BV_ORTHOG_REFINE_IFNEEDED) { |
| 385 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVSetActiveColumns(V,0,i+1)); |
| 386 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVGetColumn(V,i,&vi)); |
| 387 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVDotVecBegin(V,vi,work)); |
| 388 | } else { | ||
| 389 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVSetActiveColumns(V,0,i)); |
| 390 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVDotColumnBegin(V,i,work)); |
| 391 | } | ||
| 392 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVNormColumnEnd(U,i-1,NORM_2,&a)); |
| 393 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2048 | if (refine == BV_ORTHOG_REFINE_IFNEEDED) { |
| 394 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVDotVecEnd(V,vi,work)); |
| 395 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVRestoreColumn(V,i,&vi)); |
| 396 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | PetscCall(BVSetActiveColumns(V,0,i)); |
| 397 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1024 | } else PetscCall(BVDotColumnEnd(V,i,work)); |
| 398 | |||
| 399 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVScaleColumn(U,i-1,1.0/a)); |
| 400 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
16544 | for (j=0;j<i;j++) work[j] = work[j] / a; |
| 401 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVMultColumn(V,-1.0,1.0/a,i,work)); |
| 402 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(SVDOrthogonalizeCGS(V,i,work,a,refine,eta,&b)); |
| 403 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVScaleColumn(V,i,1.0/b)); |
| 404 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
2048 | PetscCheck(PetscAbsReal(b)>10*PETSC_MACHINE_EPSILON,PetscObjectComm((PetscObject)svd),PETSC_ERR_PLIB,"Recurrence generated a zero vector; use a two-sided variant"); |
| 405 | |||
| 406 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVGetColumn(V,i,&vi)); |
| 407 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVGetColumn(U,i,&ui)); |
| 408 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVGetColumn(U,i-1,&ui1)); |
| 409 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(MatMult(svd->A,vi,ui)); |
| 410 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(VecAXPY(ui,-b,ui1)); |
| 411 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVRestoreColumn(V,i,&vi)); |
| 412 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVRestoreColumn(U,i,&ui)); |
| 413 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2048 | PetscCall(BVRestoreColumn(U,i-1,&ui1)); |
| 414 | |||
| 415 | 2048 | alpha[i-1] = a; | |
| 416 | 2048 | beta[i-1] = b; | |
| 417 | } | ||
| 418 | |||
| 419 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVGetColumn(V,n,&vi)); |
| 420 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVGetColumn(U,n-1,&ui1)); |
| 421 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(MatMult(svd->AT,ui1,vi)); |
| 422 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVRestoreColumn(V,n,&vi)); |
| 423 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVRestoreColumn(U,n-1,&ui1)); |
| 424 | |||
| 425 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVNormColumnBegin(svd->U,n-1,NORM_2,&a)); |
| 426 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
488 | if (refine == BV_ORTHOG_REFINE_IFNEEDED) { |
| 427 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVSetActiveColumns(V,0,n+1)); |
| 428 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVGetColumn(V,n,&vi)); |
| 429 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVDotVecBegin(V,vi,work)); |
| 430 | } else { | ||
| 431 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVSetActiveColumns(V,0,n)); |
| 432 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVDotColumnBegin(V,n,work)); |
| 433 | } | ||
| 434 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVNormColumnEnd(svd->U,n-1,NORM_2,&a)); |
| 435 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
488 | if (refine == BV_ORTHOG_REFINE_IFNEEDED) { |
| 436 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVDotVecEnd(V,vi,work)); |
| 437 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | PetscCall(BVRestoreColumn(V,n,&vi)); |
| 438 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
244 | } else PetscCall(BVDotColumnEnd(V,n,work)); |
| 439 | |||
| 440 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVScaleColumn(U,n-1,1.0/a)); |
| 441 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
5368 | for (j=0;j<n;j++) work[j] = work[j] / a; |
| 442 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVMultColumn(V,-1.0,1.0/a,n,work)); |
| 443 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(SVDOrthogonalizeCGS(V,n,work,a,refine,eta,&b)); |
| 444 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | PetscCall(BVSetActiveColumns(V,nconv,n)); |
| 445 | 488 | alpha[n-1] = a; | |
| 446 | 488 | beta[n-1] = b; | |
| 447 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
488 | PetscFunctionReturn(PETSC_SUCCESS); |
| 448 | } | ||
| 449 | |||
| 450 | 341 | static PetscErrorCode SVDSolve_TRLanczos(SVD svd) | |
| 451 | { | ||
| 452 | 341 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 453 | 341 | PetscReal *alpha,*beta; | |
| 454 | 341 | PetscScalar *swork=NULL,*w,*aux; | |
| 455 | 341 | PetscInt i,k,l,nv,ld; | |
| 456 | 341 | Mat U,V; | |
| 457 | 341 | PetscBool breakdown=PETSC_FALSE; | |
| 458 | 341 | BVOrthogType orthog; | |
| 459 | |||
| 460 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
341 | PetscFunctionBegin; |
| 461 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
341 | PetscCall(PetscCitationsRegister(citation,&cited)); |
| 462 | /* allocate working space */ | ||
| 463 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
341 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 464 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
341 | PetscCall(BVGetOrthogonalization(svd->V,&orthog,NULL,NULL,NULL)); |
| 465 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
341 | PetscCall(PetscMalloc1(ld,&w)); |
| 466 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
341 | if (lanczos->oneside) PetscCall(PetscMalloc1(svd->ncv+1,&swork)); |
| 467 | |||
| 468 | /* normalize start vector */ | ||
| 469 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
341 | if (!svd->nini) { |
| 470 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
235 | PetscCall(BVSetRandomColumn(svd->V,0)); |
| 471 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
235 | PetscCall(BVOrthonormalizeColumn(svd->V,0,PETSC_TRUE,NULL,NULL)); |
| 472 | } | ||
| 473 | |||
| 474 | l = 0; | ||
| 475 | 8137 | while (svd->reason == SVD_CONVERGED_ITERATING) { | |
| 476 | 7796 | svd->its++; | |
| 477 | |||
| 478 | /* inner loop */ | ||
| 479 | 7796 | nv = PetscMin(svd->nconv+svd->mpd,svd->ncv); | |
| 480 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 481 | 7796 | beta = alpha + ld; | |
| 482 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
7796 | if (lanczos->oneside) { |
| 483 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
732 | if (orthog == BV_ORTHOG_MGS) PetscCall(SVDOneSideTRLanczosMGS(svd,alpha,beta,svd->V,svd->U,svd->nconv,l,nv,swork)); |
| 484 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
488 | else PetscCall(SVDOneSideTRLanczosCGS(svd,alpha,beta,svd->V,svd->U,svd->nconv,l,nv,swork)); |
| 485 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7064 | } else PetscCall(SVDTwoSideLanczos(svd,alpha,beta,svd->V,svd->U,svd->nconv+l,&nv,&breakdown)); |
| 486 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 487 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(BVScaleColumn(svd->V,nv,1.0/beta[nv-1])); |
| 488 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(BVSetActiveColumns(svd->V,svd->nconv,nv)); |
| 489 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(BVSetActiveColumns(svd->U,svd->nconv,nv)); |
| 490 | |||
| 491 | /* solve projected problem */ | ||
| 492 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSetDimensions(svd->ds,nv,svd->nconv,svd->nconv+l)); |
| 493 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSVDSetDimensions(svd->ds,nv)); |
| 494 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSetState(svd->ds,l?DS_STATE_RAW:DS_STATE_INTERMEDIATE)); |
| 495 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSolve(svd->ds,w,NULL)); |
| 496 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSort(svd->ds,w,NULL,NULL,NULL,NULL)); |
| 497 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSUpdateExtraRow(svd->ds)); |
| 498 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSSynchronize(svd->ds,w,NULL)); |
| 499 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
85675 | for (i=svd->nconv;i<nv;i++) svd->sigma[i] = PetscRealPart(w[i]); |
| 500 | |||
| 501 | /* check convergence */ | ||
| 502 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(SVDKrylovConvergence(svd,PETSC_FALSE,svd->nconv,nv-svd->nconv,1.0,&k)); |
| 503 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
|
7796 | SVDSetCtxThreshold(svd,svd->sigma,k); |
| 504 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall((*svd->stopping)(svd,svd->its,svd->max_it,k,svd->nsv,&svd->reason,svd->stoppingctx)); |
| 505 | |||
| 506 | /* update l */ | ||
| 507 |
4/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
|
7796 | if (svd->reason != SVD_CONVERGED_ITERATING || breakdown || k==nv) l = 0; |
| 508 | 7455 | else l = PetscMax(1,(PetscInt)((nv-k)*lanczos->keep)); | |
| 509 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
7796 | if (!lanczos->lock && l>0) { l += k; k = 0; } /* non-locking variant: reset no. of converged triplets */ |
| 510 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
7796 | if (l) PetscCall(PetscInfo(svd,"Preparing to restart keeping l=%" PetscInt_FMT " vectors\n",l)); |
| 511 | |||
| 512 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
7796 | if (svd->reason == SVD_CONVERGED_ITERATING) { |
| 513 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
7455 | if (PetscUnlikely(breakdown || k==nv)) { |
| 514 | /* Start a new bidiagonalization */ | ||
| 515 | ✗ | PetscCall(PetscInfo(svd,"Breakdown in bidiagonalization (it=%" PetscInt_FMT ")\n",svd->its)); | |
| 516 | ✗ | if (k<svd->nsv) { | |
| 517 | ✗ | PetscCall(BVSetRandomColumn(svd->V,k)); | |
| 518 | ✗ | PetscCall(BVOrthonormalizeColumn(svd->V,k,PETSC_FALSE,NULL,&breakdown)); | |
| 519 | ✗ | if (breakdown) { | |
| 520 | ✗ | svd->reason = SVD_DIVERGED_BREAKDOWN; | |
| 521 | ✗ | PetscCall(PetscInfo(svd,"Unable to generate more start vectors\n")); | |
| 522 | } | ||
| 523 | } | ||
| 524 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7455 | } else PetscCall(DSTruncate(svd->ds,k+l,PETSC_FALSE)); |
| 525 | } | ||
| 526 | |||
| 527 | /* compute converged singular vectors and restart vectors */ | ||
| 528 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSGetMat(svd->ds,DS_MAT_V,&V)); |
| 529 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(BVMultInPlace(svd->V,V,svd->nconv,k+l)); |
| 530 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_V,&V)); |
| 531 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSGetMat(svd->ds,DS_MAT_U,&U)); |
| 532 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(BVMultInPlace(svd->U,U,svd->nconv,k+l)); |
| 533 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7796 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_U,&U)); |
| 534 | |||
| 535 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
7796 | if (svd->reason == SVD_CONVERGED_ITERATING && !breakdown) { |
| 536 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
7455 | PetscCall(BVCopyColumn(svd->V,nv,k+l)); /* copy the last vector to be the next initial vector */ |
| 537 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 3 times.
✓ Branch 3 taken 8 times.
|
7455 | if (svd->stop==SVD_STOP_THRESHOLD && nv-k<5) { /* reallocate */ |
| 538 | 3 | svd->ncv = svd->mpd+k; | |
| 539 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
3 | PetscCall(SVDReallocateSolution(svd,svd->ncv+1)); |
| 540 |
2/2✓ Branch 0 taken 3 times.
✓ Branch 1 taken 3 times.
|
21 | for (i=nv;i<svd->ncv;i++) svd->perm[i] = i; |
| 541 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
3 | PetscCall(DSReallocate(svd->ds,svd->ncv+1)); |
| 542 | 3 | aux = w; | |
| 543 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
3 | PetscCall(PetscMalloc1(svd->ncv+1,&w)); |
| 544 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
3 | PetscCall(PetscArraycpy(w,aux,ld)); |
| 545 |
6/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 2 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
|
3 | PetscCall(PetscFree(aux)); |
| 546 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
3 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 547 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 3 times.
|
3 | if (lanczos->oneside) { |
| 548 | ✗ | PetscCall(PetscFree(swork)); | |
| 549 | ✗ | PetscCall(PetscMalloc1(svd->ncv+1,&swork)); | |
| 550 | } | ||
| 551 | } | ||
| 552 | } | ||
| 553 | |||
| 554 | 7796 | svd->nconv = k; | |
| 555 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
8137 | PetscCall(SVDMonitor(svd,svd->its,svd->nconv,svd->sigma,svd->errest,nv)); |
| 556 | } | ||
| 557 | |||
| 558 | /* orthonormalize U columns in one side method */ | ||
| 559 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
341 | if (lanczos->oneside) { |
| 560 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
390 | for (i=0;i<svd->nconv;i++) PetscCall(BVOrthonormalizeColumn(svd->U,i,PETSC_FALSE,NULL,NULL)); |
| 561 | } | ||
| 562 | |||
| 563 | /* free working space */ | ||
| 564 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
341 | PetscCall(PetscFree(w)); |
| 565 |
7/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
341 | if (swork) PetscCall(PetscFree(swork)); |
| 566 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
341 | PetscCall(DSTruncate(svd->ds,svd->nconv,PETSC_TRUE)); |
| 567 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
63 | PetscFunctionReturn(PETSC_SUCCESS); |
| 568 | } | ||
| 569 | |||
| 570 | 2594 | static PetscErrorCode SVDLanczosHSVD(SVD svd,PetscReal *alpha,PetscReal *beta,PetscReal *omega,Mat A,Mat AT,BV V,BV U,PetscInt k,PetscInt *n,PetscBool *breakdown) | |
| 571 | { | ||
| 572 | 2594 | PetscInt i; | |
| 573 | 2594 | Vec u,v,ou=svd->workl[0]; | |
| 574 | 2594 | PetscBool lindep=PETSC_FALSE; | |
| 575 | 2594 | PetscReal norm; | |
| 576 | |||
| 577 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2594 | PetscFunctionBegin; |
| 578 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
30571 | for (i=k;i<*n;i++) { |
| 579 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVGetColumn(V,i,&v)); |
| 580 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVGetColumn(U,i,&u)); |
| 581 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(MatMult(A,v,u)); |
| 582 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVRestoreColumn(V,i,&v)); |
| 583 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVRestoreColumn(U,i,&u)); |
| 584 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVOrthonormalizeColumn(U,i,PETSC_FALSE,alpha+i,&lindep)); |
| 585 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
27977 | omega[i] = PetscSign(alpha[i]); |
| 586 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
27977 | if (PetscUnlikely(lindep)) { |
| 587 | ✗ | *n = i; | |
| 588 | ✗ | break; | |
| 589 | } | ||
| 590 | |||
| 591 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVGetColumn(V,i+1,&v)); |
| 592 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVGetColumn(U,i,&u)); |
| 593 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(VecPointwiseMult(ou,svd->omega,u)); |
| 594 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(MatMult(AT,ou,v)); |
| 595 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVRestoreColumn(V,i+1,&v)); |
| 596 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVRestoreColumn(U,i,&u)); |
| 597 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
27977 | PetscCall(BVOrthonormalizeColumn(V,i+1,PETSC_FALSE,&norm,&lindep)); |
| 598 | 27977 | beta[i] = omega[i]*norm; | |
| 599 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
27977 | if (PetscUnlikely(lindep)) { |
| 600 | ✗ | *n = i+1; | |
| 601 | ✗ | break; | |
| 602 | } | ||
| 603 | } | ||
| 604 | |||
| 605 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
2594 | if (breakdown) *breakdown = lindep; |
| 606 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
516 | PetscFunctionReturn(PETSC_SUCCESS); |
| 607 | } | ||
| 608 | |||
| 609 | 113 | static PetscErrorCode SVDSolve_TRLanczos_HSVD(SVD svd) | |
| 610 | { | ||
| 611 | 113 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 612 | 113 | PetscReal *alpha,*beta,*omega; | |
| 613 | 113 | PetscScalar *w,*aux; | |
| 614 | 113 | PetscInt i,k,l,nv,ld,nini; | |
| 615 | 113 | Mat UU,VV,D,A,AT; | |
| 616 | 113 | BV U,V; | |
| 617 | 113 | PetscBool breakdown=PETSC_FALSE; | |
| 618 | 113 | BVOrthogType orthog; | |
| 619 | 113 | Vec vomega; | |
| 620 | |||
| 621 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
113 | PetscFunctionBegin; |
| 622 | /* undo the effect of swapping in this function */ | ||
| 623 |
2/2✓ Branch 0 taken 6 times.
✓ Branch 1 taken 10 times.
|
113 | if (svd->swapped) { |
| 624 | 18 | A = svd->AT; | |
| 625 | 18 | AT = svd->A; | |
| 626 | 18 | U = svd->V; | |
| 627 | 18 | V = svd->U; | |
| 628 | 18 | nini = svd->ninil; | |
| 629 | } else { | ||
| 630 | 95 | A = svd->A; | |
| 631 | 95 | AT = svd->AT; | |
| 632 | 95 | U = svd->U; | |
| 633 | 95 | V = svd->V; | |
| 634 | 95 | nini = svd->nini; | |
| 635 | } | ||
| 636 | /* allocate working space */ | ||
| 637 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 638 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(BVGetOrthogonalization(V,&orthog,NULL,NULL,NULL)); |
| 639 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(PetscMalloc1(ld,&w)); |
| 640 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
113 | PetscCheck(!lanczos->oneside,PetscObjectComm((PetscObject)svd),PETSC_ERR_SUP,"Oneside orthogonalization not supported for HSVD"); |
| 641 | |||
| 642 | /* normalize start vector */ | ||
| 643 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
113 | if (!nini) { |
| 644 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(BVSetRandomColumn(V,0)); |
| 645 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(BVOrthonormalizeColumn(V,0,PETSC_TRUE,NULL,NULL)); |
| 646 | } | ||
| 647 | |||
| 648 | l = 0; | ||
| 649 | 2707 | while (svd->reason == SVD_CONVERGED_ITERATING) { | |
| 650 | 2594 | svd->its++; | |
| 651 | |||
| 652 | /* inner loop */ | ||
| 653 | 2594 | nv = PetscMin(svd->nconv+svd->mpd,svd->ncv); | |
| 654 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 655 | 2594 | beta = alpha + ld; | |
| 656 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_D,&omega)); |
| 657 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(SVDLanczosHSVD(svd,alpha,beta,omega,A,AT,V,U,svd->nconv+l,&nv,&breakdown)); |
| 658 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 659 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_D,&omega)); |
| 660 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(BVSetActiveColumns(V,svd->nconv,nv)); |
| 661 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(BVSetActiveColumns(U,svd->nconv,nv)); |
| 662 | |||
| 663 | /* solve projected problem */ | ||
| 664 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSSetDimensions(svd->ds,nv,svd->nconv,svd->nconv+l)); |
| 665 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSHSVDSetDimensions(svd->ds,nv)); |
| 666 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSSetState(svd->ds,l?DS_STATE_RAW:DS_STATE_INTERMEDIATE)); |
| 667 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSSolve(svd->ds,w,NULL)); |
| 668 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSSort(svd->ds,w,NULL,NULL,NULL,NULL)); |
| 669 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSUpdateExtraRow(svd->ds)); |
| 670 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSSynchronize(svd->ds,w,NULL)); |
| 671 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_D,&omega)); |
| 672 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
55346 | for (i=svd->nconv;i<nv;i++) { |
| 673 | 52752 | svd->sigma[i] = PetscRealPart(w[i]); | |
| 674 | 52752 | svd->sign[i] = omega[i]; | |
| 675 | } | ||
| 676 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_D,&omega)); |
| 677 | |||
| 678 | /* check convergence */ | ||
| 679 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(SVDKrylovConvergence(svd,PETSC_FALSE,svd->nconv,nv-svd->nconv,1.0,&k)); |
| 680 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
|
2594 | SVDSetCtxThreshold(svd,svd->sigma,k); |
| 681 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall((*svd->stopping)(svd,svd->its,svd->max_it,k,svd->nsv,&svd->reason,svd->stoppingctx)); |
| 682 | |||
| 683 | /* update l */ | ||
| 684 |
4/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
|
2594 | if (svd->reason != SVD_CONVERGED_ITERATING || breakdown || k==nv) l = 0; |
| 685 | 2481 | else l = PetscMax(1,(PetscInt)((nv-k)*lanczos->keep)); | |
| 686 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
2594 | if (!lanczos->lock && l>0) { l += k; k = 0; } /* non-locking variant: reset no. of converged triplets */ |
| 687 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
2594 | if (l) PetscCall(PetscInfo(svd,"Preparing to restart keeping l=%" PetscInt_FMT " vectors\n",l)); |
| 688 | |||
| 689 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2594 | if (svd->reason == SVD_CONVERGED_ITERATING) { |
| 690 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
2481 | if (PetscUnlikely(breakdown || k==nv)) { |
| 691 | /* Start a new bidiagonalization */ | ||
| 692 | ✗ | PetscCall(PetscInfo(svd,"Breakdown in bidiagonalization (it=%" PetscInt_FMT ")\n",svd->its)); | |
| 693 | ✗ | if (k<svd->nsv) { | |
| 694 | ✗ | PetscCall(BVSetRandomColumn(V,k)); | |
| 695 | ✗ | PetscCall(BVOrthonormalizeColumn(V,k,PETSC_FALSE,NULL,&breakdown)); | |
| 696 | ✗ | if (breakdown) { | |
| 697 | ✗ | svd->reason = SVD_DIVERGED_BREAKDOWN; | |
| 698 | ✗ | PetscCall(PetscInfo(svd,"Unable to generate more start vectors\n")); | |
| 699 | } | ||
| 700 | } | ||
| 701 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | } else PetscCall(DSTruncate(svd->ds,k+l,PETSC_FALSE)); |
| 702 | } | ||
| 703 | |||
| 704 | /* compute converged singular vectors and restart vectors */ | ||
| 705 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSGetMat(svd->ds,DS_MAT_V,&VV)); |
| 706 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(BVMultInPlace(V,VV,svd->nconv,k+l)); |
| 707 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_V,&VV)); |
| 708 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSGetMat(svd->ds,DS_MAT_U,&UU)); |
| 709 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(BVMultInPlace(U,UU,svd->nconv,k+l)); |
| 710 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2594 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_U,&UU)); |
| 711 | |||
| 712 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
2594 | if (svd->reason == SVD_CONVERGED_ITERATING && !breakdown) { |
| 713 | /* copy the last vector of V to be the next initial vector | ||
| 714 | and change signature matrix of U */ | ||
| 715 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | PetscCall(BVCopyColumn(V,nv,k+l)); |
| 716 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | PetscCall(BVSetActiveColumns(U,0,k+l)); |
| 717 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | PetscCall(DSGetMatAndColumn(svd->ds,DS_MAT_D,0,&D,&vomega)); |
| 718 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | PetscCall(BVSetSignature(U,vomega)); |
| 719 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2481 | PetscCall(DSRestoreMatAndColumn(svd->ds,DS_MAT_D,0,&D,&vomega)); |
| 720 | |||
| 721 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
|
2481 | if (svd->stop==SVD_STOP_THRESHOLD && nv-k<5) { /* reallocate */ |
| 722 | 13 | svd->ncv = svd->mpd+k; | |
| 723 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
13 | PetscCall(SVDReallocateSolution(svd,svd->ncv+1)); |
| 724 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
96 | for (i=nv;i<svd->ncv;i++) svd->perm[i] = i; |
| 725 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
13 | PetscCall(DSReallocate(svd->ds,svd->ncv+1)); |
| 726 | 13 | aux = w; | |
| 727 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
13 | PetscCall(PetscMalloc1(svd->ncv+1,&w)); |
| 728 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
13 | PetscCall(PetscArraycpy(w,aux,ld)); |
| 729 |
6/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 6 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
13 | PetscCall(PetscFree(aux)); |
| 730 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
13 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 731 | } | ||
| 732 | } | ||
| 733 | |||
| 734 | 2594 | svd->nconv = k; | |
| 735 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
2707 | PetscCall(SVDMonitor(svd,svd->its,svd->nconv,svd->sigma,svd->errest,nv)); |
| 736 | } | ||
| 737 | |||
| 738 | /* free working space */ | ||
| 739 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
113 | PetscCall(PetscFree(w)); |
| 740 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
113 | PetscCall(DSTruncate(svd->ds,svd->nconv,PETSC_TRUE)); |
| 741 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
27 | PetscFunctionReturn(PETSC_SUCCESS); |
| 742 | } | ||
| 743 | |||
| 744 | /* Given n computed generalized singular values in sigmain, backtransform them | ||
| 745 | in sigmaout by undoing scaling and reciprocating if swapped=true. Also updates vectors V | ||
| 746 | if given. If sigmaout=NULL then the result overwrites sigmain. */ | ||
| 747 | 8779 | static PetscErrorCode SVDLanczosBackTransform(SVD svd,PetscInt n,PetscReal *sigmain,PetscReal *sigmaout,BV V) | |
| 748 | { | ||
| 749 | 8779 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 750 | 8779 | PetscInt i; | |
| 751 | 8779 | PetscReal c,s,r,f,scalef; | |
| 752 | |||
| 753 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
8779 | PetscFunctionBegin; |
| 754 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
8779 | scalef = svd->swapped? 1.0/lanczos->scalef: lanczos->scalef; |
| 755 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
87916 | for (i=0;i<n;i++) { |
| 756 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
79137 | if (V && scalef != 1.0) { |
| 757 | 734 | s = 1.0/PetscSqrtReal(1.0+sigmain[i]*sigmain[i]); | |
| 758 | 734 | c = sigmain[i]*s; | |
| 759 | 734 | r = s/scalef; | |
| 760 | 734 | f = 1.0/PetscSqrtReal(c*c+r*r); | |
| 761 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
734 | PetscCall(BVScaleColumn(V,i,f)); |
| 762 | } | ||
| 763 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
79137 | if (sigmaout) { |
| 764 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
76444 | if (svd->swapped) sigmaout[i] = 1.0/(sigmain[i]*scalef); |
| 765 | 70616 | else sigmaout[i] = sigmain[i]*scalef; | |
| 766 | } else { | ||
| 767 | 2693 | sigmain[i] *= scalef; | |
| 768 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2693 | if (svd->swapped) sigmain[i] = 1.0/sigmain[i]; |
| 769 | } | ||
| 770 | } | ||
| 771 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
1734 | PetscFunctionReturn(PETSC_SUCCESS); |
| 772 | } | ||
| 773 | |||
| 774 | 2064 | static PetscErrorCode SVDLanczosGSingle(SVD svd,PetscReal *alpha,PetscReal *beta,Mat Z,BV V,BV U,KSP ksp,PetscInt k,PetscInt *n,PetscBool *breakdown) | |
| 775 | { | ||
| 776 | 2064 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 777 | 2064 | PetscInt i,j,m; | |
| 778 | 2064 | const PetscScalar *carr; | |
| 779 | 2064 | PetscScalar *arr; | |
| 780 | 2064 | Vec u,v,ut=svd->workl[0],x=svd->workr[0],v1,u1,u2; | |
| 781 | 2064 | PetscBool lindep=PETSC_FALSE; | |
| 782 | |||
| 783 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2064 | PetscFunctionBegin; |
| 784 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(MatCreateVecsEmpty(svd->A,NULL,&v1)); |
| 785 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVGetColumn(V,k,&v)); |
| 786 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVGetColumn(U,k,&u)); |
| 787 | |||
| 788 | /* Form ut=[u;0] */ | ||
| 789 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecZeroEntries(ut)); |
| 790 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecGetLocalSize(u,&m)); |
| 791 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecGetArrayRead(u,&carr)); |
| 792 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecGetArray(ut,&arr)); |
| 793 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
63378 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 794 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 795 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecRestoreArray(ut,&arr)); |
| 796 | |||
| 797 | /* Solve least squares problem */ | ||
| 798 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(KSPSolve(ksp,ut,x)); |
| 799 | |||
| 800 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(MatMult(Z,x,v)); |
| 801 | |||
| 802 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVRestoreColumn(U,k,&u)); |
| 803 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVRestoreColumn(V,k,&v)); |
| 804 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVOrthonormalizeColumn(V,k,PETSC_FALSE,alpha+k,&lindep)); |
| 805 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
2064 | if (PetscUnlikely(lindep)) { |
| 806 | ✗ | *n = k; | |
| 807 | ✗ | if (breakdown) *breakdown = lindep; | |
| 808 | ✗ | PetscFunctionReturn(PETSC_SUCCESS); | |
| 809 | } | ||
| 810 | |||
| 811 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
11103 | for (i=k+1; i<*n; i++) { |
| 812 | |||
| 813 | /* Compute vector i of BV U */ | ||
| 814 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVGetColumn(V,i-1,&v)); |
| 815 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecGetArray(v,&arr)); |
| 816 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecPlaceArray(v1,arr)); |
| 817 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecRestoreArray(v,&arr)); |
| 818 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVRestoreColumn(V,i-1,&v)); |
| 819 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVInsertVec(U,i,v1)); |
| 820 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecResetArray(v1)); |
| 821 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVOrthonormalizeColumn(U,i,PETSC_FALSE,beta+i-1,&lindep)); |
| 822 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
9039 | if (PetscUnlikely(lindep)) { |
| 823 | ✗ | *n = i; | |
| 824 | ✗ | break; | |
| 825 | } | ||
| 826 | |||
| 827 | /* Compute vector i of BV V */ | ||
| 828 | |||
| 829 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVGetColumn(V,i,&v)); |
| 830 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVGetColumn(U,i,&u)); |
| 831 | |||
| 832 | /* Form ut=[u;0] */ | ||
| 833 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecGetArrayRead(u,&carr)); |
| 834 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecGetArray(ut,&arr)); |
| 835 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
251537 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 836 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 837 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(VecRestoreArray(ut,&arr)); |
| 838 | |||
| 839 | /* Solve least squares problem */ | ||
| 840 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(KSPSolve(ksp,ut,x)); |
| 841 | |||
| 842 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(MatMult(Z,x,v)); |
| 843 | |||
| 844 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVRestoreColumn(U,i,&u)); |
| 845 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
9039 | PetscCall(BVRestoreColumn(V,i,&v)); |
| 846 |
8/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
9039 | if (!lanczos->oneside || i==k+1) PetscCall(BVOrthonormalizeColumn(V,i,PETSC_FALSE,alpha+i,&lindep)); |
| 847 | else { /* cheap computation of V[i], if restart (i==k+1) do a full reorthogonalization */ | ||
| 848 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(BVGetColumn(V,i,&u2)); |
| 849 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(BVGetColumn(V,i-1,&u1)); |
| 850 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(VecAXPY(u2,-beta[i-1],u1)); |
| 851 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(BVRestoreColumn(V,i-1,&u1)); |
| 852 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(VecNorm(u2,NORM_2,&alpha[i])); |
| 853 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
2520 | if (alpha[i]==0.0) lindep = PETSC_TRUE; |
| 854 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | else PetscCall(VecScale(u2,1.0/alpha[i])); |
| 855 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2520 | PetscCall(BVRestoreColumn(V,i,&u2)); |
| 856 | } | ||
| 857 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
9039 | if (PetscUnlikely(lindep)) { |
| 858 | ✗ | *n = i; | |
| 859 | ✗ | break; | |
| 860 | } | ||
| 861 | } | ||
| 862 | |||
| 863 | /* Compute vector n of BV U */ | ||
| 864 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
2064 | if (!lindep) { |
| 865 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVGetColumn(V,*n-1,&v)); |
| 866 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecGetArray(v,&arr)); |
| 867 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecPlaceArray(v1,arr)); |
| 868 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecRestoreArray(v,&arr)); |
| 869 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVRestoreColumn(V,*n-1,&v)); |
| 870 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVInsertVec(U,*n,v1)); |
| 871 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecResetArray(v1)); |
| 872 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVOrthonormalizeColumn(U,*n,PETSC_FALSE,beta+*n-1,&lindep)); |
| 873 | } | ||
| 874 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
2064 | if (breakdown) *breakdown = lindep; |
| 875 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(VecDestroy(&v1)); |
| 876 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
402 | PetscFunctionReturn(PETSC_SUCCESS); |
| 877 | } | ||
| 878 | |||
| 879 | /* solve generalized problem with single bidiagonalization of Q_A */ | ||
| 880 | 116 | static PetscErrorCode SVDSolve_TRLanczosGSingle(SVD svd,BV U1,BV V) | |
| 881 | { | ||
| 882 | 116 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 883 | 116 | PetscReal *alpha,*beta,normr,scaleth,sigma0,*sigma,*aux2; | |
| 884 | 116 | PetscScalar *w,*aux1; | |
| 885 | 116 | PetscInt i,k,l,nv,ld; | |
| 886 | 116 | Mat U,VV; | |
| 887 | 116 | PetscBool breakdown=PETSC_FALSE; | |
| 888 | |||
| 889 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
116 | PetscFunctionBegin; |
| 890 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 891 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(PetscMalloc2(ld,&w,ld,&sigma)); |
| 892 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
116 | normr = (svd->conv==SVD_CONV_ABS)? PetscMax(svd->nrma,svd->nrmb*lanczos->scalef): 1.0; |
| 893 | /* Convert scale threshold th=c/s to the corresponding c */ | ||
| 894 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
116 | scaleth = (lanczos->scaleth!=0)? lanczos->scaleth/PetscSqrtReal(lanczos->scaleth*lanczos->scaleth+1): 0.0; |
| 895 | |||
| 896 | /* normalize start vector */ | ||
| 897 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
116 | if (!svd->ninil) { |
| 898 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
106 | PetscCall(BVSetRandomColumn(U1,0)); |
| 899 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
106 | PetscCall(BVOrthonormalizeColumn(U1,0,PETSC_TRUE,NULL,NULL)); |
| 900 | } | ||
| 901 | |||
| 902 | l = 0; | ||
| 903 | 2180 | while (svd->reason == SVD_CONVERGED_ITERATING) { | |
| 904 | 2064 | svd->its++; | |
| 905 | |||
| 906 | /* inner loop */ | ||
| 907 | 2064 | nv = PetscMin(svd->nconv+svd->mpd,svd->ncv); | |
| 908 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 909 | 2064 | beta = alpha + ld; | |
| 910 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(SVDLanczosGSingle(svd,alpha,beta,lanczos->Z,V,U1,lanczos->ksp,svd->nconv+l,&nv,&breakdown)); |
| 911 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 912 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVSetActiveColumns(V,svd->nconv,nv)); |
| 913 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVSetActiveColumns(U1,svd->nconv,nv)); |
| 914 | |||
| 915 | /* solve projected problem */ | ||
| 916 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSetDimensions(svd->ds,nv,svd->nconv,svd->nconv+l)); |
| 917 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSVDSetDimensions(svd->ds,nv)); |
| 918 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSetState(svd->ds,l?DS_STATE_RAW:DS_STATE_INTERMEDIATE)); |
| 919 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSolve(svd->ds,w,NULL)); |
| 920 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSort(svd->ds,w,NULL,NULL,NULL,NULL)); |
| 921 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSUpdateExtraRow(svd->ds)); |
| 922 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSSynchronize(svd->ds,w,NULL)); |
| 923 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
20401 | for (i=svd->nconv;i<nv;i++) svd->sigma[i] = PetscRealPart(w[i]); |
| 924 | |||
| 925 | /* check convergence */ | ||
| 926 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(SVDKrylovConvergence(svd,PETSC_FALSE,svd->nconv,nv-svd->nconv,normr,&k)); |
| 927 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(SVDLanczosBackTransform(svd,nv,svd->sigma,sigma,NULL)); |
| 928 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 5 times.
|
2064 | SVDSetCtxThreshold(svd,sigma,k); |
| 929 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall((*svd->stopping)(svd,svd->its,svd->max_it,k,svd->nsv,&svd->reason,svd->stoppingctx)); |
| 930 | |||
| 931 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
2064 | sigma0 = svd->which==SVD_LARGEST? svd->sigma[0] : 1.0/svd->sigma[0]; |
| 932 |
1/6✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
2064 | if (scaleth!=0 && k==0 && sigma0>scaleth) { |
| 933 | |||
| 934 | /* Scale and start from scratch */ | ||
| 935 | ✗ | lanczos->scalef *= svd->sigma[0]/PetscSqrtReal(1-svd->sigma[0]*svd->sigma[0]); | |
| 936 | ✗ | PetscCall(PetscInfo(svd,"Scaling by factor %g and starting from scratch\n",(double)lanczos->scalef)); | |
| 937 | ✗ | PetscCall(MatZUpdateScale(svd)); | |
| 938 | ✗ | if (svd->conv==SVD_CONV_ABS) normr = PetscMax(svd->nrma,svd->nrmb*lanczos->scalef); | |
| 939 | l = 0; | ||
| 940 | |||
| 941 | } else { | ||
| 942 | |||
| 943 | /* update l */ | ||
| 944 |
4/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
|
2064 | if (svd->reason != SVD_CONVERGED_ITERATING || breakdown || k==nv) l = 0; |
| 945 | 1948 | else l = PetscMax(1,(PetscInt)((nv-k)*lanczos->keep)); | |
| 946 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
2064 | if (!lanczos->lock && l>0) { l += k; k = 0; } /* non-locking variant: reset no. of converged triplets */ |
| 947 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
2064 | if (l) PetscCall(PetscInfo(svd,"Preparing to restart keeping l=%" PetscInt_FMT " vectors\n",l)); |
| 948 | |||
| 949 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2064 | if (svd->reason == SVD_CONVERGED_ITERATING) { |
| 950 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
1948 | if (PetscUnlikely(breakdown || k==nv)) { |
| 951 | /* Start a new bidiagonalization */ | ||
| 952 | ✗ | PetscCall(PetscInfo(svd,"Breakdown in bidiagonalization (it=%" PetscInt_FMT ")\n",svd->its)); | |
| 953 | ✗ | if (k<svd->nsv) { | |
| 954 | ✗ | PetscCall(BVSetRandomColumn(U1,k)); | |
| 955 | ✗ | PetscCall(BVOrthonormalizeColumn(U1,k,PETSC_FALSE,NULL,&breakdown)); | |
| 956 | ✗ | if (breakdown) { | |
| 957 | ✗ | svd->reason = SVD_DIVERGED_BREAKDOWN; | |
| 958 | ✗ | PetscCall(PetscInfo(svd,"Unable to generate more start vectors\n")); | |
| 959 | } | ||
| 960 | } | ||
| 961 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1948 | } else PetscCall(DSTruncate(svd->ds,k+l,PETSC_FALSE)); |
| 962 | } | ||
| 963 | |||
| 964 | /* compute converged singular vectors and restart vectors */ | ||
| 965 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSGetMat(svd->ds,DS_MAT_U,&U)); |
| 966 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVMultInPlace(V,U,svd->nconv,k+l)); |
| 967 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_U,&U)); |
| 968 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSGetMat(svd->ds,DS_MAT_V,&VV)); |
| 969 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(BVMultInPlace(U1,VV,svd->nconv,k+l)); |
| 970 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2064 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_V,&VV)); |
| 971 | |||
| 972 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
2064 | if (svd->reason == SVD_CONVERGED_ITERATING && !breakdown) { |
| 973 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
1948 | PetscCall(BVCopyColumn(U1,nv,k+l)); /* copy the last vector to be the next initial vector */ |
| 974 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 5 times.
✓ Branch 3 taken 8 times.
|
1948 | if (svd->stop==SVD_STOP_THRESHOLD && nv-k<5) { /* reallocate */ |
| 975 | 5 | svd->ncv = svd->mpd+k; | |
| 976 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(SVDReallocateSolution(svd,svd->ncv+1)); |
| 977 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(V,svd->ncv+1,PETSC_TRUE)); |
| 978 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(U1,svd->ncv+1,PETSC_TRUE)); |
| 979 |
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.
|
35 | for (i=nv;i<svd->ncv;i++) svd->perm[i] = i; |
| 980 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSReallocate(svd->ds,svd->ncv+1)); |
| 981 | 5 | aux1 = w; | |
| 982 | 5 | aux2 = sigma; | |
| 983 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscMalloc2(svd->ncv+1,&w,svd->ncv+1,&sigma)); |
| 984 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(w,aux1,ld)); |
| 985 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(sigma,aux2,ld)); |
| 986 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscFree2(aux1,aux2)); |
| 987 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 988 | } | ||
| 989 | } | ||
| 990 | } | ||
| 991 | |||
| 992 | 2064 | svd->nconv = k; | |
| 993 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
2180 | PetscCall(SVDMonitor(svd,svd->its,svd->nconv,sigma,svd->errest,nv)); |
| 994 | } | ||
| 995 | |||
| 996 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(PetscFree2(w,sigma)); |
| 997 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
22 | PetscFunctionReturn(PETSC_SUCCESS); |
| 998 | } | ||
| 999 | |||
| 1000 | /* Move generalized left singular vectors (0..nconv) from U1 and U2 to its final destination svd->U (single variant) */ | ||
| 1001 | 116 | static inline PetscErrorCode SVDLeftSingularVectors_Single(SVD svd,BV U1,BV U2) | |
| 1002 | { | ||
| 1003 | 116 | PetscInt i,k,m,p; | |
| 1004 | 116 | Vec u,u1,u2; | |
| 1005 | 116 | PetscScalar *ua,*u2a; | |
| 1006 | 116 | const PetscScalar *u1a; | |
| 1007 | 116 | PetscReal s; | |
| 1008 | |||
| 1009 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
116 | PetscFunctionBegin; |
| 1010 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1011 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 1012 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
633 | for (i=0;i<svd->nconv;i++) { |
| 1013 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVGetColumn(U1,i,&u1)); |
| 1014 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVGetColumn(U2,i,&u2)); |
| 1015 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVGetColumn(svd->U,i,&u)); |
| 1016 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecGetArrayRead(u1,&u1a)); |
| 1017 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecGetArray(u,&ua)); |
| 1018 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecGetArray(u2,&u2a)); |
| 1019 | /* Copy column from U1 to upper part of u */ | ||
| 1020 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
22765 | for (k=0;k<m;k++) ua[k] = u1a[k]; |
| 1021 | /* Copy column from lower part of U to U2. Orthogonalize column in U2 and copy back to U */ | ||
| 1022 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
24897 | for (k=0;k<p;k++) u2a[k] = ua[m+k]; |
| 1023 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecRestoreArray(u2,&u2a)); |
| 1024 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVRestoreColumn(U2,i,&u2)); |
| 1025 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVOrthonormalizeColumn(U2,i,PETSC_FALSE,&s,NULL)); |
| 1026 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVGetColumn(U2,i,&u2)); |
| 1027 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecGetArray(u2,&u2a)); |
| 1028 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
24897 | for (k=0;k<p;k++) ua[m+k] = u2a[k]; |
| 1029 | /* Update singular value */ | ||
| 1030 | 517 | svd->sigma[i] /= s; | |
| 1031 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecRestoreArrayRead(u1,&u1a)); |
| 1032 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecRestoreArray(u,&ua)); |
| 1033 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(VecRestoreArray(u2,&u2a)); |
| 1034 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVRestoreColumn(U1,i,&u1)); |
| 1035 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVRestoreColumn(U2,i,&u2)); |
| 1036 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
517 | PetscCall(BVRestoreColumn(svd->U,i,&u)); |
| 1037 | } | ||
| 1038 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
22 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1039 | } | ||
| 1040 | |||
| 1041 | 2478 | static PetscErrorCode SVDLanczosGUpper(SVD svd,PetscReal *alpha,PetscReal *beta,PetscReal *alphah,PetscReal *betah,Mat Z,BV U1,BV U2,BV V,KSP ksp,PetscInt k,PetscInt *n,PetscBool *breakdown) | |
| 1042 | { | ||
| 1043 | 2478 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1044 | 2478 | PetscInt i,j,m,p; | |
| 1045 | 2478 | const PetscScalar *carr; | |
| 1046 | 2478 | PetscScalar *arr,*u2arr; | |
| 1047 | 2478 | Vec u,v,ut=svd->workl[0],x=svd->workr[0],v1,u1,u2; | |
| 1048 | 2478 | PetscBool lindep=PETSC_FALSE,lindep1=PETSC_FALSE,lindep2=PETSC_FALSE; | |
| 1049 | |||
| 1050 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2478 | PetscFunctionBegin; |
| 1051 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(MatCreateVecsEmpty(svd->A,NULL,&v1)); |
| 1052 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1053 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 1054 | |||
| 1055 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
15424 | for (i=k; i<*n; i++) { |
| 1056 | /* Compute vector i of BV U1 */ | ||
| 1057 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVGetColumn(V,i,&v)); |
| 1058 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecGetArrayRead(v,&carr)); |
| 1059 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecPlaceArray(v1,carr)); |
| 1060 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVInsertVec(U1,i,v1)); |
| 1061 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecResetArray(v1)); |
| 1062 |
8/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
12946 | if (!lanczos->oneside || i==k) PetscCall(BVOrthonormalizeColumn(U1,i,PETSC_FALSE,alpha+i,&lindep1)); |
| 1063 | else { /* cheap computation of U1[i], if restart (i==k) do a full reorthogonalization */ | ||
| 1064 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVGetColumn(U1,i,&u2)); |
| 1065 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
4311 | if (i>0) { |
| 1066 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVGetColumn(U1,i-1,&u1)); |
| 1067 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(VecAXPY(u2,-beta[i-1],u1)); |
| 1068 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVRestoreColumn(U1,i-1,&u1)); |
| 1069 | } | ||
| 1070 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(VecNorm(u2,NORM_2,&alpha[i])); |
| 1071 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
4311 | if (alpha[i]==0.0) lindep = PETSC_TRUE; |
| 1072 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | else PetscCall(VecScale(u2,1.0/alpha[i])); |
| 1073 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVRestoreColumn(U1,i,&u2)); |
| 1074 | } | ||
| 1075 | |||
| 1076 | /* Compute vector i of BV U2 */ | ||
| 1077 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVGetColumn(U2,i,&u2)); |
| 1078 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecGetArray(u2,&u2arr)); |
| 1079 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
12946 | if (i%2) { |
| 1080 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
297415 | for (j=0; j<p; j++) u2arr[j] = -carr[m+j]; |
| 1081 | } else { | ||
| 1082 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
289186 | for (j=0; j<p; j++) u2arr[j] = carr[m+j]; |
| 1083 | } | ||
| 1084 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecRestoreArray(u2,&u2arr)); |
| 1085 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecRestoreArrayRead(v,&carr)); |
| 1086 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVRestoreColumn(V,i,&v)); |
| 1087 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
12946 | if (lanczos->oneside && i>k) { /* cheap computation of U2[i], if restart (i==k) do a full reorthogonalization */ |
| 1088 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
4311 | if (i>0) { |
| 1089 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVGetColumn(U2,i-1,&u1)); |
| 1090 |
7/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
4311 | PetscCall(VecAXPY(u2,(i%2)?betah[i-1]:-betah[i-1],u1)); |
| 1091 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(BVRestoreColumn(U2,i-1,&u1)); |
| 1092 | } | ||
| 1093 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | PetscCall(VecNorm(u2,NORM_2,&alphah[i])); |
| 1094 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
4311 | if (alphah[i]==0.0) lindep = PETSC_TRUE; |
| 1095 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4311 | else PetscCall(VecScale(u2,1.0/alphah[i])); |
| 1096 | } | ||
| 1097 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVRestoreColumn(U2,i,&u2)); |
| 1098 |
8/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
12946 | if (!lanczos->oneside || i==k) PetscCall(BVOrthonormalizeColumn(U2,i,PETSC_FALSE,alphah+i,&lindep2)); |
| 1099 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
12946 | if (i%2) alphah[i] = -alphah[i]; |
| 1100 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
12946 | if (PetscUnlikely(lindep1 || lindep2)) { |
| 1101 | ✗ | lindep = PETSC_TRUE; | |
| 1102 | ✗ | *n = i; | |
| 1103 | ✗ | break; | |
| 1104 | } | ||
| 1105 | |||
| 1106 | /* Compute vector i+1 of BV V */ | ||
| 1107 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVGetColumn(V,i+1,&v)); |
| 1108 | /* Form ut=[u;0] */ | ||
| 1109 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVGetColumn(U1,i,&u)); |
| 1110 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecZeroEntries(ut)); |
| 1111 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecGetArrayRead(u,&carr)); |
| 1112 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecGetArray(ut,&arr)); |
| 1113 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
466416 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 1114 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 1115 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(VecRestoreArray(ut,&arr)); |
| 1116 | /* Solve least squares problem */ | ||
| 1117 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(KSPSolve(ksp,ut,x)); |
| 1118 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(MatMult(Z,x,v)); |
| 1119 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVRestoreColumn(U1,i,&u)); |
| 1120 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVRestoreColumn(V,i+1,&v)); |
| 1121 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
12946 | PetscCall(BVOrthonormalizeColumn(V,i+1,PETSC_FALSE,beta+i,&lindep)); |
| 1122 | 12946 | betah[i] = -alpha[i]*beta[i]/alphah[i]; | |
| 1123 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
12946 | if (PetscUnlikely(lindep)) { |
| 1124 | ✗ | *n = i; | |
| 1125 | ✗ | break; | |
| 1126 | } | ||
| 1127 | } | ||
| 1128 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
2478 | if (breakdown) *breakdown = lindep; |
| 1129 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(VecDestroy(&v1)); |
| 1130 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
494 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1131 | } | ||
| 1132 | |||
| 1133 | /* generate random initial vector in column k for joint upper-upper bidiagonalization */ | ||
| 1134 | 193 | static inline PetscErrorCode SVDInitialVectorGUpper(SVD svd,BV V,BV U1,PetscInt k,PetscBool *breakdown) | |
| 1135 | { | ||
| 1136 | 193 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1137 | 193 | Vec u,v,ut=svd->workl[0],x=svd->workr[0]; | |
| 1138 | 193 | PetscInt m,j; | |
| 1139 | 193 | PetscScalar *arr; | |
| 1140 | 193 | const PetscScalar *carr; | |
| 1141 | |||
| 1142 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
193 | PetscFunctionBegin; |
| 1143 | /* Form ut=[u;0] where u is the k-th column of U1 */ | ||
| 1144 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecZeroEntries(ut)); |
| 1145 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(BVGetColumn(U1,k,&u)); |
| 1146 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecGetLocalSize(u,&m)); |
| 1147 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecGetArrayRead(u,&carr)); |
| 1148 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecGetArray(ut,&arr)); |
| 1149 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
11515 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 1150 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 1151 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(VecRestoreArray(ut,&arr)); |
| 1152 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(BVRestoreColumn(U1,k,&u)); |
| 1153 | /* Solve least squares problem Z*x=ut for x. Then set v=Z*x */ | ||
| 1154 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(KSPSolve(lanczos->ksp,ut,x)); |
| 1155 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(BVGetColumn(V,k,&v)); |
| 1156 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(MatMult(lanczos->Z,x,v)); |
| 1157 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | PetscCall(BVRestoreColumn(V,k,&v)); |
| 1158 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
193 | if (breakdown) PetscCall(BVOrthonormalizeColumn(V,k,PETSC_FALSE,NULL,breakdown)); |
| 1159 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
193 | else PetscCall(BVOrthonormalizeColumn(V,k,PETSC_TRUE,NULL,NULL)); |
| 1160 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
39 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1161 | } | ||
| 1162 | |||
| 1163 | /* solve generalized problem with joint upper-upper bidiagonalization */ | ||
| 1164 | 158 | static PetscErrorCode SVDSolve_TRLanczosGUpper(SVD svd,BV U1,BV U2,BV V) | |
| 1165 | { | ||
| 1166 | 158 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1167 | 158 | PetscReal *alpha,*beta,*alphah,*betah,normr,sigma0,*sigma,*aux2; | |
| 1168 | 158 | PetscScalar *w,*aux1; | |
| 1169 | 158 | PetscInt i,k,l,nv,ld; | |
| 1170 | 158 | Mat U,Vmat,X; | |
| 1171 | 158 | PetscBool breakdown=PETSC_FALSE; | |
| 1172 | |||
| 1173 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
158 | PetscFunctionBegin; |
| 1174 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
158 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 1175 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
158 | PetscCall(PetscMalloc2(ld,&w,ld,&sigma)); |
| 1176 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
158 | normr = (svd->conv==SVD_CONV_ABS)? PetscMax(svd->nrma,svd->nrmb*lanczos->scalef): 1.0; |
| 1177 | |||
| 1178 | /* normalize start vector */ | ||
| 1179 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
158 | if (!svd->ninil) PetscCall(BVSetRandomColumn(U1,0)); |
| 1180 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
158 | PetscCall(SVDInitialVectorGUpper(svd,V,U1,0,NULL)); |
| 1181 | |||
| 1182 | l = 0; | ||
| 1183 | 2636 | while (svd->reason == SVD_CONVERGED_ITERATING) { | |
| 1184 | 2478 | svd->its++; | |
| 1185 | |||
| 1186 | /* inner loop */ | ||
| 1187 | 2478 | nv = PetscMin(svd->nconv+svd->mpd,svd->ncv); | |
| 1188 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1189 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_D,&alphah)); |
| 1190 | 2478 | beta = alpha + ld; | |
| 1191 | 2478 | betah = alpha + 2*ld; | |
| 1192 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(SVDLanczosGUpper(svd,alpha,beta,alphah,betah,lanczos->Z,U1,U2,V,lanczos->ksp,svd->nconv+l,&nv,&breakdown)); |
| 1193 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1194 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_D,&alphah)); |
| 1195 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(BVSetActiveColumns(V,svd->nconv,nv)); |
| 1196 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(BVSetActiveColumns(U1,svd->nconv,nv)); |
| 1197 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(BVSetActiveColumns(U2,svd->nconv,nv)); |
| 1198 | |||
| 1199 | /* solve projected problem */ | ||
| 1200 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSSetDimensions(svd->ds,nv,svd->nconv,svd->nconv+l)); |
| 1201 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSGSVDSetDimensions(svd->ds,nv,nv)); |
| 1202 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSSetState(svd->ds,l?DS_STATE_RAW:DS_STATE_INTERMEDIATE)); |
| 1203 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSSolve(svd->ds,w,NULL)); |
| 1204 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSSort(svd->ds,w,NULL,NULL,NULL,NULL)); |
| 1205 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSUpdateExtraRow(svd->ds)); |
| 1206 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(DSSynchronize(svd->ds,w,NULL)); |
| 1207 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
23462 | for (i=svd->nconv;i<nv;i++) svd->sigma[i] = PetscRealPart(w[i]); |
| 1208 | |||
| 1209 | /* check convergence */ | ||
| 1210 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(SVDKrylovConvergence(svd,PETSC_FALSE,svd->nconv,nv-svd->nconv,normr,&k)); |
| 1211 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall(SVDLanczosBackTransform(svd,nv,svd->sigma,sigma,NULL)); |
| 1212 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 5 times.
|
2478 | SVDSetCtxThreshold(svd,sigma,k); |
| 1213 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2478 | PetscCall((*svd->stopping)(svd,svd->its,svd->max_it,k,svd->nsv,&svd->reason,svd->stoppingctx)); |
| 1214 | |||
| 1215 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2478 | sigma0 = svd->which==SVD_LARGEST? svd->sigma[0] : 1.0/svd->sigma[0]; |
| 1216 |
6/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 10 times.
✓ Branch 5 taken 10 times.
|
2478 | if (lanczos->scaleth!=0 && k==0 && sigma0>lanczos->scaleth) { |
| 1217 | |||
| 1218 | /* Scale and start from scratch */ | ||
| 1219 | 35 | lanczos->scalef *= svd->sigma[0]; | |
| 1220 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
35 | PetscCall(PetscInfo(svd,"Scaling by factor %g and starting from scratch\n",(double)lanczos->scalef)); |
| 1221 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
35 | PetscCall(MatZUpdateScale(svd)); |
| 1222 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
35 | if (svd->conv==SVD_CONV_ABS) normr = PetscMax(svd->nrma,svd->nrmb*lanczos->scalef); |
| 1223 | 35 | l = 0; | |
| 1224 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
35 | if (!svd->ninil) PetscCall(BVSetRandomColumn(U1,0)); |
| 1225 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
35 | PetscCall(SVDInitialVectorGUpper(svd,V,U1,0,NULL)); |
| 1226 | |||
| 1227 | } else { | ||
| 1228 | |||
| 1229 | /* update l */ | ||
| 1230 |
4/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
|
2443 | if (svd->reason != SVD_CONVERGED_ITERATING || breakdown || k==nv) l = 0; |
| 1231 | 2285 | else l = PetscMax(1,(PetscInt)((nv-k)*lanczos->keep)); | |
| 1232 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
2443 | if (!lanczos->lock && l>0) { l += k; k = 0; } /* non-locking variant: reset no. of converged triplets */ |
| 1233 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
2443 | if (l) PetscCall(PetscInfo(svd,"Preparing to restart keeping l=%" PetscInt_FMT " vectors\n",l)); |
| 1234 | |||
| 1235 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2443 | if (svd->reason == SVD_CONVERGED_ITERATING) { |
| 1236 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
2285 | if (PetscUnlikely(breakdown || k==nv)) { |
| 1237 | /* Start a new bidiagonalization */ | ||
| 1238 | ✗ | PetscCall(PetscInfo(svd,"Breakdown in bidiagonalization (it=%" PetscInt_FMT ")\n",svd->its)); | |
| 1239 | ✗ | if (k<svd->nsv) { | |
| 1240 | ✗ | PetscCall(BVSetRandomColumn(U1,k)); | |
| 1241 | ✗ | PetscCall(SVDInitialVectorGUpper(svd,V,U1,k,&breakdown)); | |
| 1242 | ✗ | if (breakdown) { | |
| 1243 | ✗ | svd->reason = SVD_DIVERGED_BREAKDOWN; | |
| 1244 | ✗ | PetscCall(PetscInfo(svd,"Unable to generate more start vectors\n")); | |
| 1245 | } | ||
| 1246 | } | ||
| 1247 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2285 | } else PetscCall(DSTruncate(svd->ds,k+l,PETSC_FALSE)); |
| 1248 | } | ||
| 1249 | /* compute converged singular vectors and restart vectors */ | ||
| 1250 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSGetMat(svd->ds,DS_MAT_X,&X)); |
| 1251 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(BVMultInPlace(V,X,svd->nconv,k+l)); |
| 1252 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_X,&X)); |
| 1253 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSGetMat(svd->ds,DS_MAT_U,&U)); |
| 1254 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(BVMultInPlace(U1,U,svd->nconv,k+l)); |
| 1255 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_U,&U)); |
| 1256 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSGetMat(svd->ds,DS_MAT_V,&Vmat)); |
| 1257 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(BVMultInPlace(U2,Vmat,svd->nconv,k+l)); |
| 1258 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2443 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_V,&Vmat)); |
| 1259 | |||
| 1260 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
2443 | if (svd->reason == SVD_CONVERGED_ITERATING && !breakdown) { |
| 1261 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2285 | PetscCall(BVCopyColumn(V,nv,k+l)); /* copy the last vector to be the next initial vector */ |
| 1262 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 5 times.
✓ Branch 3 taken 8 times.
|
2285 | if (svd->stop==SVD_STOP_THRESHOLD && nv-k<5) { /* reallocate */ |
| 1263 | 5 | svd->ncv = svd->mpd+k; | |
| 1264 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(SVDReallocateSolution(svd,svd->ncv+1)); |
| 1265 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(U1,svd->ncv+1,PETSC_TRUE)); |
| 1266 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(U2,svd->ncv+1,PETSC_TRUE)); |
| 1267 |
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.
|
35 | for (i=nv;i<svd->ncv;i++) svd->perm[i] = i; |
| 1268 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSReallocate(svd->ds,svd->ncv+1)); |
| 1269 | 5 | aux1 = w; | |
| 1270 | 5 | aux2 = sigma; | |
| 1271 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscMalloc2(svd->ncv+1,&w,svd->ncv+1,&sigma)); |
| 1272 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(w,aux1,ld)); |
| 1273 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(sigma,aux2,ld)); |
| 1274 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscFree2(aux1,aux2)); |
| 1275 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 1276 | } | ||
| 1277 | } | ||
| 1278 | } | ||
| 1279 | |||
| 1280 | 2478 | svd->nconv = k; | |
| 1281 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
2636 | PetscCall(SVDMonitor(svd,svd->its,svd->nconv,sigma,svd->errest,nv)); |
| 1282 | } | ||
| 1283 | |||
| 1284 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
158 | PetscCall(PetscFree2(w,sigma)); |
| 1285 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
32 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1286 | } | ||
| 1287 | |||
| 1288 | /* Move generalized left singular vectors (0..nconv) from U1 and U2 to its final destination svd->U (upper and lower variants) */ | ||
| 1289 | 508 | static inline PetscErrorCode SVDLeftSingularVectors(SVD svd,BV U1,BV U2) | |
| 1290 | { | ||
| 1291 | 508 | PetscInt i,k,m,p; | |
| 1292 | 508 | Vec u,u1,u2; | |
| 1293 | 508 | PetscScalar *ua; | |
| 1294 | 508 | const PetscScalar *u1a,*u2a; | |
| 1295 | |||
| 1296 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
508 | PetscFunctionBegin; |
| 1297 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
508 | PetscCall(BVGetSizes(U1,&m,NULL,NULL)); |
| 1298 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
508 | PetscCall(BVGetSizes(U2,&p,NULL,NULL)); |
| 1299 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2684 | for (i=0;i<svd->nconv;i++) { |
| 1300 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVGetColumn(U1,i,&u1)); |
| 1301 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVGetColumn(U2,i,&u2)); |
| 1302 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVGetColumn(svd->U,i,&u)); |
| 1303 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecGetArrayRead(u1,&u1a)); |
| 1304 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecGetArrayRead(u2,&u2a)); |
| 1305 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecGetArray(u,&ua)); |
| 1306 | /* Copy column from u1 to upper part of u */ | ||
| 1307 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
134382 | for (k=0;k<m;k++) ua[k] = u1a[k]; |
| 1308 | /* Copy column from u2 to lower part of u */ | ||
| 1309 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
186012 | for (k=0;k<p;k++) ua[m+k] = u2a[k]; |
| 1310 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecRestoreArrayRead(u1,&u1a)); |
| 1311 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecRestoreArrayRead(u2,&u2a)); |
| 1312 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(VecRestoreArray(u,&ua)); |
| 1313 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVRestoreColumn(U1,i,&u1)); |
| 1314 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVRestoreColumn(U2,i,&u2)); |
| 1315 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2176 | PetscCall(BVRestoreColumn(svd->U,i,&u)); |
| 1316 | } | ||
| 1317 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
104 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1318 | } | ||
| 1319 | |||
| 1320 | 3613 | static PetscErrorCode SVDLanczosGLower(SVD svd,PetscReal *alpha,PetscReal *beta,PetscReal *alphah,PetscReal *betah,Mat Z,BV U1,BV U2,BV V,KSP ksp,PetscInt k,PetscInt *n,PetscBool *breakdown) | |
| 1321 | { | ||
| 1322 | 3613 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1323 | 3613 | PetscInt i,j,m,p; | |
| 1324 | 3613 | const PetscScalar *carr; | |
| 1325 | 3613 | PetscScalar *arr,*u2arr; | |
| 1326 | 3613 | Vec u,v,ut=svd->workl[0],x=svd->workr[0],v1,u1,u2; | |
| 1327 | 3613 | PetscBool lindep=PETSC_FALSE; | |
| 1328 | |||
| 1329 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
3613 | PetscFunctionBegin; |
| 1330 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(MatCreateVecsEmpty(svd->A,NULL,&v1)); |
| 1331 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1332 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 1333 | |||
| 1334 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
23831 | for (i=k; i<*n; i++) { |
| 1335 | /* Compute vector i of BV U2 */ | ||
| 1336 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVGetColumn(V,i,&v)); |
| 1337 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecGetArrayRead(v,&carr)); |
| 1338 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVGetColumn(U2,i,&u2)); |
| 1339 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecGetArray(u2,&u2arr)); |
| 1340 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
20218 | if (i%2) { |
| 1341 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
532582 | for (j=0; j<p; j++) u2arr[j] = -carr[m+j]; |
| 1342 | } else { | ||
| 1343 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
497896 | for (j=0; j<p; j++) u2arr[j] = carr[m+j]; |
| 1344 | } | ||
| 1345 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecRestoreArray(u2,&u2arr)); |
| 1346 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
20218 | if (lanczos->oneside && i>k) { /* cheap computation of U2[i], if restart (i==k) do a full reorthogonalization */ |
| 1347 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
4239 | if (i>0) { |
| 1348 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVGetColumn(U2,i-1,&u1)); |
| 1349 |
7/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
4239 | PetscCall(VecAXPY(u2,(i%2)?betah[i-1]:-betah[i-1],u1)); |
| 1350 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVRestoreColumn(U2,i-1,&u1)); |
| 1351 | } | ||
| 1352 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(VecNorm(u2,NORM_2,&alphah[i])); |
| 1353 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
4239 | if (alphah[i]==0.0) lindep = PETSC_TRUE; |
| 1354 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | else PetscCall(VecScale(u2,1.0/alphah[i])); |
| 1355 | } | ||
| 1356 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVRestoreColumn(U2,i,&u2)); |
| 1357 |
8/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
20218 | if (!lanczos->oneside || i==k) PetscCall(BVOrthonormalizeColumn(U2,i,PETSC_FALSE,alphah+i,&lindep)); |
| 1358 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
20218 | if (i%2) alphah[i] = -alphah[i]; |
| 1359 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
20218 | if (PetscUnlikely(lindep)) { |
| 1360 | ✗ | PetscCall(BVRestoreColumn(V,i,&v)); | |
| 1361 | ✗ | *n = i; | |
| 1362 | ✗ | break; | |
| 1363 | } | ||
| 1364 | |||
| 1365 | /* Compute vector i+1 of BV U1 */ | ||
| 1366 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecPlaceArray(v1,carr)); |
| 1367 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVInsertVec(U1,i+1,v1)); |
| 1368 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecResetArray(v1)); |
| 1369 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVOrthonormalizeColumn(U1,i+1,PETSC_FALSE,beta+i,&lindep)); |
| 1370 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecRestoreArrayRead(v,&carr)); |
| 1371 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVRestoreColumn(V,i,&v)); |
| 1372 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
20218 | if (PetscUnlikely(lindep)) { |
| 1373 | ✗ | *n = i+1; | |
| 1374 | ✗ | break; | |
| 1375 | } | ||
| 1376 | |||
| 1377 | /* Compute vector i+1 of BV V */ | ||
| 1378 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVGetColumn(V,i+1,&v)); |
| 1379 | /* Form ut=[u;0] where u is column i+1 of BV U1 */ | ||
| 1380 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVGetColumn(U1,i+1,&u)); |
| 1381 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecZeroEntries(ut)); |
| 1382 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecGetArrayRead(u,&carr)); |
| 1383 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecGetArray(ut,&arr)); |
| 1384 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
806995 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 1385 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 1386 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(VecRestoreArray(ut,&arr)); |
| 1387 | /* Solve least squares problem */ | ||
| 1388 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(KSPSolve(ksp,ut,x)); |
| 1389 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(MatMult(Z,x,v)); |
| 1390 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVRestoreColumn(U1,i+1,&u)); |
| 1391 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
20218 | PetscCall(BVRestoreColumn(V,i+1,&v)); |
| 1392 |
8/10✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 8 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
|
20218 | if (!lanczos->oneside || i==k) PetscCall(BVOrthonormalizeColumn(V,i+1,PETSC_FALSE,alpha+i+1,&lindep)); |
| 1393 | else { /* cheap computation of V[i+1], if restart (i==k) do a full reorthogonalization */ | ||
| 1394 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVGetColumn(V,i+1,&u2)); |
| 1395 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVGetColumn(V,i,&u1)); |
| 1396 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(VecAXPY(u2,-beta[i],u1)); |
| 1397 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVRestoreColumn(V,i,&u1)); |
| 1398 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(VecNorm(u2,NORM_2,&alpha[i+1])); |
| 1399 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
4239 | if (alpha[i+1]==0.0) lindep = PETSC_TRUE; |
| 1400 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | else PetscCall(VecScale(u2,1.0/alpha[i+1])); |
| 1401 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4239 | PetscCall(BVRestoreColumn(V,i+1,&u2)); |
| 1402 | } | ||
| 1403 | 20218 | betah[i] = -alpha[i+1]*beta[i]/alphah[i]; | |
| 1404 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
20218 | if (PetscUnlikely(lindep)) { |
| 1405 | ✗ | *n = i+1; | |
| 1406 | ✗ | break; | |
| 1407 | } | ||
| 1408 | } | ||
| 1409 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
3613 | if (breakdown) *breakdown = lindep; |
| 1410 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(VecDestroy(&v1)); |
| 1411 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
712 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1412 | } | ||
| 1413 | |||
| 1414 | /* generate random initial vector in column k for joint lower-upper bidiagonalization */ | ||
| 1415 | 420 | static inline PetscErrorCode SVDInitialVectorGLower(SVD svd,BV V,BV U1,BV U2,PetscInt k,PetscBool *breakdown) | |
| 1416 | { | ||
| 1417 | 420 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1418 | 420 | const PetscScalar *carr; | |
| 1419 | 420 | PetscScalar *arr; | |
| 1420 | 420 | PetscReal *alpha; | |
| 1421 | 420 | PetscInt j,m,p; | |
| 1422 | 420 | Vec u,uh,v,ut=svd->workl[0],x=svd->workr[0]; | |
| 1423 | |||
| 1424 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
420 | PetscFunctionBegin; |
| 1425 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1426 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 1427 | /* Form ut=[0;uh], where uh is the k-th column of U2 */ | ||
| 1428 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVGetColumn(U2,k,&uh)); |
| 1429 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecZeroEntries(ut)); |
| 1430 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecGetArrayRead(uh,&carr)); |
| 1431 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecGetArray(ut,&arr)); |
| 1432 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
35363 | for (j=0; j<p; j++) arr[m+j] = carr[j]; |
| 1433 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecRestoreArrayRead(uh,&carr)); |
| 1434 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecRestoreArray(ut,&arr)); |
| 1435 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVRestoreColumn(U2,k,&uh)); |
| 1436 | /* Solve least squares problem Z*x=ut for x. Then set ut=Z*x */ | ||
| 1437 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(KSPSolve(lanczos->ksp,ut,x)); |
| 1438 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatMult(lanczos->Z,x,ut)); |
| 1439 | /* Form u, column k of BV U1, as the upper part of ut and orthonormalize */ | ||
| 1440 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatCreateVecsEmpty(svd->A,NULL,&u)); |
| 1441 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecGetArrayRead(ut,&carr)); |
| 1442 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecPlaceArray(u,carr)); |
| 1443 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVInsertVec(U1,k,u)); |
| 1444 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecResetArray(u)); |
| 1445 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecRestoreArrayRead(ut,&carr)); |
| 1446 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecDestroy(&u)); |
| 1447 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
420 | if (breakdown) PetscCall(BVOrthonormalizeColumn(U1,k,PETSC_FALSE,NULL,breakdown)); |
| 1448 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | else PetscCall(BVOrthonormalizeColumn(U1,k,PETSC_TRUE,NULL,NULL)); |
| 1449 | |||
| 1450 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
420 | if (!breakdown || !*breakdown) { |
| 1451 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1452 | /* Compute k-th vector of BV V */ | ||
| 1453 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVGetColumn(V,k,&v)); |
| 1454 | /* Form ut=[u;0] where u is the 1st column of U1 */ | ||
| 1455 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVGetColumn(U1,k,&u)); |
| 1456 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecZeroEntries(ut)); |
| 1457 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecGetArrayRead(u,&carr)); |
| 1458 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecGetArray(ut,&arr)); |
| 1459 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
24394 | for (j=0; j<m; j++) arr[j] = carr[j]; |
| 1460 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecRestoreArrayRead(u,&carr)); |
| 1461 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(VecRestoreArray(ut,&arr)); |
| 1462 | /* Solve least squares problem */ | ||
| 1463 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(KSPSolve(lanczos->ksp,ut,x)); |
| 1464 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(MatMult(lanczos->Z,x,v)); |
| 1465 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVRestoreColumn(U1,k,&u)); |
| 1466 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(BVRestoreColumn(V,k,&v)); |
| 1467 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1468 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
420 | if (breakdown) PetscCall(BVOrthonormalizeColumn(V,k,PETSC_FALSE,alpha+k,breakdown)); |
| 1469 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | else PetscCall(BVOrthonormalizeColumn(V,k,PETSC_TRUE,alpha+k,NULL)); |
| 1470 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
420 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1471 | } | ||
| 1472 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
86 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1473 | } | ||
| 1474 | |||
| 1475 | /* solve generalized problem with joint lower-upper bidiagonalization */ | ||
| 1476 | 350 | static PetscErrorCode SVDSolve_TRLanczosGLower(SVD svd,BV U1,BV U2,BV V) | |
| 1477 | { | ||
| 1478 | 350 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1479 | 350 | PetscReal *alpha,*beta,*alphah,*betah,normr,scalef,*sigma,sigma0,*aux2; | |
| 1480 | 350 | PetscScalar *w,*aux1; | |
| 1481 | 350 | PetscInt i,k,l,nv,ld; | |
| 1482 | 350 | Mat U,Vmat,X; | |
| 1483 | 350 | PetscBool breakdown=PETSC_FALSE,inverted; | |
| 1484 | |||
| 1485 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
350 | PetscFunctionBegin; |
| 1486 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
350 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 1487 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
350 | PetscCall(PetscMalloc2(ld,&w,ld,&sigma)); |
| 1488 |
7/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 10 times.
✓ Branch 5 taken 10 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
|
350 | inverted = ((svd->which==SVD_LARGEST && svd->swapped) || (svd->which==SVD_SMALLEST && !svd->swapped))? PETSC_TRUE: PETSC_FALSE; |
| 1489 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
350 | scalef = svd->swapped? 1.0/lanczos->scalef : lanczos->scalef; |
| 1490 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
350 | normr = (svd->conv==SVD_CONV_ABS)? PetscMax(svd->nrma,svd->nrmb*scalef): 1.0; |
| 1491 | |||
| 1492 | /* normalize start vector */ | ||
| 1493 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
350 | if (!svd->ninil) PetscCall(BVSetRandomColumn(U2,0)); |
| 1494 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
350 | PetscCall(SVDInitialVectorGLower(svd,V,U1,U2,0,NULL)); |
| 1495 | |||
| 1496 | l = 0; | ||
| 1497 | 3963 | while (svd->reason == SVD_CONVERGED_ITERATING) { | |
| 1498 | 3613 | svd->its++; | |
| 1499 | |||
| 1500 | /* inner loop */ | ||
| 1501 | 3613 | nv = PetscMin(svd->nconv+svd->mpd,svd->ncv); | |
| 1502 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1503 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSGetArrayReal(svd->ds,DS_MAT_D,&alphah)); |
| 1504 | 3613 | beta = alpha + ld; | |
| 1505 | 3613 | betah = alpha + 2*ld; | |
| 1506 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(SVDLanczosGLower(svd,alpha,beta,alphah,betah,lanczos->Z,U1,U2,V,lanczos->ksp,svd->nconv+l,&nv,&breakdown)); |
| 1507 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_T,&alpha)); |
| 1508 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSRestoreArrayReal(svd->ds,DS_MAT_D,&alphah)); |
| 1509 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(BVSetActiveColumns(V,svd->nconv,nv)); |
| 1510 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(BVSetActiveColumns(U1,svd->nconv,nv+1)); |
| 1511 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(BVSetActiveColumns(U2,svd->nconv,nv)); |
| 1512 | |||
| 1513 | /* solve projected problem */ | ||
| 1514 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSSetDimensions(svd->ds,nv+1,svd->nconv,svd->nconv+l)); |
| 1515 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSGSVDSetDimensions(svd->ds,nv,nv)); |
| 1516 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSSetState(svd->ds,l?DS_STATE_RAW:DS_STATE_INTERMEDIATE)); |
| 1517 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSSolve(svd->ds,w,NULL)); |
| 1518 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSSort(svd->ds,w,NULL,NULL,NULL,NULL)); |
| 1519 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSUpdateExtraRow(svd->ds)); |
| 1520 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(DSSynchronize(svd->ds,w,NULL)); |
| 1521 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
36416 | for (i=svd->nconv;i<nv;i++) svd->sigma[i] = PetscRealPart(w[i]); |
| 1522 | |||
| 1523 | /* check convergence */ | ||
| 1524 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(SVDKrylovConvergence(svd,PETSC_FALSE,svd->nconv,nv-svd->nconv,normr,&k)); |
| 1525 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall(SVDLanczosBackTransform(svd,nv,svd->sigma,sigma,NULL)); |
| 1526 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 5 times.
|
3613 | SVDSetCtxThreshold(svd,sigma,k); |
| 1527 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3613 | PetscCall((*svd->stopping)(svd,svd->its,svd->max_it,k,svd->nsv,&svd->reason,svd->stoppingctx)); |
| 1528 | |||
| 1529 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
3613 | sigma0 = inverted? 1.0/svd->sigma[0] : svd->sigma[0]; |
| 1530 |
6/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
✓ Branch 4 taken 10 times.
✓ Branch 5 taken 10 times.
|
3613 | if (lanczos->scaleth!=0 && k==0 && sigma0>lanczos->scaleth) { |
| 1531 | |||
| 1532 | /* Scale and start from scratch */ | ||
| 1533 |
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 10 times.
|
70 | lanczos->scalef *= svd->swapped? 1.0/svd->sigma[0] : svd->sigma[0]; |
| 1534 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
70 | PetscCall(PetscInfo(svd,"Scaling by factor %g and starting from scratch\n",(double)lanczos->scalef)); |
| 1535 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
70 | PetscCall(MatZUpdateScale(svd)); |
| 1536 |
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 10 times.
|
70 | scalef = svd->swapped? 1.0/lanczos->scalef : lanczos->scalef; |
| 1537 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
70 | if (svd->conv==SVD_CONV_ABS) normr = PetscMax(svd->nrma,svd->nrmb*scalef); |
| 1538 | 70 | l = 0; | |
| 1539 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
70 | if (!svd->ninil) PetscCall(BVSetRandomColumn(U2,0)); |
| 1540 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
70 | PetscCall(SVDInitialVectorGLower(svd,V,U1,U2,0,NULL)); |
| 1541 | |||
| 1542 | } else { | ||
| 1543 | |||
| 1544 | /* update l */ | ||
| 1545 |
4/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 10 times.
✗ Branch 5 not taken.
|
3543 | if (svd->reason != SVD_CONVERGED_ITERATING || breakdown || k==nv) l = 0; |
| 1546 | 3193 | else l = PetscMax(1,(PetscInt)((nv-k)*lanczos->keep)); | |
| 1547 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
3543 | if (!lanczos->lock && l>0) { l += k; k = 0; } /* non-locking variant: reset no. of converged triplets */ |
| 1548 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
3543 | if (l) PetscCall(PetscInfo(svd,"Preparing to restart keeping l=%" PetscInt_FMT " vectors\n",l)); |
| 1549 | |||
| 1550 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
3543 | if (svd->reason == SVD_CONVERGED_ITERATING) { |
| 1551 |
2/4✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
|
3193 | if (PetscUnlikely(breakdown || k==nv)) { |
| 1552 | /* Start a new bidiagonalization */ | ||
| 1553 | ✗ | PetscCall(PetscInfo(svd,"Breakdown in bidiagonalization (it=%" PetscInt_FMT ")\n",svd->its)); | |
| 1554 | ✗ | if (k<svd->nsv) { | |
| 1555 | ✗ | PetscCall(BVSetRandomColumn(U2,k)); | |
| 1556 | ✗ | PetscCall(SVDInitialVectorGLower(svd,V,U1,U2,k,&breakdown)); | |
| 1557 | ✗ | if (breakdown) { | |
| 1558 | ✗ | svd->reason = SVD_DIVERGED_BREAKDOWN; | |
| 1559 | ✗ | PetscCall(PetscInfo(svd,"Unable to generate more start vectors\n")); | |
| 1560 | } | ||
| 1561 | } | ||
| 1562 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3193 | } else PetscCall(DSTruncate(svd->ds,k+l,PETSC_FALSE)); |
| 1563 | } | ||
| 1564 | |||
| 1565 | /* compute converged singular vectors and restart vectors */ | ||
| 1566 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSGetMat(svd->ds,DS_MAT_X,&X)); |
| 1567 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(BVMultInPlace(V,X,svd->nconv,k+l)); |
| 1568 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_X,&X)); |
| 1569 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSGetMat(svd->ds,DS_MAT_U,&U)); |
| 1570 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(BVMultInPlace(U1,U,svd->nconv,k+l+1)); |
| 1571 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_U,&U)); |
| 1572 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSGetMat(svd->ds,DS_MAT_V,&Vmat)); |
| 1573 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(BVMultInPlace(U2,Vmat,svd->nconv,k+l)); |
| 1574 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3543 | PetscCall(DSRestoreMat(svd->ds,DS_MAT_V,&Vmat)); |
| 1575 | |||
| 1576 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
3543 | if (svd->reason == SVD_CONVERGED_ITERATING && !breakdown) { |
| 1577 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
3193 | PetscCall(BVCopyColumn(V,nv,k+l)); /* copy the last vector to be the next initial vector */ |
| 1578 |
4/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 5 times.
✓ Branch 3 taken 8 times.
|
3193 | if (svd->stop==SVD_STOP_THRESHOLD && nv-k<5) { /* reallocate */ |
| 1579 | 5 | svd->ncv = svd->mpd+k; | |
| 1580 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(SVDReallocateSolution(svd,svd->ncv+1)); |
| 1581 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(U1,svd->ncv+1,PETSC_TRUE)); |
| 1582 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(BVResize(U2,svd->ncv+1,PETSC_TRUE)); |
| 1583 |
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.
|
35 | for (i=nv;i<svd->ncv;i++) svd->perm[i] = i; |
| 1584 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSReallocate(svd->ds,svd->ncv+1)); |
| 1585 | 5 | aux1 = w; | |
| 1586 | 5 | aux2 = sigma; | |
| 1587 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscMalloc2(svd->ncv+1,&w,svd->ncv+1,&sigma)); |
| 1588 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(w,aux1,ld)); |
| 1589 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscArraycpy(sigma,aux2,ld)); |
| 1590 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(PetscFree2(aux1,aux2)); |
| 1591 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
5 | PetscCall(DSGetLeadingDimension(svd->ds,&ld)); |
| 1592 | } | ||
| 1593 | } | ||
| 1594 | } | ||
| 1595 | |||
| 1596 | 3613 | svd->nconv = k; | |
| 1597 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
3963 | PetscCall(SVDMonitor(svd,svd->its,svd->nconv,sigma,svd->errest,nv)); |
| 1598 | } | ||
| 1599 | |||
| 1600 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
350 | PetscCall(PetscFree2(w,sigma)); |
| 1601 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
72 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1602 | } | ||
| 1603 | |||
| 1604 | 624 | static PetscErrorCode SVDSolve_TRLanczos_GSVD(SVD svd) | |
| 1605 | { | ||
| 1606 | 624 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1607 | 624 | PetscInt k,m,p; | |
| 1608 | 624 | PetscBool convchg=PETSC_FALSE; | |
| 1609 | 624 | BV U1,U2,UU; | |
| 1610 | 624 | BVType type; | |
| 1611 | 624 | VecType vtype; | |
| 1612 | 624 | Mat U,V; | |
| 1613 | 624 | SlepcSC sc; | |
| 1614 | |||
| 1615 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
624 | PetscFunctionBegin; |
| 1616 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(PetscCitationsRegister(citationg,&citedg)); |
| 1617 | |||
| 1618 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
624 | if (svd->swapped) { |
| 1619 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
42 | PetscCall(DSGetSlepcSC(svd->ds,&sc)); |
| 1620 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
42 | if (svd->which==SVD_LARGEST) sc->comparison = SlepcCompareSmallestReal; |
| 1621 | ✗ | else sc->comparison = SlepcCompareLargestReal; | |
| 1622 | } | ||
| 1623 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
624 | if (svd->converged==SVDConvergedNorm) { /* override temporarily since computed residual is already relative to the norms */ |
| 1624 | 624 | svd->converged = SVDConvergedAbsolute; | |
| 1625 | 624 | convchg = PETSC_TRUE; | |
| 1626 | } | ||
| 1627 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatGetLocalSize(svd->A,&m,NULL)); |
| 1628 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(MatGetLocalSize(svd->B,&p,NULL)); |
| 1629 | |||
| 1630 | /* Create BV for U1 */ | ||
| 1631 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVCreate(PetscObjectComm((PetscObject)svd),&U1)); |
| 1632 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVGetType(svd->U,&type)); |
| 1633 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetType(U1,type)); |
| 1634 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVGetSizes(svd->U,NULL,NULL,&k)); |
| 1635 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetSizes(U1,m,PETSC_DECIDE,k)); |
| 1636 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVGetVecType(svd->U,&vtype)); |
| 1637 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetVecType(U1,vtype)); |
| 1638 | |||
| 1639 | /* Create BV for U2 */ | ||
| 1640 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVCreate(PetscObjectComm((PetscObject)svd),&U2)); |
| 1641 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetType(U2,type)); |
| 1642 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetSizes(U2,p,PETSC_DECIDE,k)); |
| 1643 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetVecType(U2,vtype)); |
| 1644 | |||
| 1645 | /* Copy initial vectors from svd->U to U1 and U2 */ | ||
| 1646 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
624 | if (svd->ninil) { |
| 1647 | 40 | Vec u, uh, nest, aux[2]; | |
| 1648 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(BVGetColumn(U1,0,&u)); |
| 1649 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(BVGetColumn(U2,0,&uh)); |
| 1650 | 40 | aux[0] = u; | |
| 1651 | 40 | aux[1] = uh; | |
| 1652 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(VecCreateNest(PetscObjectComm((PetscObject)svd),2,NULL,aux,&nest)); |
| 1653 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(BVCopyVec(svd->U,0,nest)); |
| 1654 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(BVRestoreColumn(U1,0,&u)); |
| 1655 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(BVRestoreColumn(U2,0,&uh)); |
| 1656 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
40 | PetscCall(VecDestroy(&nest)); |
| 1657 | } | ||
| 1658 | |||
| 1659 |
3/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
|
624 | switch (lanczos->bidiag) { |
| 1660 | 116 | case SVD_TRLANCZOS_GBIDIAG_SINGLE: | |
| 1661 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(SVDSolve_TRLanczosGSingle(svd,U1,svd->U)); |
| 1662 |
6/8✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 6 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
116 | if (svd->stop==SVD_STOP_THRESHOLD) PetscCall(BVResize(U2,svd->ncv+1,PETSC_FALSE)); |
| 1663 | break; | ||
| 1664 | 158 | case SVD_TRLANCZOS_GBIDIAG_UPPER: | |
| 1665 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
158 | PetscCall(SVDSolve_TRLanczosGUpper(svd,U1,U2,svd->U)); |
| 1666 | break; | ||
| 1667 | 350 | case SVD_TRLANCZOS_GBIDIAG_LOWER: | |
| 1668 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
350 | PetscCall(SVDSolve_TRLanczosGLower(svd,U1,U2,svd->U)); |
| 1669 | break; | ||
| 1670 | } | ||
| 1671 | |||
| 1672 | /* Compute converged right singular vectors */ | ||
| 1673 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetActiveColumns(svd->U,0,svd->nconv)); |
| 1674 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVSetActiveColumns(svd->V,0,svd->nconv)); |
| 1675 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVGetMat(svd->U,&U)); |
| 1676 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVGetMat(svd->V,&V)); |
| 1677 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(KSPMatSolve(lanczos->ksp,U,V)); |
| 1678 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVRestoreMat(svd->U,&U)); |
| 1679 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVRestoreMat(svd->V,&V)); |
| 1680 | |||
| 1681 | /* Finish computing left singular vectors and move them to its place */ | ||
| 1682 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
624 | if (svd->swapped) SlepcSwap(U1,U2,UU); |
| 1683 |
2/3✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
|
624 | switch (lanczos->bidiag) { |
| 1684 | 116 | case SVD_TRLANCZOS_GBIDIAG_SINGLE: | |
| 1685 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
116 | PetscCall(SVDLeftSingularVectors_Single(svd,U1,U2)); |
| 1686 | break; | ||
| 1687 | 508 | case SVD_TRLANCZOS_GBIDIAG_UPPER: | |
| 1688 | case SVD_TRLANCZOS_GBIDIAG_LOWER: | ||
| 1689 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
508 | PetscCall(SVDLeftSingularVectors(svd,U1,U2)); |
| 1690 | break; | ||
| 1691 | } | ||
| 1692 | |||
| 1693 | /* undo scaling and compute the reciprocals of sigma if matrices were swapped */ | ||
| 1694 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(SVDLanczosBackTransform(svd,svd->nconv,svd->sigma,NULL,svd->V)); |
| 1695 | |||
| 1696 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVDestroy(&U1)); |
| 1697 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(BVDestroy(&U2)); |
| 1698 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
624 | PetscCall(DSTruncate(svd->ds,svd->nconv,PETSC_TRUE)); |
| 1699 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
624 | if (convchg) svd->converged = SVDConvergedNorm; |
| 1700 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
126 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1701 | } | ||
| 1702 | |||
| 1703 | 940 | static PetscErrorCode SVDSetFromOptions_TRLanczos(SVD svd,PetscOptionItems PetscOptionsObject) | |
| 1704 | { | ||
| 1705 | 940 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1706 | 940 | PetscBool flg,val,lock; | |
| 1707 | 940 | PetscReal keep,scale; | |
| 1708 | 940 | SVDTRLanczosGBidiag bidiag; | |
| 1709 | |||
| 1710 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
940 | PetscFunctionBegin; |
| 1711 |
1/12✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
|
940 | PetscOptionsHeadBegin(PetscOptionsObject,"SVD TRLanczos Options"); |
| 1712 | |||
| 1713 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsBool("-svd_trlanczos_oneside","Use one-side reorthogonalization","SVDTRLanczosSetOneSide",lanczos->oneside,&val,&flg)); |
| 1714 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetOneSide(svd,val)); |
| 1715 | |||
| 1716 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsReal("-svd_trlanczos_restart","Proportion of vectors kept after restart","SVDTRLanczosSetRestart",0.5,&keep,&flg)); |
| 1717 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetRestart(svd,keep)); |
| 1718 | |||
| 1719 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsBool("-svd_trlanczos_locking","Choose between locking and non-locking variants","SVDTRLanczosSetLocking",PETSC_TRUE,&lock,&flg)); |
| 1720 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetLocking(svd,lock)); |
| 1721 | |||
| 1722 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsEnum("-svd_trlanczos_gbidiag","Bidiagonalization choice for Generalized Problem","SVDTRLanczosSetGBidiag",SVDTRLanczosGBidiags,(PetscEnum)lanczos->bidiag,(PetscEnum*)&bidiag,&flg)); |
| 1723 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetGBidiag(svd,bidiag)); |
| 1724 | |||
| 1725 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsBool("-svd_trlanczos_explicitmatrix","Build explicit matrix for KSP solver","SVDTRLanczosSetExplicitMatrix",lanczos->explicitmatrix,&val,&flg)); |
| 1726 |
6/8✓ Branch 0 taken 8 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 6 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetExplicitMatrix(svd,val)); |
| 1727 | |||
| 1728 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(SVDTRLanczosGetScale(svd,&scale)); |
| 1729 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
940 | PetscCall(PetscOptionsReal("-svd_trlanczos_scale","Scale parameter for matrix B","SVDTRLanczosSetScale",scale,&scale,&flg)); |
| 1730 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
940 | if (flg) PetscCall(SVDTRLanczosSetScale(svd,scale)); |
| 1731 | |||
| 1732 |
2/14✓ Branch 0 taken 8 times.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
|
940 | PetscOptionsHeadEnd(); |
| 1733 | |||
| 1734 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
940 | if (svd->OPb) { |
| 1735 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
556 | if (!lanczos->ksp) PetscCall(SVDTRLanczosGetKSP(svd,&lanczos->ksp)); |
| 1736 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
556 | PetscCall(KSPSetFromOptions(lanczos->ksp)); |
| 1737 | } | ||
| 1738 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
190 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1739 | } | ||
| 1740 | |||
| 1741 | 336 | static PetscErrorCode SVDTRLanczosSetOneSide_TRLanczos(SVD svd,PetscBool oneside) | |
| 1742 | { | ||
| 1743 | 336 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1744 | |||
| 1745 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
336 | PetscFunctionBegin; |
| 1746 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
336 | if (lanczos->oneside != oneside) { |
| 1747 | 214 | lanczos->oneside = oneside; | |
| 1748 | 214 | svd->state = SVD_STATE_INITIAL; | |
| 1749 | } | ||
| 1750 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
336 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1751 | } | ||
| 1752 | |||
| 1753 | /*@ | ||
| 1754 | SVDTRLanczosSetOneSide - Indicate if the variant of the Lanczos method | ||
| 1755 | to be used is one-sided or two-sided. | ||
| 1756 | |||
| 1757 | Logically Collective | ||
| 1758 | |||
| 1759 | Input Parameters: | ||
| 1760 | + svd - singular value solver | ||
| 1761 | - oneside - boolean flag indicating if the method is one-sided or not | ||
| 1762 | |||
| 1763 | Options Database Key: | ||
| 1764 | . -svd_trlanczos_oneside <boolean> - Indicates the boolean flag | ||
| 1765 | |||
| 1766 | Notes: | ||
| 1767 | By default, a two-sided variant is selected, which is sometimes slightly | ||
| 1768 | more robust. However, the one-sided variant is faster because it avoids | ||
| 1769 | the orthogonalization associated to left singular vectors. | ||
| 1770 | |||
| 1771 | One-sided orthogonalization is also available for the GSVD, in which case | ||
| 1772 | two orthogonalizations out of three are avoided. | ||
| 1773 | |||
| 1774 | Level: advanced | ||
| 1775 | |||
| 1776 | .seealso: SVDLanczosSetOneSide() | ||
| 1777 | @*/ | ||
| 1778 | 336 | PetscErrorCode SVDTRLanczosSetOneSide(SVD svd,PetscBool oneside) | |
| 1779 | { | ||
| 1780 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
336 | PetscFunctionBegin; |
| 1781 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
336 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1782 |
27/62✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✓ Branch 16 taken 2 times.
✗ Branch 17 not taken.
✗ Branch 18 not taken.
✓ Branch 19 taken 2 times.
✓ Branch 20 taken 2 times.
✗ Branch 21 not taken.
✗ Branch 22 not taken.
✓ Branch 23 taken 2 times.
✓ Branch 24 taken 2 times.
✗ Branch 25 not taken.
✗ Branch 26 not taken.
✓ Branch 27 taken 2 times.
✓ Branch 28 taken 2 times.
✗ Branch 29 not taken.
✗ Branch 30 not taken.
✓ Branch 31 taken 2 times.
✓ Branch 32 taken 2 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✗ Branch 36 not taken.
✓ Branch 37 taken 2 times.
✗ Branch 38 not taken.
✗ Branch 39 not taken.
✗ Branch 40 not taken.
✓ Branch 41 taken 2 times.
✗ Branch 42 not taken.
✗ Branch 43 not taken.
✗ Branch 44 not taken.
✓ Branch 45 taken 2 times.
✓ Branch 46 taken 2 times.
✗ Branch 47 not taken.
✗ Branch 48 not taken.
✓ Branch 49 taken 2 times.
✓ Branch 50 taken 2 times.
✗ Branch 51 not taken.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✗ Branch 54 not taken.
✓ Branch 55 taken 2 times.
✗ Branch 56 not taken.
✗ Branch 57 not taken.
✗ Branch 58 not taken.
✓ Branch 59 taken 2 times.
✗ Branch 60 not taken.
✗ Branch 61 not taken.
|
336 | PetscValidLogicalCollectiveBool(svd,oneside,2); |
| 1783 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
336 | PetscTryMethod(svd,"SVDTRLanczosSetOneSide_C",(SVD,PetscBool),(svd,oneside)); |
| 1784 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
336 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1785 | } | ||
| 1786 | |||
| 1787 | 70 | static PetscErrorCode SVDTRLanczosGetOneSide_TRLanczos(SVD svd,PetscBool *oneside) | |
| 1788 | { | ||
| 1789 | 70 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1790 | |||
| 1791 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
70 | PetscFunctionBegin; |
| 1792 | 70 | *oneside = lanczos->oneside; | |
| 1793 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
70 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1794 | } | ||
| 1795 | |||
| 1796 | /*@ | ||
| 1797 | SVDTRLanczosGetOneSide - Gets if the variant of the Lanczos method | ||
| 1798 | to be used is one-sided or two-sided. | ||
| 1799 | |||
| 1800 | Not Collective | ||
| 1801 | |||
| 1802 | Input Parameters: | ||
| 1803 | . svd - singular value solver | ||
| 1804 | |||
| 1805 | Output Parameters: | ||
| 1806 | . oneside - boolean flag indicating if the method is one-sided or not | ||
| 1807 | |||
| 1808 | Level: advanced | ||
| 1809 | |||
| 1810 | .seealso: SVDTRLanczosSetOneSide() | ||
| 1811 | @*/ | ||
| 1812 | 70 | PetscErrorCode SVDTRLanczosGetOneSide(SVD svd,PetscBool *oneside) | |
| 1813 | { | ||
| 1814 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
70 | PetscFunctionBegin; |
| 1815 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
70 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1816 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
70 | PetscAssertPointer(oneside,2); |
| 1817 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
70 | PetscUseMethod(svd,"SVDTRLanczosGetOneSide_C",(SVD,PetscBool*),(svd,oneside)); |
| 1818 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
70 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1819 | } | ||
| 1820 | |||
| 1821 | 492 | static PetscErrorCode SVDTRLanczosSetGBidiag_TRLanczos(SVD svd,SVDTRLanczosGBidiag bidiag) | |
| 1822 | { | ||
| 1823 | 492 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1824 | |||
| 1825 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
492 | PetscFunctionBegin; |
| 1826 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
492 | switch (bidiag) { |
| 1827 | 492 | case SVD_TRLANCZOS_GBIDIAG_SINGLE: | |
| 1828 | case SVD_TRLANCZOS_GBIDIAG_UPPER: | ||
| 1829 | case SVD_TRLANCZOS_GBIDIAG_LOWER: | ||
| 1830 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
492 | if (lanczos->bidiag != bidiag) { |
| 1831 | 330 | lanczos->bidiag = bidiag; | |
| 1832 | 330 | svd->state = SVD_STATE_INITIAL; | |
| 1833 | } | ||
| 1834 | 98 | break; | |
| 1835 | ✗ | default: | |
| 1836 | ✗ | SETERRQ(PetscObjectComm((PetscObject)svd),PETSC_ERR_ARG_OUTOFRANGE,"Invalid bidiagonalization choice"); | |
| 1837 | } | ||
| 1838 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
98 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1839 | } | ||
| 1840 | |||
| 1841 | /*@ | ||
| 1842 | SVDTRLanczosSetGBidiag - Sets the bidiagonalization choice to use in | ||
| 1843 | the GSVD TRLanczos solver. | ||
| 1844 | |||
| 1845 | Logically Collective | ||
| 1846 | |||
| 1847 | Input Parameters: | ||
| 1848 | + svd - the singular value solver | ||
| 1849 | - bidiag - the bidiagonalization choice | ||
| 1850 | |||
| 1851 | Options Database Key: | ||
| 1852 | . -svd_trlanczos_gbidiag - Sets the bidiagonalization choice (either 's' or 'juu' | ||
| 1853 | or 'jlu') | ||
| 1854 | |||
| 1855 | Level: advanced | ||
| 1856 | |||
| 1857 | .seealso: SVDTRLanczosGetGBidiag(), SVDTRLanczosGBidiag | ||
| 1858 | @*/ | ||
| 1859 | 492 | PetscErrorCode SVDTRLanczosSetGBidiag(SVD svd,SVDTRLanczosGBidiag bidiag) | |
| 1860 | { | ||
| 1861 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
492 | PetscFunctionBegin; |
| 1862 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
492 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1863 |
27/62✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✓ Branch 16 taken 2 times.
✗ Branch 17 not taken.
✗ Branch 18 not taken.
✓ Branch 19 taken 2 times.
✓ Branch 20 taken 2 times.
✗ Branch 21 not taken.
✗ Branch 22 not taken.
✓ Branch 23 taken 2 times.
✓ Branch 24 taken 2 times.
✗ Branch 25 not taken.
✗ Branch 26 not taken.
✓ Branch 27 taken 2 times.
✓ Branch 28 taken 2 times.
✗ Branch 29 not taken.
✗ Branch 30 not taken.
✓ Branch 31 taken 2 times.
✓ Branch 32 taken 2 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✗ Branch 36 not taken.
✓ Branch 37 taken 2 times.
✗ Branch 38 not taken.
✗ Branch 39 not taken.
✗ Branch 40 not taken.
✓ Branch 41 taken 2 times.
✗ Branch 42 not taken.
✗ Branch 43 not taken.
✗ Branch 44 not taken.
✓ Branch 45 taken 2 times.
✓ Branch 46 taken 2 times.
✗ Branch 47 not taken.
✗ Branch 48 not taken.
✓ Branch 49 taken 2 times.
✓ Branch 50 taken 2 times.
✗ Branch 51 not taken.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✗ Branch 54 not taken.
✓ Branch 55 taken 2 times.
✗ Branch 56 not taken.
✗ Branch 57 not taken.
✗ Branch 58 not taken.
✓ Branch 59 taken 2 times.
✗ Branch 60 not taken.
✗ Branch 61 not taken.
|
492 | PetscValidLogicalCollectiveEnum(svd,bidiag,2); |
| 1864 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
492 | PetscTryMethod(svd,"SVDTRLanczosSetGBidiag_C",(SVD,SVDTRLanczosGBidiag),(svd,bidiag)); |
| 1865 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
492 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1866 | } | ||
| 1867 | |||
| 1868 | 60 | static PetscErrorCode SVDTRLanczosGetGBidiag_TRLanczos(SVD svd,SVDTRLanczosGBidiag *bidiag) | |
| 1869 | { | ||
| 1870 | 60 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 1871 | |||
| 1872 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 1873 | 60 | *bidiag = lanczos->bidiag; | |
| 1874 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1875 | } | ||
| 1876 | |||
| 1877 | /*@ | ||
| 1878 | SVDTRLanczosGetGBidiag - Gets the bidiagonalization choice used in the GSVD | ||
| 1879 | TRLanczos solver. | ||
| 1880 | |||
| 1881 | Not Collective | ||
| 1882 | |||
| 1883 | Input Parameter: | ||
| 1884 | . svd - the singular value solver | ||
| 1885 | |||
| 1886 | Output Parameter: | ||
| 1887 | . bidiag - the bidiagonalization choice | ||
| 1888 | |||
| 1889 | Level: advanced | ||
| 1890 | |||
| 1891 | .seealso: SVDTRLanczosSetGBidiag(), SVDTRLanczosGBidiag | ||
| 1892 | @*/ | ||
| 1893 | 60 | PetscErrorCode SVDTRLanczosGetGBidiag(SVD svd,SVDTRLanczosGBidiag *bidiag) | |
| 1894 | { | ||
| 1895 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 1896 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
60 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1897 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
60 | PetscAssertPointer(bidiag,2); |
| 1898 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
60 | PetscUseMethod(svd,"SVDTRLanczosGetGBidiag_C",(SVD,SVDTRLanczosGBidiag*),(svd,bidiag)); |
| 1899 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1900 | } | ||
| 1901 | |||
| 1902 | 60 | static PetscErrorCode SVDTRLanczosSetKSP_TRLanczos(SVD svd,KSP ksp) | |
| 1903 | { | ||
| 1904 | 60 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 1905 | |||
| 1906 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 1907 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
60 | PetscCall(PetscObjectReference((PetscObject)ksp)); |
| 1908 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
60 | PetscCall(KSPDestroy(&ctx->ksp)); |
| 1909 | 60 | ctx->ksp = ksp; | |
| 1910 | 60 | svd->state = SVD_STATE_INITIAL; | |
| 1911 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1912 | } | ||
| 1913 | |||
| 1914 | /*@ | ||
| 1915 | SVDTRLanczosSetKSP - Associate a linear solver object (KSP) to the SVD solver. | ||
| 1916 | |||
| 1917 | Collective | ||
| 1918 | |||
| 1919 | Input Parameters: | ||
| 1920 | + svd - SVD solver | ||
| 1921 | - ksp - the linear solver object | ||
| 1922 | |||
| 1923 | Note: | ||
| 1924 | Only used for the GSVD problem. | ||
| 1925 | |||
| 1926 | Level: advanced | ||
| 1927 | |||
| 1928 | .seealso: SVDTRLanczosGetKSP() | ||
| 1929 | @*/ | ||
| 1930 | 60 | PetscErrorCode SVDTRLanczosSetKSP(SVD svd,KSP ksp) | |
| 1931 | { | ||
| 1932 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 1933 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
60 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1934 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
60 | PetscValidHeaderSpecific(ksp,KSP_CLASSID,2); |
| 1935 |
13/32✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✓ Branch 16 taken 2 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 2 times.
✗ Branch 19 not taken.
✗ Branch 20 not taken.
✓ Branch 21 taken 2 times.
✗ Branch 22 not taken.
✗ Branch 23 not taken.
✗ Branch 24 not taken.
✓ Branch 25 taken 2 times.
✗ Branch 26 not taken.
✗ Branch 27 not taken.
✗ Branch 28 not taken.
✓ Branch 29 taken 2 times.
✗ Branch 30 not taken.
✗ Branch 31 not taken.
|
60 | PetscCheckSameComm(svd,1,ksp,2); |
| 1936 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
60 | PetscTryMethod(svd,"SVDTRLanczosSetKSP_C",(SVD,KSP),(svd,ksp)); |
| 1937 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1938 | } | ||
| 1939 | |||
| 1940 | 496 | static PetscErrorCode SVDTRLanczosGetKSP_TRLanczos(SVD svd,KSP *ksp) | |
| 1941 | { | ||
| 1942 | 496 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 1943 | 496 | PC pc; | |
| 1944 | |||
| 1945 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
496 | PetscFunctionBegin; |
| 1946 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
496 | if (!ctx->ksp) { |
| 1947 | /* Create linear solver */ | ||
| 1948 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPCreate(PetscObjectComm((PetscObject)svd),&ctx->ksp)); |
| 1949 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(PetscObjectIncrementTabLevel((PetscObject)ctx->ksp,(PetscObject)svd,1)); |
| 1950 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPSetOptionsPrefix(ctx->ksp,((PetscObject)svd)->prefix)); |
| 1951 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPAppendOptionsPrefix(ctx->ksp,"svd_trlanczos_")); |
| 1952 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(PetscObjectSetOptions((PetscObject)ctx->ksp,((PetscObject)svd)->options)); |
| 1953 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPSetType(ctx->ksp,KSPLSQR)); |
| 1954 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPGetPC(ctx->ksp,&pc)); |
| 1955 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(PCSetType(pc,PCNONE)); |
| 1956 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
496 | PetscCall(KSPSetErrorIfNotConverged(ctx->ksp,PETSC_TRUE)); |
| 1957 |
7/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
983 | PetscCall(KSPSetTolerances(ctx->ksp,SlepcDefaultTol(svd->tol)/10.0,PETSC_CURRENT,PETSC_CURRENT,PETSC_CURRENT)); |
| 1958 | } | ||
| 1959 | 496 | *ksp = ctx->ksp; | |
| 1960 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
496 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1961 | } | ||
| 1962 | |||
| 1963 | /*@ | ||
| 1964 | SVDTRLanczosGetKSP - Retrieve the linear solver object (KSP) associated with | ||
| 1965 | the SVD solver. | ||
| 1966 | |||
| 1967 | Collective | ||
| 1968 | |||
| 1969 | Input Parameter: | ||
| 1970 | . svd - SVD solver | ||
| 1971 | |||
| 1972 | Output Parameter: | ||
| 1973 | . ksp - the linear solver object | ||
| 1974 | |||
| 1975 | Level: advanced | ||
| 1976 | |||
| 1977 | .seealso: SVDTRLanczosSetKSP() | ||
| 1978 | @*/ | ||
| 1979 | 496 | PetscErrorCode SVDTRLanczosGetKSP(SVD svd,KSP *ksp) | |
| 1980 | { | ||
| 1981 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
496 | PetscFunctionBegin; |
| 1982 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
496 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 1983 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
496 | PetscAssertPointer(ksp,2); |
| 1984 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
496 | PetscUseMethod(svd,"SVDTRLanczosGetKSP_C",(SVD,KSP*),(svd,ksp)); |
| 1985 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
496 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1986 | } | ||
| 1987 | |||
| 1988 | 140 | static PetscErrorCode SVDTRLanczosSetRestart_TRLanczos(SVD svd,PetscReal keep) | |
| 1989 | { | ||
| 1990 | 140 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 1991 | |||
| 1992 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
140 | PetscFunctionBegin; |
| 1993 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
140 | if (keep==(PetscReal)PETSC_DEFAULT || keep==(PetscReal)PETSC_DECIDE) ctx->keep = 0.5; |
| 1994 | else { | ||
| 1995 |
2/6✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
140 | PetscCheck(keep>=0.1 && keep<=0.9,PetscObjectComm((PetscObject)svd),PETSC_ERR_ARG_OUTOFRANGE,"The keep argument %g must be in the range [0.1,0.9]",(double)keep); |
| 1996 | 140 | ctx->keep = keep; | |
| 1997 | } | ||
| 1998 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
28 | PetscFunctionReturn(PETSC_SUCCESS); |
| 1999 | } | ||
| 2000 | |||
| 2001 | /*@ | ||
| 2002 | SVDTRLanczosSetRestart - Sets the restart parameter for the thick-restart | ||
| 2003 | Lanczos method, in particular the proportion of basis vectors that must be | ||
| 2004 | kept after restart. | ||
| 2005 | |||
| 2006 | Logically Collective | ||
| 2007 | |||
| 2008 | Input Parameters: | ||
| 2009 | + svd - the singular value solver | ||
| 2010 | - keep - the number of vectors to be kept at restart | ||
| 2011 | |||
| 2012 | Options Database Key: | ||
| 2013 | . -svd_trlanczos_restart - Sets the restart parameter | ||
| 2014 | |||
| 2015 | Notes: | ||
| 2016 | Allowed values are in the range [0.1,0.9]. The default is 0.5. | ||
| 2017 | |||
| 2018 | Level: advanced | ||
| 2019 | |||
| 2020 | .seealso: SVDTRLanczosGetRestart() | ||
| 2021 | @*/ | ||
| 2022 | 140 | PetscErrorCode SVDTRLanczosSetRestart(SVD svd,PetscReal keep) | |
| 2023 | { | ||
| 2024 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
140 | PetscFunctionBegin; |
| 2025 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
140 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2026 |
29/66✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✓ Branch 18 taken 2 times.
✗ Branch 19 not taken.
✗ Branch 20 not taken.
✓ Branch 21 taken 2 times.
✓ Branch 22 taken 2 times.
✗ Branch 23 not taken.
✗ Branch 24 not taken.
✓ Branch 25 taken 2 times.
✓ Branch 26 taken 2 times.
✗ Branch 27 not taken.
✗ Branch 28 not taken.
✓ Branch 29 taken 2 times.
✓ Branch 30 taken 2 times.
✗ Branch 31 not taken.
✗ Branch 32 not taken.
✓ Branch 33 taken 2 times.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✓ Branch 36 taken 2 times.
✗ Branch 37 not taken.
✗ Branch 38 not taken.
✓ Branch 39 taken 2 times.
✗ Branch 40 not taken.
✗ Branch 41 not taken.
✗ Branch 42 not taken.
✓ Branch 43 taken 2 times.
✗ Branch 44 not taken.
✗ Branch 45 not taken.
✗ Branch 46 not taken.
✓ Branch 47 taken 2 times.
✓ Branch 48 taken 2 times.
✗ Branch 49 not taken.
✗ Branch 50 not taken.
✓ Branch 51 taken 2 times.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✓ Branch 54 taken 2 times.
✗ Branch 55 not taken.
✗ Branch 56 not taken.
✓ Branch 57 taken 2 times.
✗ Branch 58 not taken.
✗ Branch 59 not taken.
✓ Branch 60 taken 2 times.
✗ Branch 61 not taken.
✗ Branch 62 not taken.
✓ Branch 63 taken 2 times.
✗ Branch 64 not taken.
✗ Branch 65 not taken.
|
140 | PetscValidLogicalCollectiveReal(svd,keep,2); |
| 2027 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
140 | PetscTryMethod(svd,"SVDTRLanczosSetRestart_C",(SVD,PetscReal),(svd,keep)); |
| 2028 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
140 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2029 | } | ||
| 2030 | |||
| 2031 | 60 | static PetscErrorCode SVDTRLanczosGetRestart_TRLanczos(SVD svd,PetscReal *keep) | |
| 2032 | { | ||
| 2033 | 60 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 2034 | |||
| 2035 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 2036 | 60 | *keep = ctx->keep; | |
| 2037 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2038 | } | ||
| 2039 | |||
| 2040 | /*@ | ||
| 2041 | SVDTRLanczosGetRestart - Gets the restart parameter used in the thick-restart | ||
| 2042 | Lanczos method. | ||
| 2043 | |||
| 2044 | Not Collective | ||
| 2045 | |||
| 2046 | Input Parameter: | ||
| 2047 | . svd - the singular value solver | ||
| 2048 | |||
| 2049 | Output Parameter: | ||
| 2050 | . keep - the restart parameter | ||
| 2051 | |||
| 2052 | Level: advanced | ||
| 2053 | |||
| 2054 | .seealso: SVDTRLanczosSetRestart() | ||
| 2055 | @*/ | ||
| 2056 | 60 | PetscErrorCode SVDTRLanczosGetRestart(SVD svd,PetscReal *keep) | |
| 2057 | { | ||
| 2058 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 2059 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
60 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2060 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
60 | PetscAssertPointer(keep,2); |
| 2061 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
60 | PetscUseMethod(svd,"SVDTRLanczosGetRestart_C",(SVD,PetscReal*),(svd,keep)); |
| 2062 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2063 | } | ||
| 2064 | |||
| 2065 | 200 | static PetscErrorCode SVDTRLanczosSetLocking_TRLanczos(SVD svd,PetscBool lock) | |
| 2066 | { | ||
| 2067 | 200 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 2068 | |||
| 2069 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
200 | PetscFunctionBegin; |
| 2070 | 200 | ctx->lock = lock; | |
| 2071 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
200 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2072 | } | ||
| 2073 | |||
| 2074 | /*@ | ||
| 2075 | SVDTRLanczosSetLocking - Choose between locking and non-locking variants of | ||
| 2076 | the thick-restart Lanczos method. | ||
| 2077 | |||
| 2078 | Logically Collective | ||
| 2079 | |||
| 2080 | Input Parameters: | ||
| 2081 | + svd - the singular value solver | ||
| 2082 | - lock - true if the locking variant must be selected | ||
| 2083 | |||
| 2084 | Options Database Key: | ||
| 2085 | . -svd_trlanczos_locking - Sets the locking flag | ||
| 2086 | |||
| 2087 | Notes: | ||
| 2088 | The default is to lock converged singular triplets when the method restarts. | ||
| 2089 | This behaviour can be changed so that all directions are kept in the | ||
| 2090 | working subspace even if already converged to working accuracy (the | ||
| 2091 | non-locking variant). | ||
| 2092 | |||
| 2093 | Level: advanced | ||
| 2094 | |||
| 2095 | .seealso: SVDTRLanczosGetLocking() | ||
| 2096 | @*/ | ||
| 2097 | 200 | PetscErrorCode SVDTRLanczosSetLocking(SVD svd,PetscBool lock) | |
| 2098 | { | ||
| 2099 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
200 | PetscFunctionBegin; |
| 2100 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
200 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2101 |
27/62✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✓ Branch 16 taken 2 times.
✗ Branch 17 not taken.
✗ Branch 18 not taken.
✓ Branch 19 taken 2 times.
✓ Branch 20 taken 2 times.
✗ Branch 21 not taken.
✗ Branch 22 not taken.
✓ Branch 23 taken 2 times.
✓ Branch 24 taken 2 times.
✗ Branch 25 not taken.
✗ Branch 26 not taken.
✓ Branch 27 taken 2 times.
✓ Branch 28 taken 2 times.
✗ Branch 29 not taken.
✗ Branch 30 not taken.
✓ Branch 31 taken 2 times.
✓ Branch 32 taken 2 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✗ Branch 36 not taken.
✓ Branch 37 taken 2 times.
✗ Branch 38 not taken.
✗ Branch 39 not taken.
✗ Branch 40 not taken.
✓ Branch 41 taken 2 times.
✗ Branch 42 not taken.
✗ Branch 43 not taken.
✗ Branch 44 not taken.
✓ Branch 45 taken 2 times.
✓ Branch 46 taken 2 times.
✗ Branch 47 not taken.
✗ Branch 48 not taken.
✓ Branch 49 taken 2 times.
✓ Branch 50 taken 2 times.
✗ Branch 51 not taken.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✗ Branch 54 not taken.
✓ Branch 55 taken 2 times.
✗ Branch 56 not taken.
✗ Branch 57 not taken.
✗ Branch 58 not taken.
✓ Branch 59 taken 2 times.
✗ Branch 60 not taken.
✗ Branch 61 not taken.
|
200 | PetscValidLogicalCollectiveBool(svd,lock,2); |
| 2102 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
200 | PetscTryMethod(svd,"SVDTRLanczosSetLocking_C",(SVD,PetscBool),(svd,lock)); |
| 2103 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
200 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2104 | } | ||
| 2105 | |||
| 2106 | 60 | static PetscErrorCode SVDTRLanczosGetLocking_TRLanczos(SVD svd,PetscBool *lock) | |
| 2107 | { | ||
| 2108 | 60 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 2109 | |||
| 2110 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 2111 | 60 | *lock = ctx->lock; | |
| 2112 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2113 | } | ||
| 2114 | |||
| 2115 | /*@ | ||
| 2116 | SVDTRLanczosGetLocking - Gets the locking flag used in the thick-restart | ||
| 2117 | Lanczos method. | ||
| 2118 | |||
| 2119 | Not Collective | ||
| 2120 | |||
| 2121 | Input Parameter: | ||
| 2122 | . svd - the singular value solver | ||
| 2123 | |||
| 2124 | Output Parameter: | ||
| 2125 | . lock - the locking flag | ||
| 2126 | |||
| 2127 | Level: advanced | ||
| 2128 | |||
| 2129 | .seealso: SVDTRLanczosSetLocking() | ||
| 2130 | @*/ | ||
| 2131 | 60 | PetscErrorCode SVDTRLanczosGetLocking(SVD svd,PetscBool *lock) | |
| 2132 | { | ||
| 2133 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
60 | PetscFunctionBegin; |
| 2134 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
60 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2135 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
60 | PetscAssertPointer(lock,2); |
| 2136 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
60 | PetscUseMethod(svd,"SVDTRLanczosGetLocking_C",(SVD,PetscBool*),(svd,lock)); |
| 2137 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
60 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2138 | } | ||
| 2139 | |||
| 2140 | 120 | static PetscErrorCode SVDTRLanczosSetExplicitMatrix_TRLanczos(SVD svd,PetscBool explicitmat) | |
| 2141 | { | ||
| 2142 | 120 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2143 | |||
| 2144 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
120 | PetscFunctionBegin; |
| 2145 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 8 times.
|
120 | if (lanczos->explicitmatrix != explicitmat) { |
| 2146 | 97 | lanczos->explicitmatrix = explicitmat; | |
| 2147 | 97 | svd->state = SVD_STATE_INITIAL; | |
| 2148 | } | ||
| 2149 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
120 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2150 | } | ||
| 2151 | |||
| 2152 | /*@ | ||
| 2153 | SVDTRLanczosSetExplicitMatrix - Indicate if the matrix Z=[A;B] must | ||
| 2154 | be built explicitly. | ||
| 2155 | |||
| 2156 | Logically Collective | ||
| 2157 | |||
| 2158 | Input Parameters: | ||
| 2159 | + svd - singular value solver | ||
| 2160 | - explicitmat - Boolean flag indicating if Z=[A;B] is built explicitly | ||
| 2161 | |||
| 2162 | Options Database Key: | ||
| 2163 | . -svd_trlanczos_explicitmatrix <boolean> - Indicates the boolean flag | ||
| 2164 | |||
| 2165 | Notes: | ||
| 2166 | This option is relevant for the GSVD case only. | ||
| 2167 | Z is the coefficient matrix of the KSP solver used internally. | ||
| 2168 | |||
| 2169 | Level: advanced | ||
| 2170 | |||
| 2171 | .seealso: SVDTRLanczosGetExplicitMatrix() | ||
| 2172 | @*/ | ||
| 2173 | 120 | PetscErrorCode SVDTRLanczosSetExplicitMatrix(SVD svd,PetscBool explicitmat) | |
| 2174 | { | ||
| 2175 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
120 | PetscFunctionBegin; |
| 2176 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
120 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2177 |
27/62✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✓ Branch 16 taken 2 times.
✗ Branch 17 not taken.
✗ Branch 18 not taken.
✓ Branch 19 taken 2 times.
✓ Branch 20 taken 2 times.
✗ Branch 21 not taken.
✗ Branch 22 not taken.
✓ Branch 23 taken 2 times.
✓ Branch 24 taken 2 times.
✗ Branch 25 not taken.
✗ Branch 26 not taken.
✓ Branch 27 taken 2 times.
✓ Branch 28 taken 2 times.
✗ Branch 29 not taken.
✗ Branch 30 not taken.
✓ Branch 31 taken 2 times.
✓ Branch 32 taken 2 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✗ Branch 36 not taken.
✓ Branch 37 taken 2 times.
✗ Branch 38 not taken.
✗ Branch 39 not taken.
✗ Branch 40 not taken.
✓ Branch 41 taken 2 times.
✗ Branch 42 not taken.
✗ Branch 43 not taken.
✗ Branch 44 not taken.
✓ Branch 45 taken 2 times.
✓ Branch 46 taken 2 times.
✗ Branch 47 not taken.
✗ Branch 48 not taken.
✓ Branch 49 taken 2 times.
✓ Branch 50 taken 2 times.
✗ Branch 51 not taken.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✗ Branch 54 not taken.
✓ Branch 55 taken 2 times.
✗ Branch 56 not taken.
✗ Branch 57 not taken.
✗ Branch 58 not taken.
✓ Branch 59 taken 2 times.
✗ Branch 60 not taken.
✗ Branch 61 not taken.
|
120 | PetscValidLogicalCollectiveBool(svd,explicitmat,2); |
| 2178 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
120 | PetscTryMethod(svd,"SVDTRLanczosSetExplicitMatrix_C",(SVD,PetscBool),(svd,explicitmat)); |
| 2179 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
120 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2180 | } | ||
| 2181 | |||
| 2182 | ✗ | static PetscErrorCode SVDTRLanczosGetExplicitMatrix_TRLanczos(SVD svd,PetscBool *explicitmat) | |
| 2183 | { | ||
| 2184 | ✗ | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2185 | |||
| 2186 | ✗ | PetscFunctionBegin; | |
| 2187 | ✗ | *explicitmat = lanczos->explicitmatrix; | |
| 2188 | ✗ | PetscFunctionReturn(PETSC_SUCCESS); | |
| 2189 | } | ||
| 2190 | |||
| 2191 | /*@ | ||
| 2192 | SVDTRLanczosGetExplicitMatrix - Returns the flag indicating if Z=[A;B] is built explicitly. | ||
| 2193 | |||
| 2194 | Not Collective | ||
| 2195 | |||
| 2196 | Input Parameter: | ||
| 2197 | . svd - singular value solver | ||
| 2198 | |||
| 2199 | Output Parameter: | ||
| 2200 | . explicitmat - the mode flag | ||
| 2201 | |||
| 2202 | Level: advanced | ||
| 2203 | |||
| 2204 | .seealso: SVDTRLanczosSetExplicitMatrix() | ||
| 2205 | @*/ | ||
| 2206 | ✗ | PetscErrorCode SVDTRLanczosGetExplicitMatrix(SVD svd,PetscBool *explicitmat) | |
| 2207 | { | ||
| 2208 | ✗ | PetscFunctionBegin; | |
| 2209 | ✗ | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); | |
| 2210 | ✗ | PetscAssertPointer(explicitmat,2); | |
| 2211 | ✗ | PetscUseMethod(svd,"SVDTRLanczosGetExplicitMatrix_C",(SVD,PetscBool*),(svd,explicitmat)); | |
| 2212 | ✗ | PetscFunctionReturn(PETSC_SUCCESS); | |
| 2213 | } | ||
| 2214 | |||
| 2215 | 207 | static PetscErrorCode SVDTRLanczosSetScale_TRLanczos(SVD svd,PetscReal scale) | |
| 2216 | { | ||
| 2217 | 207 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 2218 | |||
| 2219 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
207 | PetscFunctionBegin; |
| 2220 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
207 | if (scale<0) { |
| 2221 | 90 | ctx->scalef = 1.0; | |
| 2222 | 90 | ctx->scaleth = -scale; | |
| 2223 | } else { | ||
| 2224 | 117 | ctx->scalef = scale; | |
| 2225 | 117 | ctx->scaleth = 0.0; | |
| 2226 | } | ||
| 2227 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
207 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2228 | } | ||
| 2229 | |||
| 2230 | /*@ | ||
| 2231 | SVDTRLanczosSetScale - Sets the scale parameter for the GSVD. | ||
| 2232 | |||
| 2233 | Logically Collective | ||
| 2234 | |||
| 2235 | Input Parameters: | ||
| 2236 | + svd - singular value solver | ||
| 2237 | - scale - scale parameter | ||
| 2238 | |||
| 2239 | Options Database Key: | ||
| 2240 | . -svd_trlanczos_scale <real> - scale factor/threshold | ||
| 2241 | |||
| 2242 | Notes: | ||
| 2243 | This parameter is relevant for the GSVD case only. If the parameter is | ||
| 2244 | positive, it indicates the scale factor for B in matrix Z=[A;B]. If | ||
| 2245 | negative, its absolute value is the threshold for automatic scaling. | ||
| 2246 | In automatic scaling, whenever the largest approximate generalized singular | ||
| 2247 | value (or the inverse of the smallest value, if SVD_SMALLEST is used) | ||
| 2248 | exceeds the threshold, the computation is restarted with matrix B | ||
| 2249 | scaled by that value. | ||
| 2250 | |||
| 2251 | Level: advanced | ||
| 2252 | |||
| 2253 | .seealso: SVDTRLanczosGetScale() | ||
| 2254 | @*/ | ||
| 2255 | 207 | PetscErrorCode SVDTRLanczosSetScale(SVD svd,PetscReal scale) | |
| 2256 | { | ||
| 2257 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
207 | PetscFunctionBegin; |
| 2258 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
207 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2259 |
29/66✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✓ Branch 18 taken 2 times.
✗ Branch 19 not taken.
✗ Branch 20 not taken.
✓ Branch 21 taken 2 times.
✓ Branch 22 taken 2 times.
✗ Branch 23 not taken.
✗ Branch 24 not taken.
✓ Branch 25 taken 2 times.
✓ Branch 26 taken 2 times.
✗ Branch 27 not taken.
✗ Branch 28 not taken.
✓ Branch 29 taken 2 times.
✓ Branch 30 taken 2 times.
✗ Branch 31 not taken.
✗ Branch 32 not taken.
✓ Branch 33 taken 2 times.
✓ Branch 34 taken 2 times.
✗ Branch 35 not taken.
✓ Branch 36 taken 2 times.
✗ Branch 37 not taken.
✗ Branch 38 not taken.
✓ Branch 39 taken 2 times.
✗ Branch 40 not taken.
✗ Branch 41 not taken.
✗ Branch 42 not taken.
✓ Branch 43 taken 2 times.
✗ Branch 44 not taken.
✗ Branch 45 not taken.
✗ Branch 46 not taken.
✓ Branch 47 taken 2 times.
✓ Branch 48 taken 2 times.
✗ Branch 49 not taken.
✗ Branch 50 not taken.
✓ Branch 51 taken 2 times.
✓ Branch 52 taken 2 times.
✗ Branch 53 not taken.
✓ Branch 54 taken 2 times.
✗ Branch 55 not taken.
✗ Branch 56 not taken.
✓ Branch 57 taken 2 times.
✗ Branch 58 not taken.
✗ Branch 59 not taken.
✓ Branch 60 taken 2 times.
✗ Branch 61 not taken.
✗ Branch 62 not taken.
✓ Branch 63 taken 2 times.
✗ Branch 64 not taken.
✗ Branch 65 not taken.
|
207 | PetscValidLogicalCollectiveReal(svd,scale,2); |
| 2260 |
8/14✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 10 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 10 times.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✓ Branch 13 taken 2 times.
|
207 | PetscTryMethod(svd,"SVDTRLanczosSetScale_C",(SVD,PetscReal),(svd,scale)); |
| 2261 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
207 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2262 | } | ||
| 2263 | |||
| 2264 | 1000 | static PetscErrorCode SVDTRLanczosGetScale_TRLanczos(SVD svd,PetscReal *scale) | |
| 2265 | { | ||
| 2266 | 1000 | SVD_TRLANCZOS *ctx = (SVD_TRLANCZOS*)svd->data; | |
| 2267 | |||
| 2268 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1000 | PetscFunctionBegin; |
| 2269 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
1000 | if (ctx->scaleth==0) *scale = ctx->scalef; |
| 2270 | 60 | else *scale = -ctx->scaleth; | |
| 2271 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
1000 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2272 | } | ||
| 2273 | |||
| 2274 | /*@ | ||
| 2275 | SVDTRLanczosGetScale - Gets the scale parameter for the GSVD. | ||
| 2276 | |||
| 2277 | Not Collective | ||
| 2278 | |||
| 2279 | Input Parameter: | ||
| 2280 | . svd - the singular value solver | ||
| 2281 | |||
| 2282 | Output Parameter: | ||
| 2283 | . scale - the scale parameter | ||
| 2284 | |||
| 2285 | Notes: | ||
| 2286 | This parameter is relevant for the GSVD case only. If the parameter is | ||
| 2287 | positive, it indicates the scale factor for B in matrix Z=[A;B]. If | ||
| 2288 | negative, its absolute value is the threshold for automatic scaling. | ||
| 2289 | |||
| 2290 | Level: advanced | ||
| 2291 | |||
| 2292 | .seealso: SVDTRLanczosSetScale() | ||
| 2293 | @*/ | ||
| 2294 | 1000 | PetscErrorCode SVDTRLanczosGetScale(SVD svd,PetscReal *scale) | |
| 2295 | { | ||
| 2296 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
1000 | PetscFunctionBegin; |
| 2297 |
3/16✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✓ Branch 9 taken 2 times.
✗ Branch 10 not taken.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
1000 | PetscValidHeaderSpecific(svd,SVD_CLASSID,1); |
| 2298 |
2/8✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
|
1000 | PetscAssertPointer(scale,2); |
| 2299 |
9/16✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 10 times.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 2 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 2 times.
✗ Branch 13 not taken.
✗ Branch 14 not taken.
✓ Branch 15 taken 2 times.
|
1000 | PetscUseMethod(svd,"SVDTRLanczosGetScale_C",(SVD,PetscReal*),(svd,scale)); |
| 2300 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
1000 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2301 | } | ||
| 2302 | |||
| 2303 | 960 | static PetscErrorCode SVDReset_TRLanczos(SVD svd) | |
| 2304 | { | ||
| 2305 | 960 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2306 | |||
| 2307 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
960 | PetscFunctionBegin; |
| 2308 |
3/6✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
960 | if (svd->isgeneralized || (!svd->problem_type && svd->OPb)) { |
| 2309 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
556 | PetscCall(KSPReset(lanczos->ksp)); |
| 2310 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
556 | PetscCall(MatDestroy(&lanczos->Z)); |
| 2311 | } | ||
| 2312 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
194 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2313 | } | ||
| 2314 | |||
| 2315 | 962 | static PetscErrorCode SVDDestroy_TRLanczos(SVD svd) | |
| 2316 | { | ||
| 2317 | 962 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2318 | |||
| 2319 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
962 | PetscFunctionBegin; |
| 2320 |
7/12✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 10 times.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 8 times.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
962 | if (svd->isgeneralized || (!svd->problem_type && svd->OPb)) PetscCall(KSPDestroy(&lanczos->ksp)); |
| 2321 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
962 | PetscCall(PetscFree(svd->data)); |
| 2322 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetOneSide_C",NULL)); |
| 2323 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetOneSide_C",NULL)); |
| 2324 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetGBidiag_C",NULL)); |
| 2325 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetGBidiag_C",NULL)); |
| 2326 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetKSP_C",NULL)); |
| 2327 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetKSP_C",NULL)); |
| 2328 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetRestart_C",NULL)); |
| 2329 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetRestart_C",NULL)); |
| 2330 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetLocking_C",NULL)); |
| 2331 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetLocking_C",NULL)); |
| 2332 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetExplicitMatrix_C",NULL)); |
| 2333 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetExplicitMatrix_C",NULL)); |
| 2334 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetScale_C",NULL)); |
| 2335 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetScale_C",NULL)); |
| 2336 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
192 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2337 | } | ||
| 2338 | |||
| 2339 | 10 | static PetscErrorCode SVDView_TRLanczos(SVD svd,PetscViewer viewer) | |
| 2340 | { | ||
| 2341 | 10 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2342 | 10 | PetscBool isascii; | |
| 2343 | |||
| 2344 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
10 | PetscFunctionBegin; |
| 2345 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
10 | PetscCall(PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERASCII,&isascii)); |
| 2346 |
1/2✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
|
10 | if (isascii) { |
| 2347 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
10 | PetscCall(PetscViewerASCIIPrintf(viewer," %d%% of basis vectors kept after restart\n",(int)(100*lanczos->keep))); |
| 2348 |
6/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
10 | PetscCall(PetscViewerASCIIPrintf(viewer," using the %slocking variant\n",lanczos->lock?"":"non-")); |
| 2349 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 10 times.
|
10 | if (svd->isgeneralized) { |
| 2350 | ✗ | const char *bidiag=""; | |
| 2351 | |||
| 2352 | ✗ | switch (lanczos->bidiag) { | |
| 2353 | ✗ | case SVD_TRLANCZOS_GBIDIAG_SINGLE: bidiag = "single"; break; | |
| 2354 | ✗ | case SVD_TRLANCZOS_GBIDIAG_UPPER: bidiag = "joint upper-upper"; break; | |
| 2355 | ✗ | case SVD_TRLANCZOS_GBIDIAG_LOWER: bidiag = "joint lower-upper"; break; | |
| 2356 | } | ||
| 2357 | ✗ | PetscCall(PetscViewerASCIIPrintf(viewer," bidiagonalization choice: %s\n",bidiag)); | |
| 2358 | ✗ | PetscCall(PetscViewerASCIIPrintf(viewer," %s matrix\n",lanczos->explicitmatrix?"explicit":"implicit")); | |
| 2359 | ✗ | if (lanczos->scaleth==0) PetscCall(PetscViewerASCIIPrintf(viewer," scale factor for matrix B: %g\n",(double)lanczos->scalef)); | |
| 2360 | ✗ | else PetscCall(PetscViewerASCIIPrintf(viewer," automatic scaling for matrix B with threshold: %g\n",(double)lanczos->scaleth)); | |
| 2361 | ✗ | if (!lanczos->ksp) PetscCall(SVDTRLanczosGetKSP(svd,&lanczos->ksp)); | |
| 2362 | ✗ | PetscCall(PetscViewerASCIIPushTab(viewer)); | |
| 2363 | ✗ | PetscCall(KSPView(lanczos->ksp,viewer)); | |
| 2364 | ✗ | PetscCall(PetscViewerASCIIPopTab(viewer)); | |
| 2365 |
5/8✓ Branch 0 taken 10 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
20 | } else PetscCall(PetscViewerASCIIPrintf(viewer," %s-sided reorthogonalization\n",lanczos->oneside? "one": "two")); |
| 2366 | } | ||
| 2367 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
2 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2368 | } | ||
| 2369 | |||
| 2370 | 2018 | static PetscErrorCode SVDSetDSType_TRLanczos(SVD svd) | |
| 2371 | { | ||
| 2372 | 2018 | SVD_TRLANCZOS *lanczos = (SVD_TRLANCZOS*)svd->data; | |
| 2373 | 2018 | DSType dstype; | |
| 2374 | |||
| 2375 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2018 | PetscFunctionBegin; |
| 2376 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
2018 | dstype = svd->ishyperbolic? DSHSVD: DSSVD; |
| 2377 |
4/4✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 10 times.
✓ Branch 3 taken 10 times.
|
2018 | if (svd->OPb && (lanczos->bidiag==SVD_TRLANCZOS_GBIDIAG_UPPER || lanczos->bidiag==SVD_TRLANCZOS_GBIDIAG_LOWER)) dstype = DSGSVD; |
| 2378 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
2018 | PetscCall(DSSetType(svd->ds,dstype)); |
| 2379 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
406 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2380 | } | ||
| 2381 | |||
| 2382 | 962 | SLEPC_EXTERN PetscErrorCode SVDCreate_TRLanczos(SVD svd) | |
| 2383 | { | ||
| 2384 | 962 | SVD_TRLANCZOS *ctx; | |
| 2385 | |||
| 2386 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
962 | PetscFunctionBegin; |
| 2387 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscNew(&ctx)); |
| 2388 | 962 | svd->data = (void*)ctx; | |
| 2389 | |||
| 2390 | 962 | ctx->lock = PETSC_TRUE; | |
| 2391 | 962 | ctx->bidiag = SVD_TRLANCZOS_GBIDIAG_LOWER; | |
| 2392 | 962 | ctx->scalef = 1.0; | |
| 2393 | 962 | ctx->scaleth = 0.0; | |
| 2394 | |||
| 2395 | 962 | svd->ops->setup = SVDSetUp_TRLanczos; | |
| 2396 | 962 | svd->ops->solve = SVDSolve_TRLanczos; | |
| 2397 | 962 | svd->ops->solveg = SVDSolve_TRLanczos_GSVD; | |
| 2398 | 962 | svd->ops->solveh = SVDSolve_TRLanczos_HSVD; | |
| 2399 | 962 | svd->ops->destroy = SVDDestroy_TRLanczos; | |
| 2400 | 962 | svd->ops->reset = SVDReset_TRLanczos; | |
| 2401 | 962 | svd->ops->setfromoptions = SVDSetFromOptions_TRLanczos; | |
| 2402 | 962 | svd->ops->view = SVDView_TRLanczos; | |
| 2403 | 962 | svd->ops->setdstype = SVDSetDSType_TRLanczos; | |
| 2404 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetOneSide_C",SVDTRLanczosSetOneSide_TRLanczos)); |
| 2405 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetOneSide_C",SVDTRLanczosGetOneSide_TRLanczos)); |
| 2406 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetGBidiag_C",SVDTRLanczosSetGBidiag_TRLanczos)); |
| 2407 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetGBidiag_C",SVDTRLanczosGetGBidiag_TRLanczos)); |
| 2408 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetKSP_C",SVDTRLanczosSetKSP_TRLanczos)); |
| 2409 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetKSP_C",SVDTRLanczosGetKSP_TRLanczos)); |
| 2410 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetRestart_C",SVDTRLanczosSetRestart_TRLanczos)); |
| 2411 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetRestart_C",SVDTRLanczosGetRestart_TRLanczos)); |
| 2412 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetLocking_C",SVDTRLanczosSetLocking_TRLanczos)); |
| 2413 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetLocking_C",SVDTRLanczosGetLocking_TRLanczos)); |
| 2414 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetExplicitMatrix_C",SVDTRLanczosSetExplicitMatrix_TRLanczos)); |
| 2415 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetExplicitMatrix_C",SVDTRLanczosGetExplicitMatrix_TRLanczos)); |
| 2416 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosSetScale_C",SVDTRLanczosSetScale_TRLanczos)); |
| 2417 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
962 | PetscCall(PetscObjectComposeFunction((PetscObject)svd,"SVDTRLanczosGetScale_C",SVDTRLanczosGetScale_TRLanczos)); |
| 2418 |
6/12✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 2 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 2 times.
✗ Branch 9 not taken.
✗ Branch 10 not taken.
✓ Branch 11 taken 2 times.
|
192 | PetscFunctionReturn(PETSC_SUCCESS); |
| 2419 | } | ||
| 2420 |