anchor.diff: -!
  -!
  -!
  +
   ! 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:
  
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:       End If
        Write (fnum,*)
        Write (fnum, '("Smearing scheme :")')
  #ifdef TETRA
        tetocc=.false.
        If (associated(input%xs)) Then
           If (associated(input%xs%tetra)) 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 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,*)
  