Commit c0de7ae3 authored by Daniel Wortmann's avatar Daniel Wortmann

Removed previously added conjg in alineso

parent cc7db29b
......@@ -98,7 +98,6 @@ 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