diff --git a/base/serial/psb_crwextd.f90 b/base/serial/psb_crwextd.f90
index e479dd56..370ee6c1 100644
--- a/base/serial/psb_crwextd.f90
+++ b/base/serial/psb_crwextd.f90
@@ -73,7 +73,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
         call psb_rwextd(nr,aa,info,rowscale=rowscale)
       end if
     class default
-      call aa%mv_to_coo(actmp,info)
+      call a%a%mv_to_coo(actmp,info)
       if (info == psb_success_) then 
         if (present(b)) then 
           call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
           call psb_rwextd(nr,actmp,info,rowscale=rowscale)
         end if
       end if
-      if (info == psb_success_) call aa%mv_from_coo(actmp,info)
+      if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
     end select
   end if
   if (info /= psb_success_) goto 9999
diff --git a/base/serial/psb_drwextd.f90 b/base/serial/psb_drwextd.f90
index bbeda657..9a7dc29e 100644
--- a/base/serial/psb_drwextd.f90
+++ b/base/serial/psb_drwextd.f90
@@ -73,7 +73,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
         call psb_rwextd(nr,aa,info,rowscale=rowscale)
       end if
     class default
-      call aa%mv_to_coo(actmp,info)
+      call a%a%mv_to_coo(actmp,info)
       if (info == psb_success_) then 
         if (present(b)) then 
           call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
           call psb_rwextd(nr,actmp,info,rowscale=rowscale)
         end if
       end if
-      if (info == psb_success_) call aa%mv_from_coo(actmp,info)
+      if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
     end select
   end if
   if (info /= psb_success_) goto 9999
diff --git a/base/serial/psb_srwextd.f90 b/base/serial/psb_srwextd.f90
index 7f46ad4d..b11f205e 100644
--- a/base/serial/psb_srwextd.f90
+++ b/base/serial/psb_srwextd.f90
@@ -73,7 +73,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
         call psb_rwextd(nr,aa,info,rowscale=rowscale)
       end if
     class default
-      call aa%mv_to_coo(actmp,info)
+      call a%a%mv_to_coo(actmp,info)
       if (info == psb_success_) then 
         if (present(b)) then 
           call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
           call psb_rwextd(nr,actmp,info,rowscale=rowscale)
         end if
       end if
-      if (info == psb_success_) call aa%mv_from_coo(actmp,info)
+      if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
     end select
   end if
   if (info /= psb_success_) goto 9999
diff --git a/base/serial/psb_zrwextd.f90 b/base/serial/psb_zrwextd.f90
index f2ced1f9..95884392 100644
--- a/base/serial/psb_zrwextd.f90
+++ b/base/serial/psb_zrwextd.f90
@@ -73,7 +73,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
         call psb_rwextd(nr,aa,info,rowscale=rowscale)
       end if
     class default
-      call aa%mv_to_coo(actmp,info)
+      call a%a%mv_to_coo(actmp,info)
       if (info == psb_success_) then 
         if (present(b)) then 
           call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
           call psb_rwextd(nr,actmp,info,rowscale=rowscale)
         end if
       end if
-      if (info == psb_success_) call aa%mv_from_coo(actmp,info)
+      if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
     end select
   end if
   if (info /= psb_success_) goto 9999