From f2a2a384c7832c8dccf16897b44ecbb86c921fb2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 20 Jan 2009 11:17:36 +0000 Subject: [PATCH] mld2p4: Fixed transfer, had forgotten to copy prec%d :-( --- mlprec/mld_transfer_mod.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/mlprec/mld_transfer_mod.F90 b/mlprec/mld_transfer_mod.F90 index fa0ce6de..272c6169 100644 --- a/mlprec/mld_transfer_mod.F90 +++ b/mlprec/mld_transfer_mod.F90 @@ -87,6 +87,7 @@ contains if (info == 0) call psb_transfer(a%desc_data,b%desc_data,info) if (info == 0) call psb_transfer(a%perm,b%perm,info) if (info == 0) call psb_transfer(a%invperm,b%invperm,info) + if (info == 0) call psb_transfer(a%d,b%d,info) #ifdef HAVE_MOVE_ALLOC call move_alloc(a%av,b%av) #else @@ -181,6 +182,7 @@ contains if (info == 0) call psb_transfer(a%desc_data,b%desc_data,info) if (info == 0) call psb_transfer(a%perm,b%perm,info) if (info == 0) call psb_transfer(a%invperm,b%invperm,info) + if (info == 0) call psb_transfer(a%d,b%d,info) #ifdef HAVE_MOVE_ALLOC call move_alloc(a%av,b%av) #else @@ -275,6 +277,7 @@ contains if (info == 0) call psb_transfer(a%desc_data,b%desc_data,info) if (info == 0) call psb_transfer(a%perm,b%perm,info) if (info == 0) call psb_transfer(a%invperm,b%invperm,info) + if (info == 0) call psb_transfer(a%d,b%d,info) #ifdef HAVE_MOVE_ALLOC call move_alloc(a%av,b%av) #else @@ -369,6 +372,7 @@ contains if (info == 0) call psb_transfer(a%desc_data,b%desc_data,info) if (info == 0) call psb_transfer(a%perm,b%perm,info) if (info == 0) call psb_transfer(a%invperm,b%invperm,info) + if (info == 0) call psb_transfer(a%d,b%d,info) #ifdef HAVE_MOVE_ALLOC call move_alloc(a%av,b%av) #else