
<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 Dr. Blaha and Wien2k users,<br>

      <br>

      When running x xspec, I get the error shown below.&nbsp; It looks like

      there is an infinite loop from lines 170 to 180 in txspec.f that

      causes an array index to go out of the upper bound, but I don't

      have much Fortran experience.&nbsp; Should there be a condition

      (IEMAX?) and break or jump statement to get out of the "</font><font

      face="Times New Roman">1 CONTINUE</font><font face="Times New

      Roman">" and "</font><font face="Times New Roman">goto 1</font><font

      face="Times New Roman">" loop from line 170 and 180?<br>

      <br>

      forrt1: severe (408): fort: (2): Subscript #1 of the array ENE has

      value 771 which is greater than the upper bound 770<br>

      <br>

      Image&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

      Routine&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Line&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Source&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>

      ...<br>

      txspec&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0000000000423085&nbsp; MAIN__&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

      176&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txspec.f<br>

      ...<br>

      <br>

      &gt;&nbsp;&nbsp; stop error txspec xspec.def<br>

      ...<br>

      <br>

      <b>Lines from file txspec.f in SRC_txspec.f</b><br>

      <br>

      Line 170:<br>

      &nbsp;&nbsp;&nbsp;&nbsp; I=0<br>

      &nbsp;1&nbsp;&nbsp;&nbsp; CONTINUE<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i=i+1<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF (LC.EQ.0) then<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ(32,4713,END=2,ERR=913) ENE(i),DOS(i,1),DOS(i,3)<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ELSE<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ(32,4713,END=2,ERR=913)

      ENE(i),DOS(i,1),DOS(i,2),DOS(i,3)<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF<br>

      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; goto 1<br>

      &nbsp;2&nbsp;&nbsp;&nbsp; CONTINUE<br>

      :Line 180<br>

      <br>

      Thanks,<br>

      <br>

      Gavin<br>

    </font>

  </body>

</html>