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

psblas3:

Browse Source 
base/Makefile
 base/comm/psb_cgather.f90
 base/comm/psb_chalo.f90
 base/comm/psb_covrl.f90
 base/comm/psb_cscatter.F90
 base/comm/psb_dgather.f90
 base/comm/psb_dhalo.f90
 base/comm/psb_dovrl.f90
 base/comm/psb_dscatter.F90
 base/comm/psb_igather.f90
 base/comm/psb_ihalo.f90
 base/comm/psb_iovrl.f90
 base/comm/psb_iscatter.F90
 base/comm/psb_sgather.f90
 base/comm/psb_shalo.f90
 base/comm/psb_sovrl.f90
 base/comm/psb_sscatter.F90
 base/comm/psb_zgather.f90
 base/comm/psb_zhalo.f90
 base/comm/psb_zovrl.f90
 base/comm/psb_zscatter.F90
 base/modules/Makefile
 base/modules/psb_serial_mod.f90
 base/modules/psb_sparse_mod.f90
 base/psblas/psb_camax.f90
 base/psblas/psb_casum.f90
 base/psblas/psb_caxpby.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrmi.f90
 base/psblas/psb_cspmm.f90
 base/psblas/psb_cspsm.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_dasum.f90
 base/psblas/psb_daxpby.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspnrm1.f90
 base/psblas/psb_dspsm.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sasum.f90
 base/psblas/psb_saxpby.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_sspmm.f90
 base/psblas/psb_sspsm.f90
 base/psblas/psb_sxdot.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zasum.f90
 base/psblas/psb_zaxpby.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspsm.f90
 base/serial/psb_cnumbmm.f90
 base/serial/psb_crwextd.f90
 base/serial/psb_csymbmm.f90
 base/serial/psb_dnumbmm.f90
 base/serial/psb_drwextd.f90
 base/serial/psb_dsymbmm.f90
 base/serial/psb_snumbmm.f90
 base/serial/psb_srwextd.f90
 base/serial/psb_ssymbmm.f90
 base/serial/psb_znumbmm.f90
 base/serial/psb_zrwextd.f90
 base/serial/psb_zsymbmm.f90
 base/tools/psb_callc.f90
 base/tools/psb_casb.f90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_cd_inloc.f90
 base/tools/psb_cd_lstext.f90
 base/tools/psb_cd_reinit.f90
 base/tools/psb_cd_set_bld.f90
 base/tools/psb_cd_switch_ovl_indxmap.f90
 base/tools/psb_cdals.f90
 base/tools/psb_cdalv.f90
 base/tools/psb_cdcpy.F90
 base/tools/psb_cdins.f90
 base/tools/psb_cdprt.f90
 base/tools/psb_cdren.f90
 base/tools/psb_cdrep.f90
 base/tools/psb_cfree.f90
 base/tools/psb_cins.f90
 base/tools/psb_cspalloc.f90
 base/tools/psb_cspasb.f90
 base/tools/psb_cspfree.f90
 base/tools/psb_csphalo.F90
 base/tools/psb_cspins.f90
 base/tools/psb_csprn.f90
 base/tools/psb_dallc.f90
 base/tools/psb_dasb.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dfree.f90
 base/tools/psb_dins.f90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dspasb.f90
 base/tools/psb_dspfree.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_dspins.f90
 base/tools/psb_dsprn.f90
 base/tools/psb_get_overlap.f90
 base/tools/psb_glob_to_loc.f90
 base/tools/psb_ialloc.f90
 base/tools/psb_iasb.f90
 base/tools/psb_icdasb.F90
 base/tools/psb_ifree.f90
 base/tools/psb_iins.f90
 base/tools/psb_linmap.f90
 base/tools/psb_loc_to_glob.f90
 base/tools/psb_map.f90
 base/tools/psb_sallc.f90
 base/tools/psb_sasb.f90
 base/tools/psb_scdbldext.F90
 base/tools/psb_sfree.f90
 base/tools/psb_sins.f90
 base/tools/psb_sspalloc.f90
 base/tools/psb_sspasb.f90
 base/tools/psb_sspfree.f90
 base/tools/psb_ssphalo.F90
 base/tools/psb_sspins.f90
 base/tools/psb_ssprn.f90
 base/tools/psb_zallc.f90
 base/tools/psb_zasb.f90
 base/tools/psb_zcdbldext.F90
 base/tools/psb_zfree.f90
 base/tools/psb_zins.f90
 base/tools/psb_zspalloc.f90
 base/tools/psb_zspasb.f90
 base/tools/psb_zspfree.f90
 base/tools/psb_zsphalo.F90
 base/tools/psb_zspins.f90
 base/tools/psb_zsprn.f90
 krylov/Makefile
 krylov/psb_base_inner_krylov_mod.f90
 krylov/psb_c_inner_krylov_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_d_inner_krylov_mod.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.F90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.F90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_krylov_mod.f90
 krylov/psb_s_inner_krylov_mod.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.F90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.F90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_z_inner_krylov_mod.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcg.F90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zkrylov.f90
 krylov/psb_zrgmres.f90
 opt/psb_d_ell_impl.f90
 opt/psb_d_rsb_mat_mod.F90
 prec/Makefile
 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_cilu_fct.f90
 prec/psb_cprecbld.f90
 prec/psb_cprecinit.f90
 prec/psb_cprecset.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_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_dprecinit.f90
 prec/psb_dprecset.f90
 prec/psb_prec_const_mod.f90
 prec/psb_prec_mod.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_silu_fct.f90
 prec/psb_sprecbld.f90
 prec/psb_sprecinit.f90
 prec/psb_sprecset.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
 prec/psb_zilu_fct.f90
 prec/psb_zprecbld.f90
 prec/psb_zprecinit.f90
 prec/psb_zprecset.f90
 test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/getp.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 test/newfmt/ppde.F90
 test/newfmt/spde.f90
 test/pargen/ppde.f90
 test/pargen/spde.f90
 test/serial/d_coo_matgen.f90
 test/serial/d_matgen.f90
 test/serial/psb_d_cxx_impl.f90
 test/serial/psb_d_cyy_impl.f90
 test/torture/psb_c_mvsv_tester.f90
 test/torture/psb_d_mvsv_tester.f90
 test/torture/psb_s_mvsv_tester.f90
 test/torture/psb_z_mvsv_tester.f90
 test/torture/psbtf.f90
 test/util/dhb2mm.f90
 test/util/dmm2hb.f90
 test/util/zhb2mm.f90
 test/util/zmm2hb.f90
 util/psb_hbio_impl.f90
 util/psb_hbio_mod.f90
 util/psb_mat_dist_impl.f90
 util/psb_mat_dist_mod.f90
 util/psb_metispart_mod.F90
 util/psb_mmio_impl.f90
 util/psb_mmio_mod.f90


