<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
</head>
<body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; color: rgb(0, 0, 0); font-size: 14px; font-family: Calibri, sans-serif; ">
<div>Hi Peter and Wien2k Users,&nbsp;</div>
<div><br>
</div>
<div>When I install wien2k on a IBM Power 7 unit with xlf90_r etc., I see the following compilation errors ---</div>
<div><br>
</div>
<div>1. In the more recent version like 12.1, a qmix8.F and SRC_hf folder are added to the package&nbsp;</div>
<div><br>
</div>
<div>For qmix8.F, the error comes at lines like&nbsp;</div>
<div><br>
</div>
<div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;write(21,2121),XUSE,' due to touching spheres'</div>
<div><br>
</div>
<div>So I manually changed it to&nbsp;</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; write(21,2121) XUSE,' due to touching spheres'</div>
</div>
<div><br>
</div>
<div>2. In the subdirectory of SRC_hf, the symptom of the error is&nbsp;</div>
<div><br>
</div>
<div>xlf90_r -O3 -qalign -qstrict -q64 -qarch=auto -c calc_rhovalvxsl_tmp_.F</div>
<div>&quot;calc_rhovalvxsl_tmp_.F&quot;, line 25.48: 1515-019 (S) Syntax is incorrect.</div>
<div>&nbsp;</div>
<div>corresponding to the source line&nbsp;</div>
<div><br>
</div>
<div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; r(1:nr) = r0(iat)*exp(dx(iat)*(dble((/1:nr/))-1d0))</div>
</div>
<div><br>
</div>
<div>I know that this way of coding is quite simpler but is not necessarily application to all compilers.&nbsp;</div>
<div>For IBM XLF, can you suggest some option to recognize the above coding style?</div>
<div>Otherwise, I will have to change it manually to a do-loop.</div>
<div><br>
</div>
<div>Also, for the continuation of one line, for some executable statements, I need to provide a second &quot;&amp;&quot; sign like&nbsp;</div>
<div><br>
</div>
<div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; if ((nonself .eqv. .false.) .and. (diaghf .eqv. .false.)) &amp;</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;write(21,'(&quot;:CCESUM &nbsp; &nbsp;: &quot;,1x,f22.9,3X,&quot;(Ry)&quot;)') ccesum</div>
</div>
<div><br>
</div>
<div>---&gt;</div>
<div><br>
</div>
<div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; if ((nonself .eqv. .false.) .and. (diaghf .eqv. .false.)) &amp;</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp;&amp; &nbsp; &nbsp;write(21,'(&quot;:CCESUM &nbsp; &nbsp;: &quot;,1x,f22.9,3X,&quot;(Ry)&quot;)') ccesum</div>
</div>
<div><br>
</div>
<div>There are a lot of places ,where I have to do this.&nbsp;</div>
<div>Is there a simple option for me to avoid manually changing the code?</div>
<div><br>
</div>
<div>Thanks for sharing your experience.&nbsp;</div>
<div><br>
</div>
<div>Cheers,</div>
<div><br>
</div>
<div>Jianxin</div>
<div><br>
</div>
<div><br>
</div>
</body>
</html>