lukasplevac/OpenMP-Examples
1
0
Fork 0
mirror of https://github.com/OpenMP/Examples.git synced 2025-04-10 16:32:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #14 from jakubjelinek/master

Browse Source 
Fix a pasto - loop simd construct in Fortran is do simd rather than
This commit is contained in:
Henry Jin 2015-07-10 08:03:44 -07:00
commit 510fd1f0f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/Example_SIMD.5f.f
View File

@ -8,7 +8,7 @@ subroutine work( a, b, c, n )
integer :: i,j,n integer :: i,j,n
double precision :: a(n,n), b(n,n), c(n,n), tmp double precision :: a(n,n), b(n,n), c(n,n), tmp
!$omp for simd collapse(2) private(tmp) !$omp do simd collapse(2) private(tmp)
do j = 1,n do j = 1,n
do i = 1,n do i = 1,n
tmp = a(i,j) + b(i,j) tmp = a(i,j) + b(i,j)