[Wien] more runafm_lapw troubles

[johannes]

Dear Peter, Kevin and interested users:
	Thank you for the help with runafm_lapw - I have it working now.  
There was still one formatting error which occurs because some of the
lines in *.scf2up have a colon in the 7th place. The READ(MARGN,710)
statement on line 362 consequently causes a crash (710 FORMAT(4x,3i)) for
quantities which are not indexed by atom (e.g. :GMA or :FER).  A simple
fix which works (so far) is to replace line 362 with the following
sequence of commands:

	if (MARGN(7:7) .ne. ':') then 
          READ(MARGN,710) JATOM
	else
         READ(MARGN,715) JATOM
        end if

The format statement 715 FORMAT(4x,2i) must also be added.  

	Hope this helps anyone trying to do AFM calculations.

	Michelle