[Wien] lapw2 compilation error

[aleksey.v.murin@gmail.com]

Dear Peter Blaha,
Thank you very much for your help. It works fine!

> Try to change
>    50  format((3i5,f10.6,2x,f9.6,"/",$))
> to
>    50  format(3i5,f10.6,2x,f9.6,"/",$)
>
> > I have a strange problem with compilation of lapw2 module.
> >
> > PROBLEM
> > ~~~~~~
> >
> > f95 -ffree-form -O2 -march=k8 -m64 -c fermi_tmp_.F
> >  In file fermi_tmp_.F:671
> >
> >   50  format((3i5,f10.6,2x,f9.6,"/",$))
> >                                      1
> > Error: $ must be the last specifier in format string at (1)
> >  In file fermi_tmp_.F:662
> >
> > write(6,50)kk,jspin1,nn,eb(nn+icp,kk,jspin1),weight((nn+icp)+(jspin
> >                      1
> > Error: FORMAT label 50 at (1) not defined
---
Best regards,
Aleksey V. Murin