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

psblas3:

Browse Source 
Version that compiles and runs with NAG. 
Lots and lots to be changed yet.
This commit is contained in:
Salvatore Filippone
2009-05-29 13:16:02 +00:00
parent 8766c1003b
commit 2a6383e870
16 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_tools_mod.f90
+3 -3
View File
@@ -612,9 +612,9 @@ Module psb_tools_mod
end subroutine psb_zspasb
end interface
interface psb_spfree
module procedure psb_ssp_free, psb_dsp_free, psb_zsp_free
end interface
!!$ interface psb_spfree
!!$ module procedure psb_ssp_free, psb_dsp_free, psb_zsp_free
!!$ end interface
interface psb_spfree
subroutine psb_sspfree(a, desc_a,info)
base/serial/psb_ccsmm.f90
+1 -1
View File
@@ -37,7 +37,7 @@ subroutine psb_ccsmm(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_cspmat_type) :: a
class(psb_cspmat_type) :: a
complex(psb_spk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans
base/serial/psb_ccsmv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_ccsmv(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_cspmat_type) :: a
class(psb_cspmat_type) :: a
complex(psb_spk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
base/serial/psb_ccssm.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_ccssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_zspmat_type) :: t
class(psb_cspmat_type) :: t
complex(psb_spk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_ccssv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_ccssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_cspmat_type) :: t
class(psb_cspmat_type) :: t
complex(psb_spk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_dcsmv.f90
+2 -2
View File
@@ -38,8 +38,8 @@ subroutine psb_dcsmv(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_dspmat_type) :: a
real(psb_dpk_) :: alpha, beta, b(:), c(:)
class(psb_dspmat_type) :: a
real(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
base/serial/psb_dcssm.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_dcssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_dspmat_type) :: t
class(psb_dspmat_type) :: t
real(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_dcssv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_dcssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_dspmat_type) :: t
class(psb_dspmat_type) :: t
real(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_scsmm.f90
+1 -1
View File
@@ -37,7 +37,7 @@ subroutine psb_scsmm(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_sspmat_type) :: a
class(psb_sspmat_type) :: a
real(psb_spk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans
base/serial/psb_scsmv.f90
+2 -2
View File
@@ -38,8 +38,8 @@ subroutine psb_scsmv(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_sspmat_type) :: a
class(psb_sspmat_type) :: a
real(psb_spk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
base/serial/psb_scssm.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_scssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_sspmat_type) :: t
class(psb_sspmat_type) :: t
real(psb_spk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_scssv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_scssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_sspmat_type) :: t
class(psb_sspmat_type) :: t
real(psb_spk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_zcsmm.f90
+1 -1
View File
@@ -37,7 +37,7 @@ subroutine psb_zcsmm(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_zspmat_type) :: a
class(psb_zspmat_type) :: a
complex(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans
base/serial/psb_zcsmv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_zcsmv(alpha,a,b,beta,c,info,trans)
use psb_error_mod
implicit none
type(psb_zspmat_type) :: a
class(psb_zspmat_type) :: a
complex(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
base/serial/psb_zcssm.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_zcssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_zspmat_type) :: t
class(psb_zspmat_type) :: t
complex(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
base/serial/psb_zcssv.f90
+1 -1
View File
@@ -38,7 +38,7 @@ subroutine psb_zcssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_error_mod
implicit none
type(psb_zspmat_type) :: t
class(psb_zspmat_type) :: t
complex(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd