1*330d8983SJohannes Doerfertsubroutine increment_at(c_index, arr) bind(C, name="increment_at") 2*330d8983SJohannes Doerfert use ISO_C_BINDING 3*330d8983SJohannes Doerfert !$omp declare target 4*330d8983SJohannes Doerfert integer (C_INT), dimension(*), intent(inout) :: arr 5*330d8983SJohannes Doerfert integer (C_INT), value :: c_index 6*330d8983SJohannes Doerfert arr(c_index+1) = arr(c_index+1) + 1 7*330d8983SJohannes Doerfertend subroutine 8