Commit f7530b1d authored by Daniel Wortmann's avatar Daniel Wortmann

Deleted debugging output from last commit

parent 9306e171
......@@ -55,7 +55,7 @@ CONTAINS
COMPLEX, ALLOCATABLE :: cph(:,:)
ALLOCATE(cph(MAXVAL(lapw%nv),2))
DO i=MIN(jintsp,iintsp),MAX(jintsp,iintsp)
CALL lapw%phase_factors(i,atoms%taual(:,na),-1*noco%qss,cph(:,i))
CALL lapw%phase_factors(i,atoms%taual(:,na),noco%qss,cph(:,i))
ENDDO
IF ((atoms%invsat(na).EQ.0) .OR. (atoms%invsat(na).EQ.1)) THEN
......
......@@ -216,12 +216,9 @@ CONTAINS
(mk3+gvec(3,k))*(2*mk1+1)*(2*mk2+1)
ENDDO
CALL sort(index3(:lapw%nv(ispin)),rkq,rkqq)
PRINT *,"L:",SIZE(index3),lapw%nv(ispin)
PRINT *,"L:",MINVAL(index3),MAXVAL(index3),SUM(index3)
DO n=1,lapw%nv(ispin)
lapw%gvec(:,n,ispin) = gvec(:,index3(n))
lapw%rk(n,ispin) = rk(index3(n))
PRINT *,"RK:",n,lapw%rk(n,ispin)
ENDDO
!---> determine pairs of K-vectors, where K_z = K'_-z to use
!---> z-reflection
......
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