!
!     $Id$
!
      B = '\'   ! '
      S = ' '
      CMD =  programName//B//commandToSave(1:lenc(commandToSave))
      lCMD = lenc(CMD)
!
!D      write (6,*) "   --> saveCommad.f90 "
!D      write (6,*) "       CMD : ->",CMD(1:lCMD),"<-"
!
      ERROR = .false.
!
      write (iUnit,*) "! "
      write (iUnit,*) "! ", CMD(1:lCMD)
      write (iUnit,*) CMD(1:lCMD), " -"
!
!!$      lineOut = " /defaults"
!!$!
!!$      Include 'caseContinuationLine.f90'
!!$!
!!$      Write (iUnit,*) lineOut(1:lenc(lineOut))
!!$!

