| /petsc/src/mat/tests/output/ |
| H A D | ex26_1.out | 35 CSR for seqaij: shift 0 symmetric 1 compressed 1 46 CSR for seqbaij: shift 0 symmetric 1 compressed 1 57 CSR for seqsbaij: shift 0 symmetric 1 compressed 1 68 CSR for seqaij: shift 0 symmetric 1 compressed 0 79 CSR for seqbaij: shift 0 symmetric 1 compressed 0 90 CSR for seqsbaij: shift 0 symmetric 1 compressed 0 101 CSR for seqaij: shift 0 symmetric 0 compressed 1 112 CSR for seqbaij: shift 0 symmetric 0 compressed 1 123 CSR for seqsbaij: shift 0 symmetric 0 compressed 1 134 CSR for seqaij: shift 0 symmetric 0 compressed 0 [all …]
|
| H A D | ex26_2.out | 56 CSR for seqaij: shift 0 symmetric 1 compressed 1 74 CSR for seqbaij: shift 0 symmetric 1 compressed 1 84 CSR for seqsbaij: shift 0 symmetric 1 compressed 1 94 CSR for seqaij: shift 0 symmetric 1 compressed 0 112 CSR for seqbaij: shift 0 symmetric 1 compressed 0 130 CSR for seqsbaij: shift 0 symmetric 1 compressed 0 148 CSR for seqaij: shift 0 symmetric 0 compressed 1 166 CSR for seqbaij: shift 0 symmetric 0 compressed 1 176 CSR for seqsbaij: shift 0 symmetric 0 compressed 1 186 CSR for seqaij: shift 0 symmetric 0 compressed 0 [all …]
|
| H A D | ex140_1.out | 19 Pass: shift 47 Pass: shift 76 Pass: shift 104 Pass: shift 133 Pass: shift 161 Pass: shift 190 Pass: shift 218 Pass: shift 247 Pass: shift 275 Pass: shift [all …]
|
| /petsc/src/sys/ftn-custom/ |
| H A D | zutils.c | 99 PetscInt shift; in PetscScalarAddressToFortran() local 106 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) … in PetscScalarAddressToFortran() 110 shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar))); in PetscScalarAddressToFortran() 120 shift = 0; in PetscScalarAddressToFortran() 123 if (shift) { in PetscScalarAddressToFortran() 136 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) … in PetscScalarAddressToFortran() 138 shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar))); in PetscScalarAddressToFortran() 142 work = (PetscScalar *)(((char *)work) + shift); in PetscScalarAddressToFortran() 146 ((PetscInt *)addr)[0] = shift; in PetscScalarAddressToFortran() 156 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) … in PetscScalarAddressToFortran() [all …]
|
| H A D | zsys.c | 25 PETSC_EXTERN void petscoffsetfortran_(PetscScalar *x, PetscScalar *y, size_t *shift, PetscErrorCode… in petscoffsetfortran_() argument 28 *shift = y - x; in petscoffsetfortran_()
|
| /petsc/src/sys/memory/ |
| H A D | mal.c | 57 int *ptr, shift; in PetscMallocAlign() local 67 shift = (int)(((PETSC_UINTPTR_T)ptr) % PETSC_MEMALIGN); in PetscMallocAlign() 68 shift = (2 * PETSC_MEMALIGN - shift) / sizeof(int); in PetscMallocAlign() 69 ptr[shift - 1] = shift + SHIFT_CLASSID; in PetscMallocAlign() 70 ptr += shift; in PetscMallocAlign() 91 const int shift = *((int *)ptr - 1) - SHIFT_CLASSID; in PetscFreeAlign() local 93 …PetscCheck(shift <= PETSC_MEMALIGN - 1, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Likely memory corruption… in PetscFreeAlign() 94 PetscCheck(shift >= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Likely memory corruption in heap"); in PetscFreeAlign() 95 ptr = (void *)((int *)ptr - shift); in PetscFreeAlign() 125 int shift = *(((int *)*result) - 1) - SHIFT_CLASSID; in PetscReallocAlign() local [all …]
|
| /petsc/src/dm/tests/ |
| H A D | ex50.c | 55 PetscScalar shift[3], *cptr; in test_3d() local 96 shift[0] = t[0]; in test_3d() 97 shift[1] = t[1]; in test_3d() 98 shift[2] = t[2]; in test_3d() 101 shift[0] = _coords[k][j][i].x; in test_3d() 102 shift[1] = _coords[k][j][i].y; in test_3d() 103 shift[2] = _coords[k][j][i].z; in test_3d() 114 cptr[0] += shift[0]; in test_3d() 115 cptr[1] += shift[1]; in test_3d() 116 cptr[2] += shift[2]; in test_3d()
|
| /petsc/src/mat/tests/ |
| H A D | ex26.c | 5 PetscErrorCode DumpCSR(Mat A, PetscInt shift, PetscBool symmetric, PetscBool compressed) in DumpCSR() argument 17 PetscCall(MatGetRowIJ(A, shift, symmetric, compressed, &nr, &ia, &ja, &done)); in DumpCSR() 19 …_FMT " symmetric %" PetscInt_FMT " compressed %" PetscInt_FMT "\n", type, shift, (PetscInt)symmetr… in DumpCSR() 21 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT ":", i + shift)); in DumpCSR() 22 …[i]; j < ia[i + 1]; j++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %" PetscInt_FMT, ja[j - shift])); in DumpCSR() 25 PetscCall(MatRestoreRowIJ(A, shift, symmetric, compressed, &nr, &ia, &ja, &done)); in DumpCSR() 109 PetscInt shift = i; in main() local 114 PetscCall(DumpCSR(A, shift, symmetric, compressed)); in main() 115 PetscCall(DumpCSR(B, shift, symmetric, compressed)); in main() 116 PetscCall(DumpCSR(C, shift, symmetric, compressed)); in main()
|
| H A D | ex78.c | 43 PetscInt i, col, row, shift = 1, sizes[3], nsizes; in main() local 59 if (flg) shift = 0; in main() 83 row -= shift; in main() 84 col -= shift; /* set index set starts at 0 */ in main()
|
| /petsc/src/sys/classes/random/impls/random123/ |
| H A D | random123.c | 44 PetscReal shift = .5 * scale; in PetscRandom123Step() local 48 ret = r123->result.v[mod] * scale + shift; in PetscRandom123Step() 105 PetscReal shift = .5 * scale; in PetscRandomGetValuesReal_Random123() local 119 shift *= PetscRealPart(r->width); in PetscRandomGetValuesReal_Random123() 120 shift += PetscRealPart(r->low); in PetscRandomGetValuesReal_Random123() 124 vals[0] = r123_copy.result.v[0] * scale + shift; in PetscRandomGetValuesReal_Random123() 125 vals[1] = r123_copy.result.v[1] * scale + shift; in PetscRandomGetValuesReal_Random123() 126 vals[2] = r123_copy.result.v[2] * scale + shift; in PetscRandomGetValuesReal_Random123() 127 vals[3] = r123_copy.result.v[3] * scale + shift; in PetscRandomGetValuesReal_Random123()
|
| /petsc/src/mat/impls/sell/seq/ |
| H A D | sell.c | 207 PetscInt shift; in MatGetRow_SeqSELL() local 212 shift = a->sliidx[row / a->sliceheight] + (row % a->sliceheight); in MatGetRow_SeqSELL() 216 for (j = 0; j < a->rlen[row]; j++) a->getrowcols[j] = a->colidx[shift + a->sliceheight * j]; in MatGetRow_SeqSELL() 221 for (j = 0; j < a->rlen[row]; j++) a->getrowvals[j] = a->val[shift + a->sliceheight * j]; in MatGetRow_SeqSELL() 781 PetscInt shift; in MatGetDiagonalMarkers_SeqSELL() local 788 … shift = a->sliidx[i / a->sliceheight] + i % a->sliceheight; /* starting index of the row i */ in MatGetDiagonalMarkers_SeqSELL() 790 if (a->colidx[shift + a->sliceheight * j] == i) { in MatGetDiagonalMarkers_SeqSELL() 791 a->diag[i] = shift + a->sliceheight * j; in MatGetDiagonalMarkers_SeqSELL() 809 … shift = a->sliidx[i / a->sliceheight] + i % a->sliceheight; /* starting index of the row i */ in MatGetDiagonalMarkers_SeqSELL() 812 if (a->colidx[shift + a->sliceheight * j] == i) { in MatGetDiagonalMarkers_SeqSELL() [all …]
|
| /petsc/src/ksp/ksp/impls/gmres/pipefgmres/ |
| H A D | pipefgmres.c | 52 PetscScalar *hh, *hes, *lhh, shift = pipefgmres->shift; in KSPPIPEFGMRESCycle() local 111 PetscCall(VecAXPY(ZVEC(loc_it), -shift, VEC_VV(loc_it))); /* Note shift */ in KSPPIPEFGMRESCycle() 176 hh[loc_it] = lhh[loc_it] + shift; in KSPPIPEFGMRESCycle() 177 hes[loc_it] = lhh[loc_it] + shift; in KSPPIPEFGMRESCycle() 218 lhh[loc_it] -= shift; in KSPPIPEFGMRESCycle() 471 PetscScalar shift; in KSPSetFromOptions_PIPEFGMRES() local 476 …p_pipefgmres_shift", "shift parameter", "KSPPIPEFGMRESSetShift", pipefgmres->shift, &shift, &flg)); in KSPSetFromOptions_PIPEFGMRES() 477 if (flg) PetscCall(KSPPIPEFGMRESSetShift(ksp, shift)); in KSPSetFromOptions_PIPEFGMRES() 495 …hift=%g+%gi\n", (double)PetscRealPart(pipefgmres->shift), (double)PetscImaginaryPart(pipefgmres->s… in KSPView_PIPEFGMRES() 497 PetscCall(PetscViewerASCIIPrintf(viewer, " shift=%g\n", (double)pipefgmres->shift)); in KSPView_PIPEFGMRES() [all …]
|
| /petsc/share/petsc/saws/js/ |
| H A D | drawDiagrams.js | 105 var shift = j*inc; 106 var top_shift = shift + 141; 107 …ret += "<line x1=\""+(x+shift)+"\" y1=\""+(y+141+global_downshift)+"\" x2=\""+(x+top_shift)+"\" y2… 114 var shift = 141 - inc * j; 115 …e x1=\""+(x+horiz_shift)+"\" y1=\""+(y+shift+global_downshift) +"\" x2=\""+(x+horiz_shift_end)+"\"…
|
| /petsc/src/ts/impls/implicit/theta/ |
| H A D | theta.c | 16 PetscReal shift; /* Shift parameter for SNES Jacobian, used by forward, TLM and adjoint */ member 212 th->shift = 1 / (th->Theta * ts->time_step); in TSStep_Theta() 215 if (th->extrapolate && !ts->steprestart) PetscCall(VecAXPY(th->X, 1 / th->shift, th->Xdot)); in TSStep_Theta() 231 …PetscCall(VecAXPBYPCZ(th->Xdot, -th->shift, th->shift, 0, th->X0, th->X)); /* th->Xdot is needed b… in TSStep_Theta() 319 th->shift = 1. / adjoint_time_step; in TSAdjointStepBEuler_Private() 362 th->shift = 0.0; in TSAdjointStepBEuler_Private() 474 th->shift = 1. / (th->Theta * adjoint_time_step); in TSAdjointStep_Theta() 507 PetscCall(VecScale(VecsSensi2Temp[nadj], th->shift)); in TSAdjointStep_Theta() 525 th->shift = 1. / ((th->Theta - 1.) * adjoint_time_step); in TSAdjointStep_Theta() 540 PetscCall(VecScale(ts->vecs_sensi[nadj], 1. / th->shift)); in TSAdjointStep_Theta() [all …]
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | dgefa5.c | 14 …gets_inverse_A_5(MatScalar *a, PetscInt *ipvt, MatScalar *work, PetscReal shift, PetscBool allowze… in PetscKernel_A_gets_inverse_A_5() argument 23 …shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[6]) + PetscAbsScalar(a[12]… in PetscKernel_A_gets_inverse_A_5() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_5() 55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_5()
|
| H A D | dgefa3.c | 14 PetscErrorCode PetscKernel_A_gets_inverse_A_3(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_3() argument 23 …shift = .333 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[4]) + PetscAbsScalar(a[8]… in PetscKernel_A_gets_inverse_A_3() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_3() 55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_3()
|
| H A D | dgefa4.c | 14 PetscErrorCode PetscKernel_A_gets_inverse_A_4(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_4() argument 23 …shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[5]) + PetscAbsScalar(a[10]… in PetscKernel_A_gets_inverse_A_4() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_4() 55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_4()
|
| H A D | dgefa6.c | 14 PetscErrorCode PetscKernel_A_gets_inverse_A_6(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_6() argument 23 …shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[7]) + PetscAbsScalar(a[14]… in PetscKernel_A_gets_inverse_A_6() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_6() 55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_6()
|
| H A D | dgefa7.c | 14 PetscErrorCode PetscKernel_A_gets_inverse_A_7(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_7() argument 23 …shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[8]) + PetscAbsScalar(a[16]… in PetscKernel_A_gets_inverse_A_7() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_7() 55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_7()
|
| H A D | dgefa2.c | 14 PetscErrorCode PetscKernel_A_gets_inverse_A_2(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_2() argument 23 shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[3])); in PetscKernel_A_gets_inverse_A_2() 49 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_2() 54 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_2() 146 PetscErrorCode PetscKernel_A_gets_inverse_A_9(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_9() argument 180 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_9() 185 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_9() 317 …ets_inverse_A_15(MatScalar *a, PetscInt *ipvt, MatScalar *work, PetscReal shift, PetscBool allowze… in PetscKernel_A_gets_inverse_A_15() argument 351 if (shift == 0.0) { in PetscKernel_A_gets_inverse_A_15() 356 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_15()
|
| /petsc/src/sys/classes/viewer/impls/string/ |
| H A D | stringv.c | 40 size_t shift, cshift; in PetscViewerStringSPrintf() local 55 PetscCall(PetscStrlen(tmp, &shift)); in PetscViewerStringSPrintf() 56 cshift = shift + 1; in PetscViewerStringSPrintf() 60 vstr->head += shift; in PetscViewerStringSPrintf() 61 vstr->curlen += shift; in PetscViewerStringSPrintf()
|
| /petsc/src/ts/tests/ |
| H A D | ex24.c | 190 PetscReal t = 0, shift, norm; in main() local 236 shift = 2.; in main() 237 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac2, Jac2, PETSC_FALSE)); in main() 238 shift = 1.; in main() 239 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac, Jac, PETSC_FALSE)); in main() 240 shift = 2.; in main() 241 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac, Jac, PETSC_FALSE)); in main()
|
| /petsc/src/vec/vec/impls/shared/ |
| H A D | shvec.c | 106 PetscInt shift; in PetscSharedMalloc() local 114 PetscCallMPI(MPI_Scan(&llen, &shift, 1, MPI_INT, MPI_SUM, comm)); in PetscSharedMalloc() 115 shift -= llen; in PetscSharedMalloc() 136 *result = (void *)(value + shift); in PetscSharedMalloc()
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex53.c | 5 static PetscErrorCode CheckVecShift(Vec v, PetscInt n, PetscScalar *array_copy, PetscScalar shift) in CheckVecShift() argument 10 for (PetscInt i = 0; i < n; ++i) array_copy[i] += shift; in CheckVecShift() 11 PetscCall(VecShift(v, shift)); in CheckVecShift()
|
| /petsc/src/mat/impls/normal/ |
| H A D | normmh.c | 14 PetscScalar shift, scale; in MatCreateSubMatrices_NormalHermitian() local 19 …PetscCall(MatShellGetScalingShifts(mat, &shift, &scale, (Vec *)MAT_SHELL_NOT_ALLOWED, (Vec *)MAT_S… in MatCreateSubMatrices_NormalHermitian() 31 PetscCall(MatShift((*submat)[M], shift)); in MatCreateSubMatrices_NormalHermitian() 45 PetscScalar shift, scale; in MatPermute_NormalHermitian() local 49 …PetscCall(MatShellGetScalingShifts(A, &shift, &scale, (Vec *)MAT_SHELL_NOT_ALLOWED, (Vec *)MAT_SHE… in MatPermute_NormalHermitian() 58 PetscCall(MatShift(*B, shift)); in MatPermute_NormalHermitian() 209 PetscScalar scale, shift; in MatConvert_NormalHermitian_AIJ() local 214 …PetscCall(MatShellGetScalingShifts(A, &shift, &scale, &dshift, &left, &right, (Mat *)MAT_SHELL_NOT… in MatConvert_NormalHermitian_AIJ() 239 PetscCall(MatShift(*newmat, shift)); in MatConvert_NormalHermitian_AIJ()
|