Commit 542abce2 authored by Daniel Wortmann's avatar Daniel Wortmann

Try to use mpi_subcom in blacs grid init to increase stability of MPI version

parent 694bef8a
...@@ -467,8 +467,12 @@ CONTAINS ...@@ -467,8 +467,12 @@ CONTAINS
k = k + 1 k = k + 1
ENDDO ENDDO
ENDDO ENDDO
#ifdef CPP_BLACSDEFAULT
!Get the Blacs default context !Get the Blacs default context
CALL BLACS_GET(0,0,ictextblacs) CALL BLACS_GET(0,0,ictextblacs)
#else
ictextblacs=mpi_subcom
#endif
! Create the Grid ! Create the Grid
CALL BLACS_GRIDMAP(ictextblacs,iusermap,size(iusermap,1),blacsdata%nprow,blacsdata%npcol) CALL BLACS_GRIDMAP(ictextblacs,iusermap,size(iusermap,1),blacsdata%nprow,blacsdata%npcol)
! Now control, whether the BLACS grid is the one we wanted ! Now control, whether the BLACS grid is the one we wanted
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment