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

Fix a pasto - loop simd construct in Fortran is do simd rather than

Browse Source 
for simd.
This commit is contained in:
Jakub Jelinek 2015-07-10 14:06:40 +02:00
parent b18b69504b
commit 4b655aa21a
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)