From feeeae731a2fe98f3519fa73301a8105baf07ff5 Mon Sep 17 00:00:00 2001 From: edoapra Date: Tue, 14 Oct 2025 16:50:21 -0700 Subject: [PATCH] trying to improve parallelization --- src/ddscf/int_dip_ga.F | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/ddscf/int_dip_ga.F b/src/ddscf/int_dip_ga.F index 7f678d7d17..554b21e3b1 100644 --- a/src/ddscf/int_dip_ga.F +++ b/src/ddscf/int_dip_ga.F @@ -279,6 +279,7 @@ c end do double precision buf(jlo:jhi,6,ilo:ihi) integer i, j do i = ilo,ihi +#if 0 do j = jlo, jhi call ga_put(g_xx,i,i,j,j,buf(j,1,i),1) call ga_put(g_xy,i,i,j,j,buf(j,2,i),1) @@ -287,6 +288,14 @@ c end do call ga_put(g_yz,i,i,j,j,buf(j,5,i),1) call ga_put(g_zz,i,i,j,j,buf(j,6,i),1) end do +#else + call ga_put(g_xx,jlo,jhi,i,i,buf(jlo,1,i),1) + call ga_put(g_xy,jlo,jhi,i,i,buf(jlo,2,i),1) + call ga_put(g_xz,jlo,jhi,i,i,buf(jlo,3,i),1) + call ga_put(g_yy,jlo,jhi,i,i,buf(jlo,4,i),1) + call ga_put(g_yz,jlo,jhi,i,i,buf(jlo,5,i),1) + call ga_put(g_zz,jlo,jhi,i,i,buf(jlo,6,i),1) +#endif end do end