Commit 3522b07f authored by Frank Freimuth's avatar Frank Freimuth

Update wannier.F90

parent b8c2f8e7
......@@ -2230,8 +2230,8 @@ CONTAINS
l_p0,spin12(jspin)//'.socmmn0',&
'Overlaps of the wavefunct. at the same kpoint',&
nbnd,fullnkpts,nbnd,&
mpi%irank,mpi%isize,.FALSE.,.TRUE.&
mmn,.FALSE.)
mpi%irank,mpi%isize,.FALSE.,.TRUE.,&
mmn,wann%l_unformatted)
ENDIF !noco%l_soc and l_mmn0
IF(wann%l_orbcomp)THEN
......@@ -2263,7 +2263,7 @@ CONTAINS
l_p0,spin12(jspin2)//'.amn',&
'Overlaps of the wavefunct. with the trial orbitals',&
nbnd,fullnkpts,nwfs,&
mpi%irank,mpi%isize,.FALSE.,.FALSE.&
mpi%irank,mpi%isize,.FALSE.,.FALSE.,&
amn(:,:,:),wann%l_unformatted)
ENDIF !wann%l_matrixamn
......@@ -2286,7 +2286,7 @@ CONTAINS
mpi%mpi_comm,l_p0,spin12(jspin2)//'.umn',&
'transformation to first guess Wannier functions',&
nbnd,fullnkpts,nwfs,&
mpi%irank,mpi%isize,.FALSE.,.TRUE.&
mpi%irank,mpi%isize,.FALSE.,.TRUE.,&
psiw,.FALSE.)
#ifdef CPP_MPI
ALLOCATE( hwfr2(SIZE(hwfr,1),SIZE(hwfr,2)) )
......@@ -2324,7 +2324,7 @@ CONTAINS
l_p0,spin12(jspin2)//'.mmn0',&
'Overlaps of the wavefunct. at the same kpoint',&
nbnd,fullnkpts,nbnd,&
mpi%irank,mpi%isize,.FALSE.,.TRUE.&
mpi%irank,mpi%isize,.FALSE.,.TRUE.,&
mmn,.FALSE.)
ENDIF !wann%l_mmn0
......
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