fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-16 10:52:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
Fixed transfer, had forgotten to copy prec%d :-(
This commit is contained in:
Salvatore Filippone
2009-01-20 11:17:36 +00:00
parent 1ccb5158ed
commit f2a2a384c7
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_transfer_mod.F90
+4
View File
@@ -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