Commit 0991952b authored by Daniel Wortmann's avatar Daniel Wortmann

Try to make conjg/spin-rotation more constistent, might help with #288, breaks...

Try to make conjg/spin-rotation more constistent, might help with #288, breaks SOC+first variation test (test broken?). @tesp might reopen old issues?
parent 882e3aaa
......@@ -222,9 +222,9 @@ CONTAINS
#else
ne_found=ne_all
#endif
IF (.NOT.zMat%l_real) THEN
zMat%data_c(:lapw%nmat,:ne_found) = CONJG(zMat%data_c(:lapw%nmat,:ne_found))
END IF
!IF (.NOT.zMat%l_real) THEN
! zMat%data_c(:lapw%nmat,:ne_found) = CONJG(zMat%data_c(:lapw%nmat,:ne_found))
!END IF
IF (mpi%n_rank == 0) THEN
! Only process 0 writes out the value of ne_all and the
! eigenvalues.
......
......@@ -17,7 +17,7 @@ CONTAINS
DO iintsp=1,2
DO jintsp=1,2
mat(jintsp,iintsp)%data_c(:,:)=chi(iintsp,jintsp)*mat_tmp%data_c(:,:)+mat(jintsp,iintsp)%data_c(:,:)
mat(jintsp,iintsp)%data_c(:,:)=chi(jintsp,iintsp)*mat_tmp%data_c(:,:)+mat(jintsp,iintsp)%data_c(:,:)
ENDDO
ENDDO
END SUBROUTINE hsmt_distspins
......
......@@ -98,6 +98,7 @@ CONTAINS
WRITE(6,"(6(f10.6,1x))") eig(:ne,jsp)
ENDIF
CALL read_eig(eig_id,nk,jsp,list=[(i,i=1,ne)],zmat=zmat(jsp))
IF (.NOT.l_real) zmat(jsp)%data_c(:,:)=CONJG(zmat(jsp)%data_c(:,:))
! write(*,*) 'process',irank,' reads ',nk
......
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