fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/comm/psb_dspgather.F90
 base/internals/psi_fnd_owner.F90
 base/modules/psb_c_base_mat_mod.f03
 base/modules/psb_c_mat_mod.f03
 base/modules/psb_c_tools_mod.f90
 base/modules/psb_d_mat_mod.f03
 base/modules/psb_d_tools_mod.f90
 base/modules/psb_s_mat_mod.f03
 base/modules/psb_s_tools_mod.f90
 base/modules/psb_z_mat_mod.f03
 base/modules/psb_z_tools_mod.f90
 base/serial/Makefile
 base/serial/f03/psb_c_coo_impl.f03
 base/serial/f03/psb_c_mat_impl.f03
 base/serial/f03/psb_d_mat_impl.f03
 base/serial/f03/psb_s_mat_impl.f03
 base/serial/f03/psb_z_mat_impl.f03
 base/tools/Makefile
 base/tools/psb_cspalloc.f90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_sspalloc.f90
 base/tools/psb_zspalloc.f90

Various fixes arising from compilation with Gfortran. 
Issues:
1. INTENT(OUT) on sparse matrices; besides breaking gfortran, it's
better to have INOUT until FINAL routines are available.
2. Naming conventions in container classes: 
get_nrows => psb_X_get_nrows 
and friends
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 6043c2854b
commit 00531419d6
22 changed files with 370 additions and 442 deletions
Show Stats Download Patch File Download Diff File

3
base/comm/psb_dspgather.F90
Unescape Escape View File

@ -11,7 +11,7 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_d_sparse_mat), intent(inout) :: loca type(psb_d_sparse_mat), intent(inout) :: loca
type(psb_d_sparse_mat), intent(out) :: globa type(psb_d_sparse_mat), intent(inout) :: globa
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
integer, intent(in), optional :: root, dupl integer, intent(in), optional :: root, dupl
@ -44,6 +44,7 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
else else
keeploc_ = .true. keeploc_ = .true.
end if end if
call globa%free()
if (keepnum_) then if (keepnum_) then
nrg = psb_cd_get_global_rows(desc_a) nrg = psb_cd_get_global_rows(desc_a)

6
base/modules/psb_c_base_mat_mod.f03
Unescape Escape View File

@ -81,7 +81,7 @@ module psb_c_base_mat_mod
procedure, pass(a) :: get_diag => psb_c_coo_get_diag procedure, pass(a) :: get_diag => psb_c_coo_get_diag
procedure, pass(a) :: c_csgetrow => psb_c_coo_csgetrow procedure, pass(a) :: c_csgetrow => psb_c_coo_csgetrow
procedure, pass(a) :: csgetptn => psb_c_coo_csgetptn procedure, pass(a) :: csgetptn => psb_c_coo_csgetptn
procedure, pass(a) :: get_nc_row => psb_c_coo_get_nc_row procedure, pass(a) :: get_nz_row => psb_c_coo_get_nz_row
procedure, pass(a) :: reinit => psb_c_coo_reinit procedure, pass(a) :: reinit => psb_c_coo_reinit
procedure, pass(a) :: fix => psb_c_fix_coo procedure, pass(a) :: fix => psb_c_fix_coo
procedure, pass(a) :: trim => psb_c_coo_trim procedure, pass(a) :: trim => psb_c_coo_trim
@ -426,12 +426,12 @@ module psb_c_base_mat_mod
interface interface
function psb_c_coo_get_nc_row(idx,a) result(res) function psb_c_coo_get_nz_row(idx,a) result(res)
import psb_c_coo_sparse_mat import psb_c_coo_sparse_mat
class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(in) :: a
integer, intent(in) :: idx integer, intent(in) :: idx
integer :: res integer :: res
end function psb_c_coo_get_nc_row end function psb_c_coo_get_nz_row
end interface end interface

105
base/modules/psb_c_mat_mod.f03
Unescape Escape View File

