[Wien] SRC_lapwso/init.f

[Lee, Yongbin [A LAB]]

 vorb(i,j)=cmplx(rval,dval)  <----

"dval"  should be "cval"

________________________________
From: wien-bounces at zeus.theochem.tuwien.ac.at [wien-bounces at zeus.theochem.tuwien.ac.at] on behalf of YONGBIN LEE [bbbusybee at yahoo.com]
Sent: Tuesday, March 04, 2014 11:23 AM
To: A Mailing list for WIEN2k users
Subject: [Wien] SRC_lapwso/init.f

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/20140305/41e5ac87/attachment.htm>