| /petsc/src/mat/tests/ |
| H A D | ex183.c | 7 PetscErrorCode MyISView(IS *rowis, IS *colis, PetscInt gs, PetscInt ss, PetscViewer viewer) in MyISView() argument
12 …PetscCheck(ss <= 1, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "ss must be less than or equal to 1… in MyISView()
14 …PetscCall(PetscViewerGetSubViewer(viewer, ss > -1 ? PetscObjectComm((PetscObject)rowis[ss]) : PETS… in MyISView()
15 if (ss > -1) PetscCall(ISView(rowis[ss], subviewer)); in MyISView()
16 …PetscCall(PetscViewerRestoreSubViewer(viewer, ss > -1 ? PetscObjectComm((PetscObject)rowis[ss]) : … in MyISView()
18 …PetscCall(PetscViewerGetSubViewer(viewer, ss > -1 ? PetscObjectComm((PetscObject)rowis[ss]) : PETS… in MyISView()
19 if (ss > -1) PetscCall(ISView(colis[ss], subviewer)); in MyISView()
20 …PetscCall(PetscViewerRestoreSubViewer(viewer, ss > -1 ? PetscObjectComm((PetscObject)rowis[ss]) : … in MyISView()
128 PetscInt ss; in main() local
130 ss = gsubdomainperm[s]; in main()
[all …]
|
| /petsc/src/ksp/ksp/impls/cg/ |
| H A D | cgls.c | 30 Vec x, b, r, p, q, ss; in KSPSolve_CGLS() local
40 ss = cgls->vwork_n[1]; in KSPSolve_CGLS()
53 PetscCall(VecCopy(p, ss)); /* s_0 = p_0 */ in KSPSolve_CGLS()
54 PetscCall(VecNorm(ss, NORM_2, &gamma)); in KSPSolve_CGLS()
69 PetscCall(KSP_MatMultHermitianTranspose(ksp, A, r, ss)); /* ss = A^T * r */ in KSPSolve_CGLS()
71 PetscCall(VecNorm(ss, NORM_2, &gamma)); in KSPSolve_CGLS()
80 PetscCall(VecAYPX(p, beta, ss)); /* p = s + beta * p */ in KSPSolve_CGLS()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 34 PetscScalar::ss(4, 4), val
120 ss = 0.0
134 ss(i1, j1) = ss(i1, j1) + a1*shp(1, ki) + a2*shp(2, ki)
144 PetscCallA(MatSetValues(Amat, f4, idx, f4, idx, reshape(ss, [f4*f4]), ADD_VALUES, ierr))
150 ss(ki, kj) = .1*ss(ki, kj)
152 ss(ki, kj) = 0.0
157 PetscCallA(MatSetValues(Amat, f4, idx, f4, idx, reshape(ss, [f4*f4]), ADD_VALUES, ierr))
|
| /petsc/src/tao/leastsquares/tutorials/matlab/more_wild_probs/ |
| H A D | dfoxs.m | 110 ss = 0; variable
112 ss = ss+(sqrt(i/j)*((sin(log(sqrt(i/j))))^5+(cos(log(sqrt(i/j))))^5)); variable
114 x(i) = -8.710996D-4*((i-50)^3 + ss);
|
| H A D | dfovec.m | 245 ss=0;
248 ss = ss+v2*((sin(log(v2)))^5 + (cos(log(v2)))^5); variable
250 fvec(i)=1400*x(i) + (i-50)^3 + ss;
|
| H A D | g_dfovec_1d.m | 750 ss= 0; variable
751 g_ss= zeros(size(ss));
777 tmp_dfovec_1d_00201= ss+ tmp_dfovec_1d_00127;
778 % Update detected: ss= some_expression(ss,...)
780 ss= tmp_dfovec_1d_00201; variable
789 fvec(i)= tmp_dfovec_1d_00128+ tmp_dfovec_1d_00130+ ss;
|
| /petsc/src/ksp/ksp/impls/gmres/pgmres/ |
| H A D | pgmres.c | 238 PetscScalar *hh, *cc, *ss, *rs; in KSPPGMRESUpdateHessenberg() local
246 ss = SS(0); /* beginning of sine rotations */ in KSPPGMRESUpdateHessenberg()
265 hh[j] = PetscConj(cc[j]) * hhj + ss[j] * hh[j + 1]; in KSPPGMRESUpdateHessenberg()
266 hh[j + 1] = -ss[j] * hhj + cc[j] * hh[j + 1]; in KSPPGMRESUpdateHessenberg()
289 ss[it] = hh[it + 1] / delta; /* new sine value */ in KSPPGMRESUpdateHessenberg()
291 hh[it] = PetscConj(cc[it]) * hh[it] + ss[it] * hh[it + 1]; in KSPPGMRESUpdateHessenberg()
292 rs[it + 1] = -ss[it] * rs[it]; in KSPPGMRESUpdateHessenberg()
|
| /petsc/src/ksp/ksp/impls/gmres/fgmres/ |
| H A D | fgmres.c | 304 PetscScalar *hh, *cc, *ss, tt; in KSPFGMRESUpdateHessenberg() local
312 ss = SS(0); /* beginning of sine rotations */ in KSPFGMRESUpdateHessenberg()
321 *hh = PetscConj(*cc) * tt + *ss * *(hh + 1); in KSPFGMRESUpdateHessenberg()
323 *hh = *cc++ * *hh - (*ss++ * tt); in KSPFGMRESUpdateHessenberg()
347 *ss = *(hh + 1) / tt; /* new sine value */ in KSPFGMRESUpdateHessenberg()
350 *RS(it + 1) = -(*ss * *RS(it)); in KSPFGMRESUpdateHessenberg()
352 *hh = PetscConj(*cc) * *hh + *ss * *(hh + 1); in KSPFGMRESUpdateHessenberg()
|
| /petsc/src/ksp/ksp/impls/gmres/lgmres/ |
| H A D | lgmres.c | 441 PetscScalar *hh, *cc, *ss, tt; in KSPLGMRESUpdateHessenberg() local
448 ss = SS(0); /* beginning of sine rotations */ in KSPLGMRESUpdateHessenberg()
456 *hh = PetscConj(*cc) * tt + *ss * *(hh + 1); in KSPLGMRESUpdateHessenberg()
458 *hh = *cc++ * *hh - (*ss++ * tt); in KSPLGMRESUpdateHessenberg()
481 *ss = *(hh + 1) / tt; /* new sine value */ in KSPLGMRESUpdateHessenberg()
484 *GRS(it + 1) = -(*ss * *GRS(it)); in KSPLGMRESUpdateHessenberg()
486 *hh = PetscConj(*cc) * *hh + *ss * *(hh + 1); in KSPLGMRESUpdateHessenberg()
|
| /petsc/src/ksp/ksp/impls/gmres/pipefgmres/ |
| H A D | pipefgmres.c | 380 PetscScalar *hh, *cc, *ss, *rs; in KSPPIPEFGMRESUpdateHessenberg() local
388 ss = SS(0); /* beginning of sine rotations */ in KSPPIPEFGMRESUpdateHessenberg()
407 hh[j] = PetscConj(cc[j]) * hhj + ss[j] * hh[j + 1]; in KSPPIPEFGMRESUpdateHessenberg()
408 hh[j + 1] = -ss[j] * hhj + cc[j] * hh[j + 1]; in KSPPIPEFGMRESUpdateHessenberg()
431 ss[it] = hh[it + 1] / delta; /* new sine value */ in KSPPIPEFGMRESUpdateHessenberg()
433 hh[it] = PetscConj(cc[it]) * hh[it] + ss[it] * hh[it + 1]; in KSPPIPEFGMRESUpdateHessenberg()
434 rs[it + 1] = -ss[it] * rs[it]; in KSPPIPEFGMRESUpdateHessenberg()
|
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmres.c | 349 PetscScalar *hh, *cc, *ss, tt; in KSPGMRESUpdateHessenberg() local
356 ss = SS(0); in KSPGMRESUpdateHessenberg()
362 *hh = PetscConj(*cc) * tt + *ss * *(hh + 1); in KSPGMRESUpdateHessenberg()
364 *hh = *cc++ * *hh - (*ss++ * tt); in KSPGMRESUpdateHessenberg()
381 *ss = *(hh + 1) / tt; in KSPGMRESUpdateHessenberg()
382 *GRS(it + 1) = -(*ss * *GRS(it)); in KSPGMRESUpdateHessenberg()
384 *hh = PetscConj(*cc) * *hh + *ss * *(hh + 1); in KSPGMRESUpdateHessenberg()
|
| /petsc/src/ts/tutorials/phasefield/ |
| H A D | biharmonictest.m | 8 …-snes_vi_monitor -ksp_monitor_true_residual -snes_max_it 250 -snes_vi_type ss -snes_linesearch_min…
|
| /petsc/src/ts/impls/implicit/glle/ |
| H A D | glle.c | 130 PetscInt i, j, k, ss = s + 2; in TSGLLESchemeCreate() local
137 …PetscCall(PetscMalloc7(PetscSqr(r), &ImV, 3 * s, &H, 3 * ss, &bmat, lwork, &workscalar, 5 * (3 + r… in TSGLLESchemeCreate()
225 bmat[0 + 0 * ss] = 1.; in TSGLLESchemeCreate()
226 bmat[0 + 1 * ss] = 0.; in TSGLLESchemeCreate()
227 bmat[0 + 2 * ss] = 0.; in TSGLLESchemeCreate()
228 bmat[1 + 0 * ss] = 1.; in TSGLLESchemeCreate()
229 bmat[1 + 1 * ss] = 1.; in TSGLLESchemeCreate()
230 bmat[1 + 2 * ss] = 0.; in TSGLLESchemeCreate()
231 bmat[2 + 0 * ss] = 0.; in TSGLLESchemeCreate()
232 bmat[2 + 1 * ss] = 0.; in TSGLLESchemeCreate()
[all …]
|
| /petsc/src/sys/classes/viewer/impls/socket/ |
| H A D | send.c | 183 static PetscErrorCode PetscSocketEstablish(int portnum, int *ss) argument
222 *ss = s;
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex8.c | 289 const PetscReal cs = PetscCosReal(psi), ss = PetscSinReal(psi); in CheckCell() local
291 R[1] = sp * st * cs - cp * ss; in CheckCell()
292 R[2] = sp * ss + cp * st * cs; in CheckCell()
293 R[3] = ct * ss; in CheckCell()
294 R[4] = cp * cs + sp * st * ss; in CheckCell()
295 R[5] = cp * st * ss - sp * cs; in CheckCell()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 366 PetscScalar *hh, *cc, *ss, tt; in KSPDGMRESUpdateHessenberg() local
373 ss = SS(0); in KSPDGMRESUpdateHessenberg()
379 *hh = PetscConj(*cc) * tt + *ss * *(hh + 1); in KSPDGMRESUpdateHessenberg()
381 *hh = *cc++ * *hh - (*ss++ * tt); in KSPDGMRESUpdateHessenberg()
397 *ss = *(hh + 1) / tt; in KSPDGMRESUpdateHessenberg()
398 *GRS(it + 1) = -(*ss * *GRS(it)); in KSPDGMRESUpdateHessenberg()
400 *hh = PetscConj(*cc) * *hh + *ss * *(hh + 1); in KSPDGMRESUpdateHessenberg()
|
| /petsc/config/BuildSystem/config/ |
| H A D | framework.py | 857 ss = ('VERSION_MAJOR','VERSION_MINOR','VERSION_SUBMINOR')
860 f.write('#define '+prefix+ss[t]+(' ')+str(vt[t])+'\n')
863 f.write('#define '+prefix+ss[t]+(' 0\n'))
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 4779 (species/stiff-chem-dt-ss-user? #t)
4780 (stiff-chem-dt-ss 1e-05)
6071 (structure/nci-fsi-ss? #f)
7345 (mda/cht/ss/pseudo-time-method-limit/imp-dbns 0)
7346 (mda/cht/ss/pseudo-time-method-limit/seg-pbns 2)
7347 (mda/cht/ss/pseudo-time-method-limit/cpld-pbns 2)
|