Searched refs:ki (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex6.c | 46 PetscInt ki, kj, o = 0; in LoadData2D() local
53 for (ki = 0; ki <= user->k[f]; ++ki) { in LoadData2D()
54 … < user->Nc[f]; ++c) closure[o++] = ((kj + joff) * (Ni * user->k[f] + 1) + ki + ioff) * user->Nc[f… in LoadData2D()
75 PetscInt ki, kj, kk, o = 0; in LoadData3D() local
83 for (ki = 0; ki <= user->k[f]; ++ki) { in LoadData3D()
84 …(kk + koff) * (Nj * user->k[f] + 1) + kj + joff) * (Ni * user->k[f] + 1) + ki + ioff) * user->Nc[f… in LoadData3D()
127 PetscInt closureSize, ki, kj, f, c, foff = 0; in ReadData2D() local
134 for (ki = 0; ki <= user->k[f]; ++ki) { in ReadData2D()
135 if (ki > 0) PetscCall(PetscPrintf(PETSC_COMM_SELF, " ")); in ReadData2D()
138 …COMM_SELF, "%2.0f", (double)PetscRealPart(closure[(kj * (user->k[f] + 1) + ki) * user->Nc[f] + c +… in ReadData2D()
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 29 PetscInt ki, kj, nel, ll, j1, i1, ndf, f4
65 ki = 2
66 …cOptionsGetRealArray(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-blob_center', blb, ki, flg, ierr))
70 else if (ki /= 2) then
71 print *, 'error: ', ki, ' arguments read for -blob_center. Needs to be two.'
133 do ki = 1, nel
134 ss(i1, j1) = ss(i1, j1) + a1*shp(1, ki) + a2*shp(2, ki)
146 do ki = 1, 4, 1
148 if (ki < 3 .or. kj < 3) then
149 if (ki == kj) then
[all …]
|