psblas2-dev:

17 years ago · bc2a7a74e2
parent 13be647fee
commit bc2a7a74e2
1 changed files with 2 additions and 2 deletions
--- 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