fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +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_c_mat_impl.F90
+2 -2
View File
@@ -1613,7 +1613,7 @@ subroutine psb_c_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
@@ -1694,7 +1694,7 @@ subroutine psb_c_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
base/serial/impl/psb_d_mat_impl.F90
+2 -2
View File
@@ -1612,7 +1612,7 @@ subroutine psb_d_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
@@ -1693,7 +1693,7 @@ subroutine psb_d_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
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
base/serial/impl/psb_z_mat_impl.F90
+2 -2
View File
@@ -1611,7 +1611,7 @@ subroutine psb_z_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_z_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