!
!     $Id$
!
      l = lenc(vars(iValue)%velocity%type)
      write (c2,*) vars(iValue)%velocity%value
      l2 = lenc(c2) 
      lineOut = ' /velocity "'//                                         &
     &            vars(iValue)%velocity%type(1:l)//'" '//c2(1:l2)
!
      Include 'caseContinuationLine.inc'
!
      write (6,*)     "   --> Options/saveVelocity.inc "
      write (6,*)     lineOut(1:lenc(lineOut))
      Write (iUnit,*) lineOut(1:lenc(lineOut))
!
