From bc2a7a74e25135baa3cc30dca4533c0dc05364b6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone 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