[Wien] lapw2 compilation error

[Peter Blaha]

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


-- 

                                       P.Blaha
--------------------------------------------------------------------------
Peter BLAHA, Inst.f. Materials Chemistry, TU Vienna, A-1060 Vienna
Phone: +43-1-58801-15671             FAX: +43-1-58801-15698
Email: blaha at theochem.tuwien.ac.at    WWW: http://info.tuwien.ac.at/theochem/
--------------------------------------------------------------------------