diff --git a/base/serial/aux/zamsr.f90 b/base/serial/aux/zamsr.f90
index ec7e5cac..627d6220 100644
--- a/base/serial/aux/zamsr.f90
+++ b/base/serial/aux/zamsr.f90
@@ -59,9 +59,9 @@ subroutine zamsr(n,x,idir)
   endif
   
   if (idir==psb_asort_up_) then 
-    call dmsort_up(n,x,iaux,iret)
+    call zamsort_up(n,x,iaux,iret)
   else
-    call dmsort_dw(n,x,iaux,iret)
+    call zamsort_dw(n,x,iaux,iret)
   end if
   
   if (iret == 0) then