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

Revert one INTEL fix no longer needed

Browse Source
pull/28/head
sfilippone 8 months ago
parent 0239569e2b
commit e25d25460e
4 changed files with 0 additions and 456 deletions
Show Stats Download Patch File Download Diff File

114
base/serial/psb_cspspmm.F90
Unescape Escape View File

@ -37,11 +37,9 @@
!
subroutine psb_cspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_c_csr_mat_mod
use psb_c_csc_mat_mod
use psb_c_serial_mod, psb_protect_name => psb_cspspmm
#endif
type(psb_cspmat_type), intent(in) :: a,b
type(psb_cspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
@ -51,61 +49,6 @@ subroutine psb_cspspmm(a,b,c,info)
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_csymbmm(a,b,c,info)
use psb_c_mat_mod, only : psb_cspmat_type
import :: psb_ipk_
implicit none
type(psb_cspmat_type), intent(in) :: a,b
type(psb_cspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_csymbmm
subroutine psb_cbase_symbmm(a,b,c,info)
use psb_c_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_c_base_sparse_mat), intent(in) :: a,b
type(psb_c_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_cnumbmm(a,b,c)
use psb_c_mat_mod, only : psb_cspmat_type
import :: psb_ipk_
implicit none
type(psb_cspmat_type), intent(in) :: a,b
type(psb_cspmat_type), intent(inout) :: c
end subroutine psb_cnumbmm
subroutine psb_cbase_numbmm(a,b,c)
use psb_c_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_c_base_sparse_mat), intent(in) :: a,b
type(psb_c_csr_sparse_mat), intent(inout) :: c
end subroutine psb_cbase_numbmm
end interface psb_numbmm
interface
subroutine psb_ccsrspspmm(a,b,c,info)
use psb_c_mat_mod, only : psb_c_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_c_csr_sparse_mat), intent(in) :: a,b
type(psb_c_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ccsrspspmm
subroutine psb_ccscspspmm(a,b,c,info)
use psb_c_mat_mod, only : psb_c_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_c_csc_sparse_mat), intent(in) :: a,b
type(psb_c_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ccscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_
@ -177,11 +120,9 @@ end subroutine psb_cspspmm
subroutine psb_lcspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_c_csr_mat_mod
use psb_c_csc_mat_mod
use psb_c_serial_mod, psb_protect_name => psb_lcspspmm
#endif
implicit none
type(psb_lcspmat_type), intent(in) :: a,b
@ -192,61 +133,6 @@ subroutine psb_lcspspmm(a,b,c,info)
integer(psb_ipk_) :: err_act
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_lcsymbmm(a,b,c,info)
use psb_c_mat_mod, only : psb_lcspmat_type
import :: psb_ipk_
implicit none
type(psb_lcspmat_type), intent(in) :: a,b
type(psb_lcspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lcsymbmm
subroutine psb_lcbase_symbmm(a,b,c,info)
use psb_c_mat_mod, only : psb_lc_base_sparse_mat, psb_lc_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lc_base_sparse_mat), intent(in) :: a,b
type(psb_lc_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lcbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_lcnumbmm(a,b,c)
use psb_c_mat_mod, only : psb_lcspmat_type
import :: psb_ipk_
implicit none
type(psb_lcspmat_type), intent(in) :: a,b
type(psb_lcspmat_type), intent(inout) :: c
end subroutine psb_lcnumbmm
subroutine psb_lcbase_numbmm(a,b,c)
use psb_c_mat_mod, only : psb_lc_base_sparse_mat, psb_lc_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lc_base_sparse_mat), intent(in) :: a,b
type(psb_lc_csr_sparse_mat), intent(inout) :: c
end subroutine psb_lcbase_numbmm
end interface psb_numbmm
interface
subroutine psb_lccsrspspmm(a,b,c,info)
use psb_c_mat_mod, only : psb_lc_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lc_csr_sparse_mat), intent(in) :: a,b
type(psb_lc_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lccsrspspmm
subroutine psb_lccscspspmm(a,b,c,info)
use psb_c_mat_mod, only : psb_lc_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lc_csc_sparse_mat), intent(in) :: a,b
type(psb_lc_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lccscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_

114
base/serial/psb_dspspmm.F90
Unescape Escape View File

@ -37,11 +37,9 @@
!
subroutine psb_dspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_d_csr_mat_mod
use psb_d_csc_mat_mod
use psb_d_serial_mod, psb_protect_name => psb_dspspmm
#endif
type(psb_dspmat_type), intent(in) :: a,b
type(psb_dspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
@ -51,61 +49,6 @@ subroutine psb_dspspmm(a,b,c,info)
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_dsymbmm(a,b,c,info)
use psb_d_mat_mod, only : psb_dspmat_type
import :: psb_ipk_
implicit none
type(psb_dspmat_type), intent(in) :: a,b
type(psb_dspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dsymbmm
subroutine psb_dbase_symbmm(a,b,c,info)
use psb_d_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_d_base_sparse_mat), intent(in) :: a,b
type(psb_d_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_dnumbmm(a,b,c)
use psb_d_mat_mod, only : psb_dspmat_type
import :: psb_ipk_
implicit none
type(psb_dspmat_type), intent(in) :: a,b
type(psb_dspmat_type), intent(inout) :: c
end subroutine psb_dnumbmm
subroutine psb_dbase_numbmm(a,b,c)
use psb_d_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_d_base_sparse_mat), intent(in) :: a,b
type(psb_d_csr_sparse_mat), intent(inout) :: c
end subroutine psb_dbase_numbmm
end interface psb_numbmm
interface
subroutine psb_dcsrspspmm(a,b,c,info)
use psb_d_mat_mod, only : psb_d_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_d_csr_sparse_mat), intent(in) :: a,b
type(psb_d_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dcsrspspmm
subroutine psb_dcscspspmm(a,b,c,info)
use psb_d_mat_mod, only : psb_d_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_d_csc_sparse_mat), intent(in) :: a,b
type(psb_d_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dcscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_
@ -177,11 +120,9 @@ end subroutine psb_dspspmm
subroutine psb_ldspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_d_csr_mat_mod
use psb_d_csc_mat_mod
use psb_d_serial_mod, psb_protect_name => psb_ldspspmm
#endif
implicit none
type(psb_ldspmat_type), intent(in) :: a,b
@ -192,61 +133,6 @@ subroutine psb_ldspspmm(a,b,c,info)
integer(psb_ipk_) :: err_act
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_ldsymbmm(a,b,c,info)
use psb_d_mat_mod, only : psb_ldspmat_type
import :: psb_ipk_
implicit none
type(psb_ldspmat_type), intent(in) :: a,b
type(psb_ldspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ldsymbmm
subroutine psb_ldbase_symbmm(a,b,c,info)
use psb_d_mat_mod, only : psb_ld_base_sparse_mat, psb_ld_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ld_base_sparse_mat), intent(in) :: a,b
type(psb_ld_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ldbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_ldnumbmm(a,b,c)
use psb_d_mat_mod, only : psb_ldspmat_type
import :: psb_ipk_
implicit none
type(psb_ldspmat_type), intent(in) :: a,b
type(psb_ldspmat_type), intent(inout) :: c
end subroutine psb_ldnumbmm
subroutine psb_ldbase_numbmm(a,b,c)
use psb_d_mat_mod, only : psb_ld_base_sparse_mat, psb_ld_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ld_base_sparse_mat), intent(in) :: a,b
type(psb_ld_csr_sparse_mat), intent(inout) :: c
end subroutine psb_ldbase_numbmm
end interface psb_numbmm
interface
subroutine psb_ldcsrspspmm(a,b,c,info)
use psb_d_mat_mod, only : psb_ld_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ld_csr_sparse_mat), intent(in) :: a,b
type(psb_ld_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ldcsrspspmm
subroutine psb_ldcscspspmm(a,b,c,info)
use psb_d_mat_mod, only : psb_ld_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ld_csc_sparse_mat), intent(in) :: a,b
type(psb_ld_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ldcscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_

114
base/serial/psb_sspspmm.F90
Unescape Escape View File

@ -37,11 +37,9 @@
!
subroutine psb_sspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_s_csr_mat_mod
use psb_s_csc_mat_mod
use psb_s_serial_mod, psb_protect_name => psb_sspspmm
#endif
type(psb_sspmat_type), intent(in) :: a,b
type(psb_sspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
@ -51,61 +49,6 @@ subroutine psb_sspspmm(a,b,c,info)
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_ssymbmm(a,b,c,info)
use psb_s_mat_mod, only : psb_sspmat_type
import :: psb_ipk_
implicit none
type(psb_sspmat_type), intent(in) :: a,b
type(psb_sspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ssymbmm
subroutine psb_sbase_symbmm(a,b,c,info)
use psb_s_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_s_base_sparse_mat), intent(in) :: a,b
type(psb_s_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_sbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_snumbmm(a,b,c)
use psb_s_mat_mod, only : psb_sspmat_type
import :: psb_ipk_
implicit none
type(psb_sspmat_type), intent(in) :: a,b
type(psb_sspmat_type), intent(inout) :: c
end subroutine psb_snumbmm
subroutine psb_sbase_numbmm(a,b,c)
use psb_s_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_s_base_sparse_mat), intent(in) :: a,b
type(psb_s_csr_sparse_mat), intent(inout) :: c
end subroutine psb_sbase_numbmm
end interface psb_numbmm
interface
subroutine psb_scsrspspmm(a,b,c,info)
use psb_s_mat_mod, only : psb_s_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_s_csr_sparse_mat), intent(in) :: a,b
type(psb_s_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_scsrspspmm
subroutine psb_scscspspmm(a,b,c,info)
use psb_s_mat_mod, only : psb_s_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_s_csc_sparse_mat), intent(in) :: a,b
type(psb_s_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_scscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_
@ -177,11 +120,9 @@ end subroutine psb_sspspmm
subroutine psb_lsspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_s_csr_mat_mod
use psb_s_csc_mat_mod
use psb_s_serial_mod, psb_protect_name => psb_lsspspmm
#endif
implicit none
type(psb_lsspmat_type), intent(in) :: a,b
@ -192,61 +133,6 @@ subroutine psb_lsspspmm(a,b,c,info)
integer(psb_ipk_) :: err_act
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_lssymbmm(a,b,c,info)
use psb_s_mat_mod, only : psb_lsspmat_type
import :: psb_ipk_
implicit none
type(psb_lsspmat_type), intent(in) :: a,b
type(psb_lsspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lssymbmm
subroutine psb_lsbase_symbmm(a,b,c,info)
use psb_s_mat_mod, only : psb_ls_base_sparse_mat, psb_ls_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ls_base_sparse_mat), intent(in) :: a,b
type(psb_ls_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lsbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_lsnumbmm(a,b,c)
use psb_s_mat_mod, only : psb_lsspmat_type
import :: psb_ipk_
implicit none
type(psb_lsspmat_type), intent(in) :: a,b
type(psb_lsspmat_type), intent(inout) :: c
end subroutine psb_lsnumbmm
subroutine psb_lsbase_numbmm(a,b,c)
use psb_s_mat_mod, only : psb_ls_base_sparse_mat, psb_ls_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ls_base_sparse_mat), intent(in) :: a,b
type(psb_ls_csr_sparse_mat), intent(inout) :: c
end subroutine psb_lsbase_numbmm
end interface psb_numbmm
interface
subroutine psb_lscsrspspmm(a,b,c,info)
use psb_s_mat_mod, only : psb_ls_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ls_csr_sparse_mat), intent(in) :: a,b
type(psb_ls_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lscsrspspmm
subroutine psb_lscscspspmm(a,b,c,info)
use psb_s_mat_mod, only : psb_ls_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_ls_csc_sparse_mat), intent(in) :: a,b
type(psb_ls_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lscscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_

114
base/serial/psb_zspspmm.F90
Unescape Escape View File

@ -37,11 +37,9 @@
!
subroutine psb_zspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_z_csr_mat_mod
use psb_z_csc_mat_mod
use psb_z_serial_mod, psb_protect_name => psb_zspspmm
#endif
type(psb_zspmat_type), intent(in) :: a,b
type(psb_zspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
@ -51,61 +49,6 @@ subroutine psb_zspspmm(a,b,c,info)
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_zsymbmm(a,b,c,info)
use psb_z_mat_mod, only : psb_zspmat_type
import :: psb_ipk_
implicit none
type(psb_zspmat_type), intent(in) :: a,b
type(psb_zspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zsymbmm
subroutine psb_zbase_symbmm(a,b,c,info)
use psb_z_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_z_base_sparse_mat), intent(in) :: a,b
type(psb_z_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_znumbmm(a,b,c)
use psb_z_mat_mod, only : psb_zspmat_type
import :: psb_ipk_
implicit none
type(psb_zspmat_type), intent(in) :: a,b
type(psb_zspmat_type), intent(inout) :: c
end subroutine psb_znumbmm
subroutine psb_zbase_numbmm(a,b,c)
use psb_z_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_z_base_sparse_mat), intent(in) :: a,b
type(psb_z_csr_sparse_mat), intent(inout) :: c
end subroutine psb_zbase_numbmm
end interface psb_numbmm
interface
subroutine psb_zcsrspspmm(a,b,c,info)
use psb_z_mat_mod, only : psb_z_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_z_csr_sparse_mat), intent(in) :: a,b
type(psb_z_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zcsrspspmm
subroutine psb_zcscspspmm(a,b,c,info)
use psb_z_mat_mod, only : psb_z_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_z_csc_sparse_mat), intent(in) :: a,b
type(psb_z_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zcscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_
@ -177,11 +120,9 @@ end subroutine psb_zspspmm
subroutine psb_lzspspmm(a,b,c,info)
use psb_mat_mod
#if !defined(PSB_CMP_INTEL)
use psb_z_csr_mat_mod
use psb_z_csc_mat_mod
use psb_z_serial_mod, psb_protect_name => psb_lzspspmm
#endif
implicit none
type(psb_lzspmat_type), intent(in) :: a,b
@ -192,61 +133,6 @@ subroutine psb_lzspspmm(a,b,c,info)
integer(psb_ipk_) :: err_act
character(len=*), parameter :: name='psb_spspmm'
logical :: done_spmm
#if defined(PSB_CMP_INTEL)
interface psb_symbmm
subroutine psb_lzsymbmm(a,b,c,info)
use psb_z_mat_mod, only : psb_lzspmat_type
import :: psb_ipk_
implicit none
type(psb_lzspmat_type), intent(in) :: a,b
type(psb_lzspmat_type), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lzsymbmm
subroutine psb_lzbase_symbmm(a,b,c,info)
use psb_z_mat_mod, only : psb_lz_base_sparse_mat, psb_lz_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lz_base_sparse_mat), intent(in) :: a,b
type(psb_lz_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lzbase_symbmm
end interface psb_symbmm
interface psb_numbmm
subroutine psb_lznumbmm(a,b,c)
use psb_z_mat_mod, only : psb_lzspmat_type
import :: psb_ipk_
implicit none
type(psb_lzspmat_type), intent(in) :: a,b
type(psb_lzspmat_type), intent(inout) :: c
end subroutine psb_lznumbmm
subroutine psb_lzbase_numbmm(a,b,c)
use psb_z_mat_mod, only : psb_lz_base_sparse_mat, psb_lz_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lz_base_sparse_mat), intent(in) :: a,b
type(psb_lz_csr_sparse_mat), intent(inout) :: c
end subroutine psb_lzbase_numbmm
end interface psb_numbmm
interface
subroutine psb_lzcsrspspmm(a,b,c,info)
use psb_z_mat_mod, only : psb_lz_csr_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lz_csr_sparse_mat), intent(in) :: a,b
type(psb_lz_csr_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lzcsrspspmm
subroutine psb_lzcscspspmm(a,b,c,info)
use psb_z_mat_mod, only : psb_lz_csc_sparse_mat
import :: psb_ipk_
implicit none
class(psb_lz_csc_sparse_mat), intent(in) :: a,b
type(psb_lz_csc_sparse_mat), intent(out) :: c
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lzcscspspmm
end interface
#endif
call psb_erractionsave(err_act)
info = psb_success_

Write Preview
Loading…
Cancel
Save