| /petsc/src/mat/tests/ |
| H A D | ex219f.F90 | 7 PetscInt :: n, m, idxm(1), idxn(1), nl1, nl2, zero, one, i 15 one = 1 18 …PetscCallA(MatCreateAIJ(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, n, m, one, PETSC_NULL_INTEGE… 25 PetscCallA(MatSetValues(A, one, idxn, one, idxm, v, INSERT_VALUES, ierr)) 37 PetscCallA(MatSetValues(A, one, idxn, one, idxm, v, INSERT_VALUES, ierr)) 43 PetscCallA(MatGetValues(A, one, idxn, one, idxm, v, ierr)) 47 PetscCallA(ISCreateStride(PETSC_COMM_WORLD, nl2 - nl1, nl1, one, is, ierr)) 52 PetscCallA(MatGetValuesLocal(A, one, [zero], one, [zero], value, ierr)) 53 PetscCallA(MatGetValuesLocal(A, one, [zero], one, [zero], values, ierr)) 55 PetscCallA(MatGetValuesLocal(A, one, idxn, one, [zero], values, ierr)) [all …]
|
| H A D | ex105f.F90 | 9 PetscInt i, one, twelve, j 22 one = 1 23 PetscCallA(MatSetValuesMPIAIJ(m, one, [i], one, [i], [value], ADD_VALUES, ierr)) 26 PetscCallA(MatSetValuesMPIAIJ(m, one, [i], one, [j], [value], ADD_VALUES, ierr)) 29 PetscCallA(MatSetValuesMPIAIJ(m, one, [i], one, [j], [value], ADD_VALUES, ierr))
|
| H A D | ex209f.F90 | 12 PetscInt three, one 25 one = 1 34 …PetscCallA(MatSetValuesBlocked(A, one, idxm, one, idxm, reshape(km, [three*three]), ADD_VALUES, ie… 40 PetscCallA(MatGetValues(A, one, [j], one, [j], v, ierr))
|
| H A D | ex212f.F90 | 14 PetscInt one, zero, rend 19 one = 1 39 PetscCallA(MatCreateSeqDense(PETSC_COMM_WORLD, one, one, PETSC_NULL_SCALAR_ARRAY, C, ierr)) 40 PetscCallA(MatSetValues(C, one, [zero], one, [zero], [sone], INSERT_VALUES, ierr)) 45 PetscCallA(VecCreateSeq(PETSC_COMM_SELF, one, x, ierr)) 47 PetscCallA(VecSetValues(x, one, [zero], [sone], INSERT_VALUES, ierr))
|
| H A D | ex79f.F90 | 15 PetscInt zero, one, rend 36 one = 1 38 PetscCallA(MatGetRowIJ(Ad, one, bb, bb, n, ia, ja, done, ierr)) 46 PetscCallA(MatRestoreRowIJ(Ad, one, bb, bb, n, ia, ja, done, ierr)) 51 PetscCallA(MatGetRowIJ(Ao, one, bb, bb, n, ia, ja, done, ierr)) 60 PetscCallA(MatRestoreRowIJ(Ao, one, bb, bb, n, ia, ja, done, ierr))
|
| H A D | ex85f.F90 | 10 PetscInt i, one, twelve 25 one = 1 26 PetscCallA(MatSetValues(m, one, [i], one, [i], [value], INSERT_VALUES, ierr))
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex5f.F90 | 31 PetscInt, parameter :: one = 1 84 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 89 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 94 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 99 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 103 PetscCallA(MatSetValues(C, one, [Ii], one, [Ii], [v], ADD_VALUES, ierr)) 112 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 155 PetscCallA(VecSetValues(u, one, [iglobal], [v], INSERT_VALUES, ierr)) 237 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 242 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) [all …]
|
| H A D | ex6f.F90 | 25 PetscInt nsteps, one 34 one = 1 66 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 70 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 74 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 78 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 81 PetscCallA(MatSetValues(A, one, [II], one, [II], [v], ADD_VALUES, ierr)) 145 PetscInt count, nsteps, one 157 one = 1 177 PetscCallA(MatSetValues(A, one, [II], one, [II], [v], ADD_VALUES, ierr))
|
| H A D | ex11f.F90 | 46 PetscInt Iend, i, j, II, JJ, one 106 one = 1 113 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 117 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 121 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 125 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 129 PetscCallA(MatSetValues(A, one, [II], one, [II], [v], ADD_VALUES, ierr))
|
| H A D | ex13f90.F90 | 28 PetscInt Ntot, five, one 40 one = 1 50 PetscCall(VecCreateSeqWithArray(PETSC_COMM_SELF, one, Ntot, PETSC_NULL_SCALAR_ARRAY, b, ierr)) 85 PetscInt m, n, one 89 one = 1 115 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr)) 120 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr)) 125 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr)) 130 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr)) 133 PetscCall(MatSetValues(A, one, [II], one, [II], [v], INSERT_VALUES, ierr))
|
| H A D | ex14f.F90 | 94 PetscReal one, lambda, temp1, temp, hx, hy 97 one = 1.0 99 hx = one/(mx - 1) 100 hy = one/(my - 1) 101 temp1 = lambda/(lambda + one) 151 PetscReal two, one, lambda, hx 157 one = 1.0 160 hx = one/(mx - 1) 161 hy = one/(my - 1) 237 PetscScalar two, one, lambda [all …]
|
| H A D | ex7f.F90 | 36 PetscInt, parameter :: one = 1, five = 5 67 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 72 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 77 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 82 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 86 PetscCallA(MatSetValues(A, one, [Ii], one, [Ii], [v], ADD_VALUES, ierr))
|
| H A D | ex44f.F90 | 13 PetscInt eight, one 16 one = 1 18 …PetscCallA(DMDACreate1d(MPI_COMM_WORLD, DM_BOUNDARY_NONE, eight, one, one, PETSC_NULL_INTEGER_ARRA… 71 PetscScalar hx, one 73 one = 1.0 79 PetscCall(MatSetValue(J, i, i, one, INSERT_VALUES, ierr))
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 164 …PetscBLASInt xdesc[9], ydesc[9], x2desc[9], y2desc[9], mb, nb, lszx, lszy, zero = 0, one = 1, x… in MatMultXXXYYY_ScaLAPACK() local 172 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(xdesc, &a->M, &one, &mb, &one, &zero, &zero,… in MatMultXXXYYY_ScaLAPACK() 177 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(ydesc, &one, &a->N, &one, &nb, &zero, &zero,… in MatMultXXXYYY_ScaLAPACK() 187 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(x2desc, &a->M, &one, &a->mb, &one, &zero, &z… in MatMultXXXYYY_ScaLAPACK() 189 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(y2desc, &one, &a->N, &one, &a->nb, &zero, &z… in MatMultXXXYYY_ScaLAPACK() 193 …scCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&a->M, &one, x, &one, &one, xdesc, x2d, &one, &one,… in MatMultXXXYYY_ScaLAPACK() 196 … PetscCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&one, &a->N, y, &one, &one, ydesc, y2d, &one, &… in MatMultXXXYYY_ScaLAPACK() 199 …, &a->M, &a->N, &alpha, a->loc, &one, &one, a->desc, x2d, &one, &one, x2desc, &one, &beta, y2d, &o… in MatMultXXXYYY_ScaLAPACK() 200 …, &a->M, &a->N, &alpha, a->loc, &one, &one, a->desc, x2d, &one, &one, x2desc, &one, &beta, y2d, &o… in MatMultXXXYYY_ScaLAPACK() 203 …PetscCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&one, &a->N, y2d, &one, &one, y2desc, y, &one, &… in MatMultXXXYYY_ScaLAPACK() [all …]
|
| /petsc/src/snes/tests/ |
| H A D | ex21f.F90 | 50 PetscInt one, zero, two 54 one = 1 58 val = 2.0; PetscCallA(MatSetValues(user%A, one, [zero], one, [zero], [val], INSERT_VALUES, ierr)) 59 val = -1.0; PetscCallA(MatSetValues(user%A, one, [zero], one, [one], [val], INSERT_VALUES, ierr)) 60 val = -1.0; PetscCallA(MatSetValues(user%A, one, [one], one, [zero], [val], INSERT_VALUES, ierr)) 61 val = 1.0; PetscCallA(MatSetValues(user%A, one, [one], one, [one], [val], INSERT_VALUES, ierr))
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex8f.F90 | 41 PetscInt i, j, jj, ii, one, zero 55 one = 1 91 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 95 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 99 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 103 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr)) 106 PetscCallA(MatSetValues(A, one, [II], one, [II], [v], ADD_VALUES, ierr)) 143 PetscCallA(PCMGSetLevels(pc, one, PETSC_NULL_MPI_COMM, ierr))
|
| /petsc/src/ts/tutorials/output/ |
| H A D | ex20adj_3.out | 32 Forward and reverse one step 35 Forward and reverse one step 39 Forward and reverse one step 42 Forward and reverse one step 46 Forward and reverse one step 49 Forward and reverse one step 53 Forward and reverse one step 56 Forward and reverse one step 68 Forward and reverse one step 71 Forward and reverse one step [all …]
|
| H A D | ex20adj_4.out | 33 Forward and reverse one step 36 Forward and reverse one step 42 Forward and reverse one step 45 Forward and reverse one step 51 Forward and reverse one step 54 Forward and reverse one step 60 Forward and reverse one step 63 Forward and reverse one step 77 Forward and reverse one step 80 Forward and reverse one step [all …]
|
| /petsc/doc/overview/ |
| H A D | integrator_table.md | 17 - one-step 32 - one-step 37 - one-step 42 - one-step 47 - one-step 52 - one-step 62 - one-step
|
| /petsc/src/mat/tutorials/ |
| H A D | ex17f.F90 | 20 PetscInt, parameter :: zero = 0, one = 1, two = 2, three = 3 49 PetscCallA(MatSeqBAIJSetPreallocation(A, one, three, PETSC_NULL_INTEGER_ARRAY, ierr)) 50 …PetscCallA(MatMPIBAIJSetPreallocation(A, one, three, PETSC_NULL_INTEGER_ARRAY, two, PETSC_NULL_INT… 51 PetscCallA(MatSeqSBAIJSetPreallocation(A, one, two, PETSC_NULL_INTEGER_ARRAY, ierr)) 52 …PetscCallA(MatMPISBAIJSetPreallocation(A, one, two, PETSC_NULL_INTEGER_ARRAY, one, PETSC_NULL_INTE… 63 PetscCallA(MatSetValues(A, one, [i], three, cols, vals, INSERT_VALUES, ierr))
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex52f.F90 | 11 PetscInt m, n, one, row, col 32 one = 1 33 PetscCallA(MatSetValues(A, one, [row], one, [col], [two], INSERT_VALUES, ierr)) 37 PetscCallA(MatSetValues(A, one, [row], one, [col], [zero], INSERT_VALUES, ierr))
|
| /petsc/src/snes/tutorials/ |
| H A D | ex5f.F90 | 119 PetscReal temp1, temp, one, hx, hy 124 one = 1.0 125 hx = one/((real(mx) - 1)) 126 hy = one/((real(my) - 1)) 127 temp1 = lambda/(lambda + one) 169 PetscScalar two, one, hx, hy 181 one = 1.0 183 hx = one/(real(mx) - 1) 184 hy = one/(real(my) - 1) 257 PetscScalar two, one, hx, hy, v(5) [all …]
|
| /petsc/src/binding/petsc4py/demo/legacy/wrap-f2py/ |
| H A D | Bratu2D.F90 | 64 PetscReal hx, hy, temp, temp1, one 66 one = 1.0 67 hx = one/(dble(grd%mx - 1)) 68 hy = one/(dble(grd%my - 1)) 69 temp1 = lambda/(lambda + one) 96 PetscReal hx, hy, hxdhy, hydhx, sc, one, two 99 one = 1.0 101 hx = one/dble(grd%mx - 1) 102 hy = one/dble(grd%my - 1) 135 PetscReal hx, hy, hxdhy, hydhx, sc, v(5), one, two [all …]
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex2f.F90 | 21 PetscScalar one, value(1) 24 one = 1.0 38 PetscCallA(VecSet(x, one, ierr)) 53 PetscCallA(VecSetValues(x, ione, [i], [one], ADD_VALUES, ierr))
|
| /petsc/src/vec/is/ao/tests/ |
| H A D | ex4f.F90 | 14 PetscInt one, zero 17 one = 1 41 PetscCallA(ISCreateStride(PETSC_COMM_WORLD, one, zero, one, is, ierr))
|