Lines Matching refs:arg1
27 PetscInt *PCTFS_ivec_copy(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_copy() argument
29 while (n--) *arg1++ = *arg2++; in PCTFS_ivec_copy()
30 return arg1; in PCTFS_ivec_copy()
34 PetscErrorCode PCTFS_ivec_zero(PetscInt *arg1, PetscInt n) in PCTFS_ivec_zero() argument
37 while (n--) *arg1++ = 0; in PCTFS_ivec_zero()
42 PetscErrorCode PCTFS_ivec_set(PetscInt *arg1, PetscInt arg2, PetscInt n) in PCTFS_ivec_set() argument
45 while (n--) *arg1++ = arg2; in PCTFS_ivec_set()
50 PetscErrorCode PCTFS_ivec_max(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_max() argument
54 *arg1 = PetscMax(*arg1, *arg2); in PCTFS_ivec_max()
55 arg1++; in PCTFS_ivec_max()
62 PetscErrorCode PCTFS_ivec_min(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_min() argument
66 *(arg1) = PetscMin(*arg1, *arg2); in PCTFS_ivec_min()
67 arg1++; in PCTFS_ivec_min()
74 PetscErrorCode PCTFS_ivec_mult(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_mult() argument
77 while (n--) *arg1++ *= *arg2++; in PCTFS_ivec_mult()
82 PetscErrorCode PCTFS_ivec_add(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_add() argument
85 while (n--) *arg1++ += *arg2++; in PCTFS_ivec_add()
90 PetscErrorCode PCTFS_ivec_lxor(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_lxor() argument
94 *arg1 = (*arg1 || *arg2) && !(*arg1 && *arg2); in PCTFS_ivec_lxor()
95 arg1++; in PCTFS_ivec_lxor()
102 PetscErrorCode PCTFS_ivec_xor(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_xor() argument
105 while (n--) *arg1++ ^= *arg2++; in PCTFS_ivec_xor()
110 PetscErrorCode PCTFS_ivec_or(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_or() argument
113 while (n--) *arg1++ |= *arg2++; in PCTFS_ivec_or()
118 PetscErrorCode PCTFS_ivec_lor(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_lor() argument
122 *arg1 = (*arg1 || *arg2); in PCTFS_ivec_lor()
123 arg1++; in PCTFS_ivec_lor()
130 PetscErrorCode PCTFS_ivec_and(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_and() argument
133 while (n--) *arg1++ &= *arg2++; in PCTFS_ivec_and()
138 PetscErrorCode PCTFS_ivec_land(PetscInt *arg1, PetscInt *arg2, PetscInt n) in PCTFS_ivec_land() argument
142 *arg1 = (*arg1 && *arg2); in PCTFS_ivec_land()
143 arg1++; in PCTFS_ivec_land()
150 PetscErrorCode PCTFS_ivec_and3(PetscInt *arg1, PetscInt *arg2, PetscInt *arg3, PetscInt n) in PCTFS_ivec_and3() argument
153 while (n--) *arg1++ = (*arg2++ & *arg3++); in PCTFS_ivec_and3()
158 PetscInt PCTFS_ivec_sum(PetscInt *arg1, PetscInt n) in PCTFS_ivec_sum() argument
161 while (n--) tmp += *arg1++; in PCTFS_ivec_sum()
166 PetscErrorCode PCTFS_ivec_non_uniform(PetscInt *arg1, PetscInt *arg2, PetscInt n, ...) in PCTFS_ivec_non_uniform() argument
188 if (type == GL_MAX) PetscCall(PCTFS_ivec_max(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
189 else if (type == GL_MIN) PetscCall(PCTFS_ivec_min(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
190 else if (type == GL_MULT) PetscCall(PCTFS_ivec_mult(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
191 else if (type == GL_ADD) PetscCall(PCTFS_ivec_add(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
192 else if (type == GL_B_XOR) PetscCall(PCTFS_ivec_xor(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
193 else if (type == GL_B_OR) PetscCall(PCTFS_ivec_or(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
194 else if (type == GL_B_AND) PetscCall(PCTFS_ivec_and(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
195 else if (type == GL_L_XOR) PetscCall(PCTFS_ivec_lxor(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
196 else if (type == GL_L_OR) PetscCall(PCTFS_ivec_lor(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
197 else if (type == GL_L_AND) PetscCall(PCTFS_ivec_land(arg1, arg2, j)); in PCTFS_ivec_non_uniform()
200 arg1 += j; in PCTFS_ivec_non_uniform()
571 PetscErrorCode PCTFS_rvec_copy(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_copy() argument
574 while (n--) *arg1++ = *arg2++; in PCTFS_rvec_copy()
579 PetscErrorCode PCTFS_rvec_zero(PetscScalar *arg1, PetscInt n) in PCTFS_rvec_zero() argument
582 while (n--) *arg1++ = 0.0; in PCTFS_rvec_zero()
587 PetscErrorCode PCTFS_rvec_one(PetscScalar *arg1, PetscInt n) in PCTFS_rvec_one() argument
590 while (n--) *arg1++ = 1.0; in PCTFS_rvec_one()
595 PetscErrorCode PCTFS_rvec_set(PetscScalar *arg1, PetscScalar arg2, PetscInt n) in PCTFS_rvec_set() argument
598 while (n--) *arg1++ = arg2; in PCTFS_rvec_set()
603 PetscErrorCode PCTFS_rvec_scale(PetscScalar *arg1, PetscScalar arg2, PetscInt n) in PCTFS_rvec_scale() argument
606 while (n--) *arg1++ *= arg2; in PCTFS_rvec_scale()
611 PetscErrorCode PCTFS_rvec_add(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_add() argument
614 while (n--) *arg1++ += *arg2++; in PCTFS_rvec_add()
619 PetscErrorCode PCTFS_rvec_mult(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_mult() argument
622 while (n--) *arg1++ *= *arg2++; in PCTFS_rvec_mult()
627 PetscErrorCode PCTFS_rvec_max(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_max() argument
631 *arg1 = PetscMax(*arg1, *arg2); in PCTFS_rvec_max()
632 arg1++; in PCTFS_rvec_max()
639 PetscErrorCode PCTFS_rvec_max_abs(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_max_abs() argument
643 *arg1 = MAX_FABS(*arg1, *arg2); in PCTFS_rvec_max_abs()
644 arg1++; in PCTFS_rvec_max_abs()
651 PetscErrorCode PCTFS_rvec_min(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_min() argument
655 *arg1 = PetscMin(*arg1, *arg2); in PCTFS_rvec_min()
656 arg1++; in PCTFS_rvec_min()
663 PetscErrorCode PCTFS_rvec_min_abs(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_min_abs() argument
667 *arg1 = MIN_FABS(*arg1, *arg2); in PCTFS_rvec_min_abs()
668 arg1++; in PCTFS_rvec_min_abs()
675 static PetscErrorCode PCTFS_rvec_exists(PetscScalar *arg1, PetscScalar *arg2, PetscInt n) in PCTFS_rvec_exists() argument
679 *arg1 = EXISTS(*arg1, *arg2); in PCTFS_rvec_exists()
680 arg1++; in PCTFS_rvec_exists()
687 static PetscErrorCode PCTFS_rvec_non_uniform(PetscScalar *arg1, PetscScalar *arg2, PetscInt n, Pets… in PCTFS_rvec_non_uniform() argument
703 if (type == GL_MAX) PetscCall(PCTFS_rvec_max(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
704 else if (type == GL_MIN) PetscCall(PCTFS_rvec_min(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
705 else if (type == GL_MULT) PetscCall(PCTFS_rvec_mult(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
706 else if (type == GL_ADD) PetscCall(PCTFS_rvec_add(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
707 else if (type == GL_MAX_ABS) PetscCall(PCTFS_rvec_max_abs(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
708 else if (type == GL_MIN_ABS) PetscCall(PCTFS_rvec_min_abs(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
709 else if (type == GL_EXISTS) PetscCall(PCTFS_rvec_exists(arg1, arg2, j)); in PCTFS_rvec_non_uniform()
712 arg1 += j; in PCTFS_rvec_non_uniform()