Changed psb_sparse_mod into psb_base_mod, added psb_csprt. This allows
the cbind stuff to be shared between version 2 and version 3.
This commit is contained in:
Salvatore Filippone
2011-03-21 15:54:31 +00:00
parent 9993b41288
commit 324830ef7b
234 changed files with 1031 additions and 923 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_hbio_impl.f90
+8 -8
View File
@@ -30,7 +30,7 @@
!!$
!!$
subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_sspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -188,7 +188,7 @@ subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle)
end subroutine shb_read
subroutine shb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_sspmat_type), intent(in), target :: a
integer, intent(out) :: iret
@@ -329,7 +329,7 @@ end subroutine shb_write
subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_dspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -487,7 +487,7 @@ subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle)
end subroutine dhb_read
subroutine dhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_dspmat_type), intent(in), target :: a
integer, intent(out) :: iret
@@ -629,7 +629,7 @@ end subroutine dhb_write
subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_cspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -834,7 +834,7 @@ subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle)
end subroutine chb_read
subroutine chb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_cspmat_type), intent(in), target :: a
integer, intent(out) :: iret
@@ -975,7 +975,7 @@ end subroutine chb_write
subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_zspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -1180,7 +1180,7 @@ subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle)
end subroutine zhb_read
subroutine zhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_zspmat_type), intent(in), target :: a
integer, intent(out) :: iret
util/psb_hbio_mod.f90
+8 -8
View File
@@ -34,7 +34,7 @@ module psb_hbio_mod
public hb_read, hb_write
interface hb_read
subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod, only : psb_sspmat_type, psb_spk_
use psb_base_mod, only : psb_sspmat_type, psb_spk_
implicit none
type(psb_sspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -44,7 +44,7 @@ module psb_hbio_mod
character(len=72), optional, intent(out) :: mtitle
end subroutine shb_read
subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod, only : psb_dspmat_type, psb_dpk_
use psb_base_mod, only : psb_dspmat_type, psb_dpk_
implicit none
type(psb_dspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -54,7 +54,7 @@ module psb_hbio_mod
character(len=72), optional, intent(out) :: mtitle
end subroutine dhb_read
subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod, only : psb_cspmat_type, psb_spk_
use psb_base_mod, only : psb_cspmat_type, psb_spk_
implicit none
type(psb_cspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -64,7 +64,7 @@ module psb_hbio_mod
character(len=72), optional, intent(out) :: mtitle
end subroutine chb_read
subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle)
use psb_sparse_mod, only : psb_zspmat_type, psb_dpk_
use psb_base_mod, only : psb_zspmat_type, psb_dpk_
implicit none
type(psb_zspmat_type), intent(out) :: a
integer, intent(out) :: iret
@@ -77,7 +77,7 @@ module psb_hbio_mod
interface hb_write
subroutine shb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod, only : psb_sspmat_type, psb_spk_
use psb_base_mod, only : psb_sspmat_type, psb_spk_
implicit none
type(psb_sspmat_type), intent(inout) :: a
integer, intent(out) :: iret
@@ -88,7 +88,7 @@ module psb_hbio_mod
real(psb_spk_), optional :: rhs(:), g(:), x(:)
end subroutine shb_write
subroutine dhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod, only : psb_dspmat_type, psb_dpk_
use psb_base_mod, only : psb_dspmat_type, psb_dpk_
implicit none
type(psb_dspmat_type), intent(inout) :: a
integer, intent(out) :: iret
@@ -99,7 +99,7 @@ module psb_hbio_mod
real(psb_dpk_), optional :: rhs(:), g(:), x(:)
end subroutine dhb_write
subroutine chb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod, only : psb_cspmat_type, psb_spk_
use psb_base_mod, only : psb_cspmat_type, psb_spk_
implicit none
type(psb_cspmat_type), intent(inout) :: a
integer, intent(out) :: iret
@@ -110,7 +110,7 @@ module psb_hbio_mod
complex(psb_spk_), optional :: rhs(:), g(:), x(:)
end subroutine chb_write
subroutine zhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle)
use psb_sparse_mod, only : psb_zspmat_type, psb_dpk_
use psb_base_mod, only : psb_zspmat_type, psb_dpk_
implicit none
type(psb_zspmat_type), intent(inout) :: a
integer, intent(out) :: iret
util/psb_mat_dist_impl.f90
+4 -4
View File
@@ -87,7 +87,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,&
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod
use psb_base_mod
use psb_mat_mod
implicit none
@@ -526,7 +526,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,&
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod
use psb_base_mod
use psb_mat_mod
implicit none
@@ -967,7 +967,7 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,&
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod
use psb_base_mod
use psb_mat_mod
implicit none
@@ -1406,7 +1406,7 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,&
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod
use psb_base_mod
use psb_mat_mod
implicit none
util/psb_mat_dist_mod.f90
+4 -4
View File
@@ -90,7 +90,7 @@ module psb_mat_dist_mod
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_,&
use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_,&
& psb_s_base_sparse_mat
implicit none
@@ -176,7 +176,7 @@ module psb_mat_dist_mod
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod, only : psb_dspmat_type, psb_dpk_, psb_desc_type,&
use psb_base_mod, only : psb_dspmat_type, psb_dpk_, psb_desc_type,&
& psb_d_base_sparse_mat
implicit none
@@ -263,7 +263,7 @@ module psb_mat_dist_mod
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod, only : psb_cspmat_type, psb_spk_, psb_desc_type,&
use psb_base_mod, only : psb_cspmat_type, psb_spk_, psb_desc_type,&
& psb_c_base_sparse_mat
implicit none
@@ -350,7 +350,7 @@ module psb_mat_dist_mod
! on entry: specifies processor holding a_glob. default: 0
! on exit : unchanged.
!
use psb_sparse_mod, only : psb_zspmat_type, psb_dpk_, psb_desc_type,&
use psb_base_mod, only : psb_zspmat_type, psb_dpk_, psb_desc_type,&
& psb_z_base_sparse_mat
implicit none
util/psb_metispart_mod.F90
+7 -7
View File
@@ -66,7 +66,7 @@ module psb_metispart_mod
contains
subroutine part_graph(global_indx,n,np,pv,nv)
use psb_sparse_mod
use psb_base_mod
integer, intent(in) :: global_indx, n, np
integer, intent(out) :: nv
integer, intent(out) :: pv(*)
@@ -88,7 +88,7 @@ contains
subroutine distr_mtpart(root, ictxt)
use psb_sparse_mod
use psb_base_mod
integer :: root, ictxt
integer :: n, me, np
@@ -135,7 +135,7 @@ contains
end subroutine getv_mtpart
subroutine d_mat_build_mtpart(a,nparts)
use psb_sparse_mod
use psb_base_mod
type(psb_dspmat_type), intent(in) :: a
integer :: nparts
@@ -152,7 +152,7 @@ contains
subroutine s_mat_build_mtpart(a,nparts)
use psb_sparse_mod
use psb_base_mod
type(psb_sspmat_type), intent(in) :: a
integer :: nparts
@@ -169,7 +169,7 @@ contains
subroutine z_mat_build_mtpart(a,nparts)
use psb_sparse_mod
use psb_base_mod
type(psb_zspmat_type), intent(in) :: a
integer :: nparts
@@ -186,7 +186,7 @@ contains
subroutine c_mat_build_mtpart(a,nparts)
use psb_sparse_mod
use psb_base_mod
type(psb_cspmat_type), intent(in) :: a
integer :: nparts
@@ -203,7 +203,7 @@ contains
subroutine build_mtpart(n,fida,ia1,ia2,nparts)
use psb_sparse_mod
use psb_base_mod
integer :: nparts
integer :: ia1(:), ia2(:)
integer :: n, i,numflag,nedc,wgflag
util/psb_mmio_impl.f90
+20 -20
View File
@@ -30,7 +30,7 @@
!!$
!!$
subroutine mm_svet_read(b, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_spk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -102,7 +102,7 @@ end subroutine mm_svet_read
subroutine mm_dvet_read(b, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_dpk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -173,7 +173,7 @@ end subroutine mm_dvet_read
subroutine mm_cvet_read(b, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_spk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -250,7 +250,7 @@ end subroutine mm_cvet_read
subroutine mm_zvet_read(b, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_dpk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -326,7 +326,7 @@ subroutine mm_zvet_read(b, info, iunit, filename)
end subroutine mm_zvet_read
subroutine mm_svet2_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_spk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -382,7 +382,7 @@ subroutine mm_svet2_write(b, header, info, iunit, filename)
end subroutine mm_svet2_write
subroutine mm_svet1_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_spk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -439,7 +439,7 @@ end subroutine mm_svet1_write
subroutine mm_dvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_dpk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -495,7 +495,7 @@ subroutine mm_dvet2_write(b, header, info, iunit, filename)
end subroutine mm_dvet2_write
subroutine mm_dvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
real(psb_dpk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -552,7 +552,7 @@ end subroutine mm_dvet1_write
subroutine mm_cvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_spk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -608,7 +608,7 @@ subroutine mm_cvet2_write(b, header, info, iunit, filename)
end subroutine mm_cvet2_write
subroutine mm_cvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_spk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -664,7 +664,7 @@ subroutine mm_cvet1_write(b, header, info, iunit, filename)
end subroutine mm_cvet1_write
subroutine mm_zvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_dpk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -720,7 +720,7 @@ subroutine mm_zvet2_write(b, header, info, iunit, filename)
end subroutine mm_zvet2_write
subroutine mm_zvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
complex(psb_dpk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -777,7 +777,7 @@ end subroutine mm_zvet1_write
subroutine smm_mat_read(a, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_sspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -882,7 +882,7 @@ end subroutine smm_mat_read
subroutine smm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_sspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -927,7 +927,7 @@ subroutine smm_mat_write(a,mtitle,info,iunit,filename)
end subroutine smm_mat_write
subroutine dmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_dspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -1030,7 +1030,7 @@ end subroutine dmm_mat_read
subroutine dmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -1075,7 +1075,7 @@ subroutine dmm_mat_write(a,mtitle,info,iunit,filename)
end subroutine dmm_mat_write
subroutine cmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_cspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -1203,7 +1203,7 @@ end subroutine cmm_mat_read
subroutine cmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_cspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -1248,7 +1248,7 @@ subroutine cmm_mat_write(a,mtitle,info,iunit,filename)
end subroutine cmm_mat_write
subroutine zmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_zspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -1376,7 +1376,7 @@ end subroutine zmm_mat_read
subroutine zmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info
util/psb_mmio_mod.f90
+20 -20
View File
@@ -36,7 +36,7 @@ module psb_mmio_mod
interface mm_vet_read
subroutine mm_svet_read(b, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
real(psb_spk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -44,7 +44,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_svet_read
subroutine mm_dvet_read(b, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
real(psb_dpk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -52,7 +52,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_dvet_read
subroutine mm_cvet_read(b, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
complex(psb_spk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -60,7 +60,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_cvet_read
subroutine mm_zvet_read(b, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
complex(psb_dpk_), allocatable, intent(out) :: b(:,:)
integer, intent(out) :: info
@@ -72,7 +72,7 @@ module psb_mmio_mod
interface mm_vet_write
subroutine mm_svet2_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
real(psb_spk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -81,7 +81,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_svet2_write
subroutine mm_svet1_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
real(psb_spk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -90,7 +90,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_svet1_write
subroutine mm_dvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
real(psb_dpk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -99,7 +99,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_dvet2_write
subroutine mm_dvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
real(psb_dpk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -108,7 +108,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_dvet1_write
subroutine mm_cvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
complex(psb_spk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -117,7 +117,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_cvet2_write
subroutine mm_cvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
implicit none
complex(psb_spk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -126,7 +126,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_cvet1_write
subroutine mm_zvet2_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
complex(psb_dpk_), intent(in) :: b(:,:)
character(len=*), intent(in) :: header
@@ -135,7 +135,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine mm_zvet2_write
subroutine mm_zvet1_write(b, header, info, iunit, filename)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
implicit none
complex(psb_dpk_), intent(in) :: b(:)
character(len=*), intent(in) :: header
@@ -147,7 +147,7 @@ module psb_mmio_mod
interface mm_mat_read
subroutine smm_mat_read(a, info, iunit, filename)
use psb_sparse_mod, only : psb_sspmat_type
use psb_base_mod, only : psb_sspmat_type
implicit none
type(psb_sspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -155,7 +155,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine smm_mat_read
subroutine dmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod, only : psb_dspmat_type
use psb_base_mod, only : psb_dspmat_type
implicit none
type(psb_dspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -163,7 +163,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine dmm_mat_read
subroutine cmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod, only : psb_cspmat_type
use psb_base_mod, only : psb_cspmat_type
implicit none
type(psb_cspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -171,7 +171,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine cmm_mat_read
subroutine zmm_mat_read(a, info, iunit, filename)
use psb_sparse_mod, only : psb_zspmat_type
use psb_base_mod, only : psb_zspmat_type
implicit none
type(psb_zspmat_type), intent(out) :: a
integer, intent(out) :: info
@@ -182,7 +182,7 @@ module psb_mmio_mod
interface mm_mat_write
subroutine smm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod, only : psb_sspmat_type
use psb_base_mod, only : psb_sspmat_type
implicit none
type(psb_sspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -191,7 +191,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine smm_mat_write
subroutine dmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod, only : psb_dspmat_type
use psb_base_mod, only : psb_dspmat_type
implicit none
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -200,7 +200,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine dmm_mat_write
subroutine cmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod, only : psb_cspmat_type
use psb_base_mod, only : psb_cspmat_type
implicit none
type(psb_cspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -209,7 +209,7 @@ module psb_mmio_mod
character(len=*), optional, intent(in) :: filename
end subroutine cmm_mat_write
subroutine zmm_mat_write(a,mtitle,info,iunit,filename)
use psb_sparse_mod, only : psb_zspmat_type
use psb_base_mod, only : psb_zspmat_type
implicit none
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info