487
487
call VecSetValues(vec, insert_rows, &
488
488
petsc_numbering%gnn2unn( 1:insert_rows, b ), &
489
fields(i)%val(j, 1:insert_rows ), insert_action, ierr)
491
491
call VecSetValues(vec, insert_rows, &
492
492
petsc_numbering%gnn2unn( 1:insert_rows, b ), &
493
real(fields(i)%val(j)%ptr( 1:insert_rows ), kind = PetscScalar_kind), insert_action, ierr)
493
real(fields(i)%val(j, 1:insert_rows ), kind = PetscScalar_kind), insert_action, ierr)