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

psblas3:

Browse Source 
Fixed TRANSP intent.
This commit is contained in:
Salvatore Filippone
2011-11-04 16:33:35 +00:00
parent deefb05a2b
commit b1be41a3ed
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_s_mat_impl.F90
+2 -2
View File
@@ -1611,7 +1611,7 @@ subroutine psb_s_transp_2mat(a,b)
info = psb_err_alloc_dealloc_
goto 9999
end if
call a%a%transp_2mat(b%a)
call a%a%transp(b%a)
call psb_erractionrestore(err_act)
return
@@ -1692,7 +1692,7 @@ subroutine psb_s_transc_2mat(a,b)
info = psb_err_alloc_dealloc_
goto 9999
end if
call a%a%transc_2mat(b%a)
call a%a%transc(b%a)
call psb_erractionrestore(err_act)
return