[Wien] Is it a bug in irrep?

[Jun Jiang]

Dear all,
  I found it maybe a tiny bug from line 50 of SRC_irrep/kptin.f,which reads
that

       if(2.eq.1) then
        DO 250 I=1,NV
          A(I,NNE)=CONJG(A(I,NNE))
          B(I,NNE)=CONJG(B(I,NNE))
 250    CONTINUE
        endif

For  2.eq.1 just only giving 'false',I think it should be
if(FL(2).eq.FL(1)) then .......

I am using an old version of wien2k (03).

Best regards, Jun
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://zeus.theochem.tuwien.ac.at/pipermail/wien/attachments/20061025/2a53cb3f/attachment.html