Home
last modified time | relevance | path

Searched defs:ierr (Results 1 – 25 of 160) sorted by relevance

1234567

/petsc/src/mat/tests/
H A Dex201f.F9011 subroutine mymatmult(A, x, y, ierr) argument
19 subroutine mymatmultadd(A, x, y, z, ierr) argument
27 subroutine mymatmulttranspose(A, x, y, ierr) argument
35 subroutine mymatmulthermitiantranspose(A, x, y, ierr) argument
43 subroutine mymatmulttransposeadd(A, x, y, z, ierr) argument
51 subroutine mymatmulthermitiantransposeadd(A, x, y, z, ierr) argument
59 subroutine mymattranspose(A, reuse, B, ierr) argument
74 subroutine mymatgetdiagonal(A, x, ierr) argument
82 subroutine mymatdiagonalscale(A, x, y, ierr) argument
90 subroutine mymatzeroentries(A, ierr) argument
[all …]
/petsc/src/mat/ftn-mod/
H A Dpetscmatmod.F9060 subroutine MatDenseGetArrayF901d(v, array, ierr) argument
70 subroutine MatDenseRestoreArrayF901d(v, array, ierr) argument
80 subroutine MatDenseGetArrayReadF901d(v, array, ierr) argument
90 subroutine MatDenseRestoreArrayReadF901d(v, array, ierr) argument
100 subroutine MatDenseGetArrayWriteF901d(v, array, ierr) argument
110 subroutine MatDenseRestoreArrayWriteF901d(v, array, ierr) argument
120 subroutine MatDenseGetArrayF902d(v, array, ierr) argument
130 subroutine MatDenseRestoreArrayF902d(v, array, ierr) argument
140 subroutine MatDenseGetArrayReadF902d(v, array, ierr) argument
150 subroutine MatDenseRestoreArrayReadF902d(v, array, ierr) argument
[all …]
/petsc/src/snes/tests/
H A Dex1f.F9036 subroutine postcheck(snes, x, y, w, changed_y, changed_w, ctx, ierr) argument
77 subroutine FormInitialGuess(X, ierr) argument
118 subroutine ApplicationInitialGuess(x, ierr) argument
176 subroutine FormFunction(snes, X, F, fdcoloring, ierr) argument
240 subroutine ApplicationFunction(x, f, ierr) argument
306 subroutine FormJacobian(snes, X, jac, jac_prec, dummy, ierr) argument
359 subroutine ApplicationJacobian(x, jac, jac_prec, ierr) argument
H A Dex12f.F9024 subroutine FormFunction(snes, x, f, ctx, ierr) argument
100 subroutine FormMonitor(snes, its, norm, snesm, ierr) argument
124 subroutine FormInitialGuess(snes, x, ierr) argument
137 subroutine FormJacobian(snes, x, jac, B, ctx, ierr) argument
/petsc/src/sys/fileio/ftn-custom/
H A Dzsysiof.c48 …TSC_EXTERN void petscbinarywriteint_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywriteint_()
53 …SC_EXTERN void petscbinarywritereal_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywritereal_()
58 …EXTERN void petscbinarywritecomplex_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywritecomplex_()
63 …SC_EXTERN void petscbinarywriteint1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywriteint1_()
68 …C_EXTERN void petscbinarywritereal1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywritereal1_()
73 …XTERN void petscbinarywritecomplex1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr) in petscbinarywritecomplex1_()
78 …binaryreadint_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr) in petscbinaryreadint_()
85 …inaryreadreal_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr) in petscbinaryreadreal_()
92 …ryreadcomplex_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr) in petscbinaryreadcomplex_()
99 …inaryreadint1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr) in petscbinaryreadint1_()
[all …]
H A Dzmprintf.c21 PETSC_EXTERN void petscsynchronizedflush_(MPI_Fint *comm, FILE **file, int *ierr) in petscsynchronizedflush_()
44 PETSC_EXTERN void petscfprintf_(MPI_Comm *comm, FILE **file, char *fname, PetscErrorCode *ierr, PET… in petscfprintf_()
57 PETSC_EXTERN void petscprintf_(MPI_Comm *comm, char *fname, PetscErrorCode *ierr, PETSC_FORTRAN_CHA… in petscprintf_()
70 …tscsynchronizedfprintf_(MPI_Comm *comm, FILE **file, char *fname, PetscErrorCode *ierr, PETSC_FORT… in petscsynchronizedfprintf_()
83 PETSC_EXTERN void petscsynchronizedprintf_(MPI_Comm *comm, char *fname, PetscErrorCode *ierr, PETSC… in petscsynchronizedprintf_()
/petsc/src/binding/petsc4py/demo/legacy/wrap-f2py/
H A DBratu2D.F9034 subroutine GetGridInfo(da, grd, ierr) argument
56 subroutine InitGuessLocal(grd, x, lambda, ierr) argument
87 subroutine FunctionLocal(grd, x, f, lambda, ierr) argument
125 subroutine JacobianLocal(grd, x, Jac, lambda, ierr) argument
179 subroutine FormInitGuess(da, X, lambda, ierr) argument
197 subroutine FormFunction(da, X, F, lambda, ierr) argument
227 subroutine FormJacobian(da, X, J, lambda, ierr) argument
/petsc/src/snes/tutorials/
H A Dex73f90t.F9061 subroutine MyObjective(snes, x, result, ctx, ierr) argument
94 subroutine FormInitialGuess(mysnes, Xnest, ierr) argument
137 subroutine InitialGuessLocal(solver, X1, ierr) argument
185 subroutine FormJacobian(dummy, X, jac, jac_prec, solver, ierr) argument
238 subroutine FormJacobianLocal(X1, jac, solver, add_nl_term, ierr) argument
317 subroutine FormFunction(snesIn, X, F, solver, ierr) argument
364 subroutine FormFunctionNLTerm(X1, F1, solver, ierr) argument
H A Dex5f90.F9069 subroutine FormFunction(snes, X, F, ctx, ierr) argument
136 subroutine FormInitialGuess(snes, X, ierr) argument
184 subroutine InitialGuessLocal(ctx, x, ierr) argument
231 subroutine FormFunctionLocal(x, f, ctx, ierr) argument
310 subroutine FormJacobian(snes, X, jac, jac_prec, ctx, ierr) argument
397 subroutine FormJacobianLocal(x, jac_prec, ctx, ierr) argument
H A Dex5f.F90111 subroutine InitialGuessLocal(x, ierr) argument
158 subroutine FormFunctionLocal(info, x, f, da, ierr) argument
245 subroutine FormJacobianLocal(info, x, A, jac, da, ierr) argument
330 subroutine MySNESConverged(snes, it, xnorm, snorm, fnorm, reason, dummy, ierr) argument
H A Dex1f.F9026 subroutine FormFunction(snes, x, f, dummy, ierr) argument
68 subroutine FormJacobian(snes, X, jac, B, dummy, ierr) argument
116 subroutine MyLineSearch(linesearch, lctx, ierr) argument
/petsc/src/tao/bound/tutorials/
H A Dplate2f.F90293 subroutine FormHessian(ta, X, Hessian, Hpc, dummy, ierr) argument
510 subroutine MSA_BoundaryConditions(ierr) argument
664 subroutine MSA_Plate(ta, xl, xu, dummy, ierr) argument
719 subroutine MSA_InitialPoint(X, ierr) argument
/petsc/src/tao/leastsquares/tutorials/
H A Dchwirut2f.F90245 subroutine TaskWorker(ierr) argument
281 subroutine RunSimulation(x, i, f, ierr) argument
290 subroutine StopWorkers(ierr) argument
331 subroutine FormFunction(ta, x, f, dummy, ierr) argument
/petsc/src/ts/tutorials/
H A Dex22f_mf.F90165 subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr) argument
182 subroutine FormIFunctionLocal(mx, xs, xe, gxs, gxe, x, xdot, f, a, k, s, ierr) argument
197 subroutine FormIFunction(ts, t, X, Xdot, F, ctx, ierr) argument
227 subroutine FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, x, f, a, k, s, ierr) argument
279 subroutine FormRHSFunction(ts, t, X, F, ctx, ierr) argument
319 subroutine FormIJacobian(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
360 subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr) argument
383 subroutine FormInitialSolution(ts, X, ctx, ierr) argument
412 subroutine FormIJacobianMF(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
437 subroutine MyMult(A, X, F, ierr) argument
H A Dex22f.F90137 subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr) argument
154 subroutine FormIFunctionLocal(mx, xs, xe, gxs, gxe, x, xdot, f, a, k, s, ierr) argument
169 subroutine FormIFunction(ts, t, X, Xdot, F, ctx, ierr) argument
198 subroutine FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, x, f, a, k, s, ierr) argument
248 subroutine FormRHSFunction(ts, t, X, F, ctx, ierr) argument
288 subroutine FormIJacobian(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
328 subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr) argument
351 subroutine FormInitialSolution(ts, X, ctx, ierr) argument
/petsc/src/sys/classes/viewer/impls/binary/ftn-custom/
H A Dzbinvf90.c20 …d petscviewerbinarywriteint_(PetscViewer *viewer, PetscInt *a, PetscInt *len, PetscErrorCode *ierr) in petscviewerbinarywriteint_()
27 …cviewerbinarywritescalar_(PetscViewer *viewer, PetscScalar *a, PetscInt *len, PetscErrorCode *ierr) in petscviewerbinarywritescalar_()
34 …petscviewerbinarywritereal_(PetscViewer *viewer, PetscReal *a, PetscInt *len, PetscErrorCode *ierr) in petscviewerbinarywritereal_()
41 …aryreadint_(PetscViewer *viewer, PetscInt *a, PetscInt *len, PetscInt *count, PetscErrorCode *ierr) in petscviewerbinaryreadint_()
49 …dscalar_(PetscViewer *viewer, PetscScalar *a, PetscInt *len, PetscInt *count, PetscErrorCode *ierr) in petscviewerbinaryreadscalar_()
57 …yreadreal_(PetscViewer *viewer, PetscReal *a, PetscInt *len, PetscInt *count, PetscErrorCode *ierr) in petscviewerbinaryreadreal_()
/petsc/src/sys/mpiuni/
H A Dmpi.c609 PETSC_EXTERN void petsc_mpi_init_(int *ierr) in petsc_mpi_init_()
615 PETSC_EXTERN void petsc_mpi_finalize_(int *ierr) in petsc_mpi_finalize_()
620 PETSC_EXTERN void petsc_mpi_comm_size_(MPI_Comm *comm, int *size, int *ierr) in petsc_mpi_comm_size_()
626 PETSC_EXTERN void petsc_mpi_comm_rank_(MPI_Comm *comm, int *rank, int *ierr) in petsc_mpi_comm_rank_()
632 …TERN void petsc_mpi_comm_split_(MPI_Comm *comm, int *color, int *key, MPI_Comm *newcomm, int *ierr) in petsc_mpi_comm_split_()
638 PETSC_EXTERN void petsc_mpi_abort_(MPI_Comm *comm, int *errorcode, int *ierr) in petsc_mpi_abort_()
644 …(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *root, int *comm, int *ierr) in petsc_mpi_reduce_()
649 …_allreduce_(void *sendbuf, void *recvbuf, int *count, int *datatype, int *op, int *comm, int *ierr) in petsc_mpi_allreduce_()
654 PETSC_EXTERN void petsc_mpi_barrier_(MPI_Comm *comm, int *ierr) in petsc_mpi_barrier_()
659 …EXTERN void petsc_mpi_bcast_(void *buf, int *count, int *datatype, int *root, int *comm, int *ierr) in petsc_mpi_bcast_()
[all …]
/petsc/src/ksp/ksp/tutorials/
H A Dex14f.F9087 subroutine FormInitialGuess(X, ierr) argument
144 subroutine ComputeFunction(X, F, ierr) argument
227 subroutine ComputeJacobian(X, jac, ierr) argument
H A Dex15f.F9038 subroutine SampleShellPCSetUp(pc, ierr) argument
69 subroutine SampleShellPCApply(pc, x, y, ierr) argument
94 subroutine SampleShellPCDestroy(pc, ierr) argument
H A Dex13f90.F9015 subroutine UserInitializeLinearSolver(m, n, userctx, ierr) argument
72 subroutine UserDoLinearSolver(rho, userctx, userb, userx, ierr) argument
194 subroutine UserFinalizeLinearSolver(userctx, ierr) argument
H A Dex45f.F9012 subroutine ComputeInitialGuess(ksp, b, ctx, ierr) argument
23 subroutine ComputeRHS(ksp, b, unused, ierr) argument
42 subroutine ComputeMatrix(ksp, A, B, unused, ierr) argument
/petsc/include/petsc/finclude/
H A Dpetscsysbase.h137 #define SETERRQ(c, ierr, s) call PetscError(c, ierr, PETSC_ERROR_INITIAL, s); return argument
138 #define SETERRA(c, ierr, s) call PetscError(c, ierr, PETSC_ERROR_INITIAL, s); call MPIU_Abort(c, i… argument
140 #define CHKERRQ(ierr) if (ierr .ne. 0) then;call PetscErrorF(ierr,__LINE__,__FILE__);return;endif argument
141 #define CHKERRA(ierr) if (ierr .ne. 0) then;call PetscErrorF(ierr,__LINE__,__FILE__);call MPIU_Abor… argument
142 #define CHKERRMPI(ierr) if (ierr .ne. 0) then;call PetscErrorMPI(ierr,__LINE__,__FILE__);return;end… argument
143 #define CHKERRMPIA(ierr) if (ierr .ne. 0) then;call PetscErrorMPI(ierr,__LINE__,__FILE__);call MPIU… argument
155 #define PetscCheckA(err, c, ierr, s) if (.not.(err)) then; SETERRA(c, ierr, s); endif argument
156 #define PetscCheck(err, c, ierr, s) if (.not.(err)) then; SETERRQ(c, ierr, s); endif argument
/petsc/src/sys/error/ftn-custom/
H A Dzerrf.c32 PetscErrorCode ierr = PETSC_SUCCESS; in ourerrorhandler() local
48 … *file, PetscErrorCode *n, PetscErrorType *p, const char *mess, PetscCtx ctx, PetscErrorCode *ierr) in petsctracebackerrorhandler_()
53 … *file, PetscErrorCode *n, PetscErrorType *p, const char *mess, PetscCtx ctx, PetscErrorCode *ierr) in petscaborterrorhandler_()
58 … *file, PetscErrorCode *n, PetscErrorType *p, const char *mess, PetscCtx ctx, PetscErrorCode *ierr) in petscattachdebuggererrorhandler_()
63 … *file, PetscErrorCode *n, PetscErrorType *p, const char *mess, PetscCtx ctx, PetscErrorCode *ierr) in petscemacsclienterrorhandler_()
68 … *file, PetscErrorCode *n, PetscErrorType *p, const char *mess, PetscCtx ctx, PetscErrorCode *ierr) in petscignoreerrorhandler_()
73 …1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHARLEN_T len3), PetscCtx ctx, PetscErrorCode *ierr) in petscpusherrorhandler_() argument
84 PetscErrorCode nierr, *ierr = &nierr; in petscerror_() local
95 PetscErrorCode ierr[] = {PETSC_SUCCESS}; /* needed by FIXCHAR */ in petscerrorf_() local
106 PetscErrorCode ierr[] = {PETSC_SUCCESS}; /* needed by FIXCHAR */ in petscerrormpi_() local
/petsc/src/ksp/pc/impls/shell/ftn-custom/
H A Dzshellpcf.c114 …shellsetapply_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapply_() argument
122 …symmetricleft_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplysymmetricleft_() argument
130 …ymmetricright_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplysymmetricright_() argument
138 …lyctx_(PC *pc, void (*apply)(void *, void *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplyctx_() argument
146 … *pc, void (*apply)(void *, PCSide *, Vec *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplyba_() argument
154 …*, PetscBool *, PetscInt *, PCRichardsonConvergedReason *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplyrichardson_() argument
161 …pose_(PC *pc, void (*applytranspose)(void *, Vec *, Vec *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetapplytranspose_() argument
169 … pcshellsetsetupctx_(PC *pc, void (*setup)(void *, void *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetsetupctx_() argument
177 …EXTERN void pcshellsetsetup_(PC *pc, void (*setup)(void *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetsetup_() argument
185 …TERN void pcshellsetdestroy_(PC *pc, void (*setup)(void *, PetscErrorCode *), PetscErrorCode *ierr) in pcshellsetdestroy_() argument
[all …]
/petsc/src/sys/objects/ftn-custom/
H A Dzoptionsf.c55 …tionsbegin_(MPI_Fint *fcomm, char *prefix, char *mess, char *sec, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsbegin_()
78 PETSC_EXTERN void petscoptionsend_(PetscErrorCode *ierr) in petscoptionsend_()
89 … *man, PetscBool *currentvalue, PetscBool *value, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsbool_()
108 …man, PetscBool3 *currentvalue, PetscBool3 *value, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsbool3_()
127 …xt, char *man, PetscBool *dvalue, PetscInt *nmax, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsboolarray_()
148 …list, PetscEnum *currentvalue, PetscEnum *ivalue, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsenumprivate_()
169 …ar *man, PetscInt *currentvalue, PetscInt *value, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsint_()
188 …, char *man, PetscInt *currentvalue, PetscInt *n, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsintarray_()
207 … *man, PetscReal *currentvalue, PetscReal *value, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsreal_()
226 … char *man, PetscReal *currentvalue, PetscInt *n, PetscBool *set, PetscErrorCode *ierr, PETSC_FORT… in petscoptionsrealarray_()
[all …]

1234567