<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" id="owaParaStyle"></style>
</head>
<body fpstyle="1" ocsi="0">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 10pt;">
<div><span style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px; background-color: rgb(255, 255, 255);"> vorb(i,j)=cmplx(rval,dval) <----</span></div>
<div><span style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px; background-color: rgb(255, 255, 255);"> </span></div>
<div><span style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px; background-color: rgb(255, 255, 255);">"dval" should be "cval"</span></div>
<div><span style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px; background-color: rgb(255, 255, 255);"><br>
</span></div>
<div style="font-family: Times New Roman; color: #000000; font-size: 16px">
<hr tabindex="-1">
<div id="divRpF965770" style="direction: ltr;"><font face="Tahoma" size="2" color="#000000"><b>From:</b> wien-bounces@zeus.theochem.tuwien.ac.at [wien-bounces@zeus.theochem.tuwien.ac.at] on behalf of YONGBIN LEE [bbbusybee@yahoo.com]<br>
<b>Sent:</b> Tuesday, March 04, 2014 11:23 AM<br>
<b>To:</b> A Mailing list for WIEN2k users<br>
<b>Subject:</b> [Wien] SRC_lapwso/init.f<br>
</font><br>
</div>
<div></div>
<div>
<div style="color:#000; background-color:#fff; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; font-size:12pt">
<div>Dear Users,</div>
<div> There is an old bug reappeared in SRC_lawpso/init.f (WIEN2k_13.1)</div>
<div> <br>
</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
SRC_lapwso/init.f line 240<br>
</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
do i=-l,l<br>
do j=-l,l<br>
read(10+isi,*) rval,cval <-----<br>
vorb(i,j)=cmplx(rval,dval) <------<br>
103 format(2f18.11)<br>
enddo<br>
enddo<br>
</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
<br>
</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
<br>
</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica
Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
Best,</div>
<div style="color:rgb(0,0,0); font-size:16px; font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color:transparent; font-style:normal">
Yongbin<br>
</div>
</div>
</div>
</div>
</div>
</body>
</html>