| /petsc/src/sys/tutorials/ |
| H A D | ex3f90.F90 | 48 PetscCallA(PetscInitialize(ierr)) 69 PetscCallA(PetscLogEventRegister('Morning', classid, Morning, ierr)) 70 PetscCallA(PetscLogEventRegister('Afternoon', classid, Afternoon, ierr)) 71 PetscCallA(PetscLogEventRegister('Play Ball', classid, PlayBall, ierr)) 72 PetscCallA(PetscLogEventRegister('Skip Rope', classid, SkipRope, ierr)) 73 PetscCallA(PetscLogEventRegister('Tidy Classroom', classid, TidyClass, ierr)) 74 PetscCallA(PetscLogEventRegister('Lessons', classid, Lessons, ierr)) 75 PetscCallA(PetscLogEventRegister('Correct Homework', classid, CorrectHomework, ierr)) 81 PetscCallA(PetscLogEventBegin(Morning, ierr)) 83 PetscCallA(PetscLogFlops(190000d0, ierr)) [all …]
|
| H A D | ex3f.F90 | 37 PetscCallA(PetscInitialize(ierr)) 48 PetscCallA(PetscLogEventRegister('Event 1', classid, USER_EVENT1, ierr)) 49 PetscCallA(PetscLogEventRegister('Event 2', classid, USER_EVENT2, ierr)) 50 PetscCallA(PetscLogEventRegister('Event 3', classid, USER_EVENT3, ierr)) 51 PetscCallA(PetscLogEventRegister('Event 4', classid, USER_EVENT4, ierr)) 52 PetscCallA(PetscLogEventRegister('Event 5', classid, USER_EVENT5, ierr)) 53 PetscCallA(PetscLogEventRegister('Event 6', classid, USER_EVENT6, ierr)) 54 PetscCallA(PetscLogEventRegister('Event 7', classid, USER_EVENT7, ierr)) 55 PetscCallA(PetscLogEventRegister('Event 8', classid, USER_EVENT8, ierr)) 56 PetscCallA(PetscLogEventRegister('Event 9', classid, USER_EVENT9, ierr)) [all …]
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex26f90.F90 | 98 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 106 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, i… 108 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-o', ofilename, flg, i… 110 …PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-order', order, flg, ierr… 117 …PetscCallA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm,… 118 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr)) 119 PetscCallA(DMSetFromOptions(dm, ierr)) 120 PetscCallA(DMGetDimension(dm, sdim, ierr)) 121 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr)) 126 PetscCallA(exopts(EXVRBS + EXDEBG, ierr)) [all …]
|
| H A D | ex62f90.F90 | 81 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 87 PetscCallA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr)) 88 PetscCallA(MPI_Comm_size(PETSC_COMM_WORLD, numProc, ierr)) 89 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, i… 91 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-o', ofilename, flg, i… 93 …PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-order', order, flg, ierr… 100 …PetscCallA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm,… 101 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr)) 102 PetscCallA(DMSetFromOptions(dm, ierr)) 103 PetscCallA(DMGetDimension(dm, sdim, ierr)) [all …]
|
| H A D | ex98f90.F90 | 24 PetscCallA(PetscInitialize(ierr)) 27 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, i… 30 …PetscCallA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm,… 31 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr)) 32 PetscCallA(DMSetFromOptions(dm, ierr)) 35 PetscCallA(DMPlexDistribute(dm, 0_kPI, PETSC_NULL_SF, pdm, ierr)) 36 PetscCallA(DMDestroy(dm, ierr)) 39 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr)) 41 PetscCallA(DMGetDimension(dm, sdim, ierr)) 42 PetscCallA(PetscObjectGetComm(dm, comm, ierr)) [all …]
|
| H A D | ex95f90.F90 | 31 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 37 …PetscCallA(PetscOptionsBegin(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, 'PetscViewer_ExodusII test', … 38 …PetscCallA(PetscOptionsString("-i", "Filename to read", "ex95f90", ifilename, ifilename, flg, ierr… 40 …PetscCallA(PetscOptionsString("-o", "Filename to write", "ex95f90", ofilename, ofilename, flg, ier… 42 PetscCallA(PetscOptionsEnd(ierr)) 45 …PetscCallA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm,… 46 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr)) 47 PetscCallA(DMSetFromOptions(dm, ierr)) 48 PetscCallA(PetscObjectSetName(dm, "ex95f90", ierr)) 49 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr)) [all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex76f.F90 | 23 PetscCallA(PetscInitialize(ierr)) 28 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-rhs', N, flg, ierr)) 30 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 32 …PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-load_dir', dir, flg, … 35 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, name, FILE_MODE_READ, viewer, ierr)) 36 PetscCallA(ISCreate(PETSC_COMM_WORLD, sizes, ierr)) 37 PetscCallA(ISLoad(sizes, viewer, ierr)) 38 PetscCallA(ISGetIndices(sizes, idx, ierr)) 39 PetscCallA(MatSetSizes(A, idx(1), idx(2), idx(3), idx(4), ierr)) 40 PetscCallA(MatCreate(PETSC_COMM_WORLD, Y, ierr)) [all …]
|
| H A D | ex5f.F90 | 33 PetscCallA(PetscInitialize(ierr)) 35 …PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-orthog', orthog, flg, ie… 36 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 43 …PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-mat_nonsym', mat_nonsym… 44 …PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-test_scaledMat', testsc… 50 PetscCallA(PetscLogStageRegister('Original Solve', stages(0), ierr)) 51 PetscCallA(PetscLogStageRegister('Second Solve', stages(1), ierr)) 56 PetscCallA(PetscLogStagePush(stages(0), ierr)) 63 PetscCallA(MatCreate(PETSC_COMM_WORLD, C, ierr)) 64 PetscCallA(MatSetSizes(C, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr)) [all …]
|
| H A D | ex2f.F90 | 35 PetscCallA(KSPBuildSolution(ksp, PETSC_NULL_VEC, x, ierr)) 36 PetscCallA(KSPMonitorTrueResidual(ksp, n, rnorm, vf, ierr)) 131 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 141 PetscCallA(PetscLogNestedBegin(ierr)) 142 PetscCallA(PetscLogEventRegister("myFirstEvent", classid, petscEventNo, ierr)) 144 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 145 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 159 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 160 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr)) 161 PetscCallA(MatSetFromOptions(A, ierr)) [all …]
|
| H A D | ex100f.F90 | 23 PetscCallA(PetscInitialize(ierr)) 24 PetscCallA(PetscPythonInitialize(PETSC_NULL_CHARACTER, PETSC_NULL_CHARACTER, ierr)) 26 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-N', N, flg, ierr)) 27 …PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-draw', draw, flg, ierr)) 29 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 30 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, N, N, ierr)) 31 PetscCallA(MatSetType(A, 'python', ierr)) 32 PetscCallA(MatPythonSetType(A, 'example100.py:Laplace1D', ierr)) 33 PetscCallA(MatPythonGetType(A, mattype, ierr)) 35 PetscCallA(MatSetUp(A, ierr)) [all …]
|
| H A D | ex52f.F90 | 33 PetscCallA(PetscInitialize(ierr)) 40 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 41 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 48 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 49 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr)) 50 PetscCallA(MatSetType(A, MATAIJ, ierr)) 51 PetscCallA(MatSetFromOptions(A, ierr)) 52 …PetscCallA(MatMPIAIJSetPreallocation(A, five, PETSC_NULL_INTEGER_ARRAY, five, PETSC_NULL_INTEGER_A… 53 PetscCallA(MatSeqAIJSetPreallocation(A, five, PETSC_NULL_INTEGER_ARRAY, ierr)) 55 PetscCallA(MatGetOwnershipRange(A, Istart, Iend, ierr)) [all …]
|
| H A D | ex7f.F90 | 38 PetscCallA(PetscInitialize(ierr)) 40 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 56 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 57 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr)) 58 PetscCallA(MatSetFromOptions(A, ierr)) 59 …PetscCallA(MatMPIAIJSetPreallocation(A, five, PETSC_NULL_INTEGER_ARRAY, five, PETSC_NULL_INTEGER_A… 60 PetscCallA(MatSeqAIJSetPreallocation(A, five, PETSC_NULL_INTEGER_ARRAY, ierr)) 61 PetscCallA(MatGetOwnershipRange(A, Istart, Iend, ierr)) 67 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) 72 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr)) [all …]
|
| H A D | ex1f.F90 | 64 PetscCallA(PetscInitialize(ierr)) 73 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 75 PetscCallA(PetscLogStageRegister('MatVec Assembly', stages(1), ierr)) 76 PetscCallA(PetscLogStageRegister('KSP Solve', stages(2), ierr)) 77 PetscCallA(PetscLogStagePush(stages(1), ierr)) 86 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 87 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, n, n, ierr)) 88 PetscCallA(MatSetFromOptions(A, ierr)) 89 PetscCallA(MatSetUp(A, ierr)) 102 PetscCallA(MatSetValues(A, i1, [i], i3, col, value, INSERT_VALUES, ierr)) [all …]
|
| H A D | ex11f.F90 | 56 PetscCallA(PetscInitialize(ierr)) 63 …PetscCallA(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-sigma1', sigma1, flg, i… 64 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 77 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 78 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, dim, dim, ierr)) 79 PetscCallA(MatSetFromOptions(A, ierr)) 80 PetscCallA(MatSetUp(A, ierr)) 86 PetscCallA(MatGetOwnershipRange(A, Istart, Iend, ierr)) 94 PetscCallA(PetscOptionsHasName(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-norandom', flg, ierr)) 100 PetscCallA(PetscRandomCreate(PETSC_COMM_WORLD, rctx, ierr)) [all …]
|
| H A D | ex57f.F90 | 35 PetscCallA(KSPBuildSolution(ksp, PETSC_NULL_VEC, x, ierr)) 44 PetscCallA(VecView(x, PETSC_VIEWER_STDOUT_WORLD, ierr)) 135 PetscCallA(PetscInitialize(ierr)) 142 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 143 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 157 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 158 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr)) 159 PetscCallA(MatSetFromOptions(A, ierr)) 160 PetscCallA(MatSetUp(A, ierr)) 166 PetscCallA(MatGetOwnershipRange(A, Istart, Iend, ierr)) [all …]
|
| /petsc/src/dm/impls/swarm/tutorials/ |
| H A D | ex1f90.F90 | 25 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 26 PetscCallA(DMCreate(PETSC_COMM_WORLD, dm, ierr)) 27 PetscCallA(DMSetType(dm, DMPLEX, ierr)) 28 PetscCallA(DMSetFromOptions(dm, ierr)) 29 PetscCallA(DMGetDimension(dm, dim, ierr)) 30 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr)) 33 …PetscCallA(PetscFECreateLagrange(PETSC_COMM_SELF, dim, Nc, PETSC_FALSE, degree, PETSC_DETERMINE, f… 34 PetscCallA(DMSetField(dm, field, PETSC_NULL_DMLABEL, PetscObjectCast(fe), ierr)) 35 PetscCallA(DMCreateDS(dm, ierr)) 36 PetscCallA(PetscFEDestroy(fe, ierr)) [all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex16f.F90 | 37 PetscCallA(PetscInitialize(ierr)) 40 PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', f, flg, ierr)) 41 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, f, FILE_MODE_READ, fd, ierr)) 43 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 44 PetscCallA(MatSetType(A, MATSEQAIJ, ierr)) 45 PetscCallA(MatLoad(A, fd, ierr)) 47 PetscCallA(VecCreate(PETSC_COMM_WORLD, b, ierr)) 48 PetscCallA(VecLoad(b, fd, ierr)) 49 PetscCallA(PetscViewerDestroy(fd, ierr)) 52 PetscCallA(VecDuplicate(b, x, ierr)) [all …]
|
| H A D | ex62f.F90 | 45 PetscCallA(PCGetOperators(pc, PETSC_NULL_MAT, pmat, ierr)) 46 PetscCallA(PCCreate(PETSC_COMM_WORLD, jacobi, ierr)) 47 PetscCallA(PCSetType(jacobi, PCJACOBI, ierr)) 48 PetscCallA(PCSetOperators(jacobi, pmat, pmat, ierr)) 49 PetscCallA(PCSetUp(jacobi, ierr)) 51 PetscCallA(PCCreate(PETSC_COMM_WORLD, sor, ierr)) 52 PetscCallA(PCSetType(sor, PCSOR, ierr)) 53 PetscCallA(PCSetOperators(sor, pmat, pmat, ierr)) 55 PetscCallA(PCSetUp(sor, ierr)) 57 PetscCallA(VecDuplicate(x, work, ierr)) [all …]
|
| /petsc/src/ts/utils/dmplexlandau/tutorials/ |
| H A D | ex1f90.F90 | 27 PetscCallA(PetscInitialize(ierr)) 33 PetscCallA(DMPlexLandauCreateVelocitySpace(PETSC_COMM_WORLD, dim, '', X, J, dm, ierr)) 34 PetscCallA(DMSetUp(dm, ierr)) 35 PetscCallA(VecDuplicate(X, X_0, ierr)) 36 PetscCallA(VecCopy(X, X_0, ierr)) 41 PetscCallA(DMPlexLandauPrintNorms(X, ii, ierr)) 43 PetscCallA(DMSetOutputSequenceNumber(dm, ii, mone, ierr)) 47 PetscCallA(TSCreate(PETSC_COMM_SELF, ts, ierr)) 48 …PetscCallA(TSSetOptionsPrefix(ts, 'ex1_', ierr)) ! should get this from the dm or give it to the dm 49 PetscCallA(TSSetDM(ts, dm, ierr)) [all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex58f.F90 | 21 PetscCallA(PetscInitialize(ierr)) 23 PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', f, flg, ierr)) 24 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, f, FILE_MODE_READ, v, ierr)) 26 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 27 PetscCallA(MatSetType(A, MATSEQAIJ, ierr)) 28 PetscCallA(MatLoad(A, v, ierr)) 30 PetscCallA(MatView(A, PETSC_VIEWER_STDOUT_WORLD, ierr)) 33 PetscCallA(MatGetRow(A, row, ncol, cols, vals, ierr)) 35 PetscCallA(MatRestoreRow(A, row, ncol, cols, vals, ierr)) 36 PetscCallA(MatGetRow(A, row, PETSC_NULL_INTEGER, cols, PETSC_NULL_SCALAR_POINTER, ierr)) [all …]
|
| H A D | ex126f.F90 | 22 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr)) 30 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) 31 …PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-use_mumps', wmumps, flg… 33 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 34 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, m*m, m*m, ierr)) 35 PetscCallA(MatSetType(A, MATAIJ, ierr)) 36 PetscCallA(MatSetFromOptions(A, ierr)) 37 PetscCallA(MatSeqAIJSetPreallocation(A, ifive, PETSC_NULL_INTEGER_ARRAY, ierr)) 38 …PetscCallA(MatMPIAIJSetPreallocation(A, ifive, PETSC_NULL_INTEGER_ARRAY, ifive, PETSC_NULL_INTEGER… 40 PetscCallA(MatGetOwnershipRange(A, Istart, Iend, ierr)) [all …]
|
| H A D | ex212f.F90 | 21 PetscCallA(PetscInitialize(ierr)) 23 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 24 PetscCallA(MatCreate(PETSC_COMM_WORLD, B, ierr)) 26 PetscCallA(MatGetNullSpace(A, sp, ierr)) 29 PetscCallA(MatSetNullSpace(A, PETSC_NULL_MATNULLSPACE, ierr)) 30 PetscCallA(MatGetNullSpace(A, sp, ierr)) 33 PetscCallA(MatNullSpaceCreate(PETSC_COMM_WORLD, PETSC_TRUE, zero, PETSC_NULL_VEC_ARRAY, sp, ierr)) 34 PetscCallA(MatSetNullSpace(A, sp, ierr)) 35 PetscCallA(MatGetNullSpace(A, sp1, ierr)) 37 PetscCallA(MatNullSpaceDestroy(sp, ierr)) [all …]
|
| /petsc/src/dm/tutorials/ |
| H A D | ex11f90.F90 | 34 PetscCallA(PetscInitialize(ierr)) 35 …PetscCallA(DMDACreate1d(PETSC_COMM_WORLD, DM_BOUNDARY_NONE, m, dof, sw, PETSC_NULL_INTEGER_ARRAY, … 36 PetscCallA(DMSetUp(ada, ierr)) 37 PetscCallA(DMGetGlobalVector(ada, g, ierr)) 38 …PetscCallA(DMDAGetCorners(ada, xs, PETSC_NULL_INTEGER, PETSC_NULL_INTEGER, xl, PETSC_NULL_INTEGER,… 39 PetscCallA(DMDAVecGetArray(ada, g, x1, ierr)) 45 PetscCallA(DMDAVecRestoreArray(ada, g, x1, ierr)) 46 PetscCallA(VecView(g, PETSC_VIEWER_STDOUT_WORLD, ierr)) 47 PetscCallA(DMRestoreGlobalVector(ada, g, ierr)) 48 PetscCallA(DMDestroy(ada, ierr)) [all …]
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex5f.F90 | 24 PetscCallA(PetscInitialize(ierr)) 29 …PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr)) !give… 34 PetscCallA(PetscLogEventRegister('Generate Vector', classid, VECTOR_GENERATE, ierr)) 35 PetscCallA(PetscLogEventBegin(VECTOR_GENERATE, ierr)) 38 PetscCallA(VecCreate(PETSC_COMM_WORLD, u, ierr)) 39 PetscCallA(VecSetSizes(u, PETSC_DECIDE, m, ierr)) 40 PetscCallA(VecSetFromOptions(u, ierr)) 41 PetscCallA(VecGetOwnershipRange(u, low, high, ierr)) 42 PetscCallA(VecGetLocalSize(u, ldim, ierr)) 46 PetscCallA(VecSetValues(u, one, [iglobal], [v], INSERT_VALUES, ierr)) [all …]
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex9f.F90 | 28 PetscCallA(PetscInitialize(ierr)) 37 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr)) 47 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr)) 48 PetscCallA(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, n, n, ierr)) 49 PetscCallA(MatSetFromOptions(A, ierr)) 50 PetscCallA(MatSetUp(A, ierr)) 63 PetscCallA(MatSetValues(A, i1, [i], i3, col, value, INSERT_VALUES, ierr)) 68 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr)) 74 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr)) 75 PetscCallA(MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY, ierr)) [all …]
|