diff --git a/base/serial/psb_crwextd.f90 b/base/serial/psb_crwextd.f90
index 370ee6c1..e479dd56 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 a%a%mv_to_coo(actmp,info)
+      call aa%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 a%a%mv_from_coo(actmp,info)
+      if (info == psb_success_) call aa%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 9a7dc29e..bbeda657 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 a%a%mv_to_coo(actmp,info)
+      call aa%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 a%a%mv_from_coo(actmp,info)
+      if (info == psb_success_) call aa%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 b11f205e..7f46ad4d 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 a%a%mv_to_coo(actmp,info)
+      call aa%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 a%a%mv_from_coo(actmp,info)
+      if (info == psb_success_) call aa%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 95884392..f2ced1f9 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 a%a%mv_to_coo(actmp,info)
+      call aa%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 a%a%mv_from_coo(actmp,info)
+      if (info == psb_success_) call aa%mv_from_coo(actmp,info)
     end select
   end if
   if (info /= psb_success_) goto 9999