anchor.diff:        End If
         Write (fnum,*)
         Write (fnum, '("Smearing scheme :")')
  -#ifdef XS
  +#ifdef TETRA
  +      tetocc=.false.
         If (associated(input%xs)) Then
            If (associated(input%xs%tetra)) Then
  -            If ( .Not. input%xs%tetra%tetraocc) Then
  +            tetocc=input%xs%tetra%tetraocc
  +         end if
  +      end if
  +      If ( .Not. tetocc) Then
   #endif
  -               Write (fnum, '(" ", A)') trim (sdescr)
  -               Write (fnum, '("Smearing width : ", G18.10)') &
  -              & input%groundstate%swidth
  -#ifdef XS
  -            Else
  -               Write (fnum, '(" ", A)') 'No smearing - using the linear&
  -              & tetrahedron method'
  -               Write (fnum, '(" ", A)') 'for occupation numbers and Fer&
  -              &mi energy'
  -            End If
  -         End If
  +         Write (fnum, '(" ", A)') trim (sdescr)
  +         Write (fnum, '("Smearing width : ", G18.10)') &
  +          & input%groundstate%swidth
  +#ifdef TETRA
  +      Else
  +         Write (fnum, '(" ", A)') 'No smearing - using the linear&
  +         & tetrahedron method'
  +         Write (fnum, '(" ", A)') 'for occupation numbers and Fer&
  +         &mi energy'
         End If
   #endif
         Write (fnum,*)
  
positive.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:
  
negative.code: ! local variables
        Integer :: i, is, ia
  #include "version.inc"
  #ifdef TETRA
        logical :: tetocc
  #endif
        Character (10) :: dat, tim
        Write (fnum, '(" +-----------------------------------+")')
        Write (fnum, '(" | EXCITING hydrogen",I2,".",I2,".",I2," started &
  