<html>
  <head>

    <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <font face="Times New Roman">Dear Prof. Blaha,<br>
      <br>
      This is to report a small bug in Wien2k 12.1.<br>
      <br>
      An error like the following might occur:<br>
      <br>
      xmgrace TiC.bands.agr<br>
      <br>
      Nonterminating string:&nbsp; TITLE "TiC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; atom&nbsp; 1&nbsp; #&nbsp;&nbsp;&nbsp; k&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      ene&nbsp;&nbsp;&nbsp;&nbsp; character<br>
      syntax error:&nbsp; TITLE "TiC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; atom&nbsp; 1&nbsp; #&nbsp;&nbsp;&nbsp; k&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ene&nbsp;&nbsp;&nbsp;&nbsp;
      character<br>
      <br>
      The xmlabel is set for the case shown in the code below. For other
      cases, xmlabel is uninitialized and garbage out is written in the
      agr file.<br>
      <br>
      SRC_spaghetti/spag.f<br>
      --------------------<br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if(jatom.eq.0) goto 206<br>
      &nbsp;207&nbsp; read(9,'(a80)',end=206) aline<br>
      &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;if(aline(2:5).eq.'JATO') then<br>
      &nbsp;&nbsp; &nbsp;...<br>
      &nbsp;&nbsp; &nbsp;xmlabel1(:)=label1(:) !line 430<br>
      &nbsp;&nbsp; &nbsp;...<br>
      &nbsp;&nbsp; &nbsp;endif<br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; endif<br>
      &nbsp;&nbsp; &nbsp;...<br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; write(40,123) xmtitle, jatom_list(1), xmlabel1 #line 588<br>
      --------------------<br>
      <br>
      Therefore, the following change is suggested in spag.f:<br>
      <br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xmlabel1 ='' !Add at line 406<br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; char0=0.01d0<br>
      <br>
      Best Regards,<br>
      <br>
      Gavin</font>
  </body>
</html>