Lines Matching refs:vals

13   PetscScalar, pointer, dimension(:) :: vals
32       allocate (vals(2))
33       vals = 1.0
35       PetscCallA(MatSetValues(A, one, [r], two, cols, vals, INSERT_VALUES, ierr))
37       deallocate (vals)
39       allocate (vals(2))
40       vals = 1.0
42       PetscCallA(MatSetValues(A, one, [r], two, cols, vals, INSERT_VALUES, ierr))
44       deallocate (vals)
46       allocate (vals(3))
47       vals = 1.0
49       PetscCallA(MatSetValues(A, one, [r], three, cols, vals, INSERT_VALUES, ierr))
51       deallocate (vals)