From bc2a7a74e25135baa3cc30dca4533c0dc05364b6 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 7 Mar 2008 15:15:09 +0000
Subject: [PATCH] psblas2-dev:  base/serial/aux/zamsr.f90

Fixed stupid type mismatch bug with one of the internals.
---
 base/serial/aux/zamsr.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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