From 3bb5ae3d9ec03059e7e18b96544ab431984e1883 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 25 Jul 2021 13:20:39 +0200 Subject: [PATCH] concurrent/parallel execution is possible here --- src/math.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/math.f90 b/src/math.f90 index 36fe91bac..aeab47093 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -736,9 +736,9 @@ pure function math_3333to99(m3333) integer :: i,j - do i=1,9; do j=1,9 + do concurrent(i=1:9, j=1:9) math_3333to99(i,j) = m3333(MAPPLAIN(1,i),MAPPLAIN(2,i),MAPPLAIN(1,j),MAPPLAIN(2,j)) - enddo; enddo + enddo end function math_3333to99 @@ -753,9 +753,9 @@ pure function math_99to3333(m99) integer :: i,j - do i=1,9; do j=1,9 + do concurrent(i=1:9, j=1:9) math_99to3333(MAPPLAIN(1,i),MAPPLAIN(2,i),MAPPLAIN(1,j),MAPPLAIN(2,j)) = m99(i,j) - enddo; enddo + enddo end function math_99to3333