source:
vendors/t/fcm-make/23-build-omp/src/m2.f90
@
10669
| Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
|---|---|
| File size: 254 bytes | |
| Line | |
|---|---|
| 1 | module m2 |
| 2 | contains |
| 3 | subroutine s2(n, z, y) |
| 4 | integer, intent(in) :: n |
| 5 | real, intent(out) :: z(:) |
| 6 | real, intent(in) :: y(:) |
| 7 | integer :: i |
| 8 | !$omp parallel do shared(z) |
| 9 | do i = 1, n |
| 10 | z(i) = y(i) * 3.0 |
| 11 | end do |
| 12 | !$omp end parallel do |
| 13 | end subroutine s2 |
| 14 | end module m2 |
Note: See TracBrowser
for help on using the repository browser.
