223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

concurrent/parallel execution is possible here

This commit is contained in:
Martin Diehl 2021-07-25 13:20:39 +02:00
parent 59d09d708e
commit 3bb5ae3d9e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/math.f90
View File

@ -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