source:
vendors/t/fcm-make/23-build-omp/src/m1.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 m1 |
2 | contains |
3 | subroutine s1(n, y, x) |
4 | integer, intent(in) :: n |
5 | real, intent(out) :: y(:) |
6 | real, intent(in) :: x(:) |
7 | integer :: i |
8 | !$omp parallel do shared(y) |
9 | do i = 1, n |
10 | y(i) = x(i) * 2.0 |
11 | end do |
12 | !$omp end parallel do |
13 | end subroutine s1 |
14 | end module m1 |
Note: See TracBrowser
for help on using the repository browser.