Lines Matching refs:vscale
1476 …eVirtual(Mat *sub, PetscBool *conjugate, PetscScalar *vshift, PetscScalar *vscale, PetscBool *swap) in MatGetTranspose_TransposeVirtual() argument
1494 if (vshift && vscale) { in MatGetTranspose_TransposeVirtual()
1497 *vshift += s[0] * *vscale; in MatGetTranspose_TransposeVirtual()
1498 *vscale *= s[1]; in MatGetTranspose_TransposeVirtual()
1500 *vshift += PetscConj(s[0]) * *vscale; in MatGetTranspose_TransposeVirtual()
1501 *vscale *= PetscConj(s[1]); in MatGetTranspose_TransposeVirtual()
1605 PetscScalar vscale = 1.0, vshift = 0.0; in MatConvertToTriples_nest_xaij() local
1624 PetscCall(MatGetTranspose_TransposeVirtual(&sub, &conjugate, &vshift, &vscale, &swap)); in MatConvertToTriples_nest_xaij()
1672 for (PetscInt k = 0; k < mumps->nnz; k++) v[k] = vscale * PetscConj(mumps->val[k]); in MatConvertToTriples_nest_xaij()
1673 } else if (vscale != 1.0) { in MatConvertToTriples_nest_xaij()
1675 for (PetscInt k = 0; k < mumps->nnz; k++) v[k] = vscale * mumps->val[k]; in MatConvertToTriples_nest_xaij()
1738 PetscScalar vscale = 1.0, vshift = 0.0; in MatConvertToTriples_nest_xaij() local
1742 PetscCall(MatGetTranspose_TransposeVirtual(&sub, &conjugate, &vshift, &vscale, NULL)); in MatConvertToTriples_nest_xaij()
1748 for (PetscCount k = 0; k < nnz; k++) mumps->val[k] = vscale * PetscConj(mumps->val[k]); in MatConvertToTriples_nest_xaij()
1749 } else if (vscale != 1.0) { in MatConvertToTriples_nest_xaij()
1751 for (PetscCount k = 0; k < nnz; k++) mumps->val[k] *= vscale; in MatConvertToTriples_nest_xaij()