From 2a6383e87052557c64745e2412f34a5a94e5d5cd Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 29 May 2009 13:16:02 +0000 Subject: [PATCH] psblas3: Version that compiles and runs with NAG. Lots and lots to be changed yet. --- base/modules/psb_tools_mod.f90 | 6 +++--- base/serial/psb_ccsmm.f90 | 2 +- base/serial/psb_ccsmv.f90 | 2 +- base/serial/psb_ccssm.f90 | 2 +- base/serial/psb_ccssv.f90 | 2 +- base/serial/psb_dcsmv.f90 | 4 ++-- base/serial/psb_dcssm.f90 | 2 +- base/serial/psb_dcssv.f90 | 2 +- base/serial/psb_scsmm.f90 | 2 +- base/serial/psb_scsmv.f90 | 4 ++-- base/serial/psb_scssm.f90 | 2 +- base/serial/psb_scssv.f90 | 2 +- base/serial/psb_zcsmm.f90 | 2 +- base/serial/psb_zcsmv.f90 | 2 +- base/serial/psb_zcssm.f90 | 2 +- base/serial/psb_zcssv.f90 | 2 +- 16 files changed, 20 insertions(+), 20 deletions(-) diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90 index dcc1a7c4..e0ffc66c 100644 --- a/base/modules/psb_tools_mod.f90 +++ b/base/modules/psb_tools_mod.f90 @@ -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) diff --git a/base/serial/psb_ccsmm.f90 b/base/serial/psb_ccsmm.f90 index 6990462f..049af14b 100644 --- a/base/serial/psb_ccsmm.f90 +++ b/base/serial/psb_ccsmm.f90 @@ -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 diff --git a/base/serial/psb_ccsmv.f90 b/base/serial/psb_ccsmv.f90 index c914d556..ec72f4c6 100644 --- a/base/serial/psb_ccsmv.f90 +++ b/base/serial/psb_ccsmv.f90 @@ -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 diff --git a/base/serial/psb_ccssm.f90 b/base/serial/psb_ccssm.f90 index 1d189efc..177edc11 100644 --- a/base/serial/psb_ccssm.f90 +++ b/base/serial/psb_ccssm.f90 @@ -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 diff --git a/base/serial/psb_ccssv.f90 b/base/serial/psb_ccssv.f90 index 9d734bc1..03ba9ffc 100644 --- a/base/serial/psb_ccssv.f90 +++ b/base/serial/psb_ccssv.f90 @@ -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 diff --git a/base/serial/psb_dcsmv.f90 b/base/serial/psb_dcsmv.f90 index ec2cbbca..dc556a05 100644 --- a/base/serial/psb_dcsmv.f90 +++ b/base/serial/psb_dcsmv.f90 @@ -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 diff --git a/base/serial/psb_dcssm.f90 b/base/serial/psb_dcssm.f90 index a0b17c80..07367563 100644 --- a/base/serial/psb_dcssm.f90 +++ b/base/serial/psb_dcssm.f90 @@ -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 diff --git a/base/serial/psb_dcssv.f90 b/base/serial/psb_dcssv.f90 index 2756be15..15516566 100644 --- a/base/serial/psb_dcssv.f90 +++ b/base/serial/psb_dcssv.f90 @@ -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 diff --git a/base/serial/psb_scsmm.f90 b/base/serial/psb_scsmm.f90 index 55790e3c..c43c92ec 100644 --- a/base/serial/psb_scsmm.f90 +++ b/base/serial/psb_scsmm.f90 @@ -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 diff --git a/base/serial/psb_scsmv.f90 b/base/serial/psb_scsmv.f90 index 7c35fc32..63f85a22 100644 --- a/base/serial/psb_scsmv.f90 +++ b/base/serial/psb_scsmv.f90 @@ -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 diff --git a/base/serial/psb_scssm.f90 b/base/serial/psb_scssm.f90 index e0bb546b..141368ee 100644 --- a/base/serial/psb_scssm.f90 +++ b/base/serial/psb_scssm.f90 @@ -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 diff --git a/base/serial/psb_scssv.f90 b/base/serial/psb_scssv.f90 index c94dea03..e77bd49c 100644 --- a/base/serial/psb_scssv.f90 +++ b/base/serial/psb_scssv.f90 @@ -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 diff --git a/base/serial/psb_zcsmm.f90 b/base/serial/psb_zcsmm.f90 index b517da9c..4357a619 100644 --- a/base/serial/psb_zcsmm.f90 +++ b/base/serial/psb_zcsmm.f90 @@ -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 diff --git a/base/serial/psb_zcsmv.f90 b/base/serial/psb_zcsmv.f90 index 93e6fb56..a6fa6761 100644 --- a/base/serial/psb_zcsmv.f90 +++ b/base/serial/psb_zcsmv.f90 @@ -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 diff --git a/base/serial/psb_zcssm.f90 b/base/serial/psb_zcssm.f90 index 91c564d8..43e9a66e 100644 --- a/base/serial/psb_zcssm.f90 +++ b/base/serial/psb_zcssm.f90 @@ -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 diff --git a/base/serial/psb_zcssv.f90 b/base/serial/psb_zcssv.f90 index 1b60e9b3..7a89ae40 100644 --- a/base/serial/psb_zcssv.f90 +++ b/base/serial/psb_zcssv.f90 @@ -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