psblas3:

Version that compiles and runs with NAG. 
Lots and lots to be changed yet.

base/modules/psb_tools_mod.f90

@@ -612,9 +612,9 @@ Module psb_tools_mod
     end subroutine psb_zspasb
   end interface
 
-  interface psb_spfree
+!!$  interface psb_spfree
-    module procedure psb_ssp_free, psb_dsp_free, psb_zsp_free
+!!$    module procedure psb_ssp_free, psb_dsp_free, psb_zsp_free
-  end interface
+!!$  end interface
 
   interface psb_spfree
     subroutine psb_sspfree(a, desc_a,info)

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

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

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

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

base/serial/psb_dcsmv.f90

@@ -38,7 +38,7 @@ subroutine psb_dcsmv(alpha,a,b,beta,c,info,trans)
   use psb_error_mod
   implicit none 
 
-  type(psb_dspmat_type) :: a
+  class(psb_dspmat_type) :: a
   real(psb_dpk_)         :: alpha, beta, b(:), c(:)
   integer               :: info
   character, optional   :: trans

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

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

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

base/serial/psb_scsmv.f90

@@ -39,7 +39,7 @@ subroutine psb_scsmv(alpha,a,b,beta,c,info,trans)
 
   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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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