!
!     $Id$
!
      Write (lineOut,*)                                                  &
     &     vars(iValue)%lengthFocus
!
      lineOut = lineOut(1:lenc(lineOut))//" -"
!
      Write (iUnit,*) lineOut(1:lenc(lineOut))
!