@ -10,22 +10,22 @@ module psb_c_mat_mod
contains contains
! Getters ! Getters
procedure, pass(a) :: get_nrows procedure, pass(a) :: get_nrows => psb_c_get_nrows
procedure, pass(a) :: get_ncols procedure, pass(a) :: get_ncols => psb_c_get_ncols
procedure, pass(a) :: get_nzeros procedure, pass(a) :: get_nzeros => psb_c_get_nzeros
procedure, pass(a) :: get_nz_row procedure, pass(a) :: get_nz_row => psb_c_get_nz_row
procedure, pass(a) :: get_size procedure, pass(a) :: get_size => psb_c_get_size
procedure, pass(a) :: get_state procedure, pass(a) :: get_state => psb_c_get_state
procedure, pass(a) :: get_dupl procedure, pass(a) :: get_dupl => psb_c_get_dupl
procedure, pass(a) :: is_null procedure, pass(a) :: is_null => psb_c_is_null
procedure, pass(a) :: is_bld procedure, pass(a) :: is_bld => psb_c_is_bld
procedure, pass(a) :: is_upd procedure, pass(a) :: is_upd => psb_c_is_upd
procedure, pass(a) :: is_asb procedure, pass(a) :: is_asb => psb_c_is_asb
procedure, pass(a) :: is_sorted procedure, pass(a) :: is_sorted => psb_c_is_sorted
procedure, pass(a) :: is_upper procedure, pass(a) :: is_upper => psb_c_is_upper
procedure, pass(a) :: is_lower procedure, pass(a) :: is_lower => psb_c_is_lower
procedure, pass(a) :: is_triangle procedure, pass(a) :: is_triangle => psb_c_is_triangle
procedure, pass(a) :: is_unit procedure, pass(a) :: is_unit => psb_c_is_unit
procedure, pass(a) :: get_fmt => psb_c_get_fmt procedure, pass(a) :: get_fmt => psb_c_get_fmt
procedure, pass(a) :: sizeof => psb_c_sizeof procedure, pass(a) :: sizeof => psb_c_sizeof
@ -99,9 +99,9 @@ module psb_c_mat_mod
end type psb_c_sparse_mat end type psb_c_sparse_mat
private :: get_nrows, get_ncols, get_nzeros, get_size, & private :: psb_c_get_nrows, psb_c_get_ncols, psb_c_get_nzeros, psb_c_get_size, &
& get_state, get_dupl, is_null, is_bld, is_upd, & & psb_c_get_state, psb_c_get_dupl, psb_c_is_null, psb_c_is_bld, psb_c_is_upd, &
& is_asb, is_sorted, is_upper, is_lower, is_triangle & psb_c_is_asb, psb_c_is_sorted, psb_c_is_upper, psb_c_is_lower, psb_c_is_triangle
interface psb_sizeof interface psb_sizeof
module procedure psb_c_sizeof module procedure psb_c_sizeof
@ -638,8 +638,7 @@ contains
end function psb_c_get_fmt end function psb_c_get_fmt
function psb_c_get_dupl(a) result(res)
function get_dupl(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -649,10 +648,10 @@ contains
else else
res = psb_invalid_ res = psb_invalid_
end if end if
end function get_dupl end function psb_c_get_dupl
function get_state(a) result(res) function psb_c_get_state(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -662,9 +661,9 @@ contains
else else
res = psb_spmat_null_ res = psb_spmat_null_
end if end if
end function get_state end function psb_c_get_state
function get_nrows(a) result(res) function psb_c_get_nrows(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -675,9 +674,9 @@ contains
res = 0 res = 0
end if end if
end function get_nrows end function psb_c_get_nrows
function get_ncols(a) result(res) function psb_c_get_ncols(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -688,9 +687,9 @@ contains
res = 0 res = 0
end if end if
end function get_ncols end function psb_c_get_ncols
function is_triangle(a) result(res) function psb_c_is_triangle(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -701,9 +700,9 @@ contains
res = .false. res = .false.
end if end if
end function is_triangle end function psb_c_is_triangle
function is_unit(a) result(res) function psb_c_is_unit(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -714,9 +713,9 @@ contains
res = .false. res = .false.
end if end if
end function is_unit end function psb_c_is_unit
function is_upper(a) result(res) function psb_c_is_upper(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -727,9 +726,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upper end function psb_c_is_upper
function is_lower(a) result(res) function psb_c_is_lower(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -740,9 +739,9 @@ contains
res = .false. res = .false.
end if end if
end function is_lower end function psb_c_is_lower
function is_null(a) result(res) function psb_c_is_null(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -753,9 +752,9 @@ contains
res = .true. res = .true.
end if end if
end function is_null end function psb_c_is_null
function is_bld(a) result(res) function psb_c_is_bld(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -766,9 +765,9 @@ contains
res = .false. res = .false.
end if end if
end function is_bld end function psb_c_is_bld
function is_upd(a) result(res) function psb_c_is_upd(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -779,9 +778,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upd end function psb_c_is_upd
function is_asb(a) result(res) function psb_c_is_asb(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -792,9 +791,9 @@ contains
res = .false. res = .false.
end if end if
end function is_asb end function psb_c_is_asb
function is_sorted(a) result(res) function psb_c_is_sorted(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -805,11 +804,11 @@ contains
res = .false. res = .false.
end if end if
end function is_sorted end function psb_c_is_sorted
function get_nzeros(a) result(res) function psb_c_get_nzeros(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -819,9 +818,9 @@ contains
res = a%a%get_nzeros() res = a%a%get_nzeros()
end if end if
end function get_nzeros end function psb_c_get_nzeros
function get_size(a) result(res) function psb_c_get_size(a) result(res)
implicit none implicit none
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
@ -833,22 +832,20 @@ contains
res = a%a%get_size() res = a%a%get_size()
end if end if
end function get_size end function psb_c_get_size
function get_nz_row(idx,a) result(res) function psb_c_get_nz_row(idx,a) result(res)
implicit none implicit none
integer, intent(in) :: idx integer, intent(in) :: idx
class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(in) :: a
integer :: res integer :: res
Integer :: err_act
res = 0 res = 0
if (allocated(a%a)) res = a%a%get_nz_row(idx) if (allocated(a%a)) res = a%a%get_nz_row(idx)
end function get_nz_row end function psb_c_get_nz_row
end module psb_c_mat_mod end module psb_c_mat_mod

4
base/modules/psb_c_tools_mod.f90
Unescape Escape View File

@ -138,8 +138,8 @@ Module psb_c_tools_mod
subroutine psb_cspalloc(a, desc_a, info, nnz) subroutine psb_cspalloc(a, desc_a, info, nnz)
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
use psb_mat_mod, only : psb_c_sparse_mat use psb_mat_mod, only : psb_c_sparse_mat
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_c_sparse_mat), intent(out) :: a type(psb_c_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
end subroutine psb_cspalloc end subroutine psb_cspalloc

217
base/modules/psb_d_mat_mod.f03
Unescape Escape View File

@ -10,22 +10,22 @@ module psb_d_mat_mod
contains contains
! Getters ! Getters
procedure, pass(a) :: get_nrows procedure, pass(a) :: get_nrows => psb_d_get_nrows
procedure, pass(a) :: get_ncols procedure, pass(a) :: get_ncols => psb_d_get_ncols
procedure, pass(a) :: get_nzeros procedure, pass(a) :: get_nzeros => psb_d_get_nzeros
procedure, pass(a) :: get_nz_row procedure, pass(a) :: get_nz_row => psb_d_get_nz_row
procedure, pass(a) :: get_size procedure, pass(a) :: get_size => psb_d_get_size
procedure, pass(a) :: get_state procedure, pass(a) :: get_state => psb_d_get_state
procedure, pass(a) :: get_dupl procedure, pass(a) :: get_dupl => psb_d_get_dupl
procedure, pass(a) :: is_null procedure, pass(a) :: is_null => psb_d_is_null
procedure, pass(a) :: is_bld procedure, pass(a) :: is_bld => psb_d_is_bld
procedure, pass(a) :: is_upd procedure, pass(a) :: is_upd => psb_d_is_upd
procedure, pass(a) :: is_asb procedure, pass(a) :: is_asb => psb_d_is_asb
procedure, pass(a) :: is_sorted procedure, pass(a) :: is_sorted => psb_d_is_sorted
procedure, pass(a) :: is_upper procedure, pass(a) :: is_upper => psb_d_is_upper
procedure, pass(a) :: is_lower procedure, pass(a) :: is_lower => psb_d_is_lower
procedure, pass(a) :: is_triangle procedure, pass(a) :: is_triangle => psb_d_is_triangle
procedure, pass(a) :: is_unit procedure, pass(a) :: is_unit => psb_d_is_unit
procedure, pass(a) :: get_fmt => psb_d_get_fmt procedure, pass(a) :: get_fmt => psb_d_get_fmt
procedure, pass(a) :: sizeof => psb_d_sizeof procedure, pass(a) :: sizeof => psb_d_sizeof
@ -82,8 +82,8 @@ module psb_d_mat_mod
procedure, pass(a) :: d_transc_2mat => psb_d_transc_2mat procedure, pass(a) :: d_transc_2mat => psb_d_transc_2mat
generic, public :: transc => d_transc_1mat, d_transc_2mat generic, public :: transc => d_transc_1mat, d_transc_2mat
! Computational routines ! Computational routines
procedure, pass(a) :: get_diag => psb_d_get_diag procedure, pass(a) :: get_diag => psb_d_get_diag
procedure, pass(a) :: csnmi => psb_d_csnmi procedure, pass(a) :: csnmi => psb_d_csnmi
@ -99,9 +99,9 @@ module psb_d_mat_mod
end type psb_d_sparse_mat end type psb_d_sparse_mat
private :: get_nrows, get_ncols, get_nzeros, get_size, & private :: psb_d_get_nrows, psb_d_get_ncols, psb_d_get_nzeros, psb_d_get_size, &
& get_state, get_dupl, is_null, is_bld, is_upd, & & psb_d_get_state, psb_d_get_dupl, psb_d_is_null, psb_d_is_bld, psb_d_is_upd, &
& is_asb, is_sorted, is_upper, is_lower, is_triangle & psb_d_is_asb, psb_d_is_sorted, psb_d_is_upper, psb_d_is_lower, psb_d_is_triangle
interface psb_sizeof interface psb_sizeof
module procedure psb_d_sizeof module procedure psb_d_sizeof
@ -129,7 +129,7 @@ module psb_d_mat_mod
integer, intent(in) :: m integer, intent(in) :: m
end subroutine psb_d_set_nrows end subroutine psb_d_set_nrows
end interface end interface
interface interface
subroutine psb_d_set_ncols(n,a) subroutine psb_d_set_ncols(n,a)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -137,7 +137,7 @@ module psb_d_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_d_set_ncols end subroutine psb_d_set_ncols
end interface end interface
interface interface
subroutine psb_d_set_state(n,a) subroutine psb_d_set_state(n,a)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -145,7 +145,7 @@ module psb_d_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_d_set_state end subroutine psb_d_set_state
end interface end interface
interface interface
subroutine psb_d_set_dupl(n,a) subroutine psb_d_set_dupl(n,a)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -153,35 +153,35 @@ module psb_d_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_d_set_dupl end subroutine psb_d_set_dupl
end interface end interface
interface interface
subroutine psb_d_set_null(a) subroutine psb_d_set_null(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_set_null end subroutine psb_d_set_null
end interface end interface
interface interface
subroutine psb_d_set_bld(a) subroutine psb_d_set_bld(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_set_bld end subroutine psb_d_set_bld
end interface end interface
interface interface
subroutine psb_d_set_upd(a) subroutine psb_d_set_upd(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_set_upd end subroutine psb_d_set_upd
end interface end interface
interface interface
subroutine psb_d_set_asb(a) subroutine psb_d_set_asb(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_set_asb end subroutine psb_d_set_asb
end interface end interface
interface interface
subroutine psb_d_set_sorted(a,val) subroutine psb_d_set_sorted(a,val)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -189,7 +189,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_d_set_sorted end subroutine psb_d_set_sorted
end interface end interface
interface interface
subroutine psb_d_set_triangle(a,val) subroutine psb_d_set_triangle(a,val)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -197,7 +197,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_d_set_triangle end subroutine psb_d_set_triangle
end interface end interface
interface interface
subroutine psb_d_set_unit(a,val) subroutine psb_d_set_unit(a,val)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -205,7 +205,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_d_set_unit end subroutine psb_d_set_unit
end interface end interface
interface interface
subroutine psb_d_set_lower(a,val) subroutine psb_d_set_lower(a,val)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -213,7 +213,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_d_set_lower end subroutine psb_d_set_lower
end interface end interface
interface interface
subroutine psb_d_set_upper(a,val) subroutine psb_d_set_upper(a,val)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -221,8 +221,8 @@ module psb_d_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_d_set_upper end subroutine psb_d_set_upper
end interface end interface
interface interface
subroutine psb_d_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) subroutine psb_d_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -234,7 +234,7 @@ module psb_d_mat_mod
integer, intent(in), optional :: ivr(:), ivc(:) integer, intent(in), optional :: ivr(:), ivc(:)
end subroutine psb_d_sparse_print end subroutine psb_d_sparse_print
end interface end interface
interface interface
subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -246,7 +246,7 @@ module psb_d_mat_mod
integer, optional, intent(in) :: lev integer, optional, intent(in) :: lev
end subroutine psb_d_get_neigh end subroutine psb_d_get_neigh
end interface end interface
interface interface
subroutine psb_d_csall(nr,nc,a,info,nz) subroutine psb_d_csall(nr,nc,a,info,nz)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -256,7 +256,7 @@ module psb_d_mat_mod
integer, intent(in), optional :: nz integer, intent(in), optional :: nz
end subroutine psb_d_csall end subroutine psb_d_csall
end interface end interface
interface interface
subroutine psb_d_reallocate_nz(nz,a) subroutine psb_d_reallocate_nz(nz,a)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -264,21 +264,21 @@ module psb_d_mat_mod
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_reallocate_nz end subroutine psb_d_reallocate_nz
end interface end interface
interface interface
subroutine psb_d_free(a) subroutine psb_d_free(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_free end subroutine psb_d_free
end interface end interface
interface interface
subroutine psb_d_trim(a) subroutine psb_d_trim(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_trim end subroutine psb_d_trim
end interface end interface
interface interface
subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
@ -289,10 +289,10 @@ module psb_d_mat_mod
integer, intent(in), optional :: gtl(:) integer, intent(in), optional :: gtl(:)
end subroutine psb_d_csput end subroutine psb_d_csput
end interface end interface
interface interface
subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer, intent(in) :: imin,imax integer, intent(in) :: imin,imax
@ -305,7 +305,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_d_csgetptn end subroutine psb_d_csgetptn
end interface end interface
interface interface
subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale)
@ -322,10 +322,10 @@ module psb_d_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_d_csgetrow end subroutine psb_d_csgetrow
end interface end interface
interface interface
subroutine psb_d_csgetblk(imin,imax,a,b,info,& subroutine psb_d_csgetblk(imin,imax,a,b,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin,jmax,iren,append,rscale,cscale)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
class(psb_d_sparse_mat), intent(out) :: b class(psb_d_sparse_mat), intent(out) :: b
@ -337,10 +337,10 @@ module psb_d_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_d_csgetblk end subroutine psb_d_csgetblk
end interface end interface
interface interface
subroutine psb_d_csclip(a,b,info,& subroutine psb_d_csclip(a,b,info,&
& imin,imax,jmin,jmax,rscale,cscale) & imin,imax,jmin,jmax,rscale,cscale)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
class(psb_d_sparse_mat), intent(out) :: b class(psb_d_sparse_mat), intent(out) :: b
@ -349,10 +349,10 @@ module psb_d_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_d_csclip end subroutine psb_d_csclip
end interface end interface
interface interface
subroutine psb_d_b_csclip(a,b,info,& subroutine psb_d_b_csclip(a,b,info,&
& imin,imax,jmin,jmax,rscale,cscale) & imin,imax,jmin,jmax,rscale,cscale)
import psb_d_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
type(psb_d_coo_sparse_mat), intent(out) :: b type(psb_d_coo_sparse_mat), intent(out) :: b
@ -361,7 +361,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_d_b_csclip end subroutine psb_d_b_csclip
end interface end interface
interface interface
subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat
@ -373,7 +373,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(in), optional :: mold class(psb_d_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_d_cscnv end subroutine psb_d_cscnv
end interface end interface
interface interface
subroutine psb_d_cscnv_ip(a,iinfo,type,mold,dupl) subroutine psb_d_cscnv_ip(a,iinfo,type,mold,dupl)
@ -385,7 +385,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(in), optional :: mold class(psb_d_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_d_cscnv_ip end subroutine psb_d_cscnv_ip
end interface end interface
interface interface
subroutine psb_d_cscnv_base(a,b,info,dupl) subroutine psb_d_cscnv_base(a,b,info,dupl)
@ -396,7 +396,7 @@ module psb_d_mat_mod
integer,optional, intent(in) :: dupl integer,optional, intent(in) :: dupl
end subroutine psb_d_cscnv_base end subroutine psb_d_cscnv_base
end interface end interface
interface interface
subroutine psb_d_clip_d(a,b,info) subroutine psb_d_clip_d(a,b,info)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -405,7 +405,7 @@ module psb_d_mat_mod
integer,intent(out) :: info integer,intent(out) :: info
end subroutine psb_d_clip_d end subroutine psb_d_clip_d
end interface end interface
interface interface
subroutine psb_d_clip_d_ip(a,info) subroutine psb_d_clip_d_ip(a,info)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -413,7 +413,7 @@ module psb_d_mat_mod
integer,intent(out) :: info integer,intent(out) :: info
end subroutine psb_d_clip_d_ip end subroutine psb_d_clip_d_ip
end interface end interface
interface interface
subroutine psb_d_mv_from(a,b) subroutine psb_d_mv_from(a,b)
import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat
@ -421,7 +421,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(inout) :: b class(psb_d_base_sparse_mat), intent(inout) :: b
end subroutine psb_d_mv_from end subroutine psb_d_mv_from
end interface end interface
interface interface
subroutine psb_d_cp_from(a,b) subroutine psb_d_cp_from(a,b)
import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat
@ -429,7 +429,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(inout), allocatable :: b class(psb_d_base_sparse_mat), intent(inout), allocatable :: b
end subroutine psb_d_cp_from end subroutine psb_d_cp_from
end interface end interface
interface interface
subroutine psb_d_mv_to(a,b) subroutine psb_d_mv_to(a,b)
import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat
@ -437,7 +437,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(out) :: b class(psb_d_base_sparse_mat), intent(out) :: b
end subroutine psb_d_mv_to end subroutine psb_d_mv_to
end interface end interface
interface interface
subroutine psb_d_cp_to(a,b) subroutine psb_d_cp_to(a,b)
import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat
@ -445,7 +445,7 @@ module psb_d_mat_mod
class(psb_d_base_sparse_mat), intent(out) :: b class(psb_d_base_sparse_mat), intent(out) :: b
end subroutine psb_d_cp_to end subroutine psb_d_cp_to
end interface end interface
interface psb_move_alloc interface psb_move_alloc
subroutine psb_d_sparse_mat_move(a,b,info) subroutine psb_d_sparse_mat_move(a,b,info)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -454,7 +454,7 @@ module psb_d_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_d_sparse_mat_move end subroutine psb_d_sparse_mat_move
end interface end interface
interface psb_clone interface psb_clone
subroutine psb_d_sparse_mat_clone(a,b,info) subroutine psb_d_sparse_mat_clone(a,b,info)
@ -464,14 +464,14 @@ module psb_d_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_d_sparse_mat_clone end subroutine psb_d_sparse_mat_clone
end interface end interface
interface interface
subroutine psb_d_transp_1mat(a) subroutine psb_d_transp_1mat(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_transp_1mat end subroutine psb_d_transp_1mat
end interface end interface
interface interface
subroutine psb_d_transp_2mat(a,b) subroutine psb_d_transp_2mat(a,b)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -479,14 +479,14 @@ module psb_d_mat_mod
class(psb_d_sparse_mat), intent(in) :: b class(psb_d_sparse_mat), intent(in) :: b
end subroutine psb_d_transp_2mat end subroutine psb_d_transp_2mat
end interface end interface
interface interface
subroutine psb_d_transc_1mat(a) subroutine psb_d_transc_1mat(a)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
end subroutine psb_d_transc_1mat end subroutine psb_d_transc_1mat
end interface end interface
interface interface
subroutine psb_d_transc_2mat(a,b) subroutine psb_d_transc_2mat(a,b)
import psb_d_sparse_mat import psb_d_sparse_mat
@ -494,16 +494,15 @@ module psb_d_mat_mod
class(psb_d_sparse_mat), intent(in) :: b class(psb_d_sparse_mat), intent(in) :: b
end subroutine psb_d_transc_2mat end subroutine psb_d_transc_2mat
end interface end interface
interface interface
subroutine psb_d_reinit(a,clear) subroutine psb_d_reinit(a,clear)
import psb_d_sparse_mat import psb_d_sparse_mat
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
logical, intent(in), optional :: clear logical, intent(in), optional :: clear
end subroutine psb_d_reinit end subroutine psb_d_reinit
end interface end interface
! == =================================== ! == ===================================
@ -537,7 +536,7 @@ module psb_d_mat_mod
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
end subroutine psb_d_csmv end subroutine psb_d_csmv
end interface end interface
interface psb_cssm interface psb_cssm
subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
@ -558,7 +557,7 @@ module psb_d_mat_mod
real(psb_dpk_), intent(in), optional :: d(:) real(psb_dpk_), intent(in), optional :: d(:)
end subroutine psb_d_cssv end subroutine psb_d_cssv
end interface end interface
interface interface
function psb_d_csnmi(a) result(res) function psb_d_csnmi(a) result(res)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
@ -566,7 +565,7 @@ module psb_d_mat_mod
real(psb_dpk_) :: res real(psb_dpk_) :: res
end function psb_d_csnmi end function psb_d_csnmi
end interface end interface
interface interface
subroutine psb_d_get_diag(a,d,info) subroutine psb_d_get_diag(a,d,info)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
@ -575,7 +574,7 @@ module psb_d_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_d_get_diag end subroutine psb_d_get_diag
end interface end interface
interface psb_scal interface psb_scal
subroutine psb_d_scal(d,a,info) subroutine psb_d_scal(d,a,info)
import psb_d_sparse_mat, psb_dpk_ import psb_d_sparse_mat, psb_dpk_
@ -609,17 +608,17 @@ contains
! !
! == =================================== ! == ===================================
function psb_d_sizeof(a) result(res) function psb_d_sizeof(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res integer(psb_long_int_k_) :: res
res = 0 res = 0
if (allocated(a%a)) then if (allocated(a%a)) then
res = a%a%sizeof() res = a%a%sizeof()
end if end if
end function psb_d_sizeof end function psb_d_sizeof
@ -639,7 +638,7 @@ contains
function get_dupl(a) result(res) function psb_d_get_dupl(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -649,10 +648,10 @@ contains
else else
res = psb_invalid_ res = psb_invalid_
end if end if
end function get_dupl end function psb_d_get_dupl
function get_state(a) result(res) function psb_d_get_state(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -662,9 +661,9 @@ contains
else else
res = psb_spmat_null_ res = psb_spmat_null_
end if end if
end function get_state end function psb_d_get_state
function get_nrows(a) result(res) function psb_d_get_nrows(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -675,9 +674,9 @@ contains
res = 0 res = 0
end if end if
end function get_nrows end function psb_d_get_nrows
function get_ncols(a) result(res) function psb_d_get_ncols(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -688,9 +687,9 @@ contains
res = 0 res = 0
end if end if
end function get_ncols end function psb_d_get_ncols
function is_triangle(a) result(res) function psb_d_is_triangle(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -701,9 +700,9 @@ contains
res = .false. res = .false.
end if end if
end function is_triangle end function psb_d_is_triangle
function is_unit(a) result(res) function psb_d_is_unit(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -714,9 +713,9 @@ contains
res = .false. res = .false.
end if end if
end function is_unit end function psb_d_is_unit
function is_upper(a) result(res) function psb_d_is_upper(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -727,9 +726,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upper end function psb_d_is_upper
function is_lower(a) result(res) function psb_d_is_lower(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -740,9 +739,9 @@ contains
res = .false. res = .false.
end if end if
end function is_lower end function psb_d_is_lower
function is_null(a) result(res) function psb_d_is_null(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -753,9 +752,9 @@ contains
res = .true. res = .true.
end if end if
end function is_null end function psb_d_is_null
function is_bld(a) result(res) function psb_d_is_bld(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -766,9 +765,9 @@ contains
res = .false. res = .false.
end if end if
end function is_bld end function psb_d_is_bld
function is_upd(a) result(res) function psb_d_is_upd(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -779,9 +778,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upd end function psb_d_is_upd
function is_asb(a) result(res) function psb_d_is_asb(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -792,9 +791,9 @@ contains
res = .false. res = .false.
end if end if
end function is_asb end function psb_d_is_asb
function is_sorted(a) result(res) function psb_d_is_sorted(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -805,11 +804,11 @@ contains
res = .false. res = .false.
end if end if
end function is_sorted end function psb_d_is_sorted
function get_nzeros(a) result(res) function psb_d_get_nzeros(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -819,9 +818,9 @@ contains
res = a%a%get_nzeros() res = a%a%get_nzeros()
end if end if
end function get_nzeros end function psb_d_get_nzeros
function get_size(a) result(res) function psb_d_get_size(a) result(res)
implicit none implicit none
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
@ -833,22 +832,22 @@ contains
res = a%a%get_size() res = a%a%get_size()
end if end if
end function get_size end function psb_d_get_size
function get_nz_row(idx,a) result(res) function psb_d_get_nz_row(idx,a) result(res)
implicit none implicit none
integer, intent(in) :: idx integer, intent(in) :: idx
class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(in) :: a
integer :: res integer :: res
Integer :: err_act Integer :: err_act
res = 0 res = 0
if (allocated(a%a)) res = a%a%get_nz_row(idx) if (allocated(a%a)) res = a%a%get_nz_row(idx)
end function get_nz_row end function psb_d_get_nz_row
end module psb_d_mat_mod end module psb_d_mat_mod

14
base/modules/psb_d_tools_mod.f90
Unescape Escape View File

@ -109,13 +109,13 @@ Module psb_d_tools_mod
end subroutine psb_dinsi end subroutine psb_dinsi
subroutine psb_dinsvi(m,irw,val,x,desc_a,info,dupl) subroutine psb_dinsvi(m,irw,val,x,desc_a,info,dupl)
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
integer, intent(in) :: m integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
integer, intent(in) :: irw(:) integer, intent(in) :: irw(:)
real(psb_dpk_), intent(in) :: val(:) real(psb_dpk_), intent(in) :: val(:)
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: dupl integer, optional, intent(in) :: dupl
end subroutine psb_dinsvi end subroutine psb_dinsvi
end interface end interface
@ -137,8 +137,8 @@ Module psb_d_tools_mod
subroutine psb_dspalloc(a, desc_a, info, nnz) subroutine psb_dspalloc(a, desc_a, info, nnz)
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
use psb_mat_mod, only : psb_d_sparse_mat use psb_mat_mod, only : psb_d_sparse_mat
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_d_sparse_mat), intent(out) :: a type(psb_d_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
end subroutine psb_dspalloc end subroutine psb_dspalloc

218
base/modules/psb_s_mat_mod.f03
Unescape Escape View File

@ -10,22 +10,22 @@ module psb_s_mat_mod
contains contains
! Getters ! Getters
procedure, pass(a) :: get_nrows procedure, pass(a) :: get_nrows => psb_s_get_nrows
procedure, pass(a) :: get_ncols procedure, pass(a) :: get_ncols => psb_s_get_ncols
procedure, pass(a) :: get_nzeros procedure, pass(a) :: get_nzeros => psb_s_get_nzeros
procedure, pass(a) :: get_nz_row procedure, pass(a) :: get_nz_row => psb_s_get_nz_row
procedure, pass(a) :: get_size procedure, pass(a) :: get_size => psb_s_get_size
procedure, pass(a) :: get_state procedure, pass(a) :: get_state => psb_s_get_state
procedure, pass(a) :: get_dupl procedure, pass(a) :: get_dupl => psb_s_get_dupl
procedure, pass(a) :: is_null procedure, pass(a) :: is_null => psb_s_is_null
procedure, pass(a) :: is_bld procedure, pass(a) :: is_bld => psb_s_is_bld
procedure, pass(a) :: is_upd procedure, pass(a) :: is_upd => psb_s_is_upd
procedure, pass(a) :: is_asb procedure, pass(a) :: is_asb => psb_s_is_asb
procedure, pass(a) :: is_sorted procedure, pass(a) :: is_sorted => psb_s_is_sorted
procedure, pass(a) :: is_upper procedure, pass(a) :: is_upper => psb_s_is_upper
procedure, pass(a) :: is_lower procedure, pass(a) :: is_lower => psb_s_is_lower
procedure, pass(a) :: is_triangle procedure, pass(a) :: is_triangle => psb_s_is_triangle
procedure, pass(a) :: is_unit procedure, pass(a) :: is_unit => psb_s_is_unit
procedure, pass(a) :: get_fmt => psb_s_get_fmt procedure, pass(a) :: get_fmt => psb_s_get_fmt
procedure, pass(a) :: sizeof => psb_s_sizeof procedure, pass(a) :: sizeof => psb_s_sizeof
@ -82,8 +82,8 @@ module psb_s_mat_mod
procedure, pass(a) :: s_transc_2mat => psb_s_transc_2mat procedure, pass(a) :: s_transc_2mat => psb_s_transc_2mat
generic, public :: transc => s_transc_1mat, s_transc_2mat generic, public :: transc => s_transc_1mat, s_transc_2mat
! Computational routines ! Computational routines
procedure, pass(a) :: get_diag => psb_s_get_diag procedure, pass(a) :: get_diag => psb_s_get_diag
procedure, pass(a) :: csnmi => psb_s_csnmi procedure, pass(a) :: csnmi => psb_s_csnmi
@ -99,9 +99,9 @@ module psb_s_mat_mod
end type psb_s_sparse_mat end type psb_s_sparse_mat
private :: get_nrows, get_ncols, get_nzeros, get_size, & private :: psb_s_get_nrows, psb_s_get_ncols, get_nzeros, psb_s_get_size, &
& get_state, get_dupl, is_null, is_bld, is_upd, & & psb_s_get_state, psb_s_get_dupl, psb_s_is_null, psb_s_is_bld, psb_s_is_upd, &
& is_asb, is_sorted, is_upper, is_lower, is_triangle & psb_s_is_asb, psb_s_is_sorted, psb_s_is_upper, psb_s_is_lower, psb_s_is_triangle
interface psb_sizeof interface psb_sizeof
module procedure psb_s_sizeof module procedure psb_s_sizeof
@ -129,7 +129,7 @@ module psb_s_mat_mod
integer, intent(in) :: m integer, intent(in) :: m
end subroutine psb_s_set_nrows end subroutine psb_s_set_nrows
end interface end interface
interface interface
subroutine psb_s_set_ncols(n,a) subroutine psb_s_set_ncols(n,a)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -137,7 +137,7 @@ module psb_s_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_s_set_ncols end subroutine psb_s_set_ncols
end interface end interface
interface interface
subroutine psb_s_set_state(n,a) subroutine psb_s_set_state(n,a)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -145,7 +145,7 @@ module psb_s_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_s_set_state end subroutine psb_s_set_state
end interface end interface
interface interface
subroutine psb_s_set_dupl(n,a) subroutine psb_s_set_dupl(n,a)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -153,35 +153,35 @@ module psb_s_mat_mod
integer, intent(in) :: n integer, intent(in) :: n
end subroutine psb_s_set_dupl end subroutine psb_s_set_dupl
end interface end interface
interface interface
subroutine psb_s_set_null(a) subroutine psb_s_set_null(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_set_null end subroutine psb_s_set_null
end interface end interface
interface interface
subroutine psb_s_set_bld(a) subroutine psb_s_set_bld(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_set_bld end subroutine psb_s_set_bld
end interface end interface
interface interface
subroutine psb_s_set_upd(a) subroutine psb_s_set_upd(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_set_upd end subroutine psb_s_set_upd
end interface end interface
interface interface
subroutine psb_s_set_asb(a) subroutine psb_s_set_asb(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_set_asb end subroutine psb_s_set_asb
end interface end interface
interface interface
subroutine psb_s_set_sorted(a,val) subroutine psb_s_set_sorted(a,val)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -189,7 +189,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_s_set_sorted end subroutine psb_s_set_sorted
end interface end interface
interface interface
subroutine psb_s_set_triangle(a,val) subroutine psb_s_set_triangle(a,val)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -197,7 +197,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_s_set_triangle end subroutine psb_s_set_triangle
end interface end interface
interface interface
subroutine psb_s_set_unit(a,val) subroutine psb_s_set_unit(a,val)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -205,7 +205,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_s_set_unit end subroutine psb_s_set_unit
end interface end interface
interface interface
subroutine psb_s_set_lower(a,val) subroutine psb_s_set_lower(a,val)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -213,7 +213,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_s_set_lower end subroutine psb_s_set_lower
end interface end interface
interface interface
subroutine psb_s_set_upper(a,val) subroutine psb_s_set_upper(a,val)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -221,8 +221,8 @@ module psb_s_mat_mod
logical, intent(in), optional :: val logical, intent(in), optional :: val
end subroutine psb_s_set_upper end subroutine psb_s_set_upper
end interface end interface
interface interface
subroutine psb_s_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) subroutine psb_s_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -234,7 +234,7 @@ module psb_s_mat_mod
integer, intent(in), optional :: ivr(:), ivc(:) integer, intent(in), optional :: ivr(:), ivc(:)
end subroutine psb_s_sparse_print end subroutine psb_s_sparse_print
end interface end interface
interface interface
subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -246,7 +246,7 @@ module psb_s_mat_mod
integer, optional, intent(in) :: lev integer, optional, intent(in) :: lev
end subroutine psb_s_get_neigh end subroutine psb_s_get_neigh
end interface end interface
interface interface
subroutine psb_s_csall(nr,nc,a,info,nz) subroutine psb_s_csall(nr,nc,a,info,nz)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -256,7 +256,7 @@ module psb_s_mat_mod
integer, intent(in), optional :: nz integer, intent(in), optional :: nz
end subroutine psb_s_csall end subroutine psb_s_csall
end interface end interface
interface interface
subroutine psb_s_reallocate_nz(nz,a) subroutine psb_s_reallocate_nz(nz,a)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -264,21 +264,21 @@ module psb_s_mat_mod
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_reallocate_nz end subroutine psb_s_reallocate_nz
end interface end interface
interface interface
subroutine psb_s_free(a) subroutine psb_s_free(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_free end subroutine psb_s_free
end interface end interface
interface interface
subroutine psb_s_trim(a) subroutine psb_s_trim(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_trim end subroutine psb_s_trim
end interface end interface
interface interface
subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
@ -289,10 +289,10 @@ module psb_s_mat_mod
integer, intent(in), optional :: gtl(:) integer, intent(in), optional :: gtl(:)
end subroutine psb_s_csput end subroutine psb_s_csput
end interface end interface
interface interface
subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer, intent(in) :: imin,imax integer, intent(in) :: imin,imax
@ -305,7 +305,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_s_csgetptn end subroutine psb_s_csgetptn
end interface end interface
interface interface
subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale)
@ -322,10 +322,10 @@ module psb_s_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_s_csgetrow end subroutine psb_s_csgetrow
end interface end interface
interface interface
subroutine psb_s_csgetblk(imin,imax,a,b,info,& subroutine psb_s_csgetblk(imin,imax,a,b,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin,jmax,iren,append,rscale,cscale)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
class(psb_s_sparse_mat), intent(out) :: b class(psb_s_sparse_mat), intent(out) :: b
@ -337,10 +337,10 @@ module psb_s_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_s_csgetblk end subroutine psb_s_csgetblk
end interface end interface
interface interface
subroutine psb_s_csclip(a,b,info,& subroutine psb_s_csclip(a,b,info,&
& imin,imax,jmin,jmax,rscale,cscale) & imin,imax,jmin,jmax,rscale,cscale)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
class(psb_s_sparse_mat), intent(out) :: b class(psb_s_sparse_mat), intent(out) :: b
@ -349,10 +349,10 @@ module psb_s_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_s_csclip end subroutine psb_s_csclip
end interface end interface
interface interface
subroutine psb_s_b_csclip(a,b,info,& subroutine psb_s_b_csclip(a,b,info,&
& imin,imax,jmin,jmax,rscale,cscale) & imin,imax,jmin,jmax,rscale,cscale)
import psb_s_sparse_mat, psb_spk_, psb_s_coo_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_coo_sparse_mat
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
type(psb_s_coo_sparse_mat), intent(out) :: b type(psb_s_coo_sparse_mat), intent(out) :: b
@ -361,7 +361,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale
end subroutine psb_s_b_csclip end subroutine psb_s_b_csclip
end interface end interface
interface interface
subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat
@ -373,7 +373,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(in), optional :: mold class(psb_s_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_s_cscnv end subroutine psb_s_cscnv
end interface end interface
interface interface
subroutine psb_s_cscnv_ip(a,iinfo,type,mold,dupl) subroutine psb_s_cscnv_ip(a,iinfo,type,mold,dupl)
@ -385,7 +385,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(in), optional :: mold class(psb_s_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_s_cscnv_ip end subroutine psb_s_cscnv_ip
end interface end interface
interface interface
subroutine psb_s_cscnv_base(a,b,info,dupl) subroutine psb_s_cscnv_base(a,b,info,dupl)
@ -396,7 +396,7 @@ module psb_s_mat_mod
integer,optional, intent(in) :: dupl integer,optional, intent(in) :: dupl
end subroutine psb_s_cscnv_base end subroutine psb_s_cscnv_base
end interface end interface
interface interface
subroutine psb_s_clip_d(a,b,info) subroutine psb_s_clip_d(a,b,info)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -405,7 +405,7 @@ module psb_s_mat_mod
integer,intent(out) :: info integer,intent(out) :: info
end subroutine psb_s_clip_d end subroutine psb_s_clip_d
end interface end interface
interface interface
subroutine psb_s_clip_d_ip(a,info) subroutine psb_s_clip_d_ip(a,info)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -413,7 +413,7 @@ module psb_s_mat_mod
integer,intent(out) :: info integer,intent(out) :: info
end subroutine psb_s_clip_d_ip end subroutine psb_s_clip_d_ip
end interface end interface
interface interface
subroutine psb_s_mv_from(a,b) subroutine psb_s_mv_from(a,b)
import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat
@ -421,7 +421,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(inout) :: b class(psb_s_base_sparse_mat), intent(inout) :: b
end subroutine psb_s_mv_from end subroutine psb_s_mv_from
end interface end interface
interface interface
subroutine psb_s_cp_from(a,b) subroutine psb_s_cp_from(a,b)
import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat
@ -429,7 +429,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(inout), allocatable :: b class(psb_s_base_sparse_mat), intent(inout), allocatable :: b
end subroutine psb_s_cp_from end subroutine psb_s_cp_from
end interface end interface
interface interface
subroutine psb_s_mv_to(a,b) subroutine psb_s_mv_to(a,b)
import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat
@ -437,7 +437,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(out) :: b class(psb_s_base_sparse_mat), intent(out) :: b
end subroutine psb_s_mv_to end subroutine psb_s_mv_to
end interface end interface
interface interface
subroutine psb_s_cp_to(a,b) subroutine psb_s_cp_to(a,b)
import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat
@ -445,7 +445,7 @@ module psb_s_mat_mod
class(psb_s_base_sparse_mat), intent(out) :: b class(psb_s_base_sparse_mat), intent(out) :: b
end subroutine psb_s_cp_to end subroutine psb_s_cp_to
end interface end interface
interface psb_move_alloc interface psb_move_alloc
subroutine psb_s_sparse_mat_move(a,b,info) subroutine psb_s_sparse_mat_move(a,b,info)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -454,7 +454,7 @@ module psb_s_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_s_sparse_mat_move end subroutine psb_s_sparse_mat_move
end interface end interface
interface psb_clone interface psb_clone
subroutine psb_s_sparse_mat_clone(a,b,info) subroutine psb_s_sparse_mat_clone(a,b,info)
@ -464,14 +464,14 @@ module psb_s_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_s_sparse_mat_clone end subroutine psb_s_sparse_mat_clone
end interface end interface
interface interface
subroutine psb_s_transp_1mat(a) subroutine psb_s_transp_1mat(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_transp_1mat end subroutine psb_s_transp_1mat
end interface end interface
interface interface
subroutine psb_s_transp_2mat(a,b) subroutine psb_s_transp_2mat(a,b)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -479,14 +479,14 @@ module psb_s_mat_mod
class(psb_s_sparse_mat), intent(in) :: b class(psb_s_sparse_mat), intent(in) :: b
end subroutine psb_s_transp_2mat end subroutine psb_s_transp_2mat
end interface end interface
interface interface
subroutine psb_s_transc_1mat(a) subroutine psb_s_transc_1mat(a)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
end subroutine psb_s_transc_1mat end subroutine psb_s_transc_1mat
end interface end interface
interface interface
subroutine psb_s_transc_2mat(a,b) subroutine psb_s_transc_2mat(a,b)
import psb_s_sparse_mat import psb_s_sparse_mat
@ -494,16 +494,15 @@ module psb_s_mat_mod
class(psb_s_sparse_mat), intent(in) :: b class(psb_s_sparse_mat), intent(in) :: b
end subroutine psb_s_transc_2mat end subroutine psb_s_transc_2mat
end interface end interface
interface interface
subroutine psb_s_reinit(a,clear) subroutine psb_s_reinit(a,clear)
import psb_s_sparse_mat import psb_s_sparse_mat
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
logical, intent(in), optional :: clear logical, intent(in), optional :: clear
end subroutine psb_s_reinit end subroutine psb_s_reinit
end interface end interface
! == =================================== ! == ===================================
@ -537,7 +536,7 @@ module psb_s_mat_mod
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
end subroutine psb_s_csmv end subroutine psb_s_csmv
end interface end interface
interface psb_cssm interface psb_cssm
subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
@ -558,7 +557,7 @@ module psb_s_mat_mod
real(psb_spk_), intent(in), optional :: d(:) real(psb_spk_), intent(in), optional :: d(:)
end subroutine psb_s_cssv end subroutine psb_s_cssv
end interface end interface
interface interface
function psb_s_csnmi(a) result(res) function psb_s_csnmi(a) result(res)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
@ -566,7 +565,7 @@ module psb_s_mat_mod
real(psb_spk_) :: res real(psb_spk_) :: res
end function psb_s_csnmi end function psb_s_csnmi
end interface end interface
interface interface
subroutine psb_s_get_diag(a,d,info) subroutine psb_s_get_diag(a,d,info)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
@ -575,7 +574,7 @@ module psb_s_mat_mod
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_s_get_diag end subroutine psb_s_get_diag
end interface end interface
interface psb_scal interface psb_scal
subroutine psb_s_scal(d,a,info) subroutine psb_s_scal(d,a,info)
import psb_s_sparse_mat, psb_spk_ import psb_s_sparse_mat, psb_spk_
@ -609,17 +608,17 @@ contains
! !
! == =================================== ! == ===================================
function psb_s_sizeof(a) result(res) function psb_s_sizeof(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer(psb_long_int_k_) :: res integer(psb_long_int_k_) :: res
res = 0 res = 0
if (allocated(a%a)) then if (allocated(a%a)) then
res = a%a%sizeof() res = a%a%sizeof()
end if end if
end function psb_s_sizeof end function psb_s_sizeof
@ -638,8 +637,7 @@ contains
end function psb_s_get_fmt end function psb_s_get_fmt
function psb_s_get_dupl(a) result(res)
function get_dupl(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -649,10 +647,10 @@ contains
else else
res = psb_invalid_ res = psb_invalid_
end if end if
end function get_dupl end function psb_s_get_dupl
function get_state(a) result(res) function psb_s_get_state(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -662,9 +660,9 @@ contains
else else
res = psb_spmat_null_ res = psb_spmat_null_
end if end if
end function get_state end function psb_s_get_state
function get_nrows(a) result(res) function psb_s_get_nrows(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -675,9 +673,9 @@ contains
res = 0 res = 0
end if end if
end function get_nrows end function psb_s_get_nrows
function get_ncols(a) result(res) function psb_s_get_ncols(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -688,9 +686,9 @@ contains
res = 0 res = 0
end if end if
end function get_ncols end function psb_s_get_ncols
function is_triangle(a) result(res) function psb_s_is_triangle(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -701,9 +699,9 @@ contains
res = .false. res = .false.
end if end if
end function is_triangle end function psb_s_is_triangle
function is_unit(a) result(res) function psb_s_is_unit(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -714,9 +712,9 @@ contains
res = .false. res = .false.
end if end if
end function is_unit end function psb_s_is_unit
function is_upper(a) result(res) function psb_s_is_upper(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -727,9 +725,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upper end function psb_s_is_upper
function is_lower(a) result(res) function psb_s_is_lower(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -740,9 +738,9 @@ contains
res = .false. res = .false.
end if end if
end function is_lower end function psb_s_is_lower
function is_null(a) result(res) function psb_s_is_null(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -753,9 +751,9 @@ contains
res = .true. res = .true.
end if end if
end function is_null end function psb_s_is_null
function is_bld(a) result(res) function psb_s_is_bld(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -766,9 +764,9 @@ contains
res = .false. res = .false.
end if end if
end function is_bld end function psb_s_is_bld
function is_upd(a) result(res) function psb_s_is_upd(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -779,9 +777,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upd end function psb_s_is_upd
function is_asb(a) result(res) function psb_s_is_asb(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -792,9 +790,9 @@ contains
res = .false. res = .false.
end if end if
end function is_asb end function psb_s_is_asb
function is_sorted(a) result(res) function psb_s_is_sorted(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -805,11 +803,11 @@ contains
res = .false. res = .false.
end if end if
end function is_sorted end function psb_s_is_sorted
function get_nzeros(a) result(res) function psb_s_get_nzeros(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -819,9 +817,9 @@ contains
res = a%a%get_nzeros() res = a%a%get_nzeros()
end if end if
end function get_nzeros end function psb_s_get_nzeros
function get_size(a) result(res) function psb_s_get_size(a) result(res)
implicit none implicit none
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
@ -833,22 +831,22 @@ contains
res = a%a%get_size() res = a%a%get_size()
end if end if
end function get_size end function psb_s_get_size
function get_nz_row(idx,a) result(res) function psb_s_get_nz_row(idx,a) result(res)
implicit none implicit none
integer, intent(in) :: idx integer, intent(in) :: idx
class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(in) :: a
integer :: res integer :: res
Integer :: err_act Integer :: err_act
res = 0 res = 0
if (allocated(a%a)) res = a%a%get_nz_row(idx) if (allocated(a%a)) res = a%a%get_nz_row(idx)
end function get_nz_row end function psb_s_get_nz_row
end module psb_s_mat_mod end module psb_s_mat_mod

4
base/modules/psb_s_tools_mod.f90
Unescape Escape View File

@ -138,8 +138,8 @@ Module psb_s_tools_mod
subroutine psb_sspalloc(a, desc_a, info, nnz) subroutine psb_sspalloc(a, desc_a, info, nnz)
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
use psb_mat_mod, only : psb_s_sparse_mat use psb_mat_mod, only : psb_s_sparse_mat
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_s_sparse_mat), intent(out) :: a type(psb_s_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
end subroutine psb_sspalloc end subroutine psb_sspalloc

104
base/modules/psb_z_mat_mod.f03
Unescape Escape View File

@ -10,22 +10,22 @@ module psb_z_mat_mod
contains contains
! Getters ! Getters
procedure, pass(a) :: get_nrows procedure, pass(a) :: get_nrows => psb_z_get_nrows
procedure, pass(a) :: get_ncols procedure, pass(a) :: get_ncols => psb_z_get_ncols
procedure, pass(a) :: get_nzeros procedure, pass(a) :: get_nzeros => psb_z_get_nzeros
procedure, pass(a) :: get_nz_row procedure, pass(a) :: get_nz_row => psb_z_get_nz_row
procedure, pass(a) :: get_size procedure, pass(a) :: get_size => psb_z_get_size
procedure, pass(a) :: get_state procedure, pass(a) :: get_state => psb_z_get_state
procedure, pass(a) :: get_dupl procedure, pass(a) :: get_dupl => psb_z_get_dupl
procedure, pass(a) :: is_null procedure, pass(a) :: is_null => psb_z_is_null
procedure, pass(a) :: is_bld procedure, pass(a) :: is_bld => psb_z_is_bld
procedure, pass(a) :: is_upd procedure, pass(a) :: is_upd => psb_z_is_upd
procedure, pass(a) :: is_asb procedure, pass(a) :: is_asb => psb_z_is_asb
procedure, pass(a) :: is_sorted procedure, pass(a) :: is_sorted => psb_z_is_sorted
procedure, pass(a) :: is_upper procedure, pass(a) :: is_upper => psb_z_is_upper
procedure, pass(a) :: is_lower procedure, pass(a) :: is_lower => psb_z_is_lower
procedure, pass(a) :: is_triangle procedure, pass(a) :: is_triangle => psb_z_is_triangle
procedure, pass(a) :: is_unit procedure, pass(a) :: is_unit => psb_z_is_unit
procedure, pass(a) :: get_fmt => psb_z_get_fmt procedure, pass(a) :: get_fmt => psb_z_get_fmt
procedure, pass(a) :: sizeof => psb_z_sizeof procedure, pass(a) :: sizeof => psb_z_sizeof
@ -99,9 +99,9 @@ module psb_z_mat_mod
end type psb_z_sparse_mat end type psb_z_sparse_mat
private :: get_nrows, get_ncols, get_nzeros, get_size, & private :: psb_z_get_nrows, psb_z_get_ncols, psb_z_get_nzeros, psb_z_get_size, &
& get_state, get_dupl, is_null, is_bld, is_upd, & & psb_z_get_state, psb_z_get_dupl, psb_z_is_null, psb_z_is_bld, psb_z_is_upd, &
& is_asb, is_sorted, is_upper, is_lower, is_triangle & psb_z_is_asb, psb_z_is_sorted, psb_z_is_upper, psb_z_is_lower, psb_z_is_triangle
interface psb_sizeof interface psb_sizeof
module procedure psb_z_sizeof module procedure psb_z_sizeof
@ -623,7 +623,6 @@ contains
end function psb_z_sizeof end function psb_z_sizeof
function psb_z_get_fmt(a) result(res) function psb_z_get_fmt(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
@ -638,8 +637,7 @@ contains
end function psb_z_get_fmt end function psb_z_get_fmt
function psb_z_get_dupl(a) result(res)
function get_dupl(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -649,10 +647,10 @@ contains
else else
res = psb_invalid_ res = psb_invalid_
end if end if
end function get_dupl end function psb_z_get_dupl
function get_state(a) result(res) function psb_z_get_state(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -662,9 +660,9 @@ contains
else else
res = psb_spmat_null_ res = psb_spmat_null_
end if end if
end function get_state end function psb_z_get_state
function get_nrows(a) result(res) function psb_z_get_nrows(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -675,9 +673,9 @@ contains
res = 0 res = 0
end if end if
end function get_nrows end function psb_z_get_nrows
function get_ncols(a) result(res) function psb_z_get_ncols(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -688,9 +686,9 @@ contains
res = 0 res = 0
end if end if
end function get_ncols end function psb_z_get_ncols
function is_triangle(a) result(res) function psb_z_is_triangle(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -701,9 +699,9 @@ contains
res = .false. res = .false.
end if end if
end function is_triangle end function psb_z_is_triangle
function is_unit(a) result(res) function psb_z_is_unit(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -714,9 +712,9 @@ contains
res = .false. res = .false.
end if end if
end function is_unit end function psb_z_is_unit
function is_upper(a) result(res) function psb_z_is_upper(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -727,9 +725,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upper end function psb_z_is_upper
function is_lower(a) result(res) function psb_z_is_lower(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -740,9 +738,9 @@ contains
res = .false. res = .false.
end if end if
end function is_lower end function psb_z_is_lower
function is_null(a) result(res) function psb_z_is_null(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -753,9 +751,9 @@ contains
res = .true. res = .true.
end if end if
end function is_null end function psb_z_is_null
function is_bld(a) result(res) function psb_z_is_bld(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -766,9 +764,9 @@ contains
res = .false. res = .false.
end if end if
end function is_bld end function psb_z_is_bld
function is_upd(a) result(res) function psb_z_is_upd(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -779,9 +777,9 @@ contains
res = .false. res = .false.
end if end if
end function is_upd end function psb_z_is_upd
function is_asb(a) result(res) function psb_z_is_asb(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -792,9 +790,9 @@ contains
res = .false. res = .false.
end if end if
end function is_asb end function psb_z_is_asb
function is_sorted(a) result(res) function psb_z_is_sorted(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
logical :: res logical :: res
@ -805,11 +803,11 @@ contains
res = .false. res = .false.
end if end if
end function is_sorted end function psb_z_is_sorted
function get_nzeros(a) result(res) function psb_z_get_nzeros(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
integer :: res integer :: res
@ -819,9 +817,9 @@ contains
res = a%a%get_nzeros() res = a%a%get_nzeros()
end if end if
end function get_nzeros end function psb_z_get_nzeros
function get_size(a) result(res) function psb_z_get_size(a) result(res)
implicit none implicit none
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
@ -833,10 +831,10 @@ contains
res = a%a%get_size() res = a%a%get_size()
end if end if
end function get_size end function psb_z_get_size
function get_nz_row(idx,a) result(res) function psb_z_get_nz_row(idx,a) result(res)
implicit none implicit none
integer, intent(in) :: idx integer, intent(in) :: idx
class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(in) :: a
@ -848,7 +846,7 @@ contains
if (allocated(a%a)) res = a%a%get_nz_row(idx) if (allocated(a%a)) res = a%a%get_nz_row(idx)
end function get_nz_row end function psb_z_get_nz_row
end module psb_z_mat_mod end module psb_z_mat_mod

4
base/modules/psb_z_tools_mod.f90
Unescape Escape View File

@ -138,8 +138,8 @@ Module psb_z_tools_mod
subroutine psb_zspalloc(a, desc_a, info, nnz) subroutine psb_zspalloc(a, desc_a, info, nnz)
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
use psb_mat_mod, only : psb_z_sparse_mat use psb_mat_mod, only : psb_z_sparse_mat
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_z_sparse_mat), intent(out) :: a type(psb_z_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
end subroutine psb_zspalloc end subroutine psb_zspalloc

5
base/serial/Makefile
Unescape Escape View File

@ -2,10 +2,11 @@ include ../../Make.inc
FOBJS = psb_lsame.o psi_serial_impl.o psi_impl.o psb_sort_impl.o \ FOBJS = psb_lsame.o psi_serial_impl.o psi_impl.o psb_sort_impl.o \
psb_ssymbmm.o psb_dsymbmm.o psb_csymbmm.o psb_zsymbmm.o \
psb_snumbmm.o psb_dnumbmm.o psb_cnumbmm.o psb_znumbmm.o \
psb_srwextd.o psb_drwextd.o psb_crwextd.o psb_zrwextd.o psb_srwextd.o psb_drwextd.o psb_crwextd.o psb_zrwextd.o
# psb_ssymbmm.o psb_dsymbmm.o psb_csymbmm.o psb_zsymbmm.o \
# psb_snumbmm.o psb_dnumbmm.o psb_cnumbmm.o psb_znumbmm.o \
LIBDIR=.. LIBDIR=..
MODDIR=../modules MODDIR=../modules
FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG)$(MODDIR) $(FMFLAG). FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG)$(MODDIR) $(FMFLAG).

6
base/serial/f03/psb_c_coo_impl.f03
Unescape Escape View File

@ -378,10 +378,10 @@ end subroutine psb_c_coo_print
function psb_c_coo_get_nc_row(idx,a) result(res) function psb_c_coo_get_nz_row(idx,a) result(res)
use psb_const_mod use psb_const_mod
use psb_sort_mod use psb_sort_mod
use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_get_nc_row use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_get_nz_row
implicit none implicit none
class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(in) :: a
@ -427,7 +427,7 @@ function psb_c_coo_get_nc_row(idx,a) result(res)
end if end if
end function psb_c_coo_get_nc_row end function psb_c_coo_get_nz_row
subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans)
use psb_const_mod use psb_const_mod

23
base/serial/f03/psb_c_mat_impl.f03
Unescape Escape View File

@ -618,29 +618,12 @@ subroutine psb_c_free(a)
use psb_error_mod use psb_error_mod
implicit none implicit none
class(psb_c_sparse_mat), intent(inout) :: a class(psb_c_sparse_mat), intent(inout) :: a
Integer :: err_act, info
character(len=20) :: name='free'
logical, parameter :: debug=.false.
call psb_get_erraction(err_act) if (allocated(a%a)) then
if (.not.allocated(a%a)) then call a%a%free()
info = 1121 deallocate(a%a)
call psb_errpush(info,name)
goto 9999
endif endif
call a%a%free()
deallocate(a%a)
return
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return
end subroutine psb_c_free end subroutine psb_c_free

23
base/serial/f03/psb_d_mat_impl.f03
Unescape Escape View File

@ -618,29 +618,12 @@ subroutine psb_d_free(a)
use psb_error_mod use psb_error_mod
implicit none implicit none
class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(inout) :: a
Integer :: err_act, info
character(len=20) :: name='free'
logical, parameter :: debug=.false.
call psb_get_erraction(err_act) if (allocated(a%a)) then
if (.not.allocated(a%a)) then call a%a%free()
info = 1121 deallocate(a%a)
call psb_errpush(info,name)
goto 9999
endif endif
call a%a%free()
deallocate(a%a)
return
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return
end subroutine psb_d_free end subroutine psb_d_free

23
base/serial/f03/psb_s_mat_impl.f03
Unescape Escape View File

@ -618,29 +618,12 @@ subroutine psb_s_free(a)
use psb_error_mod use psb_error_mod
implicit none implicit none
class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(inout) :: a
Integer :: err_act, info
character(len=20) :: name='free'
logical, parameter :: debug=.false.
call psb_get_erraction(err_act) if (allocated(a%a)) then
if (.not.allocated(a%a)) then call a%a%free()
info = 1121 deallocate(a%a)
call psb_errpush(info,name)
goto 9999
endif endif
call a%a%free()
deallocate(a%a)
return
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return
end subroutine psb_s_free end subroutine psb_s_free

23
base/serial/f03/psb_z_mat_impl.f03
Unescape Escape View File

@ -618,29 +618,12 @@ subroutine psb_z_free(a)
use psb_error_mod use psb_error_mod
implicit none implicit none
class(psb_z_sparse_mat), intent(inout) :: a class(psb_z_sparse_mat), intent(inout) :: a
Integer :: err_act, info
character(len=20) :: name='free'
logical, parameter :: debug=.false.
call psb_get_erraction(err_act) if (allocated(a%a)) then
if (.not.allocated(a%a)) then call a%a%free()
info = 1121 deallocate(a%a)
call psb_errpush(info,name)
goto 9999
endif endif
call a%a%free()
deallocate(a%a)
return
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return
end subroutine psb_z_free end subroutine psb_z_free

2
base/tools/Makefile
Unescape Escape View File

@ -21,7 +21,7 @@ FOBJS = psb_sallc.o psb_sasb.o \
psb_cspins.o psb_csprn.o psb_cd_set_bld.o psb_cspins.o psb_csprn.o psb_cd_set_bld.o
#psb_linmap.o psb_map.o #psb_linmap.o psb_map.o
MPFOBJS = psb_ssphalo.o psb_csphalo.o psb_dsphalo.o psb_zsphalo.o psb_icdasb.o \ MPFOBJS = psb_icdasb.o psb_ssphalo.o psb_dsphalo.o psb_csphalo.o psb_zsphalo.o \
psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o
LIBDIR=.. LIBDIR=..

5
base/tools/psb_cspalloc.f90
Unescape Escape View File

@ -46,8 +46,8 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
implicit none implicit none
!....parameters... !....parameters...
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_c_sparse_mat), intent(out) :: a type(psb_c_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
@ -102,6 +102,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
& write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1 & write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%free()
call a%csall(loc_row,loc_col,info,nz=length_ia1) call a%csall(loc_row,loc_col,info,nz=length_ia1)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_

5
base/tools/psb_dspalloc.f90
Unescape Escape View File

@ -46,8 +46,8 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
implicit none implicit none
!....parameters... !....parameters...
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_d_sparse_mat), intent(out) :: a type(psb_d_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
@ -100,6 +100,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
if (debug_level >= psb_debug_ext_) & if (debug_level >= psb_debug_ext_) &
& write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1 & write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1
call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=length_ia1) call a%csall(loc_row,loc_col,info,nz=length_ia1)

6
base/tools/psb_dsphalo.F90
Unescape Escape View File

@ -68,9 +68,9 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
include 'mpif.h' include 'mpif.h'
#endif #endif
Type(psb_d_sparse_mat),Intent(in) :: a type(psb_d_sparse_mat),intent(in) :: a
Type(psb_d_sparse_mat),Intent(inout) :: blk type(psb_d_sparse_mat),intent(inout) :: blk
Type(psb_desc_type),Intent(in), target :: desc_a type(psb_desc_type),intent(in), target :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale
character(len=5), optional :: outfmt character(len=5), optional :: outfmt

6
base/tools/psb_sspalloc.f90
Unescape Escape View File

@ -46,8 +46,8 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
implicit none implicit none
!....parameters... !....parameters...
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_s_sparse_mat), intent(out) :: a type(psb_s_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
@ -100,7 +100,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
if (debug_level >= psb_debug_ext_) & if (debug_level >= psb_debug_ext_) &
& write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1 & write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1
call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=length_ia1) call a%csall(loc_row,loc_col,info,nz=length_ia1)
if(info /= psb_success_) then if(info /= psb_success_) then

6
base/tools/psb_zspalloc.f90
Unescape Escape View File

@ -46,8 +46,8 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
implicit none implicit none
!....parameters... !....parameters...
type(psb_desc_type), intent(inout) :: desc_a type(psb_desc_type), intent(in) :: desc_a
type(psb_z_sparse_mat), intent(out) :: a type(psb_z_sparse_mat), intent(inout) :: a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional, intent(in) :: nnz integer, optional, intent(in) :: nnz
@ -100,7 +100,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
if (debug_level >= psb_debug_ext_) & if (debug_level >= psb_debug_ext_) &
& write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1 & write(debug_unit,*) me,' ',trim(name),':allocating size:',length_ia1
call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=length_ia1) call a%csall(loc_row,loc_col,info,nz=length_ia1)
if(info /= psb_success_) then if(info /= psb_success_) then

Write Preview
Loading…
Cancel
Save