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

psblas3:

Browse Source 
base/modules/psb_base_linmap_mod.f90
 base/modules/psb_c_base_mat_mod.f90
 base/modules/psb_c_linmap_mod.f90
 base/modules/psb_c_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_d_linmap_mod.f90
 base/modules/psb_d_mat_mod.f90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_s_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90
 base/modules/psb_z_linmap_mod.f90
 base/modules/psb_z_mat_mod.f90
 base/serial/impl/psb_c_mat_impl.F90
 base/serial/impl/psb_d_mat_impl.F90
 base/serial/impl/psb_s_mat_impl.F90
 base/serial/impl/psb_z_mat_impl.F90
 prec/psb_c_base_prec_mod.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_base_prec_mod.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90


INTENT of arguments of clone methods
This commit is contained in:
Salvatore Filippone
2013-04-09 08:09:25 +00:00
parent 10f92d3b90
commit 9f4a8ca232
37 changed files with 146 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_linmap_mod.f90
+2 -2
View File
@@ -163,9 +163,9 @@ contains
use psb_realloc_mod
implicit none
class(psb_base_linmap_type), intent(inout) :: map
class(psb_base_linmap_type), intent(out) :: mapout
class(psb_base_linmap_type), intent(inout) :: mapout
integer(psb_ipk_) :: info
mapout%kind = map%kind
call psb_safe_ab_cpy(map%iaggr,mapout%iaggr,info)
call psb_safe_ab_cpy(map%naggr,mapout%naggr,info)
base/modules/psb_c_base_mat_mod.f90
+1 -1
View File
@@ -63,7 +63,6 @@ module psb_c_base_mat_mod
procedure, pass(a) :: get_diag => psb_c_base_get_diag
generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_c_base_csclip
procedure, pass(a) :: mold => psb_c_base_mold
procedure, pass(a) :: cp_to_coo => psb_c_base_cp_to_coo
procedure, pass(a) :: cp_from_coo => psb_c_base_cp_from_coo
procedure, pass(a) :: cp_to_fmt => psb_c_base_cp_to_fmt
@@ -76,6 +75,7 @@ module psb_c_base_mat_mod
generic, public :: cp_from => c_base_cp_from
procedure, pass(a) :: c_base_mv_from
generic, public :: mv_from => c_base_mv_from
procedure, pass(a) :: mold => psb_c_base_mold
procedure, pass(a) :: clone => psb_c_base_clone
!
base/modules/psb_c_linmap_mod.f90
+6 -4
View File
@@ -218,13 +218,15 @@ contains
use psb_desc_mod
implicit none
class(psb_clinmap_type), intent(inout) :: map
class(psb_clinmap_type), intent(out) :: mapout
class(psb_clinmap_type), intent(inout) :: mapout
integer(psb_ipk_) :: info
call mapout%free(info)
! Base clone!
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
if (info == 0) call &
& map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
if (info == 0) call map%map_X2Y%clone(mapout%map_X2Y,info)
if (info == 0) call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine c_clone
base/modules/psb_c_mat_mod.f90
+1 -1
View File
@@ -613,7 +613,7 @@ module psb_c_mat_mod
subroutine psb_cspmat_clone(a,b,info)
import :: psb_ipk_, psb_cspmat_type
class(psb_cspmat_type), intent(inout) :: a
class(psb_cspmat_type), intent(out) :: b
class(psb_cspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cspmat_clone
end interface
base/modules/psb_d_base_mat_mod.f90
+1 -1
View File
@@ -63,7 +63,6 @@ module psb_d_base_mat_mod
procedure, pass(a) :: get_diag => psb_d_base_get_diag
generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_d_base_csclip
procedure, pass(a) :: mold => psb_d_base_mold
procedure, pass(a) :: cp_to_coo => psb_d_base_cp_to_coo
procedure, pass(a) :: cp_from_coo => psb_d_base_cp_from_coo
procedure, pass(a) :: cp_to_fmt => psb_d_base_cp_to_fmt
@@ -76,6 +75,7 @@ module psb_d_base_mat_mod
generic, public :: cp_from => d_base_cp_from
procedure, pass(a) :: d_base_mv_from
generic, public :: mv_from => d_base_mv_from
procedure, pass(a) :: mold => psb_d_base_mold
procedure, pass(a) :: clone => psb_d_base_clone
!
base/modules/psb_d_linmap_mod.f90
+6 -4
View File
@@ -218,13 +218,15 @@ contains
use psb_desc_mod
implicit none
class(psb_dlinmap_type), intent(inout) :: map
class(psb_dlinmap_type), intent(out) :: mapout
class(psb_dlinmap_type), intent(inout) :: mapout
integer(psb_ipk_) :: info
call mapout%free(info)
! Base clone!
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
if (info == 0) call &
& map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
if (info == 0) call map%map_X2Y%clone(mapout%map_X2Y,info)
if (info == 0) call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine d_clone
base/modules/psb_d_mat_mod.f90
+1 -1
View File
@@ -613,7 +613,7 @@ module psb_d_mat_mod
subroutine psb_dspmat_clone(a,b,info)
import :: psb_ipk_, psb_dspmat_type
class(psb_dspmat_type), intent(inout) :: a
class(psb_dspmat_type), intent(out) :: b
class(psb_dspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dspmat_clone
end interface
base/modules/psb_s_base_mat_mod.f90
+1 -1
View File
@@ -63,7 +63,6 @@ module psb_s_base_mat_mod
procedure, pass(a) :: get_diag => psb_s_base_get_diag
generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_s_base_csclip
procedure, pass(a) :: mold => psb_s_base_mold
procedure, pass(a) :: cp_to_coo => psb_s_base_cp_to_coo
procedure, pass(a) :: cp_from_coo => psb_s_base_cp_from_coo
procedure, pass(a) :: cp_to_fmt => psb_s_base_cp_to_fmt
@@ -76,6 +75,7 @@ module psb_s_base_mat_mod
generic, public :: cp_from => s_base_cp_from
procedure, pass(a) :: s_base_mv_from
generic, public :: mv_from => s_base_mv_from
procedure, pass(a) :: mold => psb_s_base_mold
procedure, pass(a) :: clone => psb_s_base_clone
!
base/modules/psb_s_linmap_mod.f90
+6 -4
View File
@@ -218,13 +218,15 @@ contains
use psb_desc_mod
implicit none
class(psb_slinmap_type), intent(inout) :: map
class(psb_slinmap_type), intent(out) :: mapout
class(psb_slinmap_type), intent(inout) :: mapout
integer(psb_ipk_) :: info
call mapout%free(info)
! Base clone!
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
if (info == 0) call &
& map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
if (info == 0) call map%map_X2Y%clone(mapout%map_X2Y,info)
if (info == 0) call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine s_clone
base/modules/psb_s_mat_mod.f90
+1 -1
View File
@@ -613,7 +613,7 @@ module psb_s_mat_mod
subroutine psb_sspmat_clone(a,b,info)
import :: psb_ipk_, psb_sspmat_type
class(psb_sspmat_type), intent(inout) :: a
class(psb_sspmat_type), intent(out) :: b
class(psb_sspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(out) :: info
end subroutine psb_sspmat_clone
end interface
base/modules/psb_z_base_mat_mod.f90
+1 -1
View File
@@ -63,7 +63,6 @@ module psb_z_base_mat_mod
procedure, pass(a) :: get_diag => psb_z_base_get_diag
generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_z_base_csclip
procedure, pass(a) :: mold => psb_z_base_mold
procedure, pass(a) :: cp_to_coo => psb_z_base_cp_to_coo
procedure, pass(a) :: cp_from_coo => psb_z_base_cp_from_coo
procedure, pass(a) :: cp_to_fmt => psb_z_base_cp_to_fmt
@@ -76,6 +75,7 @@ module psb_z_base_mat_mod
generic, public :: cp_from => z_base_cp_from
procedure, pass(a) :: z_base_mv_from
generic, public :: mv_from => z_base_mv_from
procedure, pass(a) :: mold => psb_z_base_mold
procedure, pass(a) :: clone => psb_z_base_clone
!
base/modules/psb_z_linmap_mod.f90
+6 -4
View File
@@ -218,13 +218,15 @@ contains
use psb_desc_mod
implicit none
class(psb_zlinmap_type), intent(inout) :: map
class(psb_zlinmap_type), intent(out) :: mapout
class(psb_zlinmap_type), intent(inout) :: mapout
integer(psb_ipk_) :: info
call mapout%free(info)
! Base clone!
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
if (info == 0) call &
& map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
if (info == 0) call map%map_X2Y%clone(mapout%map_X2Y,info)
if (info == 0) call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine z_clone
base/modules/psb_z_mat_mod.f90
+1 -1
View File
@@ -613,7 +613,7 @@ module psb_z_mat_mod
subroutine psb_zspmat_clone(a,b,info)
import :: psb_ipk_, psb_zspmat_type
class(psb_zspmat_type), intent(inout) :: a
class(psb_zspmat_type), intent(out) :: b
class(psb_zspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zspmat_clone
end interface