Add move_alloc method to sparse matrix.

6 years ago · 51e50120bd
parent fd8ce4f3de
commit 51e50120bd
4 changed files with 8 additions and 0 deletions
--- a/base/modules/serial/psb_c_mat_mod.F90
+++ b/base/modules/serial/psb_c_mat_mod.F90
@ -194,6 +194,7 @@ module psb_c_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_c_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_cspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_cspmat_type_move
    !
    ! To/from lc
    !
@ -370,6 +371,7 @@ module psb_c_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_lc_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_lcspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_lcspmat_type_move
    !
    ! To/from c
    !
--- a/base/modules/serial/psb_d_mat_mod.F90
+++ b/base/modules/serial/psb_d_mat_mod.F90
@ -194,6 +194,7 @@ module psb_d_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_d_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_dspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_dspmat_type_move
    !
    ! To/from ld
    !
@ -370,6 +371,7 @@ module psb_d_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_ld_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_ldspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_ldspmat_type_move
    !
    ! To/from d
    !
--- a/base/modules/serial/psb_s_mat_mod.F90
+++ b/base/modules/serial/psb_s_mat_mod.F90
@ -194,6 +194,7 @@ module psb_s_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_s_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_sspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_sspmat_type_move
    !
    ! To/from ls
    !
@ -370,6 +371,7 @@ module psb_s_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_ls_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_lsspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_lsspmat_type_move
    !
    ! To/from s
    !
--- a/base/modules/serial/psb_z_mat_mod.F90
+++ b/base/modules/serial/psb_z_mat_mod.F90
@ -194,6 +194,7 @@ module psb_z_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_z_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_zspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_zspmat_type_move
    !
    ! To/from lz
    !
@ -370,6 +371,7 @@ module psb_z_mat_mod
    procedure, pass(a) :: cscnv_base  => psb_lz_cscnv_base
    generic, public    :: cscnv       => cscnv_np, cscnv_ip, cscnv_base
    procedure, pass(a) :: clone       => psb_lzspmat_clone
+    procedure, pass(a) :: move_alloc  => psb_lzspmat_type_move
    !
    ! To/from z
    !