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

psblas2-dev:

Browse Source 
base/modules/psb_serial_mod.f90
 base/serial/psb_dspcnv.f90
 base/serial/psb_zspcnv.f90

Make more readable normal return for in place conversion.
This commit is contained in:
Salvatore Filippone
2008-05-14 11:02:41 +00:00
parent 608c97e9d4
commit f7895f7c5b
3 changed files with 6 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_serial_mod.f90
-18
View File
@@ -40,24 +40,6 @@ module psb_serial_mod
& psb_sct => psi_sct
interface psb_csdp
subroutine psb_dcsdp(a, b,info,ifc,check,trans,unitd,upd,dupl)
use psb_spmat_type
type(psb_dspmat_type), intent(in) :: a
type(psb_dspmat_type), intent(inout) :: b
integer, intent(out) :: info
integer, intent(in), optional :: ifc,upd,dupl
character, intent(in), optional :: check,trans,unitd
end subroutine psb_dcsdp
subroutine psb_zcsdp(a, b,info,ifc,check,trans,unitd,upd,dupl)
use psb_spmat_type
type(psb_zspmat_type), intent(in) :: a
type(psb_zspmat_type), intent(inout) :: b
integer, intent(out) :: info
integer, intent(in), optional :: ifc,upd,dupl
character, intent(in), optional :: check,trans,unitd
end subroutine psb_zcsdp
end interface
interface psb_csrws
subroutine psb_dcsrws(rw,a,info,trans)
base/serial/psb_dspcnv.f90
+3 -3
View File
@@ -489,7 +489,9 @@ subroutine psb_dspcnv1(a, info, afmt, upd, dupl)
call psb_errpush(info,name,a_err=ch_err)
goto 9999
endif
goto 9998
call psb_sp_setifld(psb_spmat_asb_,psb_state_,a,info)
call psb_erractionrestore(err_act)
return
end if
end if
@@ -555,8 +557,6 @@ subroutine psb_dspcnv1(a, info, afmt, upd, dupl)
endif
9998 continue
call psb_sp_setifld(psb_spmat_asb_,psb_state_,a,info)
call psb_erractionrestore(err_act)
base/serial/psb_zspcnv.f90
+3 -3
View File
@@ -489,7 +489,9 @@ subroutine psb_zspcnv1(a, info, afmt, upd, dupl)
call psb_errpush(info,name,a_err=ch_err)
goto 9999
endif
goto 9998
call psb_sp_setifld(psb_spmat_asb_,psb_state_,a,info)
call psb_erractionrestore(err_act)
return
end if
end if
@@ -555,8 +557,6 @@ subroutine psb_zspcnv1(a, info, afmt, upd, dupl)
endif
9998 continue
call psb_sp_setifld(psb_spmat_asb_,psb_state_,a,info)
call psb_erractionrestore(err_act)