Searched refs:oprs (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | comm.c | 62 PetscErrorCode PCTFS_giop(PetscInt *vals, PetscInt *work, PetscInt n, PetscInt *oprs) in PCTFS_giop() argument
71 …ls && work && oprs, PETSC_COMM_SELF, PETSC_ERR_PLIB, "PCTFS_giop() :: vals=%p, work=%p, oprs=%p", … in PCTFS_giop()
74 …PetscCheck(!(oprs[0] == NON_UNIFORM) || !(n < 2), PETSC_COMM_SELF, PETSC_ERR_PLIB, "PCTFS_giop() :… in PCTFS_giop()
86 if ((type = oprs[0]) == NON_UNIFORM) oprs++; in PCTFS_giop()
98 PetscCall((*fp)(vals, work, n, oprs)); in PCTFS_giop()
110 PetscCall((*fp)(vals, work, n, oprs)); in PCTFS_giop()
139 PetscErrorCode PCTFS_grop(PetscScalar *vals, PetscScalar *work, PetscInt n, PetscInt *oprs) in PCTFS_grop() argument
148 …ls && work && oprs, PETSC_COMM_SELF, PETSC_ERR_PLIB, "PCTFS_grop() :: vals=%p, work=%p, oprs=%p", … in PCTFS_grop()
151 …PetscCheck(!(oprs[0] == NON_UNIFORM) || !(n < 2), PETSC_COMM_SELF, PETSC_ERR_PLIB, "PCTFS_grop() :… in PCTFS_grop()
163 if ((type = oprs[0]) == NON_UNIFORM) oprs++; in PCTFS_grop()
[all …]
|
| H A D | gs.c | 221 PetscInt oprs[] = {NON_UNIFORM, GL_MIN, GL_MAX, GL_ADD, GL_MIN, GL_MAX, GL_MIN, GL_B_AND}; in gsi_check_args() local
222 PetscInt vals[PETSC_STATIC_ARRAY_LENGTH(oprs) - 1]; in gsi_check_args()
223 PetscInt work[PETSC_STATIC_ARRAY_LENGTH(oprs) - 1]; in gsi_check_args()
356 …PetscCallAbort(PETSC_COMM_WORLD, PCTFS_giop(vals, work, PETSC_STATIC_ARRAY_LENGTH(oprs) - 1, oprs)… in gsi_check_args()
|