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

psb_penv-mod.F90

Browse Source 
Fixed call to BLACS_SET.
This commit is contained in:
Salvatore Filippone
2008-02-29 09:41:27 +00:00
parent 70525a4efe
commit f9c4333f26
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_penv_mod.F90
+5 -5
View File
@@ -4957,10 +4957,10 @@ contains
subroutine psb_set_coher(ictxt,isvch)
integer :: ictxt, isvch
! Ensure global coherence for convergence checks.
! Ensure global repeatability for convergence checks.
#if !defined(HAVE_ESSL_BLACS)
Call blacs_get(ictxt,16,isvch)
Call blacs_set(ictxt,16,1)
Call blacs_get(ictxt,15,isvch)
Call blacs_set(ictxt,15,1)
#else
! Do nothing: ESSL does coherence by default,
! and does not handle req=16
@@ -4970,10 +4970,10 @@ contains
integer :: ictxt, isvch
! Ensure global coherence for convergence checks.
#if !defined(HAVE_ESSL_BLACS)
Call blacs_set(ictxt,16,isvch)
Call blacs_set(ictxt,15,isvch)
#else
! Do nothing: ESSL does coherence by default,
! and does not handle req=16
! and does not handle req=15
#endif
end subroutine psb_restore_coher
subroutine psb_get_mpicomm(ictxt,comm)