[Wien] SRC_lapwso/init.f

[YONGBIN LEE]

Dear Users,
    There is an old bug  reappeared in SRC_lawpso/init.f (WIEN2k_13.1)
   

    SRC_lapwso/init.f   line 240

           do i=-l,l
             do j=-l,l
               read(10+isi,*) rval,cval      <-----
               vorb(i,j)=cmplx(rval,dval)  <------
103   format(2f18.11)
             enddo
           enddo



  Best,
 Yongbin
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://zeus.theochem.tuwien.ac.at/pipermail/wien/attachments/20140304/8e974c3e/attachment.htm>