From bb9b7bef1c02c021a156fac2f9f6561a769597f4 Mon Sep 17 00:00:00 2001 From: edoapra Date: Thu, 19 Feb 2026 14:12:06 -0800 Subject: [PATCH] ga_copy --- src/NWints/dk/int_1edk_ga.F | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/NWints/dk/int_1edk_ga.F b/src/NWints/dk/int_1edk_ga.F index 05bc877ab1..a8dd6e8fe3 100644 --- a/src/NWints/dk/int_1edk_ga.F +++ b/src/NWints/dk/int_1edk_ga.F @@ -150,6 +150,9 @@ c p_handle=ga_pgroup_create(list2,max2) call ga_inquire(g_in, itype, dim, dim) comm_world=ga_pgroup_get_world() + if (.not. ga_create(MT_DBL,dim,dim,'GA tmp',1,1,g_inworld)) + $ call errquit('int_1edk_ga: ga_create failed GA temp',0, + & GA_ERR) if(ga_nodeid().lt.max2) then call ga_pgroup_set_default(p_handle) #endif @@ -1828,13 +1831,11 @@ c $ call errquit('int_1edk_ga: ga_destroy DKg_a',0, GA_ERR) c #ifdef PGROUP + call ga_copy(g_inpg,g_inworld) endif call ga_pgroup_set_default(comm_world) call ga_sync() - if (.not. ga_create(MT_DBL,dim,dim,'GA tmp',1,1,g_inworld)) - $ call errquit('int_1edk_ga: ga_create failed GA temp',0, - & GA_ERR) - call ga_serialcopy(g_inpg,g_inworld) +c call ga_serialcopy(g_inpg,g_inworld) if(ga_nodeid().lt.max2) then if (.not. ga_destroy(g_inpg)) $ call errquit('int_1edk_ga: ga_destroy g_inpg',0, GA_ERR)