mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 20:32:12 +00:00
First round of changes: fixed SYMBMM,NUMBMM to use GETROW.
THis has to be updated in two ways: 1. the symbmm/numbmm equivalent must be made smarter (perhaps a cache for rows extracted from B?) 2. the whole getrow/getblk/clip chain must be changed.
This commit is contained in:
@@ -80,8 +80,8 @@ contains
|
||||
! also changes error action to "return"
|
||||
subroutine psb_erractionsave(err_act)
|
||||
integer, intent(out) :: err_act
|
||||
err_act=err_action
|
||||
err_action=act_ret
|
||||
err_act = err_action
|
||||
err_action = act_ret
|
||||
end subroutine psb_erractionsave
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user