Commit 807133c6 authored by Matthias Redies's avatar Matthias Redies

fixed the too many communicators bug

parent 9f0cd78e
...@@ -97,6 +97,13 @@ CONTAINS ...@@ -97,6 +97,13 @@ CONTAINS
ALLOCATE(hmat_final,mold=smat(1,1)) ALLOCATE(hmat_final,mold=smat(1,1))
CALL eigen_redist_matrix(mpi,lapw,atoms,smat,smat_final) CALL eigen_redist_matrix(mpi,lapw,atoms,smat,smat_final)
CALL eigen_redist_matrix(mpi,lapw,atoms,hmat,hmat_final,smat_final) CALL eigen_redist_matrix(mpi,lapw,atoms,hmat,hmat_final,smat_final)
DO i=1,nspins
DO j=1,nspins
call smat(i,j)%free()
call hmat(i,j)%free()
ENDDO
ENDDO
END SUBROUTINE eigen_hssetup END SUBROUTINE eigen_hssetup
END MODULE m_eigen_hssetup END MODULE m_eigen_hssetup
......
...@@ -467,12 +467,12 @@ CONTAINS ...@@ -467,12 +467,12 @@ CONTAINS
k = k + 1 k = k + 1
ENDDO ENDDO
ENDDO ENDDO
#ifdef CPP_BLACSDEFAULT !#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 !#else
ictextblacs=mpi_subcom ! ictextblacs=mpi_subcom
#endif !#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