anchor.diff:        Write (fnum, '("Total number of G-vectors : ", I8)') ngvec
         Write (fnum,*)
         Write (fnum, '("Maximum angular momentum used for")')
  -      Write (fnum, '(" APW functions			  : ", I4)') &
  +      Write (fnum, '(" APW functions                     : ", I4)') &
        & input%groundstate%lmaxapw
         Write (fnum, '(" computing H and O matrix elements : ", I4)') &
        & input%groundstate%lmaxmat
  -      Write (fnum, '(" potential and density		  : ", I4)') &
  +      Write (fnum, '(" potential and density             : ", I4)') &
        & input%groundstate%lmaxvr
  -      Write (fnum, '(" inner part of muffin-tin	  : ", I4)') &
  +      Write (fnum, '(" inner part of muffin-tin          : ", I4)') &
        & input%groundstate%lmaxinr
         Write (fnum,*)
         Write (fnum, '("Total nuclear charge    : ", G18.10)') chgzn
  
positive.code: ! local variables
        Integer :: i, is, ia
  #include "version.inc"
        Character (10) :: dat, tim
        Write (fnum, '(" +-----------------------------------+")')
        Write (fnum, '(" | EXCITING hydrogen",I2,".",I2,".",I2," started &
  
negative.code: 
  ! Copyright (C) 2002-2005 J. K. Dewhurst, S. Sharma and C. Ambrosch-Draxl.
  ! This file is distributed under the terms of the GNU General Public License.
  ! See the file COPYING for license details.
  
  !BOP
  ! !ROUTINE: writeinfo
  ! !INTERFACE:
  