Deleted debugging output from last commit

eigen/slomat.F90

@@ -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

types/types_lapw.F90

@@ -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