[Wien] setrmt_lapw bug (with fix)

[Jeff Spirko]

Sometimes the new perl program setrmt_lapw changes the format of the
struct file.  By making the following change, this can be prevented.

Around line 112, remove the two lines:
       ($pip2,$rmtold) = unpack("A43 A7",$pip);
       $pip =~ (s/$rmtold/$rmt[$nat]  /);
And replace them with the three lines:
       $rmtold = substr($pip, 43, 7);
       $rmt[$nat] = sprintf("%-7s", $rmt[$nat]);
       $pip =~ (s/$rmtold/$rmt[$nat]/);

Best regards,
-- 
Jeff Spirko   spirko at lehigh.edu   spirko at yahoo.com   WD3V   |=>

The study of non-linear physics is like the study of non-elephant biology.

All theoretical chemistry is really physics;
and all theoretical chemists know it. -- Richard P. Feynman