mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
21 lines
404 B
Fortran
21 lines
404 B
Fortran
! @@name: SIMD.5f
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
! @@version: omp_4.0
|
|
subroutine work( a, b, c, n )
|
|
implicit none
|
|
integer :: i,j,n
|
|
double precision :: a(n,n), b(n,n), c(n,n), tmp
|
|
|
|
!$omp do simd collapse(2) private(tmp)
|
|
do j = 1,n
|
|
do i = 1,n
|
|
tmp = a(i,j) + b(i,j)
|
|
c(i,j) = tmp
|
|
end do
|
|
end do
|
|
|
|
end subroutine work
|