| 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 | Private DS routines | ||
| 12 | */ | ||
| 13 | |||
| 14 | #include <slepc/private/dsimpl.h> /*I "slepcds.h" I*/ | ||
| 15 | #include <slepcblaslapack.h> | ||
| 16 | |||
| 17 | 86106 | PetscErrorCode DSAllocateMat_Private(DS ds,DSMatType m) | |
| 18 | { | ||
| 19 | 86106 | PetscInt n,d,rows=0,cols; | |
| 20 | 86106 | PetscBool ispep,isnep; | |
| 21 | |||
| 22 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
86106 | PetscFunctionBegin; |
| 23 | 86106 | n = ds->ld; | |
| 24 |
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.
|
86106 | PetscCall(PetscObjectTypeCompare((PetscObject)ds,DSPEP,&ispep)); |
| 25 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
86106 | if (ispep) { |
| 26 |
6/6✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 1 times.
✓ Branch 4 taken 1 times.
✓ Branch 5 taken 1 times.
|
10704 | if (m==DS_MAT_A || m==DS_MAT_B || m==DS_MAT_W || m==DS_MAT_U || m==DS_MAT_X || m==DS_MAT_Y) { |
| 27 |
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.
|
10196 | PetscCall(DSPEPGetDegree(ds,&d)); |
| 28 | 10196 | n = d*ds->ld; | |
| 29 | } | ||
| 30 | } else { | ||
| 31 |
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.
|
75402 | PetscCall(PetscObjectTypeCompare((PetscObject)ds,DSNEP,&isnep)); |
| 32 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
75402 | if (isnep) { |
| 33 |
5/6✓ Branch 0 taken 8 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 8 times.
|
5631 | if (m==DS_MAT_Q || m==DS_MAT_Z || m==DS_MAT_U || m==DS_MAT_V || m==DS_MAT_X || m==DS_MAT_Y) { |
| 34 |
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.
|
682 | PetscCall(DSNEPGetMinimality(ds,&d)); |
| 35 | 682 | n = d*ds->ld; | |
| 36 | } | ||
| 37 | } | ||
| 38 | } | ||
| 39 | 86106 | cols = n; | |
| 40 | |||
| 41 |
5/5✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 8 times.
|
86106 | switch (m) { |
| 42 | case DS_MAT_T: | ||
| 43 | cols = PetscDefined(USE_COMPLEX)? 2: 3; | ||
| 44 | rows = n; | ||
| 45 | break; | ||
| 46 | 1171 | case DS_MAT_D: | |
| 47 | 1171 | cols = 1; | |
| 48 | 1171 | rows = n; | |
| 49 | 1171 | break; | |
| 50 | 15819 | case DS_MAT_X: | |
| 51 | 15819 | rows = ds->ld; | |
| 52 | 15819 | break; | |
| 53 | 729 | case DS_MAT_Y: | |
| 54 | 729 | rows = ds->ld; | |
| 55 | 729 | break; | |
| 56 | 63480 | default: | |
| 57 | 63480 | rows = n; | |
| 58 | } | ||
| 59 |
6/8✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 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.
|
86106 | if (ds->omat[m]) PetscCall(MatZeroEntries(ds->omat[m])); |
| 60 | else { | ||
| 61 |
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.
|
37171 | PetscCall(MatCreateSeqDense(PETSC_COMM_SELF,rows,cols,NULL,&ds->omat[m])); |
| 62 | } | ||
| 63 |
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.
|
21437 | PetscFunctionReturn(PETSC_SUCCESS); |
| 64 | } | ||
| 65 | |||
| 66 | 272 | PetscErrorCode DSReallocateMat_Private(DS ds,DSMatType mat,PetscInt ld) | |
| 67 | { | ||
| 68 | 272 | Mat M; | |
| 69 | 272 | PetscInt i,m,n,rows,cols; | |
| 70 | 272 | PetscScalar *dst; | |
| 71 | 272 | PetscReal *rdst; | |
| 72 | 272 | const PetscScalar *src; | |
| 73 | 272 | const PetscReal *rsrc; | |
| 74 | |||
| 75 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
272 | PetscFunctionBegin; |
| 76 |
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.
|
272 | PetscCall(MatGetSize(ds->omat[mat],&m,&n)); |
| 77 | 272 | rows = ld; | |
| 78 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
272 | cols = m==n? ld: n; |
| 79 |
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.
|
272 | PetscCall(MatCreateSeqDense(PETSC_COMM_SELF,rows,cols,NULL,&M)); |
| 80 |
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.
|
272 | PetscCall(MatDenseGetArrayRead(ds->omat[mat],&src)); |
| 81 |
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.
|
272 | PetscCall(MatDenseGetArray(M,&dst)); |
| 82 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
108 | if (mat==DS_MAT_T && PetscDefined(USE_COMPLEX)) { |
| 83 | 40 | rsrc = (const PetscReal*)src; | |
| 84 | 40 | rdst = (PetscReal*)dst; | |
| 85 |
7/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 3 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✓ Branch 6 taken 1 times.
✓ Branch 7 taken 1 times.
|
160 | for (i=0;i<3;i++) PetscCall(PetscArraycpy(rdst+i*ld,rsrc+i*ds->ld,ds->ld)); |
| 86 | } else { | ||
| 87 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 6 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
2430 | for (i=0;i<n;i++) PetscCall(PetscArraycpy(dst+i*ld,src+i*ds->ld,ds->ld)); |
| 88 | } | ||
| 89 |
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.
|
272 | PetscCall(MatDenseRestoreArrayRead(ds->omat[mat],&src)); |
| 90 |
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.
|
272 | PetscCall(MatDenseRestoreArray(M,&dst)); |
| 91 |
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.
|
272 | PetscCall(MatDestroy(&ds->omat[mat])); |
| 92 | 272 | ds->omat[mat] = M; | |
| 93 |
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.
|
272 | PetscFunctionReturn(PETSC_SUCCESS); |
| 94 | } | ||
| 95 | |||
| 96 | 666117 | PetscErrorCode DSAllocateWork_Private(DS ds,PetscInt s,PetscInt r,PetscInt i) | |
| 97 | { | ||
| 98 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
666117 | PetscFunctionBegin; |
| 99 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
666117 | if (s>ds->lwork) { |
| 100 |
5/8✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ 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.
|
13215 | PetscCall(PetscFree(ds->work)); |
| 101 |
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.
|
13215 | PetscCall(PetscMalloc1(s,&ds->work)); |
| 102 | 13215 | ds->lwork = s; | |
| 103 | } | ||
| 104 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
666117 | if (r>ds->lrwork) { |
| 105 |
5/8✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ 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.
|
8276 | PetscCall(PetscFree(ds->rwork)); |
| 106 |
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.
|
8276 | PetscCall(PetscMalloc1(r,&ds->rwork)); |
| 107 | 8276 | ds->lrwork = r; | |
| 108 | } | ||
| 109 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
666117 | if (i>ds->liwork) { |
| 110 |
5/8✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ 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.
|
5357 | PetscCall(PetscFree(ds->iwork)); |
| 111 |
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.
|
5357 | PetscCall(PetscMalloc1(i,&ds->iwork)); |
| 112 | 5357 | ds->liwork = i; | |
| 113 | } | ||
| 114 |
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.
|
161254 | PetscFunctionReturn(PETSC_SUCCESS); |
| 115 | } | ||
| 116 | |||
| 117 | /*@ | ||
| 118 | DSViewMat - Prints one of the internal `DS` matrices. | ||
| 119 | |||
| 120 | Collective | ||
| 121 | |||
| 122 | Input Parameters: | ||
| 123 | + ds - the direct solver context | ||
| 124 | . viewer - visualization context | ||
| 125 | - m - matrix to display | ||
| 126 | |||
| 127 | Note: | ||
| 128 | Works only for `ascii` viewers. Set the viewer to Matlab format if | ||
| 129 | you want to paste the output into Matlab. | ||
| 130 | |||
| 131 | Level: developer | ||
| 132 | |||
| 133 | .seealso: [](sec:ds), `DSView()` | ||
| 134 | @*/ | ||
| 135 | 240 | PetscErrorCode DSViewMat(DS ds,PetscViewer viewer,DSMatType m) | |
| 136 | { | ||
| 137 | 240 | PetscInt i,j,rows,cols; | |
| 138 | 240 | const PetscScalar *M=NULL,*v; | |
| 139 | 240 | PetscViewerFormat format; | |
| 140 | #if defined(PETSC_USE_COMPLEX) | ||
| 141 | 120 | PetscBool allreal = PETSC_TRUE; | |
| 142 | 120 | const PetscReal *vr; | |
| 143 | #endif | ||
| 144 | |||
| 145 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
240 | PetscFunctionBegin; |
| 146 |
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.
|
240 | PetscValidHeaderSpecific(ds,DS_CLASSID,1); |
| 147 |
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.
|
240 | PetscValidLogicalCollectiveEnum(ds,m,3); |
| 148 |
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.
|
240 | DSCheckValidMat(ds,m,3); |
| 149 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 8 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.
|
240 | if (!viewer) PetscCall(PetscViewerASCIIGetStdout(PetscObjectComm((PetscObject)ds),&viewer)); |
| 150 |
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.
|
240 | PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,2); |
| 151 |
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.
|
240 | PetscCheckSameComm(ds,1,viewer,2); |
| 152 |
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.
|
240 | PetscCall(PetscViewerGetFormat(viewer,&format)); |
| 153 |
2/14✓ Branch 0 taken 6 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.
|
240 | if (format == PETSC_VIEWER_ASCII_INFO || format == PETSC_VIEWER_ASCII_INFO_DETAIL) PetscFunctionReturn(PETSC_SUCCESS); |
| 154 |
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.
|
240 | PetscCall(PetscViewerASCIIUseTabs(viewer,PETSC_FALSE)); |
| 155 |
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.
|
240 | PetscCall(DSMatGetSize(ds,m,&rows,&cols)); |
| 156 |
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.
|
240 | PetscCall(MatDenseGetArrayRead(ds->omat[m],&M)); |
| 157 | #if defined(PETSC_USE_COMPLEX) | ||
| 158 | /* determine if matrix has all real values */ | ||
| 159 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
120 | if (m!=DS_MAT_T && m!=DS_MAT_D) { |
| 160 | /* determine if matrix has all real values */ | ||
| 161 | 116 | v = M; | |
| 162 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
1616 | for (i=0;i<rows;i++) |
| 163 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
16620 | for (j=0;j<cols;j++) |
| 164 |
1/2✓ Branch 0 taken 4 times.
✗ Branch 1 not taken.
|
15120 | if (PetscImaginaryPart(v[i+j*ds->ld])) { allreal = PETSC_FALSE; break; } |
| 165 | } | ||
| 166 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 4 times.
|
120 | if (m==DS_MAT_T) cols=3; |
| 167 | #endif | ||
| 168 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
|
240 | if (format == PETSC_VIEWER_ASCII_MATLAB) { |
| 169 | ✗ | PetscCall(PetscViewerASCIIPrintf(viewer,"%% Size = %" PetscInt_FMT " %" PetscInt_FMT "\n",rows,cols)); | |
| 170 | ✗ | PetscCall(PetscViewerASCIIPrintf(viewer,"%s = [\n",DSMatName[m])); | |
| 171 |
3/6✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
|
240 | } else PetscCall(PetscViewerASCIIPrintf(viewer,"Matrix %s =\n",DSMatName[m])); |
| 172 | |||
| 173 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
3360 | for (i=0;i<rows;i++) { |
| 174 | 3120 | v = M+i; | |
| 175 | #if defined(PETSC_USE_COMPLEX) | ||
| 176 | 1560 | vr = (const PetscReal*)M+i; /* handle compact storage, 2nd column is in imaginary part of 1st column */ | |
| 177 | #endif | ||
| 178 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
33480 | for (j=0;j<cols;j++) { |
| 179 | #if defined(PETSC_USE_COMPLEX) | ||
| 180 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
15180 | if (m!=DS_MAT_T && m!=DS_MAT_D) { |
| 181 |
5/8✓ Branch 0 taken 4 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 3 times.
✓ Branch 4 taken 1 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
|
15120 | if (allreal) PetscCall(PetscViewerASCIIPrintf(viewer,"%18.16e ",(double)PetscRealPart(*v))); |
| 182 | ✗ | else PetscCall(PetscViewerASCIIPrintf(viewer,"%18.16e%+18.16ei ",(double)PetscRealPart(*v),(double)PetscImaginaryPart(*v))); | |
| 183 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
60 | } else PetscCall(PetscViewerASCIIPrintf(viewer,"%18.16e ",(double)*vr)); |
| 184 | #else | ||
| 185 |
4/6✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
|
15180 | PetscCall(PetscViewerASCIIPrintf(viewer,"%18.16e ",(double)*v)); |
| 186 | #endif | ||
| 187 | 30360 | v += ds->ld; | |
| 188 | #if defined(PETSC_USE_COMPLEX) | ||
| 189 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 4 times.
|
15180 | if (m==DS_MAT_T) vr += ds->ld; |
| 190 | #endif | ||
| 191 | } | ||
| 192 |
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.
|
3120 | PetscCall(PetscViewerASCIIPrintf(viewer,"\n")); |
| 193 | } | ||
| 194 |
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.
|
240 | PetscCall(MatDenseRestoreArrayRead(ds->omat[m],&M)); |
| 195 | |||
| 196 |
1/8✗ Branch 0 not taken.
✓ Branch 1 taken 8 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.
|
240 | if (format == PETSC_VIEWER_ASCII_MATLAB) PetscCall(PetscViewerASCIIPrintf(viewer,"];\n")); |
| 197 |
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.
|
240 | PetscCall(PetscViewerASCIIUseTabs(viewer,PETSC_TRUE)); |
| 198 |
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.
|
240 | PetscCall(PetscViewerFlush(viewer)); |
| 199 |
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); |
| 200 | } | ||
| 201 | |||
| 202 | 151500 | PetscErrorCode DSSortEigenvalues_Private(DS ds,PetscScalar *wr,PetscScalar *wi,PetscInt *perm,PetscBool isghiep) | |
| 203 | { | ||
| 204 | 151500 | PetscScalar re,im,wi0; | |
| 205 | 151500 | PetscInt n,i,j,result,tmp1,tmp2=0,d=1; | |
| 206 | |||
| 207 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
151500 | PetscFunctionBegin; |
| 208 | 151500 | n = ds->t; /* sort only first t pairs if truncated */ | |
| 209 | /* insertion sort */ | ||
| 210 | 151500 | i=ds->l+1; | |
| 211 | #if !defined(PETSC_USE_COMPLEX) | ||
| 212 |
4/4✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 4 times.
|
74368 | if (wi && wi[perm[i-1]]!=0.0) i++; /* initial value is complex */ |
| 213 | #else | ||
| 214 |
4/4✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 4 times.
|
77132 | if (isghiep && PetscImaginaryPart(wr[perm[i-1]])!=0.0) i++; |
| 215 | #endif | ||
| 216 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1871508 | for (;i<n;i+=d) { |
| 217 | 1720008 | re = wr[perm[i]]; | |
| 218 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1720008 | if (wi) im = wi[perm[i]]; |
| 219 | else im = 0.0; | ||
| 220 | 1720008 | tmp1 = perm[i]; | |
| 221 | #if !defined(PETSC_USE_COMPLEX) | ||
| 222 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
|
894964 | if (im!=0.0) { d = 2; tmp2 = perm[i+1]; } |
| 223 | else d = 1; | ||
| 224 | #else | ||
| 225 |
4/4✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 4 times.
|
825044 | if (isghiep && PetscImaginaryPart(re)!=0.0) { d = 2; tmp2 = perm[i+1]; } |
| 226 | else d = 1; | ||
| 227 | #endif | ||
| 228 | 1720008 | j = i-1; | |
| 229 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1720008 | if (wi) wi0 = wi[perm[j]]; |
| 230 | else wi0 = 0.0; | ||
| 231 |
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.
|
1720008 | PetscCall(SlepcSCCompare(ds->sc,re,im,wr[perm[j]],wi0,&result)); |
| 232 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
6688771 | while (result<0 && j>=ds->l) { |
| 233 | 6196926 | perm[j+d] = perm[j]; | |
| 234 | 6196926 | j--; | |
| 235 | #if !defined(PETSC_USE_COMPLEX) | ||
| 236 |
4/4✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 4 times.
|
3938035 | if (wi && wi[perm[j+1]]!=0) |
| 237 | #else | ||
| 238 |
4/4✓ Branch 0 taken 4 times.
✓ Branch 1 taken 4 times.
✓ Branch 2 taken 4 times.
✓ Branch 3 taken 4 times.
|
2258891 | if (isghiep && PetscImaginaryPart(wr[perm[j+1]])!=0) |
| 239 | #endif | ||
| 240 | 169387 | { perm[j+d] = perm[j]; j--; } | |
| 241 | |||
| 242 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
6196926 | if (j>=ds->l) { |
| 243 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
5705081 | if (wi) wi0 = wi[perm[j]]; |
| 244 | else wi0 = 0.0; | ||
| 245 |
7/8✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 6 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 2 times.
✓ Branch 7 taken 2 times.
|
13622015 | PetscCall(SlepcSCCompare(ds->sc,re,im,wr[perm[j]],wi0,&result)); |
| 246 | } | ||
| 247 | } | ||
| 248 | 1720008 | perm[j+1] = tmp1; | |
| 249 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1720008 | if (d==2) perm[j+2] = tmp2; |
| 250 | } | ||
| 251 |
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.
|
37000 | PetscFunctionReturn(PETSC_SUCCESS); |
| 252 | } | ||
| 253 | |||
| 254 | 54761 | PetscErrorCode DSSortEigenvaluesReal_Private(DS ds,PetscReal *eig,PetscInt *perm) | |
| 255 | { | ||
| 256 | 54761 | PetscScalar re; | |
| 257 | 54761 | PetscInt i,j,result,tmp,l,n; | |
| 258 | |||
| 259 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
54761 | PetscFunctionBegin; |
| 260 | 54761 | n = ds->t; /* sort only first t pairs if truncated */ | |
| 261 | 54761 | l = ds->l; | |
| 262 | /* insertion sort */ | ||
| 263 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
759862 | for (i=l+1;i<n;i++) { |
| 264 | 705101 | re = eig[perm[i]]; | |
| 265 | 705101 | j = i-1; | |
| 266 |
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.
|
705101 | PetscCall(SlepcSCCompare(ds->sc,re,0.0,eig[perm[j]],0.0,&result)); |
| 267 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
4382198 | while (result<0 && j>=l) { |
| 268 | 4117174 | tmp = perm[j]; perm[j] = perm[j+1]; perm[j+1] = tmp; j--; | |
| 269 |
9/10✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 6 times.
✓ Branch 4 taken 8 times.
✓ Branch 5 taken 6 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ Branch 8 taken 2 times.
✓ Branch 9 taken 2 times.
|
8939449 | if (j>=l) PetscCall(SlepcSCCompare(ds->sc,re,0.0,eig[perm[j]],0.0,&result)); |
| 270 | } | ||
| 271 | } | ||
| 272 |
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.
|
13423 | PetscFunctionReturn(PETSC_SUCCESS); |
| 273 | } | ||
| 274 | |||
| 275 | /* | ||
| 276 | Permute comumns [istart..iend-1] of [mat] according to perm. Columns have length n | ||
| 277 | */ | ||
| 278 | 173461 | PetscErrorCode DSPermuteColumns_Private(DS ds,PetscInt istart,PetscInt iend,PetscInt n,DSMatType mat,PetscInt *perm) | |
| 279 | { | ||
| 280 | 173461 | PetscInt i,j,k,p,ld; | |
| 281 | 173461 | PetscScalar *Q,rtmp; | |
| 282 | |||
| 283 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
173461 | PetscFunctionBegin; |
| 284 | 173461 | ld = ds->ld; | |
| 285 |
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.
|
173461 | PetscCall(MatDenseGetArray(ds->omat[mat],&Q)); |
| 286 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
2387997 | for (i=istart;i<iend;i++) { |
| 287 | 2214536 | p = perm[i]; | |
| 288 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
2214536 | if (p != i) { |
| 289 | 786074 | j = i + 1; | |
| 290 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
6590900 | while (perm[j] != i) j++; |
| 291 | 786074 | perm[j] = p; perm[i] = i; | |
| 292 | /* swap columns i and j */ | ||
| 293 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
22357071 | for (k=0;k<n;k++) { |
| 294 | 21570997 | rtmp = Q[k+p*ld]; Q[k+p*ld] = Q[k+i*ld]; Q[k+i*ld] = rtmp; | |
| 295 | } | ||
| 296 | } | ||
| 297 | } | ||
| 298 |
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.
|
173461 | PetscCall(MatDenseRestoreArray(ds->omat[mat],&Q)); |
| 299 |
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.
|
42420 | PetscFunctionReturn(PETSC_SUCCESS); |
| 300 | } | ||
| 301 | |||
| 302 | /* | ||
| 303 | The same as DSPermuteColumns_Private but for two matrices [mat1] and [mat2] | ||
| 304 | */ | ||
| 305 | 2475 | PetscErrorCode DSPermuteColumnsTwo_Private(DS ds,PetscInt istart,PetscInt iend,PetscInt n,DSMatType mat1,DSMatType mat2,PetscInt *perm) | |
| 306 | { | ||
| 307 | 2475 | PetscInt i,j,k,p,ld; | |
| 308 | 2475 | PetscScalar *Q,*Z,rtmp,rtmp2; | |
| 309 | |||
| 310 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
2475 | PetscFunctionBegin; |
| 311 | 2475 | ld = ds->ld; | |
| 312 |
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.
|
2475 | PetscCall(MatDenseGetArray(ds->omat[mat1],&Q)); |
| 313 |
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.
|
2475 | PetscCall(MatDenseGetArray(ds->omat[mat2],&Z)); |
| 314 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
60027 | for (i=istart;i<iend;i++) { |
| 315 | 57552 | p = perm[i]; | |
| 316 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
57552 | if (p != i) { |
| 317 | 40986 | j = i + 1; | |
| 318 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
403553 | while (perm[j] != i) j++; |
| 319 | 40986 | perm[j] = p; perm[i] = i; | |
| 320 | /* swap columns i and j */ | ||
| 321 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
669407 | for (k=0;k<n;k++) { |
| 322 | 628421 | rtmp = Q[k+p*ld]; Q[k+p*ld] = Q[k+i*ld]; Q[k+i*ld] = rtmp; | |
| 323 | 628421 | rtmp2 = Z[k+p*ld]; Z[k+p*ld] = Z[k+i*ld]; Z[k+i*ld] = rtmp2; | |
| 324 | } | ||
| 325 | } | ||
| 326 | } | ||
| 327 |
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.
|
2475 | PetscCall(MatDenseRestoreArray(ds->omat[mat1],&Q)); |
| 328 |
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.
|
2475 | PetscCall(MatDenseRestoreArray(ds->omat[mat2],&Z)); |
| 329 |
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.
|
618 | PetscFunctionReturn(PETSC_SUCCESS); |
| 330 | } | ||
| 331 | |||
| 332 | /* | ||
| 333 | Permute rows [istart..iend-1] of [mat] according to perm. Rows have length m | ||
| 334 | */ | ||
| 335 | ✗ | PetscErrorCode DSPermuteRows_Private(DS ds,PetscInt istart,PetscInt iend,PetscInt m,DSMatType mat,PetscInt *perm) | |
| 336 | { | ||
| 337 | ✗ | PetscInt i,j,k,p,ld; | |
| 338 | ✗ | PetscScalar *Q,rtmp; | |
| 339 | |||
| 340 | ✗ | PetscFunctionBegin; | |
| 341 | ✗ | ld = ds->ld; | |
| 342 | ✗ | PetscCall(MatDenseGetArray(ds->omat[mat],&Q)); | |
| 343 | ✗ | for (i=istart;i<iend;i++) { | |
| 344 | ✗ | p = perm[i]; | |
| 345 | ✗ | if (p != i) { | |
| 346 | ✗ | j = i + 1; | |
| 347 | ✗ | while (perm[j] != i) j++; | |
| 348 | ✗ | perm[j] = p; perm[i] = i; | |
| 349 | /* swap rows i and j */ | ||
| 350 | ✗ | for (k=0;k<m;k++) { | |
| 351 | ✗ | rtmp = Q[p+k*ld]; Q[p+k*ld] = Q[i+k*ld]; Q[i+k*ld] = rtmp; | |
| 352 | } | ||
| 353 | } | ||
| 354 | } | ||
| 355 | ✗ | PetscCall(MatDenseRestoreArray(ds->omat[mat],&Q)); | |
| 356 | ✗ | PetscFunctionReturn(PETSC_SUCCESS); | |
| 357 | } | ||
| 358 | |||
| 359 | /* | ||
| 360 | Permute columns [istart..iend-1] of [mat1] and [mat2] according to perm. | ||
| 361 | Columns of [mat1] have length n, columns of [mat2] have length m | ||
| 362 | */ | ||
| 363 | 19990 | PetscErrorCode DSPermuteBoth_Private(DS ds,PetscInt istart,PetscInt iend,PetscInt n,PetscInt m,DSMatType mat1,DSMatType mat2,PetscInt *perm) | |
| 364 | { | ||
| 365 | 19990 | PetscInt i,j,k,p,ld; | |
| 366 | 19990 | PetscScalar *U,*V,rtmp; | |
| 367 | |||
| 368 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
19990 | PetscFunctionBegin; |
| 369 | 19990 | ld = ds->ld; | |
| 370 |
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.
|
19990 | PetscCall(MatDenseGetArray(ds->omat[mat1],&U)); |
| 371 |
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.
|
19990 | PetscCall(MatDenseGetArray(ds->omat[mat2],&V)); |
| 372 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
245204 | for (i=istart;i<iend;i++) { |
| 373 | 225214 | p = perm[i]; | |
| 374 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
225214 | if (p != i) { |
| 375 | 52543 | j = i + 1; | |
| 376 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
565287 | while (perm[j] != i) j++; |
| 377 | 52543 | perm[j] = p; perm[i] = i; | |
| 378 | /* swap columns i and j of U */ | ||
| 379 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
3116555 | for (k=0;k<n;k++) { |
| 380 | 3064012 | rtmp = U[k+p*ld]; U[k+p*ld] = U[k+i*ld]; U[k+i*ld] = rtmp; | |
| 381 | } | ||
| 382 | /* swap columns i and j of V */ | ||
| 383 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1902709 | for (k=0;k<m;k++) { |
| 384 | 1850166 | rtmp = V[k+p*ld]; V[k+p*ld] = V[k+i*ld]; V[k+i*ld] = rtmp; | |
| 385 | } | ||
| 386 | } | ||
| 387 | } | ||
| 388 |
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.
|
19990 | PetscCall(MatDenseRestoreArray(ds->omat[mat1],&U)); |
| 389 |
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.
|
19990 | PetscCall(MatDenseRestoreArray(ds->omat[mat2],&V)); |
| 390 |
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.
|
4922 | PetscFunctionReturn(PETSC_SUCCESS); |
| 391 | } | ||
| 392 | |||
| 393 | /*@ | ||
| 394 | DSSetIdentity - Copy the identity (a diagonal matrix with ones on the | ||
| 395 | diagonal) on the active part of a matrix. | ||
| 396 | |||
| 397 | Logically Collective | ||
| 398 | |||
| 399 | Input Parameters: | ||
| 400 | + ds - the direct solver context | ||
| 401 | - mat - the matrix to modify | ||
| 402 | |||
| 403 | Level: intermediate | ||
| 404 | |||
| 405 | .seealso: [](sec:ds), `DSGetMat()` | ||
| 406 | @*/ | ||
| 407 | 84441 | PetscErrorCode DSSetIdentity(DS ds,DSMatType mat) | |
| 408 | { | ||
| 409 | 84441 | PetscScalar *A; | |
| 410 | 84441 | PetscInt i,ld,n,l; | |
| 411 | |||
| 412 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
84441 | PetscFunctionBegin; |
| 413 |
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.
|
84441 | PetscValidHeaderSpecific(ds,DS_CLASSID,1); |
| 414 |
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.
|
84441 | PetscValidLogicalCollectiveEnum(ds,mat,2); |
| 415 |
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.
|
84441 | DSCheckValidMat(ds,mat,2); |
| 416 | |||
| 417 |
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.
|
84441 | PetscCall(DSGetDimensions(ds,&n,&l,NULL,NULL)); |
| 418 |
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.
|
84441 | PetscCall(DSGetLeadingDimension(ds,&ld)); |
| 419 |
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.
|
84441 | PetscCall(PetscLogEventBegin(DS_Other,ds,0,0,0)); |
| 420 |
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.
|
84441 | PetscCall(MatDenseGetArray(ds->omat[mat],&A)); |
| 421 |
4/6✓ Branch 0 taken 5 times.
✓ Branch 1 taken 3 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
84441 | PetscCall(PetscArrayzero(A+l*ld,ld*(n-l))); |
| 422 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1177715 | for (i=l;i<n;i++) A[i+i*ld] = 1.0; |
| 423 |
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.
|
84441 | PetscCall(MatDenseRestoreArray(ds->omat[mat],&A)); |
| 424 |
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.
|
84441 | PetscCall(PetscLogEventEnd(DS_Other,ds,0,0,0)); |
| 425 |
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.
|
20548 | PetscFunctionReturn(PETSC_SUCCESS); |
| 426 | } | ||
| 427 | |||
| 428 | /*@ | ||
| 429 | DSOrthogonalize - Orthogonalize the columns of a matrix. | ||
| 430 | |||
| 431 | Logically Collective | ||
| 432 | |||
| 433 | Input Parameters: | ||
| 434 | + ds - the direct solver context | ||
| 435 | . mat - a matrix | ||
| 436 | - cols - number of columns to orthogonalize (starting from column zero) | ||
| 437 | |||
| 438 | Output Parameter: | ||
| 439 | . lindcols - (optional) number of linearly independent columns of the matrix | ||
| 440 | |||
| 441 | Level: developer | ||
| 442 | |||
| 443 | .seealso: [](sec:ds), `DSPseudoOrthogonalize()` | ||
| 444 | @*/ | ||
| 445 | 13451 | PetscErrorCode DSOrthogonalize(DS ds,DSMatType mat,PetscInt cols,PetscInt *lindcols) | |
| 446 | { | ||
| 447 | 13451 | PetscInt n,l,ld; | |
| 448 | 13451 | PetscBLASInt ld_,rA,cA,info,ltau,lw; | |
| 449 | 13451 | PetscScalar *A,*tau,*w,saux,dummy; | |
| 450 | |||
| 451 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
13451 | PetscFunctionBegin; |
| 452 |
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.
|
13451 | PetscValidHeaderSpecific(ds,DS_CLASSID,1); |
| 453 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
13451 | DSCheckAlloc(ds,1); |
| 454 |
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.
|
13451 | PetscValidLogicalCollectiveEnum(ds,mat,2); |
| 455 |
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.
|
13451 | DSCheckValidMat(ds,mat,2); |
| 456 |
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.
|
13451 | PetscValidLogicalCollectiveInt(ds,cols,3); |
| 457 | |||
| 458 |
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.
|
13451 | PetscCall(DSGetDimensions(ds,&n,&l,NULL,NULL)); |
| 459 |
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.
|
13451 | PetscCall(DSGetLeadingDimension(ds,&ld)); |
| 460 | 13451 | n = n - l; | |
| 461 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
13451 | PetscCheck(cols<=n,PetscObjectComm((PetscObject)ds),PETSC_ERR_ARG_WRONG,"Invalid number of columns"); |
| 462 |
3/16✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✓ Branch 3 taken 2 times.
✗ 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.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
13451 | if (n == 0 || cols == 0) PetscFunctionReturn(PETSC_SUCCESS); |
| 463 | |||
| 464 |
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.
|
13451 | PetscCall(PetscLogEventBegin(DS_Other,ds,0,0,0)); |
| 465 |
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.
|
13451 | PetscCall(PetscFPTrapPush(PETSC_FP_TRAP_OFF)); |
| 466 |
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.
|
13451 | PetscCall(MatDenseGetArray(ds->omat[mat],&A)); |
| 467 |
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.
|
13451 | PetscCall(PetscBLASIntCast(PetscMin(cols,n),<au)); |
| 468 |
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.
|
13451 | PetscCall(PetscBLASIntCast(ld,&ld_)); |
| 469 |
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.
|
13451 | PetscCall(PetscBLASIntCast(n,&rA)); |
| 470 |
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.
|
13451 | PetscCall(PetscBLASIntCast(cols,&cA)); |
| 471 | 13451 | lw = -1; | |
| 472 |
10/20✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ 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 taken 2 times.
✗ Branch 15 not taken.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✗ Branch 18 not taken.
✗ Branch 19 not taken.
|
13451 | PetscCallBLAS("LAPACKgeqrf",LAPACKgeqrf_(&rA,&cA,A,&ld_,&dummy,&saux,&lw,&info)); |
| 473 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
13451 | SlepcCheckLapackInfo("geqrf",info); |
| 474 | 13451 | lw = (PetscBLASInt)PetscRealPart(saux); | |
| 475 |
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.
|
13451 | PetscCall(DSAllocateWork_Private(ds,lw+ltau,0,0)); |
| 476 | 13451 | tau = ds->work; | |
| 477 | 13451 | w = &tau[ltau]; | |
| 478 |
10/20✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ 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 taken 2 times.
✗ Branch 15 not taken.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✗ Branch 18 not taken.
✗ Branch 19 not taken.
|
13451 | PetscCallBLAS("LAPACKgeqrf",LAPACKgeqrf_(&rA,&cA,&A[ld*l+l],&ld_,tau,w,&lw,&info)); |
| 479 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
13451 | SlepcCheckLapackInfo("geqrf",info); |
| 480 |
10/20✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ 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 taken 2 times.
✗ Branch 15 not taken.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✗ Branch 18 not taken.
✗ Branch 19 not taken.
|
13451 | PetscCallBLAS("LAPACKorgqr",LAPACKorgqr_(&rA,<au,<au,&A[ld*l+l],&ld_,tau,w,&lw,&info)); |
| 481 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
13451 | SlepcCheckLapackInfo("orgqr",info); |
| 482 |
1/2✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
|
13451 | if (lindcols) *lindcols = ltau; |
| 483 |
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.
|
13451 | PetscCall(PetscFPTrapPop()); |
| 484 |
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.
|
13451 | PetscCall(MatDenseRestoreArray(ds->omat[mat],&A)); |
| 485 |
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.
|
13451 | PetscCall(PetscLogEventEnd(DS_Other,ds,0,0,0)); |
| 486 |
2/4✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
|
13451 | PetscCall(PetscObjectStateIncrease((PetscObject)ds)); |
| 487 |
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.
|
13451 | PetscFunctionReturn(PETSC_SUCCESS); |
| 488 | } | ||
| 489 | |||
| 490 | /* | ||
| 491 | Compute C <- a*A*B + b*C, where | ||
| 492 | ldC, the leading dimension of C, | ||
| 493 | ldA, the leading dimension of A, | ||
| 494 | rA, cA, rows and columns of A, | ||
| 495 | At, if true use the transpose of A instead, | ||
| 496 | ldB, the leading dimension of B, | ||
| 497 | rB, cB, rows and columns of B, | ||
| 498 | Bt, if true use the transpose of B instead | ||
| 499 | */ | ||
| 500 | 440 | static PetscErrorCode SlepcMatDenseMult(PetscScalar *C,PetscInt _ldC,PetscScalar b,PetscScalar a,const PetscScalar *A,PetscInt _ldA,PetscInt rA,PetscInt cA,PetscBool At,const PetscScalar *B,PetscInt _ldB,PetscInt rB,PetscInt cB,PetscBool Bt) | |
| 501 | { | ||
| 502 | 440 | PetscInt tmp; | |
| 503 | 440 | PetscBLASInt m, n, k, ldA, ldB, ldC; | |
| 504 | 440 | const char *N = "N", *T = "C", *qA = N, *qB = N; | |
| 505 | |||
| 506 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
440 | PetscFunctionBegin; |
| 507 |
2/14✓ Branch 0 taken 6 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.
|
440 | if ((rA == 0) || (cB == 0)) PetscFunctionReturn(PETSC_SUCCESS); |
| 508 |
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.
|
440 | PetscAssertPointer(C,1); |
| 509 |
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.
|
440 | PetscAssertPointer(A,5); |
| 510 |
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.
|
440 | PetscAssertPointer(B,10); |
| 511 |
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.
|
440 | PetscCall(PetscBLASIntCast(_ldA,&ldA)); |
| 512 |
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.
|
440 | PetscCall(PetscBLASIntCast(_ldB,&ldB)); |
| 513 |
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.
|
440 | PetscCall(PetscBLASIntCast(_ldC,&ldC)); |
| 514 | |||
| 515 | /* Transpose if needed */ | ||
| 516 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
440 | if (At) tmp = rA, rA = cA, cA = tmp, qA = T; |
| 517 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
|
440 | if (Bt) tmp = rB, rB = cB, cB = tmp, qB = T; |
| 518 | |||
| 519 | /* Check size */ | ||
| 520 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
440 | PetscCheck(cA==rB,PETSC_COMM_SELF,PETSC_ERR_PLIB,"Matrix dimensions do not match"); |
| 521 | |||
| 522 | /* Do stub */ | ||
| 523 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
440 | if ((rA == 1) && (cA == 1) && (cB == 1)) { |
| 524 | ✗ | if (!At && !Bt) *C = *A * *B; | |
| 525 | ✗ | else if (At && !Bt) *C = PetscConj(*A) * *B; | |
| 526 | ✗ | else if (!At && Bt) *C = *A * PetscConj(*B); | |
| 527 | ✗ | else *C = PetscConj(*A) * PetscConj(*B); | |
| 528 | ✗ | m = n = k = 1; | |
| 529 | } else { | ||
| 530 |
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.
|
440 | PetscCall(PetscBLASIntCast(rA,&m)); |
| 531 |
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.
|
440 | PetscCall(PetscBLASIntCast(cB,&n)); |
| 532 |
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.
|
440 | PetscCall(PetscBLASIntCast(cA,&k)); |
| 533 |
10/20✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ 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 taken 2 times.
✗ Branch 15 not taken.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✗ Branch 18 not taken.
✗ Branch 19 not taken.
|
440 | PetscCallBLAS("BLASgemm",BLASgemm_(qA,qB,&m,&n,&k,&a,(PetscScalar*)A,&ldA,(PetscScalar*)B,&ldB,&b,C,&ldC)); |
| 534 | } | ||
| 535 | |||
| 536 |
3/6✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
440 | PetscCall(PetscLogFlops(2.0*m*n*k)); |
| 537 |
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.
|
440 | PetscFunctionReturn(PETSC_SUCCESS); |
| 538 | } | ||
| 539 | |||
| 540 | /*@ | ||
| 541 | DSPseudoOrthogonalize - Orthogonalize the columns of a matrix with Modified | ||
| 542 | Gram-Schmidt in an indefinite inner product space defined by a signature. | ||
| 543 | |||
| 544 | Logically Collective | ||
| 545 | |||
| 546 | Input Parameters: | ||
| 547 | + ds - the direct solver context | ||
| 548 | . mat - the matrix | ||
| 549 | . cols - number of columns to orthogonalize (starting from column zero) | ||
| 550 | - s - the signature that defines the inner product | ||
| 551 | |||
| 552 | Output Parameters: | ||
| 553 | + lindcols - (optional) linearly independent columns of the matrix | ||
| 554 | - ns - (optional) the new signature of the vectors | ||
| 555 | |||
| 556 | Note: | ||
| 557 | After the call the matrix satisfies $A^*\Omega A = \tilde\Omega$, where | ||
| 558 | $\Omega$ is the input signature, represented as a list of $\pm 1$ values | ||
| 559 | in `s`, and the new signature $\tilde\Omega$ is stored similarly in `ns`. | ||
| 560 | |||
| 561 | Level: developer | ||
| 562 | |||
| 563 | .seealso: [](sec:ds), `DSOrthogonalize()` | ||
| 564 | @*/ | ||
| 565 | 8 | PetscErrorCode DSPseudoOrthogonalize(DS ds,DSMatType mat,PetscInt cols,PetscReal s[],PetscInt *lindcols,PetscReal ns[]) | |
| 566 | { | ||
| 567 | 8 | PetscInt i,j,k,l,n,ld; | |
| 568 | 8 | PetscBLASInt info,one=1,zero=0,rA_,ld_; | |
| 569 | 8 | PetscScalar *A,*A_,*m,*h,nr0; | |
| 570 | 8 | PetscReal nr_o,nr,nr_abs,*ns_,done=1.0; | |
| 571 | |||
| 572 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
8 | PetscFunctionBegin; |
| 573 |
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.
|
8 | PetscValidHeaderSpecific(ds,DS_CLASSID,1); |
| 574 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
8 | DSCheckAlloc(ds,1); |
| 575 |
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.
|
8 | PetscValidLogicalCollectiveEnum(ds,mat,2); |
| 576 |
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.
|
8 | DSCheckValidMat(ds,mat,2); |
| 577 |
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.
|
8 | PetscValidLogicalCollectiveInt(ds,cols,3); |
| 578 |
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.
|
8 | PetscAssertPointer(s,4); |
| 579 |
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.
|
8 | PetscCall(DSGetDimensions(ds,&n,&l,NULL,NULL)); |
| 580 |
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.
|
8 | PetscCall(DSGetLeadingDimension(ds,&ld)); |
| 581 | 8 | n = n - l; | |
| 582 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
8 | PetscCheck(cols<=n,PetscObjectComm((PetscObject)ds),PETSC_ERR_ARG_WRONG,"Invalid number of columns"); |
| 583 |
3/16✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✓ Branch 3 taken 2 times.
✗ 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.
✗ Branch 14 not taken.
✗ Branch 15 not taken.
|
8 | if (n == 0 || cols == 0) PetscFunctionReturn(PETSC_SUCCESS); |
| 584 |
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.
|
8 | PetscCall(PetscLogEventBegin(DS_Other,ds,0,0,0)); |
| 585 |
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.
|
8 | PetscCall(PetscBLASIntCast(n,&rA_)); |
| 586 |
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.
|
8 | PetscCall(PetscBLASIntCast(ld,&ld_)); |
| 587 |
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.
|
8 | PetscCall(MatDenseGetArray(ds->omat[mat],&A_)); |
| 588 | 8 | A = &A_[ld*l+l]; | |
| 589 |
5/8✓ Branch 0 taken 8 times.
✗ Branch 1 not taken.
✓ 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.
|
16 | PetscCall(DSAllocateWork_Private(ds,n+cols,ns?0:cols,0)); |
| 590 | 8 | m = ds->work; | |
| 591 | 8 | h = &m[n]; | |
| 592 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
|
8 | ns_ = ns ? ns : ds->rwork; |
| 593 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
88 | for (i=0; i<cols; i++) { |
| 594 | /* m <- diag(s)*A[i] */ | ||
| 595 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
880 | for (k=0; k<n; k++) m[k] = s[k]*A[k+i*ld]; |
| 596 | /* nr_o <- mynorm(A[i]'*m), mynorm(x) = sign(x)*sqrt(|x|) */ | ||
| 597 |
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.
|
80 | PetscCall(SlepcMatDenseMult(&nr0,1,0.0,1.0,&A[ld*i],ld,n,1,PETSC_TRUE,m,n,n,1,PETSC_FALSE)); |
| 598 |
3/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 8 times.
✗ Branch 3 not taken.
|
80 | nr = nr_o = PetscSign(PetscRealPart(nr0))*PetscSqrtReal(PetscAbsScalar(nr0)); |
| 599 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
128 | for (j=0; j<3 && i>0; j++) { |
| 600 | /* h <- A[0:i-1]'*m */ | ||
| 601 |
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.
|
120 | PetscCall(SlepcMatDenseMult(h,i,0.0,1.0,A,ld,n,i,PETSC_TRUE,m,n,n,1,PETSC_FALSE)); |
| 602 | /* h <- diag(ns)*h */ | ||
| 603 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
792 | for (k=0; k<i; k++) h[k] *= ns_[k]; |
| 604 | /* A[i] <- A[i] - A[0:i-1]*h */ | ||
| 605 |
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.
|
120 | PetscCall(SlepcMatDenseMult(&A[ld*i],ld,1.0,-1.0,A,ld,n,i,PETSC_FALSE,h,i,i,1,PETSC_FALSE)); |
| 606 | /* m <- diag(s)*A[i] */ | ||
| 607 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
1320 | for (k=0; k<n; k++) m[k] = s[k]*A[k+i*ld]; |
| 608 | /* nr_o <- mynorm(A[i]'*m) */ | ||
| 609 |
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.
|
120 | PetscCall(SlepcMatDenseMult(&nr0,1,0.0,1.0,&A[ld*i],ld,n,1,PETSC_TRUE,m,n,n,1,PETSC_FALSE)); |
| 610 |
3/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 8 times.
✗ Branch 3 not taken.
|
120 | nr = PetscSign(PetscRealPart(nr0))*PetscSqrtReal(PetscAbsScalar(nr0)); |
| 611 |
3/6✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 8 times.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
120 | PetscCheck(PetscAbs(nr)>PETSC_MACHINE_EPSILON,PETSC_COMM_SELF,PETSC_ERR_CONV_FAILED,"Linear dependency detected"); |
| 612 |
6/6✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 8 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 8 times.
✓ Branch 5 taken 8 times.
|
120 | if (PetscAbs(nr) > 0.7*PetscAbs(nr_o)) break; |
| 613 | 48 | nr_o = nr; | |
| 614 | } | ||
| 615 |
3/4✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 8 times.
|
80 | ns_[i] = PetscSign(nr); |
| 616 | /* A[i] <- A[i]/|nr| */ | ||
| 617 |
2/2✓ Branch 0 taken 8 times.
✓ Branch 1 taken 8 times.
|
80 | nr_abs = PetscAbs(nr); |
| 618 |
10/20✓ Branch 0 taken 2 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
✓ 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 taken 2 times.
✗ Branch 15 not taken.
✗ Branch 16 not taken.
✓ Branch 17 taken 2 times.
✗ Branch 18 not taken.
✗ Branch 19 not taken.
|
80 | PetscCallBLAS("LAPACKlascl",LAPACKlascl_("G",&zero,&zero,&nr_abs,&done,&rA_,&one,A+i*ld,&ld_,&info)); |
| 619 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
80 | SlepcCheckLapackInfo("lascl",info); |
| 620 | } | ||
| 621 |
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.
|
8 | PetscCall(MatDenseRestoreArray(ds->omat[mat],&A_)); |
| 622 |
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.
|
8 | PetscCall(PetscLogEventEnd(DS_Other,ds,0,0,0)); |
| 623 |
2/4✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
|
8 | PetscCall(PetscObjectStateIncrease((PetscObject)ds)); |
| 624 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 8 times.
|
8 | if (lindcols) *lindcols = cols; |
| 625 |
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); |
| 626 | } | ||
| 627 |