Changed interface name to psb_sp_getdiag

src/modules/psb_serial_mod.f90

@@ -215,7 +215,7 @@ module psb_serial_mod
      end subroutine psb_zcsprt
   end interface
 
-  interface psb_spgtdiag
+  interface psb_sp_getdiag
      subroutine psb_dspgtdiag(a,d,info)
        use psb_spmat_type
        type(psb_dspmat_type), intent(in)     :: a

src/prec/psb_dbldaggrmat.f90

@@ -470,9 +470,9 @@ contains
     end if
 
     ! Get diagonal D
-    call psb_spgtdiag(a,p%dorig,info)
+    call psb_sp_getdiag(a,p%dorig,info)
     if(info /= 0) then
-      call psb_errpush(4010,name,a_err='spgtdiag')
+      call psb_errpush(4010,name,a_err='sp_getdiag')
       goto 9999
     end if
 

src/prec/psb_zbldaggrmat.f90

@@ -470,9 +470,9 @@ contains
     end if
 
     ! Get diagonal D
-    call psb_spgtdiag(a,p%dorig,info)
+    call psb_sp_getdiag(a,p%dorig,info)
     if(info /= 0) then
-      call psb_errpush(4010,name,a_err='spgtdiag')
+      call psb_errpush(4010,name,a_err='sp_getdiag')
       goto 9999
     end if