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

Change return value of get_context on error.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-18 16:47:23 +01:00
parent 9178d63ebd
commit e1d859e3f5
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_desc_mod.F90
+4 -2
View File
@@ -613,8 +613,10 @@ contains
if (allocated(desc%indxmap)) then
val = desc%indxmap%get_ctxt()
else
call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
call psb_error()
! At this point, val should a non-ALLOCATED
! ctxt component, which suits us just fine.
!call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
!call psb_error()
end if
end function psb_cd_get_context