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

Change handling of no-context in DESC for remap-coarse

Browse Source
This commit is contained in:
Salvatore Filippone
2020-05-26 09:31:06 +02:00
parent 2de1202d62
commit 90493218a2
3 changed files with 28 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_desc_mod.F90
+6 -6
View File
@@ -614,8 +614,8 @@ contains
val = desc%indxmap%get_ctxt()
else
val = -1
call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
call psb_error()
!!$ call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
!!$ call psb_error()
end if
end function psb_cd_get_context
@@ -629,8 +629,8 @@ contains
val = desc%indxmap%get_state()
else
val = -1
call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_dectype')
call psb_error()
!!$ call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_dectype')
!!$ call psb_error()
end if
end function psb_cd_get_dectype
@@ -645,8 +645,8 @@ contains
val = desc%indxmap%get_mpic()
else
val = -1
call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_mpic')
call psb_error()
!!$ call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_mpic')
!!$ call psb_error()
end if
end function psb_cd_get_mpic
base/modules/penv/psi_penv_mod.F90
+4 -1
View File
@@ -563,7 +563,10 @@ contains
call mpi_comm_size(ictxt,np,info)
if (info /= mpi_success) np = -1
call mpi_comm_rank(ictxt,iam,info)
if (info /= mpi_success) iam = -1
if (info /= mpi_success) iam = -1
else
np = -1
iam = -1
end if
lctxt = ictxt
lam = iam