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
k = k + 1
ENDDO
ENDDO
#ifdef CPP_BLACSDEFAULT
!Get the Blacs default context
CALL BLACS_GET(0,0,ictextblacs)
#else
ictextblacs=mpi_subcom
#endif
! Create the Grid
CALL BLACS_GRIDMAP(ictextblacs,iusermap,size(iusermap,1),blacsdata%nprow,blacsdata%npcol)
! 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