| Ethan Luis McDonough | 341c3cf | 2023-06-28 20:02:37 | [diff] [blame] | 1 | subroutine increment_at(c_index, arr) bind(C, name="increment_at") |
| 2 | use ISO_C_BINDING | ||||
| Ethan Luis McDonough | 9e3d59e | 2023-08-29 21:27:30 | [diff] [blame] | 3 | !$omp declare target |
| Ethan Luis McDonough | 341c3cf | 2023-06-28 20:02:37 | [diff] [blame] | 4 | integer (C_INT), dimension(*), intent(inout) :: arr |
| 5 | integer (C_INT), value :: c_index | ||||
| 6 | arr(c_index+1) = arr(c_index+1) + 1 | ||||
| 7 | end subroutine | ||||