fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas2-dev:

Browse Source 
base/serial/aux/zamsr.f90

Fixed stupid type mismatch bug with one of the internals.
This commit is contained in:
Salvatore Filippone
2008-03-07 15:15:09 +00:00
parent 13be647fee
commit bc2a7a74e2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/aux/zamsr.f90
+2 -2
View File
@@ -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