Commit cdcff7c9 authored by Gregor Michalicek's avatar Gregor Michalicek

Allow numbands > number of basis function

parent d53c919a
...@@ -150,6 +150,9 @@ CONTAINS ...@@ -150,6 +150,9 @@ CONTAINS
WRITE(1233,'(2i7,2f15.8)') i, j, hmat%data_r(i,j), hmat%data_r(j,i) WRITE(1233,'(2i7,2f15.8)') i, j, hmat%data_r(i,j), hmat%data_r(j,i)
END IF END IF
ELSE ELSE
IF ((i.LE.5).AND.(j.LE.5)) THEN
WRITE(1233,'(2i7,4f15.8)') i, j, hmat%data_c(i,j), hmat%data_c(j,i)
END IF
ENDIF ENDIF
END DO END DO
END DO END DO
...@@ -170,6 +173,8 @@ CONTAINS ...@@ -170,6 +173,8 @@ CONTAINS
l_wu=.FALSE. l_wu=.FALSE.
ne_all=DIMENSION%neigd ne_all=DIMENSION%neigd
IF(ne_all < 0) ne_all = lapw%nmat
IF(ne_all > lapw%nmat) ne_all = lapw%nmat
!Try to symmetrize matrix !Try to symmetrize matrix
CALL symmetrize_matrix(mpi,noco,kpts,nk,hmat,smat) CALL symmetrize_matrix(mpi,noco,kpts,nk,hmat,smat)
......
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