From 222747449a45a22931150604e129f917a49485af Mon Sep 17 00:00:00 2001
From: CGH0S7 <776459475@qq.com>
Date: Sun, 1 Mar 2026 00:41:32 +0800
Subject: [PATCH] Optimize average2: use DO CONCURRENT loop form

(cherry picked from commit 1a518cd3f69c75e2427ed1cbcf73ef5e1a905053)
---
 AMSS_NCKU_source/fmisc.f90 | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/AMSS_NCKU_source/fmisc.f90 b/AMSS_NCKU_source/fmisc.f90
index ceebd28..76fd627 100644
--- a/AMSS_NCKU_source/fmisc.f90
+++ b/AMSS_NCKU_source/fmisc.f90
@@ -1832,13 +1832,9 @@ deallocate(f_flat)
   real*8,parameter::C1=3.d0/8.d0,C2=3.d0/4.d0,C3=-1.d0/8.d0
   integer :: i,j,k
 
-  do k=1,ext(3)
-   do j=1,ext(2)
-    do i=1,ext(1)
-      fout(i,j,k) = C1*f1(i,j,k)+C2*f2(i,j,k)+C3*f3(i,j,k)
-    enddo
-   enddo
-  enddo
+  do concurrent (k=1:ext(3), j=1:ext(2), i=1:ext(1))
+    fout(i,j,k) = C1*f1(i,j,k)+C2*f2(i,j,k)+C3*f3(i,j,k)
+  end do
 
   